* Workaround for 2.6.4/i386 bug when setting dynamic arrays using RTTI

* Support for nested resources (such as used in Gmail)
* First attempt at supporting lists of object instead of arrays in code generator

git-svn-id: trunk@30867 -

packages/googleapi/examples/generator/googleapiconv.pp

@@ -341,7 +341,6 @@ Var
   I : Integer;
 
 begin
-  Writeln('DoAll(',LocalFile,',',URL,',', OFN ,',',AllVersions ,')');
   E:=ExtractFileExt(OFN);
   if (E='') then
     E:='.pp';

packages/googleapi/src/googleadexchangebuyer.pp

@@ -13,7 +13,7 @@ unit googleadexchangebuyer;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:47
+//Generated on: 16-5-15 08:52:57
 {$MODE objfpc}
 {$H+}
 
@@ -24,19 +24,19 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAccount = class;
-  TAccountsList = class;
-  TBillingInfo = class;
-  TBillingInfoList = class;
-  TBudget = class;
-  TCreative = class;
-  TCreativesList = class;
-  TDirectDeal = class;
-  TDirectDealsList = class;
-  TPerformanceReport = class;
-  TPerformanceReportList = class;
-  TPretargetingConfig = class;
-  TPretargetingConfigList = class;
+  TAccount = Class;
+  TAccountsList = Class;
+  TBillingInfo = Class;
+  TBillingInfoList = Class;
+  TBudget = Class;
+  TCreative = Class;
+  TCreativesList = Class;
+  TDirectDeal = Class;
+  TDirectDealsList = Class;
+  TPerformanceReport = Class;
+  TPerformanceReportList = Class;
+  TPretargetingConfig = Class;
+  TPretargetingConfigList = Class;
   TAccountArray = Array of TAccount;
   TAccountsListArray = Array of TAccountsList;
   TBillingInfoArray = Array of TBillingInfo;
@@ -51,14 +51,14 @@ type
   TPretargetingConfigArray = Array of TPretargetingConfig;
   TPretargetingConfigListArray = Array of TPretargetingConfigList;
   //Anonymous types, using auto-generated names
-  TAccountTypebidderLocationItem = class;
-  TCreativeTypecorrectionsItem = class;
-  TCreativeTypedisapprovalReasonsItem = class;
-  TCreativeTypefilteringReasonsTypereasonsItem = class;
-  TCreativeTypefilteringReasons = class;
-  TPretargetingConfigTypedimensionsItem = class;
-  TPretargetingConfigTypeexcludedPlacementsItem = class;
-  TPretargetingConfigTypeplacementsItem = class;
+  TAccountTypebidderLocationItem = Class;
+  TCreativeTypecorrectionsItem = Class;
+  TCreativeTypedisapprovalReasonsItem = Class;
+  TCreativeTypefilteringReasonsTypereasonsItem = Class;
+  TCreativeTypefilteringReasons = Class;
+  TPretargetingConfigTypedimensionsItem = Class;
+  TPretargetingConfigTypeexcludedPlacementsItem = Class;
+  TPretargetingConfigTypeplacementsItem = Class;
   TAccountTypebidderLocationArray = Array of TAccountTypebidderLocationItem;
   TAccountsListTypeitemsArray = Array of TAccount;
   TBillingInfoListTypeitemsArray = Array of TBillingInfo;
@@ -119,6 +119,10 @@ type
     Procedure SetmaximumActiveCreatives(AIndex : Integer; AValue : integer); virtual;
     Procedure SetmaximumTotalQps(AIndex : Integer; AValue : integer); virtual;
     Procedure SetnumberActiveCreatives(AIndex : Integer; 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 bidderLocation : TAccountTypebidderLocationArray Index 0 Read FbidderLocation Write SetbidderLocation;
@@ -144,6 +148,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TAccountsListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TAccountsListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -167,6 +175,10 @@ type
     Procedure SetaccountName(AIndex : Integer; AValue : String); virtual;
     Procedure SetbillingId(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 accountId : integer Index 0 Read FaccountId Write SetaccountId;
@@ -188,6 +200,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TBillingInfoListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TBillingInfoListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -238,6 +254,10 @@ type
     //Property setters
     Procedure Setdetails(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setreason(AIndex : Integer; 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;
@@ -257,6 +277,10 @@ type
     //Property setters
     Procedure Setdetails(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setreason(AIndex : Integer; 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;
@@ -295,6 +319,10 @@ type
     //Property setters
     Procedure Setdate(AIndex : Integer; AValue : String); virtual;
     Procedure Setreasons(AIndex : Integer; AValue : TCreativeTypefilteringReasonsTypereasonsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property date : String Index 0 Read Fdate Write Setdate;
@@ -350,6 +378,10 @@ type
     Procedure SetvendorType(AIndex : Integer; AValue : TintegerArray); virtual;
     Procedure SetvideoURL(AIndex : Integer; AValue : String); virtual;
     Procedure Setwidth(AIndex : Integer; 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 HTMLSnippet : String Index 0 Read FHTMLSnippet Write SetHTMLSnippet;
@@ -389,6 +421,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TCreativesListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TCreativesListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -458,6 +494,10 @@ type
     //Property setters
     Procedure SetdirectDeals(AIndex : Integer; AValue : TDirectDealsListTypedirectDealsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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;
@@ -505,6 +545,10 @@ type
     Procedure SetquotaThrottledLimit(AIndex : Integer; AValue : double); virtual;
     Procedure Setregion(AIndex : Integer; AValue : String); virtual;
     Procedure Settimestamp(AIndex : Integer; 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 calloutStatusRate : TTJSONSchemaArray Index 0 Read FcalloutStatusRate Write SetcalloutStatusRate;
@@ -538,6 +582,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetperformanceReport(AIndex : Integer; AValue : TPerformanceReportListTypeperformanceReportArray); 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;
@@ -658,6 +706,10 @@ type
     Procedure SetuserLists(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetvendorTypes(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setverticals(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 billingId : String Index 0 Read FbillingId Write SetbillingId;
@@ -698,6 +750,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TPretargetingConfigListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TPretargetingConfigListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1018,6 +1074,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAccount.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'bidderlocation' : SetLength(FbidderLocation,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1045,6 +1114,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAccountsList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1092,6 +1174,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBillingInfo.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'billingid' : SetLength(FbillingId,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1119,6 +1214,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBillingInfoList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1213,6 +1321,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativeTypecorrectionsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'details' : SetLength(Fdetails,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1240,6 +1361,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativeTypedisapprovalReasonsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'details' : SetLength(Fdetails,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1294,6 +1428,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativeTypefilteringReasons.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'reasons' : SetLength(Freasons,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1501,6 +1648,27 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreative.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'advertiserid' : SetLength(FadvertiserId,ALength);
+  'attribute' : SetLength(Fattribute,ALength);
+  'clickthroughurl' : SetLength(FclickThroughUrl,ALength);
+  'corrections' : SetLength(Fcorrections,ALength);
+  'disapprovalreasons' : SetLength(FdisapprovalReasons,ALength);
+  'productcategories' : SetLength(FproductCategories,ALength);
+  'restrictedcategories' : SetLength(FrestrictedCategories,ALength);
+  'sensitivecategories' : SetLength(FsensitiveCategories,ALength);
+  'vendortype' : SetLength(FvendorType,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1538,6 +1706,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativesList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1692,6 +1873,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDirectDealsList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'directdeals' : SetLength(FdirectDeals,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1859,6 +2053,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPerformanceReport.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'calloutstatusrate' : SetLength(FcalloutStatusRate,ALength);
+  'cookiematcherstatusrate' : SetLength(FcookieMatcherStatusRate,ALength);
+  'creativestatusrate' : SetLength(FcreativeStatusRate,ALength);
+  'hostedmatchstatusrate' : SetLength(FhostedMatchStatusRate,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1886,6 +2096,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPerformanceReportList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'performancereport' : SetLength(FperformanceReport,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2226,6 +2449,36 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPretargetingConfig.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'creativetype' : SetLength(FcreativeType,ALength);
+  'dimensions' : SetLength(Fdimensions,ALength);
+  'excludedcontentlabels' : SetLength(FexcludedContentLabels,ALength);
+  'excludedgeocriteriaids' : SetLength(FexcludedGeoCriteriaIds,ALength);
+  'excludedplacements' : SetLength(FexcludedPlacements,ALength);
+  'excludeduserlists' : SetLength(FexcludedUserLists,ALength);
+  'excludedverticals' : SetLength(FexcludedVerticals,ALength);
+  'geocriteriaids' : SetLength(FgeoCriteriaIds,ALength);
+  'languages' : SetLength(Flanguages,ALength);
+  'mobilecarriers' : SetLength(FmobileCarriers,ALength);
+  'mobiledevices' : SetLength(FmobileDevices,ALength);
+  'mobileoperatingsystemversions' : SetLength(FmobileOperatingSystemVersions,ALength);
+  'placements' : SetLength(Fplacements,ALength);
+  'platforms' : SetLength(Fplatforms,ALength);
+  'supportedcreativeattributes' : SetLength(FsupportedCreativeAttributes,ALength);
+  'userlists' : SetLength(FuserLists,ALength);
+  'vendortypes' : SetLength(FvendorTypes,ALength);
+  'verticals' : SetLength(Fverticals,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2253,6 +2506,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPretargetingConfigList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2785,7 +3051,7 @@ end;
 Class Function TAdexchangebuyerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAdexchangebuyerAPI.APIbasePath : string;
@@ -2797,7 +3063,7 @@ end;
 Class Function TAdexchangebuyerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/adexchangebuyer/v1.3/';
+  Result:='https://www.googleapis.com:443/adexchangebuyer/v1.3/';
 end;
 
 Class Function TAdexchangebuyerAPI.APIProtocol : string;
@@ -2879,7 +3145,7 @@ Function TAdexchangebuyerAPI.CreateAccountsResource(AOwner : TComponent) : TAcco
 
 begin
   Result:=TAccountsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2903,7 +3169,7 @@ Function TAdexchangebuyerAPI.CreateBillingInfoResource(AOwner : TComponent) : TB
 
 begin
   Result:=TBillingInfoResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2927,7 +3193,7 @@ Function TAdexchangebuyerAPI.CreateBudgetResource(AOwner : TComponent) : TBudget
 
 begin
   Result:=TBudgetResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2951,7 +3217,7 @@ Function TAdexchangebuyerAPI.CreateCreativesResource(AOwner : TComponent) : TCre
 
 begin
   Result:=TCreativesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2975,7 +3241,7 @@ Function TAdexchangebuyerAPI.CreateDirectDealsResource(AOwner : TComponent) : TD
 
 begin
   Result:=TDirectDealsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2999,7 +3265,7 @@ Function TAdexchangebuyerAPI.CreatePerformanceReportResource(AOwner : TComponent
 
 begin
   Result:=TPerformanceReportResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3023,7 +3289,7 @@ Function TAdexchangebuyerAPI.CreatePretargetingConfigResource(AOwner : TComponen
 
 begin
   Result:=TPretargetingConfigResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleadmin.pp

@@ -13,7 +13,7 @@ unit googleadmin;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:47
+//Generated on: 16-5-15 08:52:57
 {$MODE objfpc}
 {$H+}
 
@@ -24,27 +24,27 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TActivities = class;
-  TActivity = class;
-  TChannel = class;
-  TUsageReport = class;
-  TUsageReports = class;
+  TActivities = Class;
+  TActivity = Class;
+  TChannel = Class;
+  TUsageReport = Class;
+  TUsageReports = Class;
   TActivitiesArray = Array of TActivities;
   TActivityArray = Array of TActivity;
   TChannelArray = Array of TChannel;
   TUsageReportArray = Array of TUsageReport;
   TUsageReportsArray = Array of TUsageReports;
   //Anonymous types, using auto-generated names
-  TActivityTypeactor = class;
-  TActivityTypeeventsItemTypeparametersItem = class;
-  TActivityTypeeventsItem = class;
-  TActivityTypeid = class;
-  TChannelTypeparams = class;
-  TUsageReportTypeentity = class;
-  TUsageReportTypeparametersItemTypemsgValueItem = class;
-  TUsageReportTypeparametersItem = class;
-  TUsageReportsTypewarningsItemTypedataItem = class;
-  TUsageReportsTypewarningsItem = class;
+  TActivityTypeactor = Class;
+  TActivityTypeeventsItemTypeparametersItem = Class;
+  TActivityTypeeventsItem = Class;
+  TActivityTypeid = Class;
+  TChannelTypeparams = Class;
+  TUsageReportTypeentity = Class;
+  TUsageReportTypeparametersItemTypemsgValueItem = Class;
+  TUsageReportTypeparametersItem = Class;
+  TUsageReportsTypewarningsItemTypedataItem = Class;
+  TUsageReportsTypewarningsItem = Class;
   TActivitiesTypeitemsArray = Array of TActivity;
   TActivityTypeeventsItemTypeparametersArray = Array of TActivityTypeeventsItemTypeparametersItem;
   TActivityTypeeventsArray = Array of TActivityTypeeventsItem;
@@ -70,6 +70,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -124,6 +128,10 @@ type
     Procedure SetmultiValue(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; 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 boolValue : boolean Index 0 Read FboolValue Write SetboolValue;
@@ -150,6 +158,10 @@ type
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); virtual;
     Procedure Set_type(AIndex : Integer; 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;
@@ -205,6 +217,10 @@ type
     Procedure SetipAddress(AIndex : Integer; AValue : String); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetownerDomain(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property actor : TActivityTypeactor Index 0 Read Factor Write Setactor;
@@ -335,6 +351,10 @@ type
     Procedure SetmsgValue(AIndex : Integer; AValue : TUsageReportTypeparametersItemTypemsgValueArray); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetstringValue(AIndex : Integer; 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 boolValue : boolean Index 0 Read FboolValue Write SetboolValue;
@@ -364,6 +384,10 @@ type
     Procedure Setetag(AIndex : Integer; AValue : String); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TUsageReportTypeparametersArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property date : String Index 0 Read Fdate Write Setdate;
@@ -407,6 +431,10 @@ type
     Procedure Setcode(AIndex : Integer; AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TUsageReportsTypewarningsItemTypedataArray); virtual;
     Procedure Setmessage(AIndex : Integer; 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;
@@ -433,6 +461,10 @@ type
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetusageReports(AIndex : Integer; AValue : TUsageReportsTypeusageReportsArray); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TUsageReportsTypewarningsArray); 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;
@@ -643,6 +675,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivities.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -757,6 +802,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityTypeeventsItemTypeparametersItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'multiintvalue' : SetLength(FmultiIntValue,ALength);
+  'multivalue' : SetLength(FmultiValue,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -805,6 +864,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityTypeeventsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'parameters' : SetLength(Fparameters,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -929,6 +1001,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'events' : SetLength(Fevents,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1198,6 +1283,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUsageReportTypeparametersItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'msgvalue' : SetLength(FmsgValue,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1255,6 +1353,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUsageReport.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'parameters' : SetLength(Fparameters,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1319,6 +1430,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUsageReportsTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'data' : SetLength(Fdata,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1376,6 +1500,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUsageReports.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'usagereports' : SetLength(FusageReports,ALength);
+  'warnings' : SetLength(Fwarnings,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1667,7 +1805,7 @@ end;
 Class Function TAdminAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAdminAPI.APIbasePath : string;
@@ -1679,7 +1817,7 @@ end;
 Class Function TAdminAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/admin/reports/v1/';
+  Result:='https://www.googleapis.com:443/admin/reports/v1/';
 end;
 
 Class Function TAdminAPI.APIProtocol : string;
@@ -1757,7 +1895,7 @@ Function TAdminAPI.CreateActivitiesResource(AOwner : TComponent) : TActivitiesRe
 
 begin
   Result:=TActivitiesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1781,7 +1919,7 @@ Function TAdminAPI.CreateChannelsResource(AOwner : TComponent) : TChannelsResour
 
 begin
   Result:=TChannelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1805,7 +1943,7 @@ Function TAdminAPI.CreateCustomerUsageReportsResource(AOwner : TComponent) : TCu
 
 begin
   Result:=TCustomerUsageReportsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1829,7 +1967,7 @@ Function TAdminAPI.CreateUserUsageReportResource(AOwner : TComponent) : TUserUsa
 
 begin
   Result:=TUserUsageReportResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleadsensehost.pp

@@ -13,7 +13,7 @@ unit googleadsensehost;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:48
+//Generated on: 16-5-15 08:52:57
 {$MODE objfpc}
 {$H+}
 
@@ -24,20 +24,20 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAccount = class;
-  TAccounts = class;
-  TAdClient = class;
-  TAdClients = class;
-  TAdCode = class;
-  TAdStyle = class;
-  TAdUnit = class;
-  TAdUnits = class;
-  TAssociationSession = class;
-  TCustomChannel = class;
-  TCustomChannels = class;
-  TReport = class;
-  TUrlChannel = class;
-  TUrlChannels = class;
+  TAccount = Class;
+  TAccounts = Class;
+  TAdClient = Class;
+  TAdClients = Class;
+  TAdCode = Class;
+  TAdStyle = Class;
+  TAdUnit = Class;
+  TAdUnits = Class;
+  TAssociationSession = Class;
+  TCustomChannel = Class;
+  TCustomChannels = Class;
+  TReport = Class;
+  TUrlChannel = Class;
+  TUrlChannels = Class;
   TAccountArray = Array of TAccount;
   TAccountsArray = Array of TAccounts;
   TAdClientArray = Array of TAdClient;
@@ -53,12 +53,12 @@ type
   TUrlChannelArray = Array of TUrlChannel;
   TUrlChannelsArray = Array of TUrlChannels;
   //Anonymous types, using auto-generated names
-  TAdStyleTypecolors = class;
-  TAdStyleTypefont = class;
-  TAdUnitTypecontentAdsSettingsTypebackupOption = class;
-  TAdUnitTypecontentAdsSettings = class;
-  TAdUnitTypemobileContentAdsSettings = class;
-  TReportTypeheadersItem = class;
+  TAdStyleTypecolors = Class;
+  TAdStyleTypefont = Class;
+  TAdUnitTypecontentAdsSettingsTypebackupOption = Class;
+  TAdUnitTypecontentAdsSettings = Class;
+  TAdUnitTypemobileContentAdsSettings = Class;
+  TReportTypeheadersItem = Class;
   TAccountsTypeitemsArray = Array of TAccount;
   TAdClientsTypeitemsArray = Array of TAdClient;
   TAdUnitsTypeitemsArray = Array of TAdUnit;
@@ -106,6 +106,10 @@ type
     Procedure Setetag(AIndex : Integer; AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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;
@@ -158,6 +162,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -383,6 +391,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TAdUnitsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -418,6 +430,10 @@ type
     Procedure SetuserLocale(AIndex : Integer; AValue : String); virtual;
     Procedure SetwebsiteLocale(AIndex : Integer; AValue : String); virtual;
     Procedure SetwebsiteUrl(AIndex : Integer; 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 accountId : String Index 0 Read FaccountId Write SetaccountId;
@@ -473,6 +489,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -527,6 +547,10 @@ type
     Procedure SettotalMatchedRows(AIndex : Integer; AValue : String); virtual;
     Procedure Settotals(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setwarnings(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 averages : TStringArray Index 0 Read Faverages Write Setaverages;
@@ -577,6 +601,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -586,6 +614,100 @@ type
   end;
   TUrlChannelsClass = Class of TUrlChannels;
   
+  { --------------------------------------------------------------------
+    TAccountsAdclientsResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TAccountsAdclientsResource, method List
+  
+  TAccountsAdclientsListOptions = Record
+    maxResults : integer;
+    pageToken : String;
+  end;
+  
+  TAccountsAdclientsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function Get(accountId: string; adClientId: string) : TAdClient;
+    Function List(accountId: string; AQuery : string  = '') : TAdClients;
+    Function List(accountId: string; AQuery : TAccountsAdclientslistOptions) : TAdClients;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TAccountsAdunitsResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TAccountsAdunitsResource, method GetAdCode
+  
+  TAccountsAdunitsGetAdCodeOptions = Record
+    hostCustomChannelId : String;
+  end;
+  
+  
+  //Optional query Options for TAccountsAdunitsResource, method List
+  
+  TAccountsAdunitsListOptions = Record
+    includeInactive : boolean;
+    maxResults : integer;
+    pageToken : String;
+  end;
+  
+  
+  //Optional query Options for TAccountsAdunitsResource, method Patch
+  
+  TAccountsAdunitsPatchOptions = Record
+    adUnitId : String;
+  end;
+  
+  TAccountsAdunitsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function Delete(accountId: string; adClientId: string; adUnitId: string) : TAdUnit;
+    Function Get(accountId: string; adClientId: string; adUnitId: string) : TAdUnit;
+    Function GetAdCode(accountId: string; adClientId: string; adUnitId: string; AQuery : string  = '') : TAdCode;
+    Function GetAdCode(accountId: string; adClientId: string; adUnitId: string; AQuery : TAccountsAdunitsgetAdCodeOptions) : TAdCode;
+    Function Insert(accountId: string; adClientId: string; aAdUnit : TAdUnit) : TAdUnit;
+    Function List(accountId: string; adClientId: string; AQuery : string  = '') : TAdUnits;
+    Function List(accountId: string; adClientId: string; AQuery : TAccountsAdunitslistOptions) : TAdUnits;
+    Function Patch(accountId: string; adClientId: string; aAdUnit : TAdUnit; AQuery : string  = '') : TAdUnit;
+    Function Patch(accountId: string; adClientId: string; aAdUnit : TAdUnit; AQuery : TAccountsAdunitspatchOptions) : TAdUnit;
+    Function Update(accountId: string; adClientId: string; aAdUnit : TAdUnit) : TAdUnit;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TAccountsReportsResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TAccountsReportsResource, method Generate
+  
+  TAccountsReportsGenerateOptions = Record
+    dimension : String;
+    endDate : String;
+    filter : String;
+    locale : String;
+    maxResults : integer;
+    metric : String;
+    sort : String;
+    startDate : String;
+    startIndex : integer;
+  end;
+  
+  TAccountsReportsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function Generate(accountId: string; AQuery : string  = '') : TReport;
+    Function Generate(accountId: string; AQuery : TAccountsReportsgenerateOptions) : TReport;
+  end;
+  
+  
   { --------------------------------------------------------------------
     TAccountsResource
     --------------------------------------------------------------------}
@@ -598,12 +720,28 @@ type
   end;
   
   TAccountsResource = Class(TGoogleResource)
+  Private
+    FAdclientsInstance : TAccountsAdclientsResource;
+    FAdunitsInstance : TAccountsAdunitsResource;
+    FReportsInstance : TAccountsReportsResource;
+    Function GetAdclientsInstance : TAccountsAdclientsResource;virtual;
+    Function GetAdunitsInstance : TAccountsAdunitsResource;virtual;
+    Function GetReportsInstance : TAccountsReportsResource;virtual;
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Get(accountId: string) : TAccount;
     Function List(AQuery : string  = '') : TAccounts;
     Function List(AQuery : TAccountslistOptions) : TAccounts;
+    Function CreateAdclientsResource(AOwner : TComponent) : TAccountsAdclientsResource;virtual;overload;
+    Function CreateAdclientsResource : TAccountsAdclientsResource;virtual;overload;
+    Function CreateAdunitsResource(AOwner : TComponent) : TAccountsAdunitsResource;virtual;overload;
+    Function CreateAdunitsResource : TAccountsAdunitsResource;virtual;overload;
+    Function CreateReportsResource(AOwner : TComponent) : TAccountsReportsResource;virtual;overload;
+    Function CreateReportsResource : TAccountsReportsResource;virtual;overload;
+    Property AdclientsResource : TAccountsAdclientsResource Read GetAdclientsInstance;
+    Property AdunitsResource : TAccountsAdunitsResource Read GetAdunitsInstance;
+    Property ReportsResource : TAccountsReportsResource Read GetReportsInstance;
   end;
   
   
@@ -752,12 +890,18 @@ type
   
   TAdsensehostAPI = Class(TGoogleAPI)
   Private
+    FAccountsAdclientsInstance : TAccountsAdclientsResource;
+    FAccountsAdunitsInstance : TAccountsAdunitsResource;
+    FAccountsReportsInstance : TAccountsReportsResource;
     FAccountsInstance : TAccountsResource;
     FAdclientsInstance : TAdclientsResource;
     FAssociationsessionsInstance : TAssociationsessionsResource;
     FCustomchannelsInstance : TCustomchannelsResource;
     FReportsInstance : TReportsResource;
     FUrlchannelsInstance : TUrlchannelsResource;
+    Function GetAccountsAdclientsInstance : TAccountsAdclientsResource;virtual;
+    Function GetAccountsAdunitsInstance : TAccountsAdunitsResource;virtual;
+    Function GetAccountsReportsInstance : TAccountsReportsResource;virtual;
     Function GetAccountsInstance : TAccountsResource;virtual;
     Function GetAdclientsInstance : TAdclientsResource;virtual;
     Function GetAssociationsessionsInstance : TAssociationsessionsResource;virtual;
@@ -787,6 +931,12 @@ type
     Class Function APINeedsAuth : Boolean;override;
     Class Procedure RegisterAPIResources; override;
     //Add create function for resources
+    Function CreateAccountsAdclientsResource(AOwner : TComponent) : TAccountsAdclientsResource;virtual;overload;
+    Function CreateAccountsAdclientsResource : TAccountsAdclientsResource;virtual;overload;
+    Function CreateAccountsAdunitsResource(AOwner : TComponent) : TAccountsAdunitsResource;virtual;overload;
+    Function CreateAccountsAdunitsResource : TAccountsAdunitsResource;virtual;overload;
+    Function CreateAccountsReportsResource(AOwner : TComponent) : TAccountsReportsResource;virtual;overload;
+    Function CreateAccountsReportsResource : TAccountsReportsResource;virtual;overload;
     Function CreateAccountsResource(AOwner : TComponent) : TAccountsResource;virtual;overload;
     Function CreateAccountsResource : TAccountsResource;virtual;overload;
     Function CreateAdclientsResource(AOwner : TComponent) : TAdclientsResource;virtual;overload;
@@ -800,6 +950,9 @@ type
     Function CreateUrlchannelsResource(AOwner : TComponent) : TUrlchannelsResource;virtual;overload;
     Function CreateUrlchannelsResource : TUrlchannelsResource;virtual;overload;
     //Add default on-demand instances for resources
+    Property AccountsAdclientsResource : TAccountsAdclientsResource Read GetAccountsAdclientsInstance;
+    Property AccountsAdunitsResource : TAccountsAdunitsResource Read GetAccountsAdunitsInstance;
+    Property AccountsReportsResource : TAccountsReportsResource Read GetAccountsReportsInstance;
     Property AccountsResource : TAccountsResource Read GetAccountsInstance;
     Property AdclientsResource : TAdclientsResource Read GetAdclientsInstance;
     Property AssociationsessionsResource : TAssociationsessionsResource Read GetAssociationsessionsInstance;
@@ -892,6 +1045,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAccounts.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -996,6 +1162,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAdClients.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1442,6 +1621,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAdUnits.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1539,6 +1731,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAssociationSession.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'productcodes' : SetLength(FproductCodes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1633,6 +1838,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCustomChannels.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1758,6 +1976,23 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReport.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'averages' : SetLength(Faverages,ALength);
+  'headers' : SetLength(Fheaders,ALength);
+  'rows' : SetLength(Frows,ALength);
+  'totals' : SetLength(Ftotals,ALength);
+  'warnings' : SetLength(Fwarnings,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1842,6 +2077,297 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUrlChannels.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+  TAccountsAdclientsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TAccountsAdclientsResource.ResourceName : String;
+
+begin
+  Result:='adclients';
+end;
+
+Class Function TAccountsAdclientsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TadsensehostAPI;
+end;
+
+Function TAccountsAdclientsResource.Get(accountId: string; adClientId: string) : TAdClient;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}';
+  _Methodid   = 'adsensehost.accounts.adclients.get';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAdClient) as TAdClient;
+end;
+
+Function TAccountsAdclientsResource.List(accountId: string; AQuery : string = '') : TAdClients;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'accounts/{accountId}/adclients';
+  _Methodid   = 'adsensehost.accounts.adclients.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAdClients) as TAdClients;
+end;
+
+
+Function TAccountsAdclientsResource.List(accountId: string; AQuery : TAccountsAdclientslistOptions) : TAdClients;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'maxResults',AQuery.maxResults);
+  AddToQuery(_Q,'pageToken',AQuery.pageToken);
+  Result:=List(accountId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TAccountsAdunitsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TAccountsAdunitsResource.ResourceName : String;
+
+begin
+  Result:='adunits';
+end;
+
+Class Function TAccountsAdunitsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TadsensehostAPI;
+end;
+
+Function TAccountsAdunitsResource.Delete(accountId: string; adClientId: string; adUnitId: string) : TAdUnit;
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}/adunits/{adUnitId}';
+  _Methodid   = 'adsensehost.accounts.adunits.delete';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId,'adUnitId',adUnitId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAdUnit) as TAdUnit;
+end;
+
+Function TAccountsAdunitsResource.Get(accountId: string; adClientId: string; adUnitId: string) : TAdUnit;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}/adunits/{adUnitId}';
+  _Methodid   = 'adsensehost.accounts.adunits.get';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId,'adUnitId',adUnitId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAdUnit) as TAdUnit;
+end;
+
+Function TAccountsAdunitsResource.GetAdCode(accountId: string; adClientId: string; adUnitId: string; AQuery : string = '') : TAdCode;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}/adunits/{adUnitId}/adcode';
+  _Methodid   = 'adsensehost.accounts.adunits.getAdCode';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId,'adUnitId',adUnitId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAdCode) as TAdCode;
+end;
+
+
+Function TAccountsAdunitsResource.GetAdCode(accountId: string; adClientId: string; adUnitId: string; AQuery : TAccountsAdunitsgetAdCodeOptions) : TAdCode;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'hostCustomChannelId',AQuery.hostCustomChannelId);
+  Result:=GetAdCode(accountId,adClientId,adUnitId,_Q);
+end;
+
+Function TAccountsAdunitsResource.Insert(accountId: string; adClientId: string; aAdUnit : TAdUnit) : TAdUnit;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}/adunits';
+  _Methodid   = 'adsensehost.accounts.adunits.insert';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aAdUnit,TAdUnit) as TAdUnit;
+end;
+
+Function TAccountsAdunitsResource.List(accountId: string; adClientId: string; AQuery : string = '') : TAdUnits;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}/adunits';
+  _Methodid   = 'adsensehost.accounts.adunits.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAdUnits) as TAdUnits;
+end;
+
+
+Function TAccountsAdunitsResource.List(accountId: string; adClientId: string; AQuery : TAccountsAdunitslistOptions) : TAdUnits;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'includeInactive',AQuery.includeInactive);
+  AddToQuery(_Q,'maxResults',AQuery.maxResults);
+  AddToQuery(_Q,'pageToken',AQuery.pageToken);
+  Result:=List(accountId,adClientId,_Q);
+end;
+
+Function TAccountsAdunitsResource.Patch(accountId: string; adClientId: string; aAdUnit : TAdUnit; AQuery : string = '') : TAdUnit;
+
+Const
+  _HTTPMethod = 'PATCH';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}/adunits';
+  _Methodid   = 'adsensehost.accounts.adunits.patch';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAdUnit,TAdUnit) as TAdUnit;
+end;
+
+
+Function TAccountsAdunitsResource.Patch(accountId: string; adClientId: string; aAdUnit : TAdUnit; AQuery : TAccountsAdunitspatchOptions) : TAdUnit;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'adUnitId',AQuery.adUnitId);
+  Result:=Patch(accountId,adClientId,aAdUnit,_Q);
+end;
+
+Function TAccountsAdunitsResource.Update(accountId: string; adClientId: string; aAdUnit : TAdUnit) : TAdUnit;
+
+Const
+  _HTTPMethod = 'PUT';
+  _Path       = 'accounts/{accountId}/adclients/{adClientId}/adunits';
+  _Methodid   = 'adsensehost.accounts.adunits.update';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId,'adClientId',adClientId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aAdUnit,TAdUnit) as TAdUnit;
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TAccountsReportsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TAccountsReportsResource.ResourceName : String;
+
+begin
+  Result:='reports';
+end;
+
+Class Function TAccountsReportsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TadsensehostAPI;
+end;
+
+Function TAccountsReportsResource.Generate(accountId: string; AQuery : string = '') : TReport;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'accounts/{accountId}/reports';
+  _Methodid   = 'adsensehost.accounts.reports.generate';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['accountId',accountId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReport) as TReport;
+end;
+
+
+Function TAccountsReportsResource.Generate(accountId: string; AQuery : TAccountsReportsgenerateOptions) : TReport;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'dimension',AQuery.dimension);
+  AddToQuery(_Q,'endDate',AQuery.endDate);
+  AddToQuery(_Q,'filter',AQuery.filter);
+  AddToQuery(_Q,'locale',AQuery.locale);
+  AddToQuery(_Q,'maxResults',AQuery.maxResults);
+  AddToQuery(_Q,'metric',AQuery.metric);
+  AddToQuery(_Q,'sort',AQuery.sort);
+  AddToQuery(_Q,'startDate',AQuery.startDate);
+  AddToQuery(_Q,'startIndex',AQuery.startIndex);
+  Result:=Generate(accountId,_Q);
+end;
 
 
 
@@ -1902,6 +2428,78 @@ end;
 
 
 
+Function TAccountsResource.GetAdclientsInstance : TAccountsAdclientsResource;
+
+begin
+  if (FAdclientsInstance=Nil) then
+    FAdclientsInstance:=CreateAdclientsResource;
+  Result:=FAdclientsInstance;
+end;
+
+Function TAccountsResource.CreateAdclientsResource : TAccountsAdclientsResource;
+
+begin
+  Result:=CreateAdclientsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateAdclientsResource(AOwner : TComponent) : TAccountsAdclientsResource;
+
+begin
+  Result:=TAccountsAdclientsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetAdunitsInstance : TAccountsAdunitsResource;
+
+begin
+  if (FAdunitsInstance=Nil) then
+    FAdunitsInstance:=CreateAdunitsResource;
+  Result:=FAdunitsInstance;
+end;
+
+Function TAccountsResource.CreateAdunitsResource : TAccountsAdunitsResource;
+
+begin
+  Result:=CreateAdunitsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateAdunitsResource(AOwner : TComponent) : TAccountsAdunitsResource;
+
+begin
+  Result:=TAccountsAdunitsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetReportsInstance : TAccountsReportsResource;
+
+begin
+  if (FReportsInstance=Nil) then
+    FReportsInstance:=CreateReportsResource;
+  Result:=FReportsInstance;
+end;
+
+Function TAccountsResource.CreateReportsResource : TAccountsReportsResource;
+
+begin
+  Result:=CreateReportsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateReportsResource(AOwner : TComponent) : TAccountsReportsResource;
+
+begin
+  Result:=TAccountsReportsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TAdclientsResource
   --------------------------------------------------------------------}
@@ -2308,7 +2906,7 @@ end;
 Class Function TAdsensehostAPI.APIRevision : String;
 
 begin
-  Result:='20150309';
+  Result:='20150505';
 end;
 
 Class Function TAdsensehostAPI.APIID : String;
@@ -2362,7 +2960,7 @@ end;
 Class Function TAdsensehostAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAdsensehostAPI.APIbasePath : string;
@@ -2374,7 +2972,7 @@ end;
 Class Function TAdsensehostAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/adsensehost/v4.1/';
+  Result:='https://www.googleapis.com:443/adsensehost/v4.1/';
 end;
 
 Class Function TAdsensehostAPI.APIProtocol : string;
@@ -2436,6 +3034,78 @@ begin
 end;
 
 
+Function TAdsensehostAPI.GetAccountsAdclientsInstance : TAccountsAdclientsResource;
+
+begin
+  if (FAccountsAdclientsInstance=Nil) then
+    FAccountsAdclientsInstance:=CreateAccountsAdclientsResource;
+  Result:=FAccountsAdclientsInstance;
+end;
+
+Function TAdsensehostAPI.CreateAccountsAdclientsResource : TAccountsAdclientsResource;
+
+begin
+  Result:=CreateAccountsAdclientsResource(Self);
+end;
+
+
+Function TAdsensehostAPI.CreateAccountsAdclientsResource(AOwner : TComponent) : TAccountsAdclientsResource;
+
+begin
+  Result:=TAccountsAdclientsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TAdsensehostAPI.GetAccountsAdunitsInstance : TAccountsAdunitsResource;
+
+begin
+  if (FAccountsAdunitsInstance=Nil) then
+    FAccountsAdunitsInstance:=CreateAccountsAdunitsResource;
+  Result:=FAccountsAdunitsInstance;
+end;
+
+Function TAdsensehostAPI.CreateAccountsAdunitsResource : TAccountsAdunitsResource;
+
+begin
+  Result:=CreateAccountsAdunitsResource(Self);
+end;
+
+
+Function TAdsensehostAPI.CreateAccountsAdunitsResource(AOwner : TComponent) : TAccountsAdunitsResource;
+
+begin
+  Result:=TAccountsAdunitsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TAdsensehostAPI.GetAccountsReportsInstance : TAccountsReportsResource;
+
+begin
+  if (FAccountsReportsInstance=Nil) then
+    FAccountsReportsInstance:=CreateAccountsReportsResource;
+  Result:=FAccountsReportsInstance;
+end;
+
+Function TAdsensehostAPI.CreateAccountsReportsResource : TAccountsReportsResource;
+
+begin
+  Result:=CreateAccountsReportsResource(Self);
+end;
+
+
+Function TAdsensehostAPI.CreateAccountsReportsResource(AOwner : TComponent) : TAccountsReportsResource;
+
+begin
+  Result:=TAccountsReportsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 Function TAdsensehostAPI.GetAccountsInstance : TAccountsResource;
 
 begin
@@ -2455,7 +3125,7 @@ Function TAdsensehostAPI.CreateAccountsResource(AOwner : TComponent) : TAccounts
 
 begin
   Result:=TAccountsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2479,7 +3149,7 @@ Function TAdsensehostAPI.CreateAdclientsResource(AOwner : TComponent) : TAdclien
 
 begin
   Result:=TAdclientsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2503,7 +3173,7 @@ Function TAdsensehostAPI.CreateAssociationsessionsResource(AOwner : TComponent)
 
 begin
   Result:=TAssociationsessionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2527,7 +3197,7 @@ Function TAdsensehostAPI.CreateCustomchannelsResource(AOwner : TComponent) : TCu
 
 begin
   Result:=TCustomchannelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2551,7 +3221,7 @@ Function TAdsensehostAPI.CreateReportsResource(AOwner : TComponent) : TReportsRe
 
 begin
   Result:=TReportsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2575,7 +3245,7 @@ Function TAdsensehostAPI.CreateUrlchannelsResource(AOwner : TComponent) : TUrlch
 
 begin
   Result:=TUrlchannelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleandroidenterprise.pp

@@ -13,7 +13,7 @@ unit googleandroidenterprise;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:48
+//Generated on: 16-5-15 08:52:58
 {$MODE objfpc}
 {$H+}
 
@@ -24,32 +24,32 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAppRestrictionsSchema = class;
-  TAppRestrictionsSchemaRestriction = class;
-  TAppRestrictionsSchemaRestrictionRestrictionValue = class;
-  TCollection = class;
-  TCollectionViewersListResponse = class;
-  TCollectionsListResponse = class;
-  TDevice = class;
-  TDeviceState = class;
-  TDevicesListResponse = class;
-  TEnterprise = class;
-  TEnterpriseAccount = class;
-  TEnterprisesListResponse = class;
-  TEntitlement = class;
-  TEntitlementsListResponse = class;
-  TGroupLicense = class;
-  TGroupLicenseUsersListResponse = class;
-  TGroupLicensesListResponse = class;
-  TInstall = class;
-  TInstallsListResponse = class;
-  TPermission = class;
-  TProduct = class;
-  TProductPermission = class;
-  TProductPermissions = class;
-  TUser = class;
-  TUserToken = class;
-  TUsersListResponse = class;
+  TAppRestrictionsSchema = Class;
+  TAppRestrictionsSchemaRestriction = Class;
+  TAppRestrictionsSchemaRestrictionRestrictionValue = Class;
+  TCollection = Class;
+  TCollectionViewersListResponse = Class;
+  TCollectionsListResponse = Class;
+  TDevice = Class;
+  TDeviceState = Class;
+  TDevicesListResponse = Class;
+  TEnterprise = Class;
+  TEnterpriseAccount = Class;
+  TEnterprisesListResponse = Class;
+  TEntitlement = Class;
+  TEntitlementsListResponse = Class;
+  TGroupLicense = Class;
+  TGroupLicenseUsersListResponse = Class;
+  TGroupLicensesListResponse = Class;
+  TInstall = Class;
+  TInstallsListResponse = Class;
+  TPermission = Class;
+  TProduct = Class;
+  TProductPermission = Class;
+  TProductPermissions = Class;
+  TUser = Class;
+  TUserToken = Class;
+  TUsersListResponse = Class;
   TAppRestrictionsSchemaArray = Array of TAppRestrictionsSchema;
   TAppRestrictionsSchemaRestrictionArray = Array of TAppRestrictionsSchemaRestriction;
   TAppRestrictionsSchemaRestrictionRestrictionValueArray = Array of TAppRestrictionsSchemaRestrictionRestrictionValue;
@@ -99,6 +99,10 @@ type
   Protected
     //Property setters
     Procedure Setrestrictions(AIndex : Integer; 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;
@@ -127,6 +131,10 @@ type
     Procedure Setkey(AIndex : Integer; AValue : String); virtual;
     Procedure SetrestrictionType(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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 defaultValue : TAppRestrictionsSchemaRestrictionRestrictionValue Index 0 Read FdefaultValue Write SetdefaultValue;
@@ -158,6 +166,10 @@ type
     Procedure SetvalueInteger(AIndex : Integer; AValue : integer); virtual;
     Procedure SetvalueMultiselect(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetvalueString(AIndex : Integer; 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 _type : String Index 0 Read F_type Write Set_type;
@@ -186,6 +198,10 @@ type
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetproductId(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setvisibility(AIndex : Integer; 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 collectionId : String Index 0 Read FcollectionId Write SetcollectionId;
@@ -208,6 +224,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TCollectionViewersListResponseTypeuserArray); 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;
@@ -227,6 +247,10 @@ type
     //Property setters
     Procedure Setcollection(AIndex : Integer; AValue : TCollectionsListResponseTypecollectionArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 collection : TCollectionsListResponseTypecollectionArray Index 0 Read Fcollection Write Setcollection;
@@ -287,6 +311,10 @@ type
     //Property setters
     Procedure Setdevice(AIndex : Integer; AValue : TDevicesListResponseTypedeviceArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 device : TDevicesListResponseTypedeviceArray Index 0 Read Fdevice Write Setdevice;
@@ -350,6 +378,10 @@ type
     //Property setters
     Procedure Setenterprise(AIndex : Integer; AValue : TEnterprisesListResponseTypeenterpriseArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 enterprise : TEnterprisesListResponseTypeenterpriseArray Index 0 Read Fenterprise Write Setenterprise;
@@ -391,6 +423,10 @@ type
     //Property setters
     Procedure Setentitlement(AIndex : Integer; AValue : TEntitlementsListResponseTypeentitlementArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 entitlement : TEntitlementsListResponseTypeentitlementArray Index 0 Read Fentitlement Write Setentitlement;
@@ -441,6 +477,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TGroupLicenseUsersListResponseTypeuserArray); 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;
@@ -460,6 +500,10 @@ type
     //Property setters
     Procedure SetgroupLicense(AIndex : Integer; AValue : TGroupLicensesListResponseTypegroupLicenseArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 groupLicense : TGroupLicensesListResponseTypegroupLicenseArray Index 0 Read FgroupLicense Write SetgroupLicense;
@@ -504,6 +548,10 @@ type
     //Property setters
     Procedure Setinstall(AIndex : Integer; AValue : TInstallsListResponseTypeinstallArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 install : TInstallsListResponseTypeinstallArray Index 0 Read Finstall Write Setinstall;
@@ -606,6 +654,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setpermission(AIndex : Integer; AValue : TProductPermissionsTypepermissionArray); virtual;
     Procedure SetproductId(AIndex : Integer; 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;
@@ -670,6 +722,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; AValue : TUsersListResponseTypeuserArray); 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;
@@ -1018,6 +1074,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAppRestrictionsSchema.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'restrictions' : SetLength(Frestrictions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1095,6 +1164,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAppRestrictionsSchemaRestriction.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'entry' : SetLength(Fentry,ALength);
+  'entryvalue' : SetLength(FentryValue,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1163,6 +1246,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'valuemultiselect' : SetLength(FvalueMultiselect,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1220,6 +1316,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCollection.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'productid' : SetLength(FproductId,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1247,6 +1356,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCollectionViewersListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'user' : SetLength(Fuser,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1274,6 +1396,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCollectionsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'collection' : SetLength(Fcollection,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1365,6 +1500,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDevicesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'device' : SetLength(Fdevice,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1466,6 +1614,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEnterprisesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'enterprise' : SetLength(Fenterprise,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1530,6 +1691,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEntitlementsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'entitlement' : SetLength(Fentitlement,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1624,6 +1798,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroupLicenseUsersListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'user' : SetLength(Fuser,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1651,6 +1838,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroupLicensesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'grouplicense' : SetLength(FgroupLicense,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1725,6 +1925,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstallsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'install' : SetLength(Finstall,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1923,6 +2136,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProductPermissions.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'permission' : SetLength(Fpermission,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2024,6 +2250,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUsersListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'user' : SetLength(Fuser,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3065,7 +3304,7 @@ end;
 Class Function TAndroidenterpriseAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAndroidenterpriseAPI.APIbasePath : string;
@@ -3077,7 +3316,7 @@ end;
 Class Function TAndroidenterpriseAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/androidenterprise/v1/';
+  Result:='https://www.googleapis.com:443/androidenterprise/v1/';
 end;
 
 Class Function TAndroidenterpriseAPI.APIProtocol : string;
@@ -3164,7 +3403,7 @@ Function TAndroidenterpriseAPI.CreateCollectionsResource(AOwner : TComponent) :
 
 begin
   Result:=TCollectionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3188,7 +3427,7 @@ Function TAndroidenterpriseAPI.CreateCollectionviewersResource(AOwner : TCompone
 
 begin
   Result:=TCollectionviewersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3212,7 +3451,7 @@ Function TAndroidenterpriseAPI.CreateDevicesResource(AOwner : TComponent) : TDev
 
 begin
   Result:=TDevicesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3236,7 +3475,7 @@ Function TAndroidenterpriseAPI.CreateEnterprisesResource(AOwner : TComponent) :
 
 begin
   Result:=TEnterprisesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3260,7 +3499,7 @@ Function TAndroidenterpriseAPI.CreateEntitlementsResource(AOwner : TComponent) :
 
 begin
   Result:=TEntitlementsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3284,7 +3523,7 @@ Function TAndroidenterpriseAPI.CreateGrouplicensesResource(AOwner : TComponent)
 
 begin
   Result:=TGrouplicensesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3308,7 +3547,7 @@ Function TAndroidenterpriseAPI.CreateGrouplicenseusersResource(AOwner : TCompone
 
 begin
   Result:=TGrouplicenseusersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3332,7 +3571,7 @@ Function TAndroidenterpriseAPI.CreateInstallsResource(AOwner : TComponent) : TIn
 
 begin
   Result:=TInstallsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3356,7 +3595,7 @@ Function TAndroidenterpriseAPI.CreatePermissionsResource(AOwner : TComponent) :
 
 begin
   Result:=TPermissionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3380,7 +3619,7 @@ Function TAndroidenterpriseAPI.CreateProductsResource(AOwner : TComponent) : TPr
 
 begin
   Result:=TProductsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3404,7 +3643,7 @@ Function TAndroidenterpriseAPI.CreateUsersResource(AOwner : TComponent) : TUsers
 
 begin
   Result:=TUsersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleappsactivity.pp

@@ -13,7 +13,7 @@ unit googleappsactivity;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:48
+//Generated on: 16-5-15 08:52:58
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TActivity = class;
-  TEvent = class;
-  TListActivitiesResponse = class;
-  TMove = class;
-  TParent = class;
-  TPermission = class;
-  TPermissionChange = class;
-  TPhoto = class;
-  TRename = class;
-  TTarget = class;
-  TUser = class;
+  TActivity = Class;
+  TEvent = Class;
+  TListActivitiesResponse = Class;
+  TMove = Class;
+  TParent = Class;
+  TPermission = Class;
+  TPermissionChange = Class;
+  TPhoto = Class;
+  TRename = Class;
+  TTarget = Class;
+  TUser = Class;
   TActivityArray = Array of TActivity;
   TEventArray = Array of TEvent;
   TListActivitiesResponseArray = Array of TListActivitiesResponse;
@@ -67,6 +67,10 @@ type
     //Property setters
     Procedure SetcombinedEvent(AIndex : Integer; AValue : TEvent); virtual;
     Procedure SetsingleEvents(AIndex : Integer; AValue : TActivityTypesingleEventsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property combinedEvent : TEvent Index 0 Read FcombinedEvent Write SetcombinedEvent;
@@ -100,6 +104,10 @@ type
     Procedure Setrename(AIndex : Integer; AValue : TRename); virtual;
     Procedure Settarget(AIndex : Integer; AValue : TTarget); virtual;
     Procedure Setuser(AIndex : Integer; 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 additionalEventTypes : TStringArray Index 0 Read FadditionalEventTypes Write SetadditionalEventTypes;
@@ -126,6 +134,10 @@ type
     //Property setters
     Procedure Setactivities(AIndex : Integer; AValue : TListActivitiesResponseTypeactivitiesArray); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 activities : TListActivitiesResponseTypeactivitiesArray Index 0 Read Factivities Write Setactivities;
@@ -145,6 +157,10 @@ type
     //Property setters
     Procedure SetaddedParents(AIndex : Integer; AValue : TMoveTypeaddedParentsArray); virtual;
     Procedure SetremovedParents(AIndex : Integer; AValue : TMoveTyperemovedParentsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property addedParents : TMoveTypeaddedParentsArray Index 0 Read FaddedParents Write SetaddedParents;
@@ -218,6 +234,10 @@ type
     //Property setters
     Procedure SetaddedPermissions(AIndex : Integer; AValue : TPermissionChangeTypeaddedPermissionsArray); virtual;
     Procedure SetremovedPermissions(AIndex : Integer; AValue : TPermissionChangeTyperemovedPermissionsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property addedPermissions : TPermissionChangeTypeaddedPermissionsArray Index 0 Read FaddedPermissions Write SetaddedPermissions;
@@ -391,6 +411,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'singleevents' : SetLength(FsingleEvents,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -488,6 +521,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEvent.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'additionaleventtypes' : SetLength(FadditionalEventTypes,ALength);
+  'permissionchanges' : SetLength(FpermissionChanges,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -515,6 +562,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListActivitiesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'activities' : SetLength(Factivities,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -542,6 +602,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMove.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'addedparents' : SetLength(FaddedParents,ALength);
+  'removedparents' : SetLength(FremovedParents,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -684,6 +758,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPermissionChange.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'addedpermissions' : SetLength(FaddedPermissions,ALength);
+  'removedpermissions' : SetLength(FremovedPermissions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -862,7 +950,7 @@ end;
 Class Function TAppsactivityAPI.APIRevision : String;
 
 begin
-  Result:='20140828';
+  Result:='20150326';
 end;
 
 Class Function TAppsactivityAPI.APIID : String;
@@ -916,7 +1004,7 @@ end;
 Class Function TAppsactivityAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAppsactivityAPI.APIbasePath : string;
@@ -928,7 +1016,7 @@ end;
 Class Function TAppsactivityAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/appsactivity/v1/';
+  Result:='https://www.googleapis.com:443/appsactivity/v1/';
 end;
 
 Class Function TAppsactivityAPI.APIProtocol : string;
@@ -952,15 +1040,17 @@ end;
 Class Function TAppsactivityAPI.APIAuthScopes : TScopeInfoArray;
 
 begin
-  SetLength(Result,4);
+  SetLength(Result,5);
   Result[0].Name:='https://www.googleapis.com/auth/activity';
   Result[0].Description:='View the activity history of your Google Apps';
   Result[1].Name:='https://www.googleapis.com/auth/drive';
   Result[1].Description:='View and manage the files in your Google Drive';
-  Result[2].Name:='https://www.googleapis.com/auth/drive.metadata.readonly';
-  Result[2].Description:='View metadata for files in your Google Drive';
-  Result[3].Name:='https://www.googleapis.com/auth/drive.readonly';
-  Result[3].Description:='View the files in your Google Drive';
+  Result[2].Name:='https://www.googleapis.com/auth/drive.metadata';
+  Result[2].Description:='View and manage metadata of files in your Google Drive';
+  Result[3].Name:='https://www.googleapis.com/auth/drive.metadata.readonly';
+  Result[3].Description:='View metadata for files in your Google Drive';
+  Result[4].Name:='https://www.googleapis.com/auth/drive.readonly';
+  Result[4].Description:='View the files in your Google Drive';
   
 end;
 
@@ -1006,7 +1096,7 @@ Function TAppsactivityAPI.CreateActivitiesResource(AOwner : TComponent) : TActiv
 
 begin
   Result:=TActivitiesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleappstate.pp

@@ -13,7 +13,7 @@ unit googleappstate;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:48
+//Generated on: 16-5-15 08:52:58
 {$MODE objfpc}
 {$H+}
 
@@ -24,10 +24,10 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TGetResponse = class;
-  TListResponse = class;
-  TUpdateRequest = class;
-  TWriteResult = class;
+  TGetResponse = Class;
+  TListResponse = Class;
+  TUpdateRequest = Class;
+  TWriteResult = Class;
   TGetResponseArray = Array of TGetResponse;
   TListResponseArray = Array of TListResponse;
   TUpdateRequestArray = Array of TUpdateRequest;
@@ -74,6 +74,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetmaximumKeyCount(AIndex : Integer; AValue : integer); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -284,6 +288,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -496,7 +513,7 @@ end;
 Class Function TAppstateAPI.APIRevision : String;
 
 begin
-  Result:='20150429';
+  Result:='20150512';
 end;
 
 Class Function TAppstateAPI.APIID : String;
@@ -550,7 +567,7 @@ end;
 Class Function TAppstateAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAppstateAPI.APIbasePath : string;
@@ -562,7 +579,7 @@ end;
 Class Function TAppstateAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/appstate/v1/';
+  Result:='https://www.googleapis.com:443/appstate/v1/';
 end;
 
 Class Function TAppstateAPI.APIProtocol : string;
@@ -627,7 +644,7 @@ Function TAppstateAPI.CreateStatesResource(AOwner : TComponent) : TStatesResourc
 
 begin
   Result:=TStatesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleaudit.pp

@@ -13,7 +13,7 @@ unit googleaudit;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:49
+//Generated on: 16-5-15 08:52:58
 {$MODE objfpc}
 {$H+}
 
@@ -24,15 +24,15 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TActivities = class;
-  TActivity = class;
+  TActivities = Class;
+  TActivity = Class;
   TActivitiesArray = Array of TActivities;
   TActivityArray = Array of TActivity;
   //Anonymous types, using auto-generated names
-  TActivityTypeactor = class;
-  TActivityTypeeventsItemTypeparametersItem = class;
-  TActivityTypeeventsItem = class;
-  TActivityTypeid = class;
+  TActivityTypeactor = Class;
+  TActivityTypeeventsItemTypeparametersItem = Class;
+  TActivityTypeeventsItem = Class;
+  TActivityTypeid = Class;
   TActivitiesTypeitemsArray = Array of TActivity;
   TActivityTypeeventsItemTypeparametersArray = Array of TActivityTypeeventsItemTypeparametersItem;
   TActivityTypeeventsArray = Array of TActivityTypeeventsItem;
@@ -51,6 +51,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setnext(AIndex : Integer; 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 : TActivitiesTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -117,6 +121,10 @@ type
     Procedure SeteventType(AIndex : Integer; AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property eventType : String Index 0 Read FeventType Write SeteventType;
@@ -170,6 +178,10 @@ type
     Procedure SetipAddress(AIndex : Integer; AValue : String); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetownerDomain(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property actor : TActivityTypeactor Index 0 Read Factor Write Setactor;
@@ -283,6 +295,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivities.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -394,6 +419,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityTypeeventsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'parameters' : SetLength(Fparameters,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -508,6 +546,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivity.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'events' : SetLength(Fevents,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -638,7 +689,7 @@ end;
 Class Function TAuditAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAuditAPI.APIbasePath : string;
@@ -650,7 +701,7 @@ end;
 Class Function TAuditAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/apps/reporting/audit/v1/';
+  Result:='https://www.googleapis.com:443/apps/reporting/audit/v1/';
 end;
 
 Class Function TAuditAPI.APIProtocol : string;
@@ -715,7 +766,7 @@ Function TAuditAPI.CreateActivitiesResource(AOwner : TComponent) : TActivitiesRe
 
 begin
   Result:=TActivitiesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleautoscaler.pp

@@ -13,7 +13,7 @@ unit googleautoscaler;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:49
+//Generated on: 16-5-15 08:52:59
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAutoscaler = class;
-  TAutoscalerListResponse = class;
-  TAutoscalingPolicy = class;
-  TAutoscalingPolicyCpuUtilization = class;
-  TAutoscalingPolicyCustomMetricUtilization = class;
-  TAutoscalingPolicyLoadBalancingUtilization = class;
-  TDeprecationStatus = class;
-  TOperation = class;
-  TOperationList = class;
-  TZone = class;
-  TZoneList = class;
+  TAutoscaler = Class;
+  TAutoscalerListResponse = Class;
+  TAutoscalingPolicy = Class;
+  TAutoscalingPolicyCpuUtilization = Class;
+  TAutoscalingPolicyCustomMetricUtilization = Class;
+  TAutoscalingPolicyLoadBalancingUtilization = Class;
+  TDeprecationStatus = Class;
+  TOperation = Class;
+  TOperationList = Class;
+  TZone = Class;
+  TZoneList = Class;
   TAutoscalerArray = Array of TAutoscaler;
   TAutoscalerListResponseArray = Array of TAutoscalerListResponse;
   TAutoscalingPolicyArray = Array of TAutoscalingPolicy;
@@ -47,11 +47,11 @@ type
   TZoneArray = Array of TZone;
   TZoneListArray = Array of TZoneList;
   //Anonymous types, using auto-generated names
-  TOperationTypeerrorTypeerrorsItem = class;
-  TOperationTypeerror = class;
-  TOperationTypewarningsItemTypedataItem = class;
-  TOperationTypewarningsItem = class;
-  TZoneTypemaintenanceWindowsItem = class;
+  TOperationTypeerrorTypeerrorsItem = Class;
+  TOperationTypeerror = Class;
+  TOperationTypewarningsItemTypedataItem = Class;
+  TOperationTypewarningsItem = Class;
+  TZoneTypemaintenanceWindowsItem = Class;
   TAutoscalerListResponseTypeitemsArray = Array of TAutoscaler;
   TAutoscalingPolicyTypecustomMetricUtilizationsArray = Array of TAutoscalingPolicyCustomMetricUtilization;
   TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
@@ -112,6 +112,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TAutoscalerListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TAutoscalerListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -140,6 +144,10 @@ type
     Procedure SetloadBalancingUtilization(AIndex : Integer; AValue : TAutoscalingPolicyLoadBalancingUtilization); virtual;
     Procedure SetmaxNumReplicas(AIndex : Integer; AValue : integer); virtual;
     Procedure SetminNumReplicas(AIndex : Integer; 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;
@@ -265,6 +273,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; 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;
@@ -304,6 +316,10 @@ type
     Procedure Setcode(AIndex : Integer; AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
     Procedure Setmessage(AIndex : Integer; 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;
@@ -364,6 +380,10 @@ type
     Procedure Setuser(AIndex : Integer; AValue : String); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
     Procedure Setzone(AIndex : Integer; 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;
@@ -409,6 +429,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -472,6 +496,10 @@ type
     Procedure Setregion(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Setstatus(AIndex : Integer; 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;
@@ -505,6 +533,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -759,6 +791,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAutoscalerListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -826,6 +871,19 @@ begin
 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}
+
 
 
 
@@ -1008,6 +1066,19 @@ begin
 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}
+
 
 
 
@@ -1072,6 +1143,19 @@ begin
 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}
+
 
 
 
@@ -1299,6 +1383,19 @@ begin
 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}
+
 
 
 
@@ -1356,6 +1453,19 @@ begin
 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}
+
 
 
 
@@ -1510,6 +1620,19 @@ 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}
+
 
 
 
@@ -1567,6 +1690,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TZoneList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1892,7 +2028,7 @@ end;
 Class Function TAutoscalerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TAutoscalerAPI.APIbasePath : string;
@@ -1904,7 +2040,7 @@ end;
 Class Function TAutoscalerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/autoscaler/v1beta2/';
+  Result:='https://www.googleapis.com:443/autoscaler/v1beta2/';
 end;
 
 Class Function TAutoscalerAPI.APIProtocol : string;
@@ -1983,7 +2119,7 @@ Function TAutoscalerAPI.CreateAutoscalersResource(AOwner : TComponent) : TAutosc
 
 begin
   Result:=TAutoscalersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2007,7 +2143,7 @@ Function TAutoscalerAPI.CreateZoneOperationsResource(AOwner : TComponent) : TZon
 
 begin
   Result:=TZoneOperationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2031,7 +2167,7 @@ Function TAutoscalerAPI.CreateZonesResource(AOwner : TComponent) : TZonesResourc
 
 begin
   Result:=TZonesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlebigquery.pp

@@ -13,7 +13,7 @@ unit googlebigquery;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:49
+//Generated on: 16-5-15 08:52:59
 {$MODE objfpc}
 {$H+}
 
@@ -25,43 +25,43 @@ type
   
   //Top-level schema types
   TJsonValue = TJSONSchema;
-  TCsvOptions = class;
-  TDataset = class;
-  TDatasetList = class;
-  TDatasetReference = class;
-  TErrorProto = class;
-  TExternalDataConfiguration = class;
-  TGetQueryResultsResponse = class;
-  TJob = class;
-  TJobConfiguration = class;
-  TJobConfigurationExtract = class;
-  TJobConfigurationLink = class;
-  TJobConfigurationLoad = class;
-  TJobConfigurationQuery = class;
-  TJobConfigurationTableCopy = class;
-  TJobList = class;
-  TJobReference = class;
-  TJobStatistics = class;
-  TJobStatistics2 = class;
-  TJobStatistics3 = class;
-  TJobStatistics4 = class;
-  TJobStatus = class;
-  TJsonObject = class;
-  TProjectList = class;
-  TProjectReference = class;
-  TQueryRequest = class;
-  TQueryResponse = class;
-  TTable = class;
-  TTableCell = class;
-  TTableDataInsertAllRequest = class;
-  TTableDataInsertAllResponse = class;
-  TTableDataList = class;
-  TTableFieldSchema = class;
-  TTableList = class;
-  TTableReference = class;
-  TTableRow = class;
-  TTableSchema = class;
-  TViewDefinition = class;
+  TCsvOptions = Class;
+  TDataset = Class;
+  TDatasetList = Class;
+  TDatasetReference = Class;
+  TErrorProto = Class;
+  TExternalDataConfiguration = Class;
+  TGetQueryResultsResponse = Class;
+  TJob = Class;
+  TJobConfiguration = Class;
+  TJobConfigurationExtract = Class;
+  TJobConfigurationLink = Class;
+  TJobConfigurationLoad = Class;
+  TJobConfigurationQuery = Class;
+  TJobConfigurationTableCopy = Class;
+  TJobList = Class;
+  TJobReference = Class;
+  TJobStatistics = Class;
+  TJobStatistics2 = Class;
+  TJobStatistics3 = Class;
+  TJobStatistics4 = Class;
+  TJobStatus = Class;
+  TJsonObject = Class;
+  TProjectList = Class;
+  TProjectReference = Class;
+  TQueryRequest = Class;
+  TQueryResponse = Class;
+  TTable = Class;
+  TTableCell = Class;
+  TTableDataInsertAllRequest = Class;
+  TTableDataInsertAllResponse = Class;
+  TTableDataList = Class;
+  TTableFieldSchema = Class;
+  TTableList = Class;
+  TTableReference = Class;
+  TTableRow = Class;
+  TTableSchema = Class;
+  TViewDefinition = Class;
   TCsvOptionsArray = Array of TCsvOptions;
   TDatasetArray = Array of TDataset;
   TDatasetListArray = Array of TDatasetList;
@@ -100,14 +100,14 @@ type
   TTableSchemaArray = Array of TTableSchema;
   TViewDefinitionArray = Array of TViewDefinition;
   //Anonymous types, using auto-generated names
-  TDatasetTypeaccessItem = class;
-  TDatasetListTypedatasetsItem = class;
-  TJobConfigurationQueryTypetableDefinitions = class;
-  TJobListTypejobsItem = class;
-  TProjectListTypeprojectsItem = class;
-  TTableDataInsertAllRequestTyperowsItem = class;
-  TTableDataInsertAllResponseTypeinsertErrorsItem = class;
-  TTableListTypetablesItem = class;
+  TDatasetTypeaccessItem = Class;
+  TDatasetListTypedatasetsItem = Class;
+  TJobConfigurationQueryTypetableDefinitions = Class;
+  TJobListTypejobsItem = Class;
+  TProjectListTypeprojectsItem = Class;
+  TTableDataInsertAllRequestTyperowsItem = Class;
+  TTableDataInsertAllResponseTypeinsertErrorsItem = Class;
+  TTableListTypetablesItem = Class;
   TDatasetTypeaccessArray = Array of TDatasetTypeaccessItem;
   TDatasetListTypedatasetsArray = Array of TDatasetListTypedatasetsItem;
   TGetQueryResultsResponseTyperowsArray = Array of TTableRow;
@@ -219,6 +219,10 @@ type
     Procedure SetlastModifiedTime(AIndex : Integer; AValue : String); virtual;
     Procedure Setlocation(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 access : TDatasetTypeaccessArray Index 0 Read Faccess Write Setaccess;
@@ -277,6 +281,10 @@ type
     Procedure Setetag(AIndex : Integer; AValue : String); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 datasets : TDatasetListTypedatasetsArray Index 0 Read Fdatasets Write Setdatasets;
@@ -352,6 +360,10 @@ type
     Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
     Procedure SetsourceFormat(AIndex : Integer; 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 compression : String Index 0 Read Fcompression Write Setcompression;
@@ -392,6 +404,10 @@ type
     Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
     Procedure SettotalBytesProcessed(AIndex : Integer; AValue : String); virtual;
     Procedure SettotalRows(AIndex : Integer; 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;
@@ -500,6 +516,10 @@ type
     Procedure SetfieldDelimiter(AIndex : Integer; AValue : String); virtual;
     Procedure SetprintHeader(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetsourceTable(AIndex : Integer; AValue : TTableReference); 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;
@@ -528,6 +548,10 @@ type
     Procedure SetdestinationTable(AIndex : Integer; AValue : TTableReference); virtual;
     Procedure SetsourceUri(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetwriteDisposition(AIndex : Integer; 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;
@@ -579,6 +603,10 @@ type
     Procedure SetsourceFormat(AIndex : Integer; AValue : String); virtual;
     Procedure SetsourceUris(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetwriteDisposition(AIndex : Integer; 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 allowJaggedRows : boolean Index 0 Read FallowJaggedRows Write SetallowJaggedRows;
@@ -679,6 +707,10 @@ type
     Procedure SetsourceTable(AIndex : Integer; AValue : TTableReference); virtual;
     Procedure SetsourceTables(AIndex : Integer; AValue : TJobConfigurationTableCopyTypesourceTablesArray); virtual;
     Procedure SetwriteDisposition(AIndex : Integer; 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;
@@ -747,6 +779,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property etag : String Index 0 Read Fetag Write Setetag;
@@ -864,6 +900,10 @@ type
   Protected
     //Property setters
     Procedure SetdestinationUriFileCounts(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 destinationUriFileCounts : TStringArray Index 0 Read FdestinationUriFileCounts Write SetdestinationUriFileCounts;
@@ -884,6 +924,10 @@ type
     Procedure SeterrorResult(AIndex : Integer; AValue : TErrorProto); virtual;
     Procedure Seterrors(AIndex : Integer; AValue : TJobStatusTypeerrorsArray); virtual;
     Procedure Setstate(AIndex : Integer; 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 errorResult : TErrorProto Index 0 Read FerrorResult Write SeterrorResult;
@@ -952,6 +996,10 @@ type
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setprojects(AIndex : Integer; AValue : TProjectListTypeprojectsArray); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property etag : String Index 0 Read Fetag Write Setetag;
@@ -1041,6 +1089,10 @@ type
     Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
     Procedure SettotalBytesProcessed(AIndex : Integer; AValue : String); virtual;
     Procedure SettotalRows(AIndex : Integer; 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;
@@ -1165,6 +1217,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TTableDataInsertAllRequestTyperowsArray); virtual;
     Procedure SetskipInvalidRows(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 ignoreUnknownValues : boolean Index 0 Read FignoreUnknownValues Write SetignoreUnknownValues;
@@ -1186,6 +1242,10 @@ type
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray); virtual;
     Procedure Setindex(AIndex : Integer; 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 errors : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
@@ -1205,6 +1265,10 @@ type
     //Property setters
     Procedure SetinsertErrors(AIndex : Integer; AValue : TTableDataInsertAllResponseTypeinsertErrorsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 insertErrors : TTableDataInsertAllResponseTypeinsertErrorsArray Index 0 Read FinsertErrors Write SetinsertErrors;
@@ -1230,6 +1294,10 @@ type
     Procedure SetpageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TTableDataListTyperowsArray); virtual;
     Procedure SettotalRows(AIndex : Integer; 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;
@@ -1259,6 +1327,10 @@ type
     Procedure Setmode(AIndex : Integer; AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -1316,6 +1388,10 @@ type
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Settables(AIndex : Integer; AValue : TTableListTypetablesArray); virtual;
     Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property etag : String Index 0 Read Fetag Write Setetag;
@@ -1358,6 +1434,10 @@ type
   Protected
     //Property setters
     Procedure Setf(AIndex : Integer; AValue : TTableRowTypefArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property f : TTableRowTypefArray Index 0 Read Ff Write Setf;
@@ -1374,6 +1454,10 @@ type
   Protected
     //Property setters
     Procedure Setfields(AIndex : Integer; AValue : TTableSchemaTypefieldsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property fields : TTableSchemaTypefieldsArray Index 0 Read Ffields Write Setfields;
@@ -1858,6 +1942,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDataset.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'access' : SetLength(Faccess,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1952,6 +2049,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDatasetList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'datasets' : SetLength(Fdatasets,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2103,6 +2213,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExternalDataConfiguration.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'sourceuris' : SetLength(FsourceUris,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2210,6 +2333,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetQueryResultsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rows' : SetLength(Frows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2451,6 +2587,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobConfigurationExtract.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'destinationuris' : SetLength(FdestinationUris,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2498,6 +2647,19 @@ begin
 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}
+
 
 
 
@@ -2675,6 +2837,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobConfigurationLoad.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'projectionfields' : SetLength(FprojectionFields,ALength);
+  'sourceuris' : SetLength(FsourceUris,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2862,6 +3038,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobConfigurationTableCopy.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'sourcetables' : SetLength(FsourceTables,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3016,6 +3205,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'jobs' : SetLength(Fjobs,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3211,6 +3413,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobStatistics4.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'destinationurifilecounts' : SetLength(FdestinationUriFileCounts,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3248,6 +3463,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobStatus.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3375,6 +3603,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProjectList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'projects' : SetLength(Fprojects,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3576,6 +3817,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TQueryResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rows' : SetLength(Frows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3835,6 +4089,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableDataInsertAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rows' : SetLength(Frows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3862,6 +4129,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3889,6 +4169,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableDataInsertAllResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'inserterrors' : SetLength(FinsertErrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3946,6 +4239,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableDataList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rows' : SetLength(Frows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4014,6 +4320,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableFieldSchema.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'fields' : SetLength(Ffields,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4139,6 +4458,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'tables' : SetLength(Ftables,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4193,6 +4525,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableRow.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'f' : SetLength(Ff,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4210,6 +4555,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableSchema.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'fields' : SetLength(Ffields,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4737,7 +5095,7 @@ end;
 Class Function TBigqueryAPI.APIRevision : String;
 
 begin
-  Result:='20141112';
+  Result:='20150326';
 end;
 
 Class Function TBigqueryAPI.APIID : String;
@@ -4791,7 +5149,7 @@ end;
 Class Function TBigqueryAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TBigqueryAPI.APIbasePath : string;
@@ -4803,7 +5161,7 @@ end;
 Class Function TBigqueryAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/bigquery/v2/';
+  Result:='https://www.googleapis.com:443/bigquery/v2/';
 end;
 
 Class Function TBigqueryAPI.APIProtocol : string;
@@ -4919,7 +5277,7 @@ Function TBigqueryAPI.CreateDatasetsResource(AOwner : TComponent) : TDatasetsRes
 
 begin
   Result:=TDatasetsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4943,7 +5301,7 @@ Function TBigqueryAPI.CreateJobsResource(AOwner : TComponent) : TJobsResource;
 
 begin
   Result:=TJobsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4967,7 +5325,7 @@ Function TBigqueryAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsRes
 
 begin
   Result:=TProjectsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4991,7 +5349,7 @@ Function TBigqueryAPI.CreateTabledataResource(AOwner : TComponent) : TTabledataR
 
 begin
   Result:=TTabledataResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5015,7 +5373,7 @@ Function TBigqueryAPI.CreateTablesResource(AOwner : TComponent) : TTablesResourc
 
 begin
   Result:=TTablesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleblogger.pp

@@ -13,7 +13,7 @@ unit googleblogger;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:49
+//Generated on: 16-5-15 08:52:59
 {$MODE objfpc}
 {$H+}
 
@@ -24,21 +24,21 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TBlog = class;
-  TBlogList = class;
-  TBlogPerUserInfo = class;
-  TBlogUserInfo = class;
-  TComment = class;
-  TCommentList = class;
-  TPage = class;
-  TPageList = class;
-  TPageviews = class;
-  TPost = class;
-  TPostList = class;
-  TPostPerUserInfo = class;
-  TPostUserInfo = class;
-  TPostUserInfosList = class;
-  TUser = class;
+  TBlog = Class;
+  TBlogList = Class;
+  TBlogPerUserInfo = Class;
+  TBlogUserInfo = Class;
+  TComment = Class;
+  TCommentList = Class;
+  TPage = Class;
+  TPageList = Class;
+  TPageviews = Class;
+  TPost = Class;
+  TPostList = Class;
+  TPostPerUserInfo = Class;
+  TPostUserInfo = Class;
+  TPostUserInfosList = Class;
+  TUser = Class;
   TBlogArray = Array of TBlog;
   TBlogListArray = Array of TBlogList;
   TBlogPerUserInfoArray = Array of TBlogPerUserInfo;
@@ -55,26 +55,26 @@ type
   TPostUserInfosListArray = Array of TPostUserInfosList;
   TUserArray = Array of TUser;
   //Anonymous types, using auto-generated names
-  TBlogTypelocale = class;
-  TBlogTypepages = class;
-  TBlogTypeposts = class;
-  TCommentTypeauthorTypeimage = class;
-  TCommentTypeauthor = class;
-  TCommentTypeblog = class;
-  TCommentTypeinReplyTo = class;
-  TCommentTypepost = class;
-  TPageTypeauthorTypeimage = class;
-  TPageTypeauthor = class;
-  TPageTypeblog = class;
-  TPageviewsTypecountsItem = class;
-  TPostTypeauthorTypeimage = class;
-  TPostTypeauthor = class;
-  TPostTypeblog = class;
-  TPostTypeimagesItem = class;
-  TPostTypelocation = class;
-  TPostTypereplies = class;
-  TUserTypeblogs = class;
-  TUserTypelocale = class;
+  TBlogTypelocale = Class;
+  TBlogTypepages = Class;
+  TBlogTypeposts = Class;
+  TCommentTypeauthorTypeimage = Class;
+  TCommentTypeauthor = Class;
+  TCommentTypeblog = Class;
+  TCommentTypeinReplyTo = Class;
+  TCommentTypepost = Class;
+  TPageTypeauthorTypeimage = Class;
+  TPageTypeauthor = Class;
+  TPageTypeblog = Class;
+  TPageviewsTypecountsItem = Class;
+  TPostTypeauthorTypeimage = Class;
+  TPostTypeauthor = Class;
+  TPostTypeblog = Class;
+  TPostTypeimagesItem = Class;
+  TPostTypelocation = Class;
+  TPostTypereplies = Class;
+  TUserTypeblogs = Class;
+  TUserTypelocale = Class;
   TBlogTypepostsTypeitemsArray = Array of TPost;
   TBlogListTypeblogUserInfosArray = Array of TBlogUserInfo;
   TBlogListTypeitemsArray = Array of TBlog;
@@ -141,6 +141,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TBlogTypepostsTypeitemsArray); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TBlogTypepostsTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -216,6 +220,10 @@ type
     Procedure SetblogUserInfos(AIndex : Integer; AValue : TBlogListTypeblogUserInfosArray); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TBlogListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 blogUserInfos : TBlogListTypeblogUserInfosArray Index 0 Read FblogUserInfos Write SetblogUserInfos;
@@ -431,6 +439,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetprevPageToken(AIndex : Integer; 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;
@@ -564,6 +576,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TPageListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -606,6 +622,10 @@ type
     Procedure SetblogId(AIndex : Integer; AValue : String); virtual;
     Procedure Setcounts(AIndex : Integer; AValue : TPageviewsTypecountsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 blogId : String Index 0 Read FblogId Write SetblogId;
@@ -726,6 +746,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TPostTyperepliesTypeitemsArray); virtual;
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure SettotalItems(AIndex : Integer; 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 : TPostTyperepliesTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -781,6 +805,10 @@ type
     Procedure SettitleLink(AIndex : Integer; AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Seturl(AIndex : Integer; 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 author : TPostTypeauthor Index 0 Read Fauthor Write Setauthor;
@@ -821,6 +849,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TPostListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -894,6 +926,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TPostUserInfosListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TPostUserInfosListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1514,6 +1550,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBlogTypeposts.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1699,6 +1748,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBlogList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'bloguserinfos' : SetLength(FblogUserInfos,ALength);
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2103,6 +2166,19 @@ begin
 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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2369,6 +2445,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPageList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2433,6 +2522,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPageviews.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'counts' : SetLength(Fcounts,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2615,6 +2717,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPostTypereplies.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2823,6 +2938,20 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPost.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'images' : SetLength(Fimages,ALength);
+  'labels' : SetLength(Flabels,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2870,6 +2999,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPostList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3001,6 +3143,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPostUserInfosList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4203,7 +4358,7 @@ end;
 Class Function TBloggerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TBloggerAPI.APIbasePath : string;
@@ -4215,7 +4370,7 @@ end;
 Class Function TBloggerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/blogger/v3/';
+  Result:='https://www.googleapis.com:443/blogger/v3/';
 end;
 
 Class Function TBloggerAPI.APIProtocol : string;
@@ -4313,7 +4468,7 @@ Function TBloggerAPI.CreateBlogUserInfosResource(AOwner : TComponent) : TBlogUse
 
 begin
   Result:=TBlogUserInfosResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4337,7 +4492,7 @@ Function TBloggerAPI.CreateBlogsResource(AOwner : TComponent) : TBlogsResource;
 
 begin
   Result:=TBlogsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4361,7 +4516,7 @@ Function TBloggerAPI.CreateCommentsResource(AOwner : TComponent) : TCommentsReso
 
 begin
   Result:=TCommentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4385,7 +4540,7 @@ Function TBloggerAPI.CreatePageViewsResource(AOwner : TComponent) : TPageViewsRe
 
 begin
   Result:=TPageViewsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4409,7 +4564,7 @@ Function TBloggerAPI.CreatePagesResource(AOwner : TComponent) : TPagesResource;
 
 begin
   Result:=TPagesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4433,7 +4588,7 @@ Function TBloggerAPI.CreatePostUserInfosResource(AOwner : TComponent) : TPostUse
 
 begin
   Result:=TPostUserInfosResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4457,7 +4612,7 @@ Function TBloggerAPI.CreatePostsResource(AOwner : TComponent) : TPostsResource;
 
 begin
   Result:=TPostsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4481,7 +4636,7 @@ Function TBloggerAPI.CreateUsersResource(AOwner : TComponent) : TUsersResource;
 
 begin
   Result:=TUsersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecalendar.pp

@@ -13,7 +13,7 @@ unit googlecalendar;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:49
+//Generated on: 16-5-15 08:52:59
 {$MODE objfpc}
 {$H+}
 
@@ -24,30 +24,30 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAcl = class;
-  TAclRule = class;
-  TCalendar = class;
-  TCalendarList = class;
-  TCalendarListEntry = class;
-  TCalendarNotification = class;
-  TChannel = class;
-  TColorDefinition = class;
-  TColors = class;
-  TError = class;
-  TEvent = class;
-  TEventAttachment = class;
-  TEventAttendee = class;
-  TEventDateTime = class;
-  TEventReminder = class;
-  TEvents = class;
-  TFreeBusyCalendar = class;
-  TFreeBusyGroup = class;
-  TFreeBusyRequest = class;
-  TFreeBusyRequestItem = class;
-  TFreeBusyResponse = class;
-  TSetting = class;
-  TSettings = class;
-  TTimePeriod = class;
+  TAcl = Class;
+  TAclRule = Class;
+  TCalendar = Class;
+  TCalendarList = Class;
+  TCalendarListEntry = Class;
+  TCalendarNotification = Class;
+  TChannel = Class;
+  TColorDefinition = Class;
+  TColors = Class;
+  TError = Class;
+  TEvent = Class;
+  TEventAttachment = Class;
+  TEventAttendee = Class;
+  TEventDateTime = Class;
+  TEventReminder = Class;
+  TEvents = Class;
+  TFreeBusyCalendar = Class;
+  TFreeBusyGroup = Class;
+  TFreeBusyRequest = Class;
+  TFreeBusyRequestItem = Class;
+  TFreeBusyResponse = Class;
+  TSetting = Class;
+  TSettings = Class;
+  TTimePeriod = Class;
   TAclArray = Array of TAcl;
   TAclRuleArray = Array of TAclRule;
   TCalendarArray = Array of TCalendar;
@@ -73,22 +73,22 @@ type
   TSettingsArray = Array of TSettings;
   TTimePeriodArray = Array of TTimePeriod;
   //Anonymous types, using auto-generated names
-  TAclRuleTypescope = class;
-  TCalendarListEntryTypenotificationSettings = class;
-  TChannelTypeparams = class;
-  TColorsTypecalendar = class;
-  TColorsTypeevent = class;
-  TEventTypecreator = class;
-  TEventTypeextendedPropertiesTypeprivate = class;
-  TEventTypeextendedPropertiesTypeshared = class;
-  TEventTypeextendedProperties = class;
-  TEventTypegadgetTypepreferences = class;
-  TEventTypegadget = class;
-  TEventTypeorganizer = class;
-  TEventTypereminders = class;
-  TEventTypesource = class;
-  TFreeBusyResponseTypecalendars = class;
-  TFreeBusyResponseTypegroups = class;
+  TAclRuleTypescope = Class;
+  TCalendarListEntryTypenotificationSettings = Class;
+  TChannelTypeparams = Class;
+  TColorsTypecalendar = Class;
+  TColorsTypeevent = Class;
+  TEventTypecreator = Class;
+  TEventTypeextendedPropertiesTypeprivate = Class;
+  TEventTypeextendedPropertiesTypeshared = Class;
+  TEventTypeextendedProperties = Class;
+  TEventTypegadgetTypepreferences = Class;
+  TEventTypegadget = Class;
+  TEventTypeorganizer = Class;
+  TEventTypereminders = Class;
+  TEventTypesource = Class;
+  TFreeBusyResponseTypecalendars = Class;
+  TFreeBusyResponseTypegroups = Class;
   TAclTypeitemsArray = Array of TAclRule;
   TCalendarListTypeitemsArray = Array of TCalendarListEntry;
   TCalendarListEntryTypedefaultRemindersArray = Array of TEventReminder;
@@ -121,6 +121,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextSyncToken(AIndex : Integer; 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;
@@ -231,6 +235,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextSyncToken(AIndex : Integer; 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;
@@ -251,6 +259,10 @@ type
   Protected
     //Property setters
     Procedure Setnotifications(AIndex : Integer; AValue : TCalendarListEntryTypenotificationSettingsTypenotificationsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property notifications : TCalendarListEntryTypenotificationSettingsTypenotificationsArray Index 0 Read Fnotifications Write Setnotifications;
@@ -301,6 +313,10 @@ type
     Procedure Setsummary(AIndex : Integer; AValue : String); virtual;
     Procedure SetsummaryOverride(AIndex : Integer; AValue : String); virtual;
     Procedure SettimeZone(AIndex : Integer; 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 accessRole : String Index 0 Read FaccessRole Write SetaccessRole;
@@ -657,6 +673,10 @@ type
     //Property setters
     Procedure Setoverrides(AIndex : Integer; AValue : TEventTyperemindersTypeoverridesArray); virtual;
     Procedure SetuseDefault(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 overrides : TEventTyperemindersTypeoverridesArray Index 0 Read Foverrides Write Setoverrides;
@@ -764,6 +784,10 @@ type
     Procedure Settransparency(AIndex : Integer; AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setvisibility(AIndex : Integer; 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 anyoneCanAddSelf : boolean Index 0 Read FanyoneCanAddSelf Write SetanyoneCanAddSelf;
@@ -933,6 +957,10 @@ type
     Procedure Setsummary(AIndex : Integer; AValue : String); virtual;
     Procedure SettimeZone(AIndex : Integer; 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 accessRole : String Index 0 Read FaccessRole Write SetaccessRole;
@@ -961,6 +989,10 @@ type
     //Property setters
     Procedure Setbusy(AIndex : Integer; AValue : TFreeBusyCalendarTypebusyArray); virtual;
     Procedure Seterrors(AIndex : Integer; AValue : TFreeBusyCalendarTypeerrorsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property busy : TFreeBusyCalendarTypebusyArray Index 0 Read Fbusy Write Setbusy;
@@ -980,6 +1012,10 @@ type
     //Property setters
     Procedure Setcalendars(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Seterrors(AIndex : Integer; AValue : TFreeBusyGroupTypeerrorsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property calendars : TStringArray Index 0 Read Fcalendars Write Setcalendars;
@@ -1007,6 +1043,10 @@ type
     Procedure SettimeMax(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SettimeMin(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SettimeZone(AIndex : Integer; 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 calendarExpansionMax : integer Index 0 Read FcalendarExpansionMax Write SetcalendarExpansionMax;
@@ -1133,6 +1173,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextSyncToken(AIndex : Integer; 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;
@@ -1638,6 +1682,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAcl.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1867,6 +1924,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCalendarList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1884,6 +1954,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCalendarListEntryTypenotificationSettings.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'notifications' : SetLength(Fnotifications,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2071,6 +2154,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCalendarListEntry.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'defaultreminders' : SetLength(FdefaultReminders,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2685,6 +2781,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEventTypereminders.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'overrides' : SetLength(Foverrides,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3090,6 +3199,20 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEvent.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'attendees' : SetLength(Fattendees,ALength);
+  'recurrence' : SetLength(Frecurrence,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3396,6 +3519,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEvents.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'defaultreminders' : SetLength(FdefaultReminders,ALength);
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3423,6 +3560,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFreeBusyCalendar.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'busy' : SetLength(Fbusy,ALength);
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3450,6 +3601,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFreeBusyGroup.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'calendars' : SetLength(Fcalendars,ALength);
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3517,6 +3682,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFreeBusyRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3721,6 +3899,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSettings.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4749,7 +4940,7 @@ end;
 Class Function TCalendarAPI.APIRevision : String;
 
 begin
-  Result:='20150401';
+  Result:='20150326';
 end;
 
 Class Function TCalendarAPI.APIID : String;
@@ -4803,7 +4994,7 @@ end;
 Class Function TCalendarAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TCalendarAPI.APIbasePath : string;
@@ -4815,7 +5006,7 @@ end;
 Class Function TCalendarAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/calendar/v3/';
+  Result:='https://www.googleapis.com:443/calendar/v3/';
 end;
 
 Class Function TCalendarAPI.APIProtocol : string;
@@ -4918,7 +5109,7 @@ Function TCalendarAPI.CreateAclResource(AOwner : TComponent) : TAclResource;
 
 begin
   Result:=TAclResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4942,7 +5133,7 @@ Function TCalendarAPI.CreateCalendarListResource(AOwner : TComponent) : TCalenda
 
 begin
   Result:=TCalendarListResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4966,7 +5157,7 @@ Function TCalendarAPI.CreateCalendarsResource(AOwner : TComponent) : TCalendarsR
 
 begin
   Result:=TCalendarsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4990,7 +5181,7 @@ Function TCalendarAPI.CreateChannelsResource(AOwner : TComponent) : TChannelsRes
 
 begin
   Result:=TChannelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5014,7 +5205,7 @@ Function TCalendarAPI.CreateColorsResource(AOwner : TComponent) : TColorsResourc
 
 begin
   Result:=TColorsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5038,7 +5229,7 @@ Function TCalendarAPI.CreateEventsResource(AOwner : TComponent) : TEventsResourc
 
 begin
   Result:=TEventsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5062,7 +5253,7 @@ Function TCalendarAPI.CreateFreebusyResource(AOwner : TComponent) : TFreebusyRes
 
 begin
   Result:=TFreebusyResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5086,7 +5277,7 @@ Function TCalendarAPI.CreateSettingsResource(AOwner : TComponent) : TSettingsRes
 
 begin
   Result:=TSettingsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecivicinfo.pp

@@ -13,7 +13,7 @@ unit googlecivicinfo;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:50
+//Generated on: 16-5-15 08:53:00
 {$MODE objfpc}
 {$H+}
 
@@ -24,26 +24,26 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAdministrationRegion = class;
-  TAdministrativeBody = class;
-  TCandidate = class;
-  TChannel = class;
-  TContest = class;
-  TDivisionSearchResponse = class;
-  TDivisionSearchResult = class;
-  TElection = class;
-  TElectionOfficial = class;
-  TElectionsQueryResponse = class;
-  TElectoralDistrict = class;
-  TGeographicDivision = class;
-  TOffice = class;
-  TOfficial = class;
-  TPollingLocation = class;
-  TRepresentativeInfoData = class;
-  TRepresentativeInfoResponse = class;
-  TSimpleAddressType = class;
-  TSource = class;
-  TVoterInfoResponse = class;
+  TAdministrationRegion = Class;
+  TAdministrativeBody = Class;
+  TCandidate = Class;
+  TChannel = Class;
+  TContest = Class;
+  TDivisionSearchResponse = Class;
+  TDivisionSearchResult = Class;
+  TElection = Class;
+  TElectionOfficial = Class;
+  TElectionsQueryResponse = Class;
+  TElectoralDistrict = Class;
+  TGeographicDivision = Class;
+  TOffice = Class;
+  TOfficial = Class;
+  TPollingLocation = Class;
+  TRepresentativeInfoData = Class;
+  TRepresentativeInfoResponse = Class;
+  TSimpleAddressType = Class;
+  TSource = Class;
+  TVoterInfoResponse = Class;
   TAdministrationRegionArray = Array of TAdministrationRegion;
   TAdministrativeBodyArray = Array of TAdministrativeBody;
   TCandidateArray = Array of TCandidate;
@@ -65,8 +65,8 @@ type
   TSourceArray = Array of TSource;
   TVoterInfoResponseArray = Array of TVoterInfoResponse;
   //Anonymous types, using auto-generated names
-  TRepresentativeInfoDataTypedivisions = class;
-  TRepresentativeInfoResponseTypedivisions = class;
+  TRepresentativeInfoDataTypedivisions = Class;
+  TRepresentativeInfoResponseTypedivisions = Class;
   TAdministrationRegionTypesourcesArray = Array of TSource;
   TAdministrativeBodyTypeelectionOfficialsArray = Array of TElectionOfficial;
   TCandidateTypechannelsArray = Array of TChannel;
@@ -107,6 +107,10 @@ type
     Procedure Setlocal_jurisdiction(AIndex : Integer; AValue : TAdministrationRegion); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Setsources(AIndex : Integer; AValue : TAdministrationRegionTypesourcesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property electionAdministrationBody : TAdministrativeBody Index 0 Read FelectionAdministrationBody Write SetelectionAdministrationBody;
@@ -151,6 +155,10 @@ type
     Procedure SetphysicalAddress(AIndex : Integer; AValue : TSimpleAddressType); virtual;
     Procedure Setvoter_services(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetvotingLocationFinderUrl(AIndex : Integer; 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 absenteeVotingInfoUrl : String Index 0 Read FabsenteeVotingInfoUrl Write SetabsenteeVotingInfoUrl;
@@ -193,6 +201,10 @@ type
     Procedure Setparty(AIndex : Integer; AValue : String); virtual;
     Procedure Setphone(AIndex : Integer; AValue : String); virtual;
     Procedure SetphotoUrl(AIndex : Integer; 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 candidateUrl : String Index 0 Read FcandidateUrl Write SetcandidateUrl;
@@ -269,6 +281,10 @@ type
     Procedure Setsources(AIndex : Integer; AValue : TContestTypesourcesArray); virtual;
     Procedure Setspecial(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; 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 ballotPlacement : String Index 0 Read FballotPlacement Write SetballotPlacement;
@@ -303,6 +319,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setresults(AIndex : Integer; AValue : TDivisionSearchResponseTyperesultsArray); 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;
@@ -324,6 +344,10 @@ type
     Procedure Setaliases(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetocdId(AIndex : Integer; 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 : TStringArray Index 0 Read Faliases Write Setaliases;
@@ -394,6 +418,10 @@ type
     //Property setters
     Procedure Setelections(AIndex : Integer; AValue : TElectionsQueryResponseTypeelectionsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 elections : TElectionsQueryResponseTypeelectionsArray Index 0 Read Felections Write Setelections;
@@ -437,6 +465,10 @@ type
     Procedure SetalsoKnownAs(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetofficeIndices(AIndex : Integer; 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 alsoKnownAs : TStringArray Index 0 Read FalsoKnownAs Write SetalsoKnownAs;
@@ -465,6 +497,10 @@ type
     Procedure SetofficialIndices(AIndex : Integer; AValue : TintegerArray); virtual;
     Procedure Setroles(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setsources(AIndex : Integer; AValue : TOfficeTypesourcesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property divisionId : String Index 0 Read FdivisionId Write SetdivisionId;
@@ -500,6 +536,10 @@ type
     Procedure Setphones(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetphotoUrl(AIndex : Integer; AValue : String); virtual;
     Procedure Seturls(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 address : TOfficialTypeaddressArray Index 0 Read Faddress Write Setaddress;
@@ -539,6 +579,10 @@ type
     Procedure Setsources(AIndex : Integer; AValue : TPollingLocationTypesourcesArray); virtual;
     Procedure SetstartDate(AIndex : Integer; AValue : String); virtual;
     Procedure SetvoterServices(AIndex : Integer; 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 address : TSimpleAddressType Index 0 Read Faddress Write Setaddress;
@@ -581,6 +625,10 @@ type
     Procedure Setdivisions(AIndex : Integer; AValue : TRepresentativeInfoDataTypedivisions); virtual;
     Procedure Setoffices(AIndex : Integer; AValue : TRepresentativeInfoDataTypeofficesArray); virtual;
     Procedure Setofficials(AIndex : Integer; AValue : TRepresentativeInfoDataTypeofficialsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property divisions : TRepresentativeInfoDataTypedivisions Index 0 Read Fdivisions Write Setdivisions;
@@ -621,6 +669,10 @@ type
     Procedure SetnormalizedInput(AIndex : Integer; AValue : TSimpleAddressType); virtual;
     Procedure Setoffices(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficesArray); virtual;
     Procedure Setofficials(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficialsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property divisions : TRepresentativeInfoResponseTypedivisions Index 0 Read Fdivisions Write Setdivisions;
@@ -712,6 +764,10 @@ type
     Procedure SetpollingLocations(AIndex : Integer; AValue : TVoterInfoResponseTypepollingLocationsArray); virtual;
     Procedure SetprecinctId(AIndex : Integer; AValue : String); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TVoterInfoResponseTypestateArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property contests : TVoterInfoResponseTypecontestsArray Index 0 Read Fcontests Write Setcontests;
@@ -908,6 +964,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAdministrationRegion.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'sources' : SetLength(Fsources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1045,6 +1114,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAdministrativeBody.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'electionofficials' : SetLength(FelectionOfficials,ALength);
+  'voter_services' : SetLength(Fvoter_services,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1132,6 +1215,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCandidate.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'channels' : SetLength(Fchannels,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1358,6 +1454,22 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TContest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'candidates' : SetLength(Fcandidates,ALength);
+  'level' : SetLength(Flevel,ALength);
+  'roles' : SetLength(Froles,ALength);
+  'sources' : SetLength(Fsources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1385,6 +1497,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDivisionSearchResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'results' : SetLength(Fresults,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1422,6 +1547,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDivisionSearchResult.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'aliases' : SetLength(Faliases,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1543,6 +1681,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TElectionsQueryResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'elections' : SetLength(Felections,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1617,6 +1768,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGeographicDivision.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'alsoknownas' : SetLength(FalsoKnownAs,ALength);
+  'officeindices' : SetLength(FofficeIndices,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1684,6 +1849,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOffice.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'levels' : SetLength(Flevels,ALength);
+  'officialindices' : SetLength(FofficialIndices,ALength);
+  'roles' : SetLength(Froles,ALength);
+  'sources' : SetLength(Fsources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1771,6 +1952,23 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOfficial.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'address' : SetLength(Faddress,ALength);
+  'channels' : SetLength(Fchannels,ALength);
+  'emails' : SetLength(Femails,ALength);
+  'phones' : SetLength(Fphones,ALength);
+  'urls' : SetLength(Furls,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1868,6 +2066,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPollingLocation.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'sources' : SetLength(Fsources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1918,6 +2129,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRepresentativeInfoData.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'offices' : SetLength(Foffices,ALength);
+  'officials' : SetLength(Fofficials,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1988,6 +2213,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRepresentativeInfoResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'offices' : SetLength(Foffices,ALength);
+  'officials' : SetLength(Fofficials,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2199,6 +2438,24 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TVoterInfoResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'contests' : SetLength(Fcontests,ALength);
+  'dropofflocations' : SetLength(FdropOffLocations,ALength);
+  'earlyvotesites' : SetLength(FearlyVoteSites,ALength);
+  'otherelections' : SetLength(FotherElections,ALength);
+  'pollinglocations' : SetLength(FpollingLocations,ALength);
+  'state' : SetLength(Fstate,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2446,7 +2703,7 @@ end;
 Class Function TCivicinfoAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TCivicinfoAPI.APIbasePath : string;
@@ -2458,7 +2715,7 @@ end;
 Class Function TCivicinfoAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/civicinfo/v2/';
+  Result:='https://www.googleapis.com:443/civicinfo/v2/';
 end;
 
 Class Function TCivicinfoAPI.APIProtocol : string;
@@ -2539,7 +2796,7 @@ Function TCivicinfoAPI.CreateDivisionsResource(AOwner : TComponent) : TDivisions
 
 begin
   Result:=TDivisionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2563,7 +2820,7 @@ Function TCivicinfoAPI.CreateElectionsResource(AOwner : TComponent) : TElections
 
 begin
   Result:=TElectionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2587,7 +2844,7 @@ Function TCivicinfoAPI.CreateRepresentativesResource(AOwner : TComponent) : TRep
 
 begin
   Result:=TRepresentativesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecloudlatencytest.pp

@@ -13,7 +13,7 @@ unit googlecloudlatencytest;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:50
+//Generated on: 16-5-15 08:53:00
 {$MODE objfpc}
 {$H+}
 
@@ -24,13 +24,13 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAggregatedStats = class;
-  TAggregatedStatsReply = class;
-  TDoubleValue = class;
-  TIntValue = class;
-  TStats = class;
-  TStatsReply = class;
-  TStringValue = class;
+  TAggregatedStats = Class;
+  TAggregatedStatsReply = Class;
+  TDoubleValue = Class;
+  TIntValue = Class;
+  TStats = Class;
+  TStatsReply = Class;
+  TStringValue = Class;
   TAggregatedStatsArray = Array of TAggregatedStats;
   TAggregatedStatsReplyArray = Array of TAggregatedStatsReply;
   TDoubleValueArray = Array of TDoubleValue;
@@ -54,6 +54,10 @@ type
   Protected
     //Property setters
     Procedure Setstats(AIndex : Integer; AValue : TAggregatedStatsTypestatsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property stats : TAggregatedStatsTypestatsArray Index 0 Read Fstats Write Setstats;
@@ -132,6 +136,10 @@ type
     Procedure SetintValues(AIndex : Integer; AValue : TStatsTypeintValuesArray); virtual;
     Procedure SetstringValues(AIndex : Integer; AValue : TStatsTypestringValuesArray); virtual;
     Procedure Settime(AIndex : Integer; 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 doubleValues : TStatsTypedoubleValuesArray Index 0 Read FdoubleValues Write SetdoubleValues;
@@ -244,6 +252,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAggregatedStats.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'stats' : SetLength(Fstats,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -384,6 +405,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStats.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'doublevalues' : SetLength(FdoubleValues,ALength);
+  'intvalues' : SetLength(FintValues,ALength);
+  'stringvalues' : SetLength(FstringValues,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -502,7 +538,7 @@ end;
 Class Function TCloudlatencytestAPI.APIRevision : String;
 
 begin
-  Result:='20150206';
+  Result:='20150508';
 end;
 
 Class Function TCloudlatencytestAPI.APIID : String;
@@ -636,7 +672,7 @@ Function TCloudlatencytestAPI.CreateStatscollectionResource(AOwner : TComponent)
 
 begin
   Result:=TStatscollectionResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecloudmonitoring.pp

@@ -13,7 +13,7 @@ unit googlecloudmonitoring;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:50
+//Generated on: 16-5-15 08:53:00
 {$MODE objfpc}
 {$H+}
 
@@ -24,27 +24,27 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TDeleteMetricDescriptorResponse = class;
-  TListMetricDescriptorsRequest = class;
-  TListMetricDescriptorsResponse = class;
-  TListTimeseriesDescriptorsRequest = class;
-  TListTimeseriesDescriptorsResponse = class;
-  TListTimeseriesRequest = class;
-  TListTimeseriesResponse = class;
-  TMetricDescriptor = class;
-  TMetricDescriptorLabelDescriptor = class;
-  TMetricDescriptorTypeDescriptor = class;
-  TPoint = class;
-  TPointDistribution = class;
-  TPointDistributionBucket = class;
-  TPointDistributionOverflowBucket = class;
-  TPointDistributionUnderflowBucket = class;
-  TTimeseries = class;
-  TTimeseriesDescriptor = class;
-  TTimeseriesDescriptorLabel = class;
-  TTimeseriesPoint = class;
-  TWriteTimeseriesRequest = class;
-  TWriteTimeseriesResponse = class;
+  TDeleteMetricDescriptorResponse = Class;
+  TListMetricDescriptorsRequest = Class;
+  TListMetricDescriptorsResponse = Class;
+  TListTimeseriesDescriptorsRequest = Class;
+  TListTimeseriesDescriptorsResponse = Class;
+  TListTimeseriesRequest = Class;
+  TListTimeseriesResponse = Class;
+  TMetricDescriptor = Class;
+  TMetricDescriptorLabelDescriptor = Class;
+  TMetricDescriptorTypeDescriptor = Class;
+  TPoint = Class;
+  TPointDistribution = Class;
+  TPointDistributionBucket = Class;
+  TPointDistributionOverflowBucket = Class;
+  TPointDistributionUnderflowBucket = Class;
+  TTimeseries = Class;
+  TTimeseriesDescriptor = Class;
+  TTimeseriesDescriptorLabel = Class;
+  TTimeseriesPoint = Class;
+  TWriteTimeseriesRequest = Class;
+  TWriteTimeseriesResponse = Class;
   TDeleteMetricDescriptorResponseArray = Array of TDeleteMetricDescriptorResponse;
   TListMetricDescriptorsRequestArray = Array of TListMetricDescriptorsRequest;
   TListMetricDescriptorsResponseArray = Array of TListMetricDescriptorsResponse;
@@ -67,8 +67,8 @@ type
   TWriteTimeseriesRequestArray = Array of TWriteTimeseriesRequest;
   TWriteTimeseriesResponseArray = Array of TWriteTimeseriesResponse;
   //Anonymous types, using auto-generated names
-  TTimeseriesDescriptorTypelabels = class;
-  TWriteTimeseriesRequestTypecommonLabels = class;
+  TTimeseriesDescriptorTypelabels = Class;
+  TWriteTimeseriesRequestTypecommonLabels = Class;
   TListMetricDescriptorsResponseTypemetricsArray = Array of TMetricDescriptor;
   TListTimeseriesDescriptorsResponseTypetimeseriesArray = Array of TTimeseriesDescriptor;
   TListTimeseriesResponseTypetimeseriesArray = Array of TTimeseries;
@@ -123,6 +123,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setmetrics(AIndex : Integer; AValue : TListMetricDescriptorsResponseTypemetricsArray); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -165,6 +169,10 @@ type
     Procedure Setoldest(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Settimeseries(AIndex : Integer; AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray); virtual;
     Procedure Setyoungest(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 kind : String Index 0 Read Fkind Write Setkind;
@@ -209,6 +217,10 @@ type
     Procedure Setoldest(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Settimeseries(AIndex : Integer; AValue : TListTimeseriesResponseTypetimeseriesArray); virtual;
     Procedure Setyoungest(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 kind : String Index 0 Read Fkind Write Setkind;
@@ -237,6 +249,10 @@ type
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Setproject(AIndex : Integer; AValue : String); virtual;
     Procedure SettypeDescriptor(AIndex : Integer; AValue : TMetricDescriptorTypeDescriptor); 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;
@@ -334,6 +350,10 @@ type
     Procedure Setbuckets(AIndex : Integer; AValue : TPointDistributionTypebucketsArray); virtual;
     Procedure SetoverflowBucket(AIndex : Integer; AValue : TPointDistributionOverflowBucket); virtual;
     Procedure SetunderflowBucket(AIndex : Integer; AValue : TPointDistributionUnderflowBucket); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property buckets : TPointDistributionTypebucketsArray Index 0 Read Fbuckets Write Setbuckets;
@@ -414,6 +434,10 @@ type
     //Property setters
     Procedure Setpoints(AIndex : Integer; AValue : TTimeseriesTypepointsArray); virtual;
     Procedure SettimeseriesDesc(AIndex : Integer; AValue : TTimeseriesDescriptor); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property points : TTimeseriesTypepointsArray Index 0 Read Fpoints Write Setpoints;
@@ -521,6 +545,10 @@ type
     //Property setters
     Procedure SetcommonLabels(AIndex : Integer; AValue : TWriteTimeseriesRequestTypecommonLabels); virtual;
     Procedure Settimeseries(AIndex : Integer; AValue : TWriteTimeseriesRequestTypetimeseriesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property commonLabels : TWriteTimeseriesRequestTypecommonLabels Index 0 Read FcommonLabels Write SetcommonLabels;
@@ -741,6 +769,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListMetricDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'metrics' : SetLength(Fmetrics,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -815,6 +856,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListTimeseriesDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'timeseries' : SetLength(Ftimeseries,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -889,6 +943,19 @@ begin
 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}
+
 
 
 
@@ -946,6 +1013,19 @@ begin
 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}
+
 
 
 
@@ -1125,6 +1205,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPointDistribution.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'buckets' : SetLength(Fbuckets,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1243,6 +1336,19 @@ begin
 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}
+
 
 
 
@@ -1387,6 +1493,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWriteTimeseriesRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'timeseries' : SetLength(Ftimeseries,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1625,7 +1744,7 @@ end;
 Class Function TCloudmonitoringAPI.APIRevision : String;
 
 begin
-  Result:='20150311';
+  Result:='20150210';
 end;
 
 Class Function TCloudmonitoringAPI.APIID : String;
@@ -1679,7 +1798,7 @@ end;
 Class Function TCloudmonitoringAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TCloudmonitoringAPI.APIbasePath : string;
@@ -1691,7 +1810,7 @@ end;
 Class Function TCloudmonitoringAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/cloudmonitoring/v2beta2/projects/';
+  Result:='https://www.googleapis.com:443/cloudmonitoring/v2beta2/projects/';
 end;
 
 Class Function TCloudmonitoringAPI.APIProtocol : string;
@@ -1775,7 +1894,7 @@ Function TCloudmonitoringAPI.CreateMetricDescriptorsResource(AOwner : TComponent
 
 begin
   Result:=TMetricDescriptorsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1799,7 +1918,7 @@ Function TCloudmonitoringAPI.CreateTimeseriesResource(AOwner : TComponent) : TTi
 
 begin
   Result:=TTimeseriesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1823,7 +1942,7 @@ Function TCloudmonitoringAPI.CreateTimeseriesDescriptorsResource(AOwner : TCompo
 
 begin
   Result:=TTimeseriesDescriptorsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecomputeaccounts.pp

@@ -13,7 +13,7 @@ unit googlecomputeaccounts;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:50
+//Generated on: 16-5-15 08:53:00
 {$MODE objfpc}
 {$H+}
 
@@ -24,21 +24,21 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAuthorizedKeysView = class;
-  TGroup = class;
-  TGroupList = class;
-  TGroupsAddMemberRequest = class;
-  TGroupsRemoveMemberRequest = class;
-  TLinuxAccountViews = class;
-  TLinuxGetAuthorizedKeysViewResponse = class;
-  TLinuxGetLinuxAccountViewsResponse = class;
-  TLinuxGroupView = class;
-  TLinuxUserView = class;
-  TOperation = class;
-  TOperationList = class;
-  TPublicKey = class;
-  TUser = class;
-  TUserList = class;
+  TAuthorizedKeysView = Class;
+  TGroup = Class;
+  TGroupList = Class;
+  TGroupsAddMemberRequest = Class;
+  TGroupsRemoveMemberRequest = Class;
+  TLinuxAccountViews = Class;
+  TLinuxGetAuthorizedKeysViewResponse = Class;
+  TLinuxGetLinuxAccountViewsResponse = Class;
+  TLinuxGroupView = Class;
+  TLinuxUserView = Class;
+  TOperation = Class;
+  TOperationList = Class;
+  TPublicKey = Class;
+  TUser = Class;
+  TUserList = Class;
   TAuthorizedKeysViewArray = Array of TAuthorizedKeysView;
   TGroupArray = Array of TGroup;
   TGroupListArray = Array of TGroupList;
@@ -55,10 +55,10 @@ type
   TUserArray = Array of TUser;
   TUserListArray = Array of TUserList;
   //Anonymous types, using auto-generated names
-  TOperationTypeerrorTypeerrorsItem = class;
-  TOperationTypeerror = class;
-  TOperationTypewarningsItemTypedataItem = class;
-  TOperationTypewarningsItem = class;
+  TOperationTypeerrorTypeerrorsItem = Class;
+  TOperationTypeerror = Class;
+  TOperationTypewarningsItemTypedataItem = Class;
+  TOperationTypewarningsItem = Class;
   TGroupListTypeitemsArray = Array of TGroup;
   TLinuxAccountViewsTypegroupViewsArray = Array of TLinuxGroupView;
   TLinuxAccountViewsTypeuserViewsArray = Array of TLinuxUserView;
@@ -79,6 +79,10 @@ type
   Protected
     //Property setters
     Procedure Setkeys(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 keys : TStringArray Index 0 Read Fkeys Write Setkeys;
@@ -107,6 +111,10 @@ type
     Procedure Setmembers(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -137,6 +145,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -157,6 +169,10 @@ type
   Protected
     //Property setters
     Procedure Setusers(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 users : TStringArray Index 0 Read Fusers Write Setusers;
@@ -173,6 +189,10 @@ type
   Protected
     //Property setters
     Procedure Setusers(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 users : TStringArray Index 0 Read Fusers Write Setusers;
@@ -193,6 +213,10 @@ type
     Procedure SetgroupViews(AIndex : Integer; AValue : TLinuxAccountViewsTypegroupViewsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetuserViews(AIndex : Integer; 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;
@@ -247,6 +271,10 @@ type
     Procedure Setgid(AIndex : Integer; AValue : integer); virtual;
     Procedure SetgroupName(AIndex : Integer; AValue : String); virtual;
     Procedure Setmembers(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 gid : integer Index 0 Read Fgid Write Setgid;
@@ -318,6 +346,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; 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;
@@ -357,6 +389,10 @@ type
     Procedure Setcode(AIndex : Integer; AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
     Procedure Setmessage(AIndex : Integer; 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;
@@ -417,6 +453,10 @@ type
     Procedure Setuser(AIndex : Integer; AValue : String); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
     Procedure Setzone(AIndex : Integer; 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;
@@ -462,6 +502,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -526,6 +570,10 @@ type
     Procedure Setowner(AIndex : Integer; AValue : String); virtual;
     Procedure SetpublicKeys(AIndex : Integer; AValue : TUserTypepublicKeysArray); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -558,6 +606,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -756,6 +808,19 @@ begin
 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}
+
 
 
 
@@ -833,6 +898,19 @@ begin
 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}
+
 
 
 
@@ -890,6 +968,19 @@ begin
 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}
+
 
 
 
@@ -907,6 +998,19 @@ begin
 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}
+
 
 
 
@@ -924,6 +1028,19 @@ begin
 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}
+
 
 
 
@@ -961,6 +1078,20 @@ begin
 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}
+
 
 
 
@@ -1032,6 +1163,19 @@ begin
 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}
+
 
 
 
@@ -1153,6 +1297,19 @@ begin
 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}
+
 
 
 
@@ -1217,6 +1374,19 @@ begin
 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}
+
 
 
 
@@ -1444,6 +1614,19 @@ begin
 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}
+
 
 
 
@@ -1501,6 +1684,19 @@ begin
 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}
+
 
 
 
@@ -1655,6 +1851,20 @@ begin
 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}
+
 
 
 
@@ -1712,6 +1922,19 @@ begin
 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}
+
 
 
 
@@ -2201,7 +2424,7 @@ end;
 Class Function TComputeaccountsAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TComputeaccountsAPI.APIbasePath : string;
@@ -2213,7 +2436,7 @@ end;
 Class Function TComputeaccountsAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/computeaccounts/alpha/projects/';
+  Result:='https://www.googleapis.com:443/computeaccounts/alpha/projects/';
 end;
 
 Class Function TComputeaccountsAPI.APIProtocol : string;
@@ -2297,7 +2520,7 @@ Function TComputeaccountsAPI.CreateGlobalAccountsOperationsResource(AOwner : TCo
 
 begin
   Result:=TGlobalAccountsOperationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2321,7 +2544,7 @@ Function TComputeaccountsAPI.CreateGroupsResource(AOwner : TComponent) : TGroups
 
 begin
   Result:=TGroupsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2345,7 +2568,7 @@ Function TComputeaccountsAPI.CreateLinuxResource(AOwner : TComponent) : TLinuxRe
 
 begin
   Result:=TLinuxResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2369,7 +2592,7 @@ Function TComputeaccountsAPI.CreateUsersResource(AOwner : TComponent) : TUsersRe
 
 begin
   Result:=TUsersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecontainer.pp

@@ -13,7 +13,7 @@ unit googlecontainer;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:51
+//Generated on: 16-5-15 08:53:01
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,16 @@ 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;
-  TNodeConfig = class;
-  TOperation = class;
-  TServiceAccount = class;
-  TToken = class;
+  TCluster = Class;
+  TCreateClusterRequest = Class;
+  TListAggregatedClustersResponse = Class;
+  TListAggregatedOperationsResponse = Class;
+  TListClustersResponse = Class;
+  TListOperationsResponse = Class;
+  TMasterAuth = Class;
+  TNodeConfig = Class;
+  TOperation = Class;
+  TServiceAccount = Class;
   TClusterArray = Array of TCluster;
   TCreateClusterRequestArray = Array of TCreateClusterRequest;
   TListAggregatedClustersResponseArray = Array of TListAggregatedClustersResponse;
@@ -45,7 +44,6 @@ type
   TNodeConfigArray = Array of TNodeConfig;
   TOperationArray = Array of TOperation;
   TServiceAccountArray = Array of TServiceAccount;
-  TTokenArray = Array of TToken;
   //Anonymous types, using auto-generated names
   TListAggregatedClustersResponseTypeclustersArray = Array of TCluster;
   TListAggregatedOperationsResponseTypeoperationsArray = Array of TOperation;
@@ -143,6 +141,10 @@ type
   Protected
     //Property setters
     Procedure Setclusters(AIndex : Integer; AValue : TListAggregatedClustersResponseTypeclustersArray); 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;
@@ -159,6 +161,10 @@ type
   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}
   Public
   Published
     Property operations : TListAggregatedOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
@@ -175,6 +181,10 @@ type
   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}
   Public
   Published
     Property clusters : TListClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
@@ -191,6 +201,10 @@ type
   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}
   Public
   Published
     Property operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
@@ -233,6 +247,10 @@ type
     Procedure SetmachineType(AIndex : Integer; AValue : String); virtual;
     Procedure SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigTypeserviceAccountsArray); virtual;
     Procedure SetsourceImage(AIndex : Integer; 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;
@@ -290,6 +308,10 @@ type
     //Property setters
     Procedure Setemail(AIndex : Integer; AValue : String); virtual;
     Procedure Setscopes(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 email : String Index 0 Read Femail Write Setemail;
@@ -298,32 +320,113 @@ type
   TServiceAccountClass = Class of TServiceAccount;
   
   { --------------------------------------------------------------------
-    TToken
+    TProjectsClustersResource
     --------------------------------------------------------------------}
   
-  TToken = Class(TGoogleBaseObject)
+  TProjectsClustersResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function List(projectId: string) : TListAggregatedClustersResponse;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TProjectsOperationsResource
+    --------------------------------------------------------------------}
+  
+  TProjectsOperationsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function List(projectId: string) : TListAggregatedOperationsResponse;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TProjectsZonesClustersResource
+    --------------------------------------------------------------------}
+  
+  TProjectsZonesClustersResource = Class(TGoogleResource)
+  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;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TProjectsZonesOperationsResource
+    --------------------------------------------------------------------}
+  
+  TProjectsZonesOperationsResource = Class(TGoogleResource)
+  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;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TProjectsZonesResource
+    --------------------------------------------------------------------}
+  
+  TProjectsZonesResource = Class(TGoogleResource)
   Private
-    FaccessToken : String;
-    FexpiryTimeSeconds : String;
-  Protected
-    //Property setters
-    Procedure SetaccessToken(AIndex : Integer; AValue : String); virtual;
-    Procedure SetexpiryTimeSeconds(AIndex : Integer; AValue : String); virtual;
+    FClustersInstance : TProjectsZonesClustersResource;
+    FOperationsInstance : TProjectsZonesOperationsResource;
+    Function GetClustersInstance : TProjectsZonesClustersResource;virtual;
+    Function GetOperationsInstance : TProjectsZonesOperationsResource;virtual;
   Public
-  Published
-    Property accessToken : String Index 0 Read FaccessToken Write SetaccessToken;
-    Property expiryTimeSeconds : String Index 8 Read FexpiryTimeSeconds Write SetexpiryTimeSeconds;
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    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 ClustersResource : TProjectsZonesClustersResource Read GetClustersInstance;
+    Property OperationsResource : TProjectsZonesOperationsResource Read GetOperationsInstance;
   end;
-  TTokenClass = Class of TToken;
+  
   
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
   
   TProjectsResource = Class(TGoogleResource)
+  Private
+    FClustersInstance : TProjectsClustersResource;
+    FOperationsInstance : TProjectsOperationsResource;
+    FZonesClustersInstance : TProjectsZonesClustersResource;
+    FZonesOperationsInstance : TProjectsZonesOperationsResource;
+    FZonesInstance : TProjectsZonesResource;
+    Function GetClustersInstance : TProjectsClustersResource;virtual;
+    Function GetOperationsInstance : TProjectsOperationsResource;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 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 ZonesClustersResource : TProjectsZonesClustersResource Read GetZonesClustersInstance;
+    Property ZonesOperationsResource : TProjectsZonesOperationsResource Read GetZonesOperationsInstance;
+    Property ZonesResource : TProjectsZonesResource Read GetZonesInstance;
   end;
   
   
@@ -333,7 +436,17 @@ type
   
   TContainerAPI = Class(TGoogleAPI)
   Private
+    FProjectsClustersInstance : TProjectsClustersResource;
+    FProjectsOperationsInstance : TProjectsOperationsResource;
+    FProjectsZonesClustersInstance : TProjectsZonesClustersResource;
+    FProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;
+    FProjectsZonesInstance : TProjectsZonesResource;
     FProjectsInstance : TProjectsResource;
+    Function GetProjectsClustersInstance : TProjectsClustersResource;virtual;
+    Function GetProjectsOperationsInstance : TProjectsOperationsResource;virtual;
+    Function GetProjectsZonesClustersInstance : TProjectsZonesClustersResource;virtual;
+    Function GetProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;virtual;
+    Function GetProjectsZonesInstance : TProjectsZonesResource;virtual;
     Function GetProjectsInstance : TProjectsResource;virtual;
   Public
     //Override class functions with API info
@@ -358,9 +471,24 @@ 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 CreateProjectsZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;virtual;overload;
+    Function CreateProjectsZonesClustersResource : TProjectsZonesClustersResource;virtual;overload;
+    Function CreateProjectsZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;virtual;overload;
+    Function CreateProjectsZonesOperationsResource : TProjectsZonesOperationsResource;virtual;overload;
+    Function CreateProjectsZonesResource(AOwner : TComponent) : TProjectsZonesResource;virtual;overload;
+    Function CreateProjectsZonesResource : TProjectsZonesResource;virtual;overload;
     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 ProjectsZonesClustersResource : TProjectsZonesClustersResource Read GetProjectsZonesClustersInstance;
+    Property ProjectsZonesOperationsResource : TProjectsZonesOperationsResource Read GetProjectsZonesOperationsInstance;
+    Property ProjectsZonesResource : TProjectsZonesResource Read GetProjectsZonesInstance;
     Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
   end;
 
@@ -575,6 +703,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListAggregatedClustersResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'clusters' : SetLength(Fclusters,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -592,6 +733,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListAggregatedOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'operations' : SetLength(Foperations,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -609,6 +763,19 @@ begin
 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}
+
 
 
 
@@ -626,6 +793,19 @@ begin
 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}
+
 
 
 
@@ -700,6 +880,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TNodeConfig.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'serviceaccounts' : SetLength(FserviceAccounts,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -814,34 +1007,283 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TServiceAccount.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'scopes' : SetLength(Fscopes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
 { --------------------------------------------------------------------
-  TToken
+  TProjectsClustersResource
   --------------------------------------------------------------------}
 
 
-Procedure TToken.SetaccessToken(AIndex : Integer; AValue : String); 
+Class Function TProjectsClustersResource.ResourceName : String;
 
 begin
-  If (FaccessToken=AValue) then exit;
-  FaccessToken:=AValue;
-  MarkPropertyChanged(AIndex);
+  Result:='clusters';
+end;
+
+Class Function TProjectsClustersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TcontainerAPI;
 end;
 
+Function TProjectsClustersResource.List(projectId: string) : TListAggregatedClustersResponse;
 
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{projectId}/clusters';
+  _Methodid   = 'container.projects.clusters.list';
 
-Procedure TToken.SetexpiryTimeSeconds(AIndex : Integer; AValue : String); 
+Var
+  _P : String;
 
 begin
-  If (FexpiryTimeSeconds=AValue) then exit;
-  FexpiryTimeSeconds:=AValue;
-  MarkPropertyChanged(AIndex);
+  _P:=SubstitutePath(_Path,['projectId',projectId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListAggregatedClustersResponse) as TListAggregatedClustersResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TProjectsOperationsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TProjectsOperationsResource.ResourceName : String;
+
+begin
+  Result:='operations';
+end;
+
+Class Function TProjectsOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TcontainerAPI;
+end;
+
+Function TProjectsOperationsResource.List(projectId: string) : TListAggregatedOperationsResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{projectId}/operations';
+  _Methodid   = 'container.projects.operations.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['projectId',projectId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListAggregatedOperationsResponse) as TListAggregatedOperationsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TProjectsZonesClustersResource
+  --------------------------------------------------------------------}
+
+
+Class Function TProjectsZonesClustersResource.ResourceName : String;
+
+begin
+  Result:='clusters';
+end;
+
+Class Function TProjectsZonesClustersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TcontainerAPI;
+end;
+
+Function TProjectsZonesClustersResource.Create(projectId: string; zoneId: string; aCreateClusterRequest : TCreateClusterRequest) : TOperation;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = '{projectId}/zones/{zoneId}/clusters';
+  _Methodid   = 'container.projects.zones.clusters.create';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['projectId',projectId,'zoneId',zoneId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aCreateClusterRequest,TOperation) as TOperation;
+end;
+
+Function TProjectsZonesClustersResource.Delete(clusterId: string; projectId: string; zoneId: string) : TOperation;
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = '{projectId}/zones/{zoneId}/clusters/{clusterId}';
+  _Methodid   = 'container.projects.zones.clusters.delete';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['clusterId',clusterId,'projectId',projectId,'zoneId',zoneId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TProjectsZonesClustersResource.Get(clusterId: string; projectId: string; zoneId: string) : TCluster;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{projectId}/zones/{zoneId}/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,TCluster) as TCluster;
+end;
+
+Function TProjectsZonesClustersResource.List(projectId: string; zoneId: string) : TListClustersResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{projectId}/zones/{zoneId}/clusters';
+  _Methodid   = 'container.projects.zones.clusters.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['projectId',projectId,'zoneId',zoneId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListClustersResponse) as TListClustersResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TProjectsZonesOperationsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TProjectsZonesOperationsResource.ResourceName : String;
+
+begin
+  Result:='operations';
+end;
+
+Class Function TProjectsZonesOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TcontainerAPI;
+end;
+
+Function TProjectsZonesOperationsResource.Get(operationId: string; projectId: string; zoneId: string) : TOperation;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{projectId}/zones/{zoneId}/operations/{operationId}';
+  _Methodid   = 'container.projects.zones.operations.get';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['operationId',operationId,'projectId',projectId,'zoneId',zoneId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TProjectsZonesOperationsResource.List(projectId: string; zoneId: string) : TListOperationsResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{projectId}/zones/{zoneId}/operations';
+  _Methodid   = 'container.projects.zones.operations.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['projectId',projectId,'zoneId',zoneId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListOperationsResponse) as TListOperationsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TProjectsZonesResource
+  --------------------------------------------------------------------}
+
+
+Class Function TProjectsZonesResource.ResourceName : String;
+
+begin
+  Result:='zones';
+end;
+
+Class Function TProjectsZonesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TcontainerAPI;
+end;
+
+
+
+Function TProjectsZonesResource.GetClustersInstance : TProjectsZonesClustersResource;
+
+begin
+  if (FClustersInstance=Nil) then
+    FClustersInstance:=CreateClustersResource;
+  Result:=FClustersInstance;
 end;
 
+Function TProjectsZonesResource.CreateClustersResource : TProjectsZonesClustersResource;
+
+begin
+  Result:=CreateClustersResource(Self);
+end;
 
 
+Function TProjectsZonesResource.CreateClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;
+
+begin
+  Result:=TProjectsZonesClustersResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsZonesResource.GetOperationsInstance : TProjectsZonesOperationsResource;
+
+begin
+  if (FOperationsInstance=Nil) then
+    FOperationsInstance:=CreateOperationsResource;
+  Result:=FOperationsInstance;
+end;
+
+Function TProjectsZonesResource.CreateOperationsResource : TProjectsZonesOperationsResource;
+
+begin
+  Result:=CreateOperationsResource(Self);
+end;
+
+
+Function TProjectsZonesResource.CreateOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;
+
+begin
+  Result:=TProjectsZonesOperationsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
 
 
 { --------------------------------------------------------------------
@@ -863,6 +1305,126 @@ end;
 
 
 
+Function TProjectsResource.GetClustersInstance : TProjectsClustersResource;
+
+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;
+end;
+
+Function TProjectsResource.CreateOperationsResource : TProjectsOperationsResource;
+
+begin
+  Result:=CreateOperationsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateOperationsResource(AOwner : TComponent) : TProjectsOperationsResource;
+
+begin
+  Result:=TProjectsOperationsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetZonesClustersInstance : TProjectsZonesClustersResource;
+
+begin
+  if (FZonesClustersInstance=Nil) then
+    FZonesClustersInstance:=CreateZonesClustersResource;
+  Result:=FZonesClustersInstance;
+end;
+
+Function TProjectsResource.CreateZonesClustersResource : TProjectsZonesClustersResource;
+
+begin
+  Result:=CreateZonesClustersResource(Self);
+end;
+
+
+Function TProjectsResource.CreateZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;
+
+begin
+  Result:=TProjectsZonesClustersResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetZonesOperationsInstance : TProjectsZonesOperationsResource;
+
+begin
+  if (FZonesOperationsInstance=Nil) then
+    FZonesOperationsInstance:=CreateZonesOperationsResource;
+  Result:=FZonesOperationsInstance;
+end;
+
+Function TProjectsResource.CreateZonesOperationsResource : TProjectsZonesOperationsResource;
+
+begin
+  Result:=CreateZonesOperationsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;
+
+begin
+  Result:=TProjectsZonesOperationsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetZonesInstance : TProjectsZonesResource;
+
+begin
+  if (FZonesInstance=Nil) then
+    FZonesInstance:=CreateZonesResource;
+  Result:=FZonesInstance;
+end;
+
+Function TProjectsResource.CreateZonesResource : TProjectsZonesResource;
+
+begin
+  Result:=CreateZonesResource(Self);
+end;
+
+
+Function TProjectsResource.CreateZonesResource(AOwner : TComponent) : TProjectsZonesResource;
+
+begin
+  Result:=TProjectsZonesResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TContainerAPI
   --------------------------------------------------------------------}
@@ -882,7 +1444,7 @@ end;
 Class Function TContainerAPI.APIRevision : String;
 
 begin
-  Result:='20150420';
+  Result:='20150504';
 end;
 
 Class Function TContainerAPI.APIID : String;
@@ -936,7 +1498,7 @@ end;
 Class Function TContainerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TContainerAPI.APIbasePath : string;
@@ -948,7 +1510,7 @@ end;
 Class Function TContainerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/container/v1beta1/projects/';
+  Result:='https://www.googleapis.com:443/container/v1beta1/projects/';
 end;
 
 Class Function TContainerAPI.APIProtocol : string;
@@ -997,10 +1559,129 @@ begin
   TNodeConfig.RegisterObject;
   TOperation.RegisterObject;
   TServiceAccount.RegisterObject;
-  TToken.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;
+end;
+
+
+
+Function TContainerAPI.GetProjectsOperationsInstance : TProjectsOperationsResource;
+
+begin
+  if (FProjectsOperationsInstance=Nil) then
+    FProjectsOperationsInstance:=CreateProjectsOperationsResource;
+  Result:=FProjectsOperationsInstance;
+end;
+
+Function TContainerAPI.CreateProjectsOperationsResource : TProjectsOperationsResource;
+
+begin
+  Result:=CreateProjectsOperationsResource(Self);
+end;
+
+
+Function TContainerAPI.CreateProjectsOperationsResource(AOwner : TComponent) : TProjectsOperationsResource;
+
+begin
+  Result:=TProjectsOperationsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TContainerAPI.GetProjectsZonesClustersInstance : TProjectsZonesClustersResource;
+
+begin
+  if (FProjectsZonesClustersInstance=Nil) then
+    FProjectsZonesClustersInstance:=CreateProjectsZonesClustersResource;
+  Result:=FProjectsZonesClustersInstance;
+end;
+
+Function TContainerAPI.CreateProjectsZonesClustersResource : TProjectsZonesClustersResource;
+
+begin
+  Result:=CreateProjectsZonesClustersResource(Self);
+end;
+
+
+Function TContainerAPI.CreateProjectsZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;
+
+begin
+  Result:=TProjectsZonesClustersResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TContainerAPI.GetProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;
+
+begin
+  if (FProjectsZonesOperationsInstance=Nil) then
+    FProjectsZonesOperationsInstance:=CreateProjectsZonesOperationsResource;
+  Result:=FProjectsZonesOperationsInstance;
+end;
+
+Function TContainerAPI.CreateProjectsZonesOperationsResource : TProjectsZonesOperationsResource;
+
+begin
+  Result:=CreateProjectsZonesOperationsResource(Self);
+end;
+
+
+Function TContainerAPI.CreateProjectsZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;
+
+begin
+  Result:=TProjectsZonesOperationsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TContainerAPI.GetProjectsZonesInstance : TProjectsZonesResource;
+
+begin
+  if (FProjectsZonesInstance=Nil) then
+    FProjectsZonesInstance:=CreateProjectsZonesResource;
+  Result:=FProjectsZonesInstance;
+end;
+
+Function TContainerAPI.CreateProjectsZonesResource : TProjectsZonesResource;
+
+begin
+  Result:=CreateProjectsZonesResource(Self);
+end;
+
+
+Function TContainerAPI.CreateProjectsZonesResource(AOwner : TComponent) : TProjectsZonesResource;
+
+begin
+  Result:=TProjectsZonesResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 Function TContainerAPI.GetProjectsInstance : TProjectsResource;
 
 begin
@@ -1020,7 +1701,7 @@ Function TContainerAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsRe
 
 begin
   Result:=TProjectsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecoordinate.pp

@@ -13,7 +13,7 @@ unit googlecoordinate;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:51
+//Generated on: 16-5-15 08:53:01
 {$MODE objfpc}
 {$H+}
 
@@ -24,24 +24,24 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TCustomField = class;
-  TCustomFieldDef = class;
-  TCustomFieldDefListResponse = class;
-  TCustomFields = class;
-  TEnumItemDef = class;
-  TJob = class;
-  TJobChange = class;
-  TJobListResponse = class;
-  TJobState = class;
-  TLocation = class;
-  TLocationListResponse = class;
-  TLocationRecord = class;
-  TSchedule = class;
-  TTeam = class;
-  TTeamListResponse = class;
-  TTokenPagination = class;
-  TWorker = class;
-  TWorkerListResponse = class;
+  TCustomField = Class;
+  TCustomFieldDef = Class;
+  TCustomFieldDefListResponse = Class;
+  TCustomFields = Class;
+  TEnumItemDef = Class;
+  TJob = Class;
+  TJobChange = Class;
+  TJobListResponse = Class;
+  TJobState = Class;
+  TLocation = Class;
+  TLocationListResponse = Class;
+  TLocationRecord = Class;
+  TSchedule = Class;
+  TTeam = Class;
+  TTeamListResponse = Class;
+  TTokenPagination = Class;
+  TWorker = Class;
+  TWorkerListResponse = Class;
   TCustomFieldArray = Array of TCustomField;
   TCustomFieldDefArray = Array of TCustomFieldDef;
   TCustomFieldDefListResponseArray = Array of TCustomFieldDefListResponse;
@@ -115,6 +115,10 @@ type
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetrequiredForCheckout(AIndex : Integer; AValue : boolean); virtual;
     Procedure Set_type(AIndex : Integer; 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 enabled : boolean Index 0 Read Fenabled Write Setenabled;
@@ -139,6 +143,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TCustomFieldDefListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TCustomFieldDefListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -158,6 +166,10 @@ type
     //Property setters
     Procedure SetcustomField(AIndex : Integer; AValue : TCustomFieldsTypecustomFieldArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 customField : TCustomFieldsTypecustomFieldArray Index 0 Read FcustomField Write SetcustomField;
@@ -203,6 +215,10 @@ type
     Procedure SetjobChange(AIndex : Integer; AValue : TJobTypejobChangeArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TJobState); 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;
@@ -248,6 +264,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TJobListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TJobListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -282,6 +302,10 @@ type
     Procedure Setnote(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setprogress(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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 assignee : String Index 0 Read Fassignee Write Setassignee;
@@ -312,6 +336,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setlat(AIndex : Integer; AValue : double); virtual;
     Procedure Setlng(AIndex : Integer; 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 addressLine : TStringArray Index 0 Read FaddressLine Write SetaddressLine;
@@ -337,6 +365,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SettokenPagination(AIndex : Integer; 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 items : TLocationListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -436,6 +468,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTeamListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TTeamListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -496,6 +532,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TWorkerListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TWorkerListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -870,6 +910,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCustomFieldDef.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'enumitems' : SetLength(Fenumitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -897,6 +950,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCustomFieldDefListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -924,6 +990,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCustomFields.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'customfield' : SetLength(FcustomField,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1008,6 +1087,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJob.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'jobchange' : SetLength(FjobChange,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1082,6 +1174,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1179,6 +1284,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobState.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'note' : SetLength(Fnote,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1226,6 +1344,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLocation.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'addressline' : SetLength(FaddressLine,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1273,6 +1404,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLocationListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1451,6 +1595,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTeamListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1542,6 +1699,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWorkerListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2042,7 +2212,7 @@ end;
 Class Function TCoordinateAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TCoordinateAPI.APIbasePath : string;
@@ -2054,7 +2224,7 @@ end;
 Class Function TCoordinateAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/coordinate/v1/';
+  Result:='https://www.googleapis.com:443/coordinate/v1/';
 end;
 
 Class Function TCoordinateAPI.APIProtocol : string;
@@ -2135,7 +2305,7 @@ Function TCoordinateAPI.CreateCustomFieldDefResource(AOwner : TComponent) : TCus
 
 begin
   Result:=TCustomFieldDefResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2159,7 +2329,7 @@ Function TCoordinateAPI.CreateJobsResource(AOwner : TComponent) : TJobsResource;
 
 begin
   Result:=TJobsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2183,7 +2353,7 @@ Function TCoordinateAPI.CreateLocationResource(AOwner : TComponent) : TLocationR
 
 begin
   Result:=TLocationResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2207,7 +2377,7 @@ Function TCoordinateAPI.CreateScheduleResource(AOwner : TComponent) : TScheduleR
 
 begin
   Result:=TScheduleResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2231,7 +2401,7 @@ Function TCoordinateAPI.CreateTeamResource(AOwner : TComponent) : TTeamResource;
 
 begin
   Result:=TTeamResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2255,7 +2425,7 @@ Function TCoordinateAPI.CreateWorkerResource(AOwner : TComponent) : TWorkerResou
 
 begin
   Result:=TWorkerResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlecustomsearch.pp

@@ -13,7 +13,7 @@ unit googlecustomsearch;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:51
+//Generated on: 16-5-15 08:53:01
 {$MODE objfpc}
 {$H+}
 
@@ -24,27 +24,27 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TContext = class;
-  TPromotion = class;
-  TQuery = class;
-  TResult = class;
-  TSearch = class;
+  TContext = Class;
+  TPromotion = Class;
+  TQuery = Class;
+  TResult = Class;
+  TSearch = Class;
   TContextArray = Array of TContext;
   TPromotionArray = Array of TPromotion;
   TQueryArray = Array of TQuery;
   TResultArray = Array of TResult;
   TSearchArray = Array of TSearch;
   //Anonymous types, using auto-generated names
-  TContextTypefacetsItemItem = class;
-  TPromotionTypebodyLinesItem = class;
-  TPromotionTypeimage = class;
-  TResultTypeimage = class;
-  TResultTypelabelsItem = class;
-  TResultTypepagemap = class;
-  TSearchTypequeries = class;
-  TSearchTypesearchInformation = class;
-  TSearchTypespelling = class;
-  TSearchTypeurl = class;
+  TContextTypefacetsItemItem = Class;
+  TPromotionTypebodyLinesItem = Class;
+  TPromotionTypeimage = Class;
+  TResultTypeimage = Class;
+  TResultTypelabelsItem = Class;
+  TResultTypepagemap = Class;
+  TSearchTypequeries = Class;
+  TSearchTypesearchInformation = Class;
+  TSearchTypespelling = Class;
+  TSearchTypeurl = Class;
   TContextTypefacetsItemArray = Array of TContextTypefacetsItemItem;
   TContextTypefacetsArray = Array of TContextTypefacetsItemArray;
   TPromotionTypebodyLinesArray = Array of TPromotionTypebodyLinesItem;
@@ -87,6 +87,10 @@ type
     //Property setters
     Procedure Setfacets(AIndex : Integer; AValue : TContextTypefacetsArray); virtual;
     Procedure Settitle(AIndex : Integer; 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 facets : TContextTypefacetsArray Index 0 Read Ffacets Write Setfacets;
@@ -161,6 +165,10 @@ type
     Procedure Setimage(AIndex : Integer; AValue : TPromotionTypeimage); virtual;
     Procedure Setlink(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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 bodyLines : TPromotionTypebodyLinesArray Index 0 Read FbodyLines Write SetbodyLines;
@@ -404,6 +412,10 @@ type
     Procedure Setpagemap(AIndex : Integer; AValue : TResultTypepagemap); virtual;
     Procedure Setsnippet(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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 cacheId : String Index 0 Read FcacheId Write SetcacheId;
@@ -526,6 +538,10 @@ type
     Procedure SetsearchInformation(AIndex : Integer; AValue : TSearchTypesearchInformation); virtual;
     Procedure Setspelling(AIndex : Integer; AValue : TSearchTypespelling); virtual;
     Procedure Seturl(AIndex : Integer; AValue : TSearchTypeurl); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property context : TContext Index 0 Read Fcontext Write Setcontext;
@@ -702,6 +718,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TContext.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'facets' : SetLength(Ffacets,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -853,6 +882,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPromotion.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'bodylines' : SetLength(FbodyLines,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1514,6 +1556,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResult.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'labels' : SetLength(Flabels,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1726,6 +1781,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearch.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  'promotions' : SetLength(Fpromotions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1875,7 +1944,7 @@ end;
 Class Function TCustomsearchAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TCustomsearchAPI.APIbasePath : string;
@@ -1887,7 +1956,7 @@ end;
 Class Function TCustomsearchAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/customsearch/';
+  Result:='https://www.googleapis.com:443/customsearch/';
 end;
 
 Class Function TCustomsearchAPI.APIProtocol : string;
@@ -1961,7 +2030,7 @@ Function TCustomsearchAPI.CreateCseResource(AOwner : TComponent) : TCseResource;
 
 begin
   Result:=TCseResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googledatastore.pp

@@ -13,7 +13,7 @@ unit googledatastore;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:51
+//Generated on: 16-5-15 08:53:01
 {$MODE objfpc}
 {$H+}
 
@@ -24,40 +24,40 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAllocateIdsRequest = class;
-  TAllocateIdsResponse = class;
-  TBeginTransactionRequest = class;
-  TBeginTransactionResponse = class;
-  TCommitRequest = class;
-  TCommitResponse = class;
-  TCompositeFilter = class;
-  TEntity = class;
-  TEntityResult = class;
-  TFilter = class;
-  TGqlQuery = class;
-  TGqlQueryArg = class;
-  TKey = class;
-  TKeyPathElement = class;
-  TKindExpression = class;
-  TLookupRequest = class;
-  TLookupResponse = class;
-  TMutation = class;
-  TMutationResult = class;
-  TPartitionId = class;
-  TProperty = class;
-  TPropertyExpression = class;
-  TPropertyFilter = class;
-  TPropertyOrder = class;
-  TPropertyReference = class;
-  TQuery = class;
-  TQueryResultBatch = class;
-  TReadOptions = class;
-  TResponseHeader = class;
-  TRollbackRequest = class;
-  TRollbackResponse = class;
-  TRunQueryRequest = class;
-  TRunQueryResponse = class;
-  TValue = class;
+  TAllocateIdsRequest = Class;
+  TAllocateIdsResponse = Class;
+  TBeginTransactionRequest = Class;
+  TBeginTransactionResponse = Class;
+  TCommitRequest = Class;
+  TCommitResponse = Class;
+  TCompositeFilter = Class;
+  TEntity = Class;
+  TEntityResult = Class;
+  TFilter = Class;
+  TGqlQuery = Class;
+  TGqlQueryArg = Class;
+  TKey = Class;
+  TKeyPathElement = Class;
+  TKindExpression = Class;
+  TLookupRequest = Class;
+  TLookupResponse = Class;
+  TMutation = Class;
+  TMutationResult = Class;
+  TPartitionId = Class;
+  TProperty = Class;
+  TPropertyExpression = Class;
+  TPropertyFilter = Class;
+  TPropertyOrder = Class;
+  TPropertyReference = Class;
+  TQuery = Class;
+  TQueryResultBatch = Class;
+  TReadOptions = Class;
+  TResponseHeader = Class;
+  TRollbackRequest = Class;
+  TRollbackResponse = Class;
+  TRunQueryRequest = Class;
+  TRunQueryResponse = Class;
+  TValue = Class;
   TAllocateIdsRequestArray = Array of TAllocateIdsRequest;
   TAllocateIdsResponseArray = Array of TAllocateIdsResponse;
   TBeginTransactionRequestArray = Array of TBeginTransactionRequest;
@@ -93,7 +93,7 @@ type
   TRunQueryResponseArray = Array of TRunQueryResponse;
   TValueArray = Array of TValue;
   //Anonymous types, using auto-generated names
-  TEntityTypeproperties = class;
+  TEntityTypeproperties = Class;
   TAllocateIdsRequestTypekeysArray = Array of TKey;
   TAllocateIdsResponseTypekeysArray = Array of TKey;
   TCompositeFilterTypefiltersArray = Array of TFilter;
@@ -128,6 +128,10 @@ type
   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;
@@ -146,6 +150,10 @@ type
     //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}
   Public
   Published
     Property header : TResponseHeader Index 0 Read Fheader Write Setheader;
@@ -245,6 +253,10 @@ type
     //Property setters
     Procedure Setfilters(AIndex : Integer; AValue : TCompositeFilterTypefiltersArray); virtual;
     Procedure Set_operator(AIndex : Integer; 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 : TCompositeFilterTypefiltersArray Index 0 Read Ffilters Write Setfilters;
@@ -336,6 +348,10 @@ type
     Procedure SetnameArgs(AIndex : Integer; AValue : TGqlQueryTypenameArgsArray); virtual;
     Procedure SetnumberArgs(AIndex : Integer; AValue : TGqlQueryTypenumberArgsArray); virtual;
     Procedure SetqueryString(AIndex : Integer; 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 allowLiteral : boolean Index 0 Read FallowLiteral Write SetallowLiteral;
@@ -379,6 +395,10 @@ type
     //Property setters
     Procedure SetpartitionId(AIndex : Integer; AValue : TPartitionId); virtual;
     Procedure Setpath(AIndex : Integer; 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 partitionId : TPartitionId Index 0 Read FpartitionId Write SetpartitionId;
@@ -436,6 +456,10 @@ type
     //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}
   Public
   Published
     Property keys : TLookupRequestTypekeysArray Index 0 Read Fkeys Write Setkeys;
@@ -459,6 +483,10 @@ type
     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;
@@ -488,6 +516,10 @@ type
     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}
   Public
   Published
     Property delete : TMutationTypedeleteArray Index 0 Read Fdelete Write Setdelete;
@@ -511,6 +543,10 @@ type
     //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}
   Public
   Published
     Property indexUpdates : integer Index 0 Read FindexUpdates Write SetindexUpdates;
@@ -569,6 +605,10 @@ type
     Procedure SetlistValue(AIndex : Integer; AValue : TPropertyTypelistValueArray); virtual;
     Procedure Setmeaning(AIndex : Integer; AValue : integer); virtual;
     Procedure SetstringValue(AIndex : Integer; 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 blobKeyValue : String Index 0 Read FblobKeyValue Write SetblobKeyValue;
@@ -691,6 +731,10 @@ type
     Procedure Setorder(AIndex : Integer; AValue : TQueryTypeorderArray); virtual;
     Procedure Setprojection(AIndex : Integer; AValue : TQueryTypeprojectionArray); virtual;
     Procedure SetstartCursor(AIndex : Integer; 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 endCursor : String Index 0 Read FendCursor Write SetendCursor;
@@ -723,6 +767,10 @@ type
     Procedure SetentityResults(AIndex : Integer; AValue : TQueryResultBatchTypeentityResultsArray); virtual;
     Procedure SetmoreResults(AIndex : Integer; 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}
   Public
   Published
     Property endCursor : String Index 0 Read FendCursor Write SetendCursor;
@@ -876,6 +924,10 @@ type
     Procedure SetlistValue(AIndex : Integer; AValue : TValueTypelistValueArray); virtual;
     Procedure Setmeaning(AIndex : Integer; AValue : integer); virtual;
     Procedure SetstringValue(AIndex : Integer; 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 blobKeyValue : String Index 0 Read FblobKeyValue Write SetblobKeyValue;
@@ -964,6 +1016,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAllocateIdsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'keys' : SetLength(Fkeys,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -991,6 +1056,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAllocateIdsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'keys' : SetLength(Fkeys,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1147,6 +1225,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCompositeFilter.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'filters' : SetLength(Ffilters,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1278,6 +1369,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGqlQuery.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'nameargs' : SetLength(FnameArgs,ALength);
+  'numberargs' : SetLength(FnumberArgs,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1342,6 +1447,19 @@ begin
 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}
+
 
 
 
@@ -1423,6 +1541,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLookupRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'keys' : SetLength(Fkeys,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1470,6 +1601,21 @@ begin
 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}
+
 
 
 
@@ -1537,6 +1683,23 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMutation.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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1564,6 +1727,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMutationResult.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'insertautoidkeys' : SetLength(FinsertAutoIdKeys,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1718,6 +1894,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProperty.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'listvalue' : SetLength(FlistValue,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1957,6 +2146,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TQuery.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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2014,6 +2219,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TQueryResultBatch.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'entityresults' : SetLength(FentityResults,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2293,6 +2511,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TValue.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'listvalue' : SetLength(FlistValue,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2478,7 +2709,7 @@ end;
 Class Function TDatastoreAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TDatastoreAPI.APIbasePath : string;
@@ -2490,7 +2721,7 @@ end;
 Class Function TDatastoreAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/datastore/v1beta2/datasets/';
+  Result:='https://www.googleapis.com:443/datastore/v1beta2/datasets/';
 end;
 
 Class Function TDatastoreAPI.APIProtocol : string;
@@ -2590,7 +2821,7 @@ Function TDatastoreAPI.CreateDatasetsResource(AOwner : TComponent) : TDatasetsRe
 
 begin
   Result:=TDatasetsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googledeploymentmanager.pp

@@ -13,7 +13,7 @@ unit googledeploymentmanager;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:52
+//Generated on: 16-5-15 08:53:02
 {$MODE objfpc}
 {$H+}
 
@@ -24,20 +24,20 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TDeployment = class;
-  TDeploymentUpdate = class;
-  TDeploymentsListResponse = class;
-  TImportFile = class;
-  TManifest = class;
-  TManifestsListResponse = class;
-  TOperation = class;
-  TOperationsListResponse = class;
-  TResource = class;
-  TResourceUpdate = class;
-  TResourcesListResponse = class;
-  TTargetConfiguration = class;
-  TType = class;
-  TTypesListResponse = class;
+  TDeployment = Class;
+  TDeploymentUpdate = Class;
+  TDeploymentsListResponse = Class;
+  TImportFile = Class;
+  TManifest = Class;
+  TManifestsListResponse = Class;
+  TOperation = Class;
+  TOperationsListResponse = Class;
+  TResource = Class;
+  TResourceUpdate = Class;
+  TResourcesListResponse = Class;
+  TTargetConfiguration = Class;
+  TType = Class;
+  TTypesListResponse = Class;
   TDeploymentArray = Array of TDeployment;
   TDeploymentUpdateArray = Array of TDeploymentUpdate;
   TDeploymentsListResponseArray = Array of TDeploymentsListResponse;
@@ -53,10 +53,10 @@ type
   TTypeArray = Array of TType;
   TTypesListResponseArray = Array of TTypesListResponse;
   //Anonymous types, using auto-generated names
-  TOperationTypeerrorTypeerrorsItem = class;
-  TOperationTypeerror = class;
-  TOperationTypewarningsItemTypedataItem = class;
-  TOperationTypewarningsItem = class;
+  TOperationTypeerrorTypeerrorsItem = Class;
+  TOperationTypeerror = Class;
+  TOperationTypewarningsItemTypedataItem = Class;
+  TOperationTypewarningsItem = Class;
   TDeploymentsListResponseTypedeploymentsArray = Array of TDeployment;
   TManifestTypeimportsArray = Array of TImportFile;
   TManifestsListResponseTypemanifestsArray = Array of TManifest;
@@ -123,6 +123,10 @@ type
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setmanifest(AIndex : Integer; 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 errors : TStringArray Index 0 Read Ferrors Write Seterrors;
@@ -142,6 +146,10 @@ type
     //Property setters
     Procedure Setdeployments(AIndex : Integer; AValue : TDeploymentsListResponseTypedeploymentsArray); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 deployments : TDeploymentsListResponseTypedeploymentsArray Index 0 Read Fdeployments Write Setdeployments;
@@ -192,6 +200,10 @@ type
     Procedure Setlayout(AIndex : Integer; AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 config : String Index 0 Read Fconfig Write Setconfig;
@@ -217,6 +229,10 @@ type
     //Property setters
     Procedure Setmanifests(AIndex : Integer; AValue : TManifestsListResponseTypemanifestsArray); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 manifests : TManifestsListResponseTypemanifestsArray Index 0 Read Fmanifests Write Setmanifests;
@@ -256,6 +272,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; 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;
@@ -295,6 +315,10 @@ type
     Procedure Setcode(AIndex : Integer; AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
     Procedure Setmessage(AIndex : Integer; 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;
@@ -355,6 +379,10 @@ type
     Procedure Setuser(AIndex : Integer; AValue : String); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
     Procedure Setzone(AIndex : Integer; 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;
@@ -394,6 +422,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setoperations(AIndex : Integer; 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;
@@ -459,6 +491,10 @@ type
     Procedure Setmanifest(AIndex : Integer; AValue : String); virtual;
     Procedure Setproperties(AIndex : Integer; AValue : String); virtual;
     Procedure Setstate(AIndex : Integer; 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 errors : TStringArray Index 0 Read Ferrors Write Seterrors;
@@ -482,6 +518,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TResourcesListResponseTyperesourcesArray); 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;
@@ -501,6 +541,10 @@ type
     //Property setters
     Procedure Setconfig(AIndex : Integer; AValue : String); virtual;
     Procedure Setimports(AIndex : Integer; 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;
@@ -536,6 +580,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Settypes(AIndex : Integer; AValue : TTypesListResponseTypetypesArray); 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;
@@ -872,6 +920,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeploymentUpdate.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -899,6 +960,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeploymentsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'deployments' : SetLength(Fdeployments,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1013,6 +1087,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TManifest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'imports' : SetLength(Fimports,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1040,6 +1127,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TManifestsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'manifests' : SetLength(Fmanifests,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1094,6 +1194,19 @@ begin
 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}
+
 
 
 
@@ -1158,6 +1271,19 @@ begin
 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}
+
 
 
 
@@ -1385,6 +1511,19 @@ begin
 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}
+
 
 
 
@@ -1412,6 +1551,19 @@ begin
 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}
+
 
 
 
@@ -1577,6 +1729,19 @@ begin
 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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1604,6 +1769,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResourcesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'resources' : SetLength(Fresources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1631,6 +1809,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTargetConfiguration.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'imports' : SetLength(Fimports,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1675,6 +1866,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTypesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'types' : SetLength(Ftypes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2139,7 +2343,7 @@ end;
 Class Function TDeploymentmanagerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TDeploymentmanagerAPI.APIbasePath : string;
@@ -2151,7 +2355,7 @@ end;
 Class Function TDeploymentmanagerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/deploymentmanager/v2beta2/projects/';
+  Result:='https://www.googleapis.com:443/deploymentmanager/v2beta2/projects/';
 end;
 
 Class Function TDeploymentmanagerAPI.APIProtocol : string;
@@ -2234,7 +2438,7 @@ Function TDeploymentmanagerAPI.CreateDeploymentsResource(AOwner : TComponent) :
 
 begin
   Result:=TDeploymentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2258,7 +2462,7 @@ Function TDeploymentmanagerAPI.CreateManifestsResource(AOwner : TComponent) : TM
 
 begin
   Result:=TManifestsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2282,7 +2486,7 @@ Function TDeploymentmanagerAPI.CreateOperationsResource(AOwner : TComponent) : T
 
 begin
   Result:=TOperationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2306,7 +2510,7 @@ Function TDeploymentmanagerAPI.CreateResourcesResource(AOwner : TComponent) : TR
 
 begin
   Result:=TResourcesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2330,7 +2534,7 @@ Function TDeploymentmanagerAPI.CreateTypesResource(AOwner : TComponent) : TTypes
 
 begin
   Result:=TTypesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlediscovery.pp

@@ -13,7 +13,7 @@ unit googlediscovery;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:52
+//Generated on: 16-5-15 08:53:02
 {$MODE objfpc}
 {$H+}
 
@@ -24,40 +24,40 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TDirectoryList = class;
-  TJsonSchema = class;
-  TRestDescription = class;
-  TRestMethod = class;
-  TRestResource = class;
+  TDirectoryList = Class;
+  TJsonSchema = Class;
+  TRestDescription = Class;
+  TRestMethod = Class;
+  TRestResource = Class;
   TDirectoryListArray = Array of TDirectoryList;
   TJsonSchemaArray = Array of TJsonSchema;
   TRestDescriptionArray = Array of TRestDescription;
   TRestMethodArray = Array of TRestMethod;
   TRestResourceArray = Array of TRestResource;
   //Anonymous types, using auto-generated names
-  TDirectoryListTypeitemsItemTypeicons = class;
-  TDirectoryListTypeitemsItem = class;
-  TJsonSchemaTypeannotations = class;
-  TJsonSchemaTypeproperties = class;
-  TJsonSchemaTypevariantTypemapItem = class;
-  TJsonSchemaTypevariant = class;
-  TRestDescriptionTypeauthTypeoauth2Typescopes = class;
-  TRestDescriptionTypeauthTypeoauth2 = class;
-  TRestDescriptionTypeauth = class;
-  TRestDescriptionTypeicons = class;
-  TRestDescriptionTypemethods = class;
-  TRestDescriptionTypeparameters = class;
-  TRestDescriptionTyperesources = class;
-  TRestDescriptionTypeschemas = class;
-  TRestMethodTypemediaUploadTypeprotocolsTyperesumable = class;
-  TRestMethodTypemediaUploadTypeprotocolsTypesimple = class;
-  TRestMethodTypemediaUploadTypeprotocols = class;
-  TRestMethodTypemediaUpload = class;
-  TRestMethodTypeparameters = class;
-  TRestMethodTyperequest = class;
-  TRestMethodTyperesponse = class;
-  TRestResourceTypemethods = class;
-  TRestResourceTyperesources = class;
+  TDirectoryListTypeitemsItemTypeicons = Class;
+  TDirectoryListTypeitemsItem = Class;
+  TJsonSchemaTypeannotations = Class;
+  TJsonSchemaTypeproperties = Class;
+  TJsonSchemaTypevariantTypemapItem = Class;
+  TJsonSchemaTypevariant = Class;
+  TRestDescriptionTypeauthTypeoauth2Typescopes = Class;
+  TRestDescriptionTypeauthTypeoauth2 = Class;
+  TRestDescriptionTypeauth = Class;
+  TRestDescriptionTypeicons = Class;
+  TRestDescriptionTypemethods = Class;
+  TRestDescriptionTypeparameters = Class;
+  TRestDescriptionTyperesources = Class;
+  TRestDescriptionTypeschemas = Class;
+  TRestMethodTypemediaUploadTypeprotocolsTyperesumable = Class;
+  TRestMethodTypemediaUploadTypeprotocolsTypesimple = Class;
+  TRestMethodTypemediaUploadTypeprotocols = Class;
+  TRestMethodTypemediaUpload = Class;
+  TRestMethodTypeparameters = Class;
+  TRestMethodTyperequest = Class;
+  TRestMethodTyperesponse = Class;
+  TRestResourceTypemethods = Class;
+  TRestResourceTyperesources = Class;
   TDirectoryListTypeitemsArray = Array of TDirectoryListTypeitemsItem;
   TJsonSchemaTypevariantTypemapArray = Array of TJsonSchemaTypevariantTypemapItem;
   
@@ -112,6 +112,10 @@ type
     Procedure Setpreferred(AIndex : Integer; AValue : boolean); virtual;
     Procedure Settitle(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -143,6 +147,10 @@ type
     Procedure SetdiscoveryVersion(AIndex : Integer; AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TDirectoryListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 discoveryVersion : String Index 0 Read FdiscoveryVersion Write SetdiscoveryVersion;
@@ -161,6 +169,10 @@ type
   Protected
     //Property setters
     Procedure Setrequired(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 required : TStringArray Index 0 Read Frequired Write Setrequired;
@@ -213,6 +225,10 @@ type
     //Property setters
     Procedure Setdiscriminant(AIndex : Integer; AValue : String); virtual;
     Procedure Setmap(AIndex : Integer; AValue : TJsonSchemaTypevariantTypemapArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property discriminant : String Index 0 Read Fdiscriminant Write Setdiscriminant;
@@ -269,6 +285,10 @@ type
     Procedure Setrequired(AIndex : Integer; AValue : boolean); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setvariant(AIndex : Integer; AValue : TJsonSchemaTypevariant); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property ref : String Index 0 Read Fref Write Setref;
@@ -479,6 +499,10 @@ type
     Procedure SetservicePath(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 auth : TRestDescriptionTypeauth Index 0 Read Fauth Write Setauth;
@@ -583,6 +607,10 @@ type
     Procedure Setaccept(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetmaxSize(AIndex : Integer; AValue : String); virtual;
     Procedure Setprotocols(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocols); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property accept : TStringArray Index 0 Read Faccept Write Setaccept;
@@ -680,6 +708,10 @@ type
     Procedure SetsupportsMediaUpload(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetsupportsSubscription(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetuseMediaDownloadService(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 description : String Index 0 Read Fdescription Write Setdescription;
@@ -960,6 +992,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDirectoryListTypeitemsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'labels' : SetLength(Flabels,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -997,6 +1042,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDirectoryList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1014,6 +1072,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJsonSchemaTypeannotations.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'required' : SetLength(Frequired,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1092,6 +1163,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJsonSchemaTypevariant.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'map' : SetLength(Fmap,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1311,6 +1395,20 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJsonSchema.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'enum' : SetLength(Fenum,ALength);
+  'enumdescriptions' : SetLength(FenumDescriptions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1724,6 +1822,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRestDescription.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'features' : SetLength(Ffeatures,ALength);
+  'labels' : SetLength(Flabels,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1842,6 +1954,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRestMethodTypemediaUpload.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'accept' : SetLength(Faccept,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2078,6 +2203,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRestMethod.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'parameterorder' : SetLength(FparameterOrder,ALength);
+  'scopes' : SetLength(Fscopes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2265,7 +2404,7 @@ end;
 Class Function TDiscoveryAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TDiscoveryAPI.APIbasePath : string;
@@ -2277,7 +2416,7 @@ end;
 Class Function TDiscoveryAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/discovery/v1/';
+  Result:='https://www.googleapis.com:443/discovery/v1/';
 end;
 
 Class Function TDiscoveryAPI.APIProtocol : string;
@@ -2364,7 +2503,7 @@ Function TDiscoveryAPI.CreateApisResource(AOwner : TComponent) : TApisResource;
 
 begin
   Result:=TApisResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googledns.pp

@@ -13,7 +13,7 @@ unit googledns;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:53
+//Generated on: 16-5-15 08:53:02
 {$MODE objfpc}
 {$H+}
 
@@ -24,14 +24,14 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TChange = class;
-  TChangesListResponse = class;
-  TManagedZone = class;
-  TManagedZonesListResponse = class;
-  TProject = class;
-  TQuota = class;
-  TResourceRecordSet = class;
-  TResourceRecordSetsListResponse = class;
+  TChange = Class;
+  TChangesListResponse = Class;
+  TManagedZone = Class;
+  TManagedZonesListResponse = Class;
+  TProject = Class;
+  TQuota = Class;
+  TResourceRecordSet = Class;
+  TResourceRecordSetsListResponse = Class;
   TChangeArray = Array of TChange;
   TChangesListResponseArray = Array of TChangesListResponse;
   TManagedZoneArray = Array of TManagedZone;
@@ -67,6 +67,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetstartTime(AIndex : Integer; AValue : String); virtual;
     Procedure Setstatus(AIndex : Integer; 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 additions : TChangeTypeadditionsArray Index 0 Read Fadditions Write Setadditions;
@@ -92,6 +96,10 @@ type
     Procedure Setchanges(AIndex : Integer; AValue : TChangesListResponseTypechangesArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 changes : TChangesListResponseTypechangesArray Index 0 Read Fchanges Write Setchanges;
@@ -124,6 +132,10 @@ type
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SetnameServerSet(AIndex : Integer; AValue : String); virtual;
     Procedure SetnameServers(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 creationTime : String Index 0 Read FcreationTime Write SetcreationTime;
@@ -151,6 +163,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponseTypemanagedZonesArray); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -237,6 +253,10 @@ type
     Procedure Setrrdatas(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setttl(AIndex : Integer; AValue : integer); virtual;
     Procedure Set_type(AIndex : Integer; 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;
@@ -261,6 +281,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponseTyperrsetsArray); 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;
@@ -472,6 +496,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TChange.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'additions' : SetLength(Fadditions,ALength);
+  'deletions' : SetLength(Fdeletions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -509,6 +547,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TChangesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'changes' : SetLength(Fchanges,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -596,6 +647,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TManagedZone.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'nameservers' : SetLength(FnameServers,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -633,6 +697,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TManagedZonesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'managedzones' : SetLength(FmanagedZones,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -825,6 +902,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResourceRecordSet.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rrdatas' : SetLength(Frrdatas,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -862,6 +952,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResourceRecordSetsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rrsets' : SetLength(Frrsets,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1192,7 +1295,7 @@ end;
 Class Function TDnsAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TDnsAPI.APIbasePath : string;
@@ -1204,7 +1307,7 @@ end;
 Class Function TDnsAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/dns/v1/projects/';
+  Result:='https://www.googleapis.com:443/dns/v1/projects/';
 end;
 
 Class Function TDnsAPI.APIProtocol : string;
@@ -1277,7 +1380,7 @@ Function TDnsAPI.CreateChangesResource(AOwner : TComponent) : TChangesResource;
 
 begin
   Result:=TChangesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1301,7 +1404,7 @@ Function TDnsAPI.CreateManagedZonesResource(AOwner : TComponent) : TManagedZones
 
 begin
   Result:=TManagedZonesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1325,7 +1428,7 @@ Function TDnsAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource
 
 begin
   Result:=TProjectsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1349,7 +1452,7 @@ Function TDnsAPI.CreateResourceRecordSetsResource(AOwner : TComponent) : TResour
 
 begin
   Result:=TResourceRecordSetsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googledoubleclickbidmanager.pp

@@ -13,7 +13,7 @@ unit googledoubleclickbidmanager;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:53
+//Generated on: 16-5-15 08:53:02
 {$MODE objfpc}
 {$H+}
 
@@ -24,25 +24,25 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TDownloadLineItemsRequest = class;
-  TDownloadLineItemsResponse = class;
-  TFilterPair = class;
-  TListQueriesResponse = class;
-  TListReportsResponse = class;
-  TParameters = class;
-  TQuery = class;
-  TQueryMetadata = class;
-  TQuerySchedule = class;
-  TReport = class;
-  TReportFailure = class;
-  TReportKey = class;
-  TReportMetadata = class;
-  TReportStatus = class;
-  TRowStatus = class;
-  TRunQueryRequest = class;
-  TUploadLineItemsRequest = class;
-  TUploadLineItemsResponse = class;
-  TUploadStatus = class;
+  TDownloadLineItemsRequest = Class;
+  TDownloadLineItemsResponse = Class;
+  TFilterPair = Class;
+  TListQueriesResponse = Class;
+  TListReportsResponse = Class;
+  TParameters = Class;
+  TQuery = Class;
+  TQueryMetadata = Class;
+  TQuerySchedule = Class;
+  TReport = Class;
+  TReportFailure = Class;
+  TReportKey = Class;
+  TReportMetadata = Class;
+  TReportStatus = Class;
+  TRowStatus = Class;
+  TRunQueryRequest = Class;
+  TUploadLineItemsRequest = Class;
+  TUploadLineItemsResponse = Class;
+  TUploadStatus = Class;
   TDownloadLineItemsRequestArray = Array of TDownloadLineItemsRequest;
   TDownloadLineItemsResponseArray = Array of TDownloadLineItemsResponse;
   TFilterPairArray = Array of TFilterPair;
@@ -82,6 +82,10 @@ type
     Procedure SetfilterIds(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetfilterType(AIndex : Integer; AValue : String); virtual;
     Procedure Setformat(AIndex : Integer; 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 filterIds : TStringArray Index 0 Read FfilterIds Write SetfilterIds;
@@ -138,6 +142,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setqueries(AIndex : Integer; AValue : TListQueriesResponseTypequeriesArray); 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;
@@ -157,6 +165,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setreports(AIndex : Integer; AValue : TListReportsResponseTypereportsArray); 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;
@@ -183,6 +195,10 @@ type
     Procedure SetincludeInviteData(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Set_type(AIndex : Integer; 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 : TParametersTypefiltersArray Index 0 Read Ffilters Write Setfilters;
@@ -260,6 +276,10 @@ type
     Procedure SetsendNotification(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetshareEmailAddress(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Settitle(AIndex : Integer; 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 dataRange : String Index 0 Read FdataRange Write SetdataRange;
@@ -428,6 +448,10 @@ type
     Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setpersisted(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetrowNumber(AIndex : Integer; 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 changed : boolean Index 0 Read Fchanged Write Setchanged;
@@ -514,6 +538,10 @@ type
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetrowStatus(AIndex : Integer; AValue : TUploadStatusTyperowStatusArray); 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;
@@ -646,6 +674,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDownloadLineItemsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'filterids' : SetLength(FfilterIds,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -728,6 +769,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListQueriesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'queries' : SetLength(Fqueries,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -755,6 +809,19 @@ begin
 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}
+
 
 
 
@@ -823,6 +890,21 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TParameters.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'filters' : SetLength(Ffilters,ALength);
+  'groupbys' : SetLength(FgroupBys,ALength);
+  'metrics' : SetLength(Fmetrics,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1027,6 +1109,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TQueryMetadata.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'shareemailaddress' : SetLength(FshareEmailAddress,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1316,6 +1411,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRowStatus.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1444,6 +1552,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUploadStatus.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  'rowstatus' : SetLength(FrowStatus,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1681,7 +1803,7 @@ end;
 Class Function TDoubleclickbidmanagerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TDoubleclickbidmanagerAPI.APIbasePath : string;
@@ -1693,7 +1815,7 @@ end;
 Class Function TDoubleclickbidmanagerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/doubleclickbidmanager/v1/';
+  Result:='https://www.googleapis.com:443/doubleclickbidmanager/v1/';
 end;
 
 Class Function TDoubleclickbidmanagerAPI.APIProtocol : string;
@@ -1771,7 +1893,7 @@ Function TDoubleclickbidmanagerAPI.CreateLineitemsResource(AOwner : TComponent)
 
 begin
   Result:=TLineitemsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1795,7 +1917,7 @@ Function TDoubleclickbidmanagerAPI.CreateQueriesResource(AOwner : TComponent) :
 
 begin
   Result:=TQueriesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1819,7 +1941,7 @@ Function TDoubleclickbidmanagerAPI.CreateReportsResource(AOwner : TComponent) :
 
 begin
   Result:=TReportsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googledoubleclicksearch.pp

@@ -13,7 +13,7 @@ unit googledoubleclicksearch;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:53
+//Generated on: 16-5-15 08:53:03
 {$MODE objfpc}
 {$H+}
 
@@ -24,19 +24,19 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAvailability = class;
-  TConversion = class;
-  TConversionList = class;
-  TCustomDimension = class;
-  TCustomMetric = class;
-  TReport = class;
-  TReportApiColumnSpec = class;
-  TReportRequest = class;
-  TReportRow = class;
-  TSavedColumn = class;
-  TSavedColumnList = class;
-  TUpdateAvailabilityRequest = class;
-  TUpdateAvailabilityResponse = class;
+  TAvailability = Class;
+  TConversion = Class;
+  TConversionList = Class;
+  TCustomDimension = Class;
+  TCustomMetric = Class;
+  TReport = Class;
+  TReportApiColumnSpec = Class;
+  TReportRequest = Class;
+  TReportRow = Class;
+  TSavedColumn = Class;
+  TSavedColumnList = Class;
+  TUpdateAvailabilityRequest = Class;
+  TUpdateAvailabilityResponse = Class;
   TAvailabilityArray = Array of TAvailability;
   TConversionArray = Array of TConversion;
   TConversionListArray = Array of TConversionList;
@@ -51,11 +51,11 @@ type
   TUpdateAvailabilityRequestArray = Array of TUpdateAvailabilityRequest;
   TUpdateAvailabilityResponseArray = Array of TUpdateAvailabilityResponse;
   //Anonymous types, using auto-generated names
-  TReportTypefilesItem = class;
-  TReportRequestTypefiltersItem = class;
-  TReportRequestTypeorderByItem = class;
-  TReportRequestTypereportScope = class;
-  TReportRequestTypetimeRange = class;
+  TReportTypefilesItem = Class;
+  TReportRequestTypefiltersItem = Class;
+  TReportRequestTypeorderByItem = Class;
+  TReportRequestTypereportScope = Class;
+  TReportRequestTypetimeRange = Class;
   TConversionTypecustomDimensionArray = Array of TCustomDimension;
   TConversionTypecustomMetricArray = Array of TCustomMetric;
   TConversionListTypeconversionArray = Array of TConversion;
@@ -174,6 +174,10 @@ type
     Procedure Setstate(AIndex : Integer; AValue : String); virtual;
     Procedure SetstoreId(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; 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 adGroupId : String Index 0 Read FadGroupId Write SetadGroupId;
@@ -224,6 +228,10 @@ type
     //Property setters
     Procedure Setconversion(AIndex : Integer; AValue : TConversionListTypeconversionArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TConversionListTypeconversionArray Index 0 Read Fconversion Write Setconversion;
@@ -314,6 +322,10 @@ type
     Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
     Procedure SetstatisticsCurrencyCode(AIndex : Integer; AValue : String); virtual;
     Procedure SetstatisticsTimeZone(AIndex : Integer; 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 files : TReportTypefilesArray Index 0 Read Ffiles Write Setfiles;
@@ -383,6 +395,10 @@ type
     Procedure Setcolumn(AIndex : Integer; AValue : TReportApiColumnSpec); virtual;
     Procedure Set_operator(AIndex : Integer; AValue : String); virtual;
     Procedure Setvalues(AIndex : Integer; 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 column : TReportApiColumnSpec Index 0 Read Fcolumn Write Setcolumn;
@@ -505,6 +521,10 @@ type
     Procedure SetstatisticsCurrency(AIndex : Integer; AValue : String); virtual;
     Procedure SettimeRange(AIndex : Integer; AValue : TReportRequestTypetimeRange); virtual;
     Procedure SetverifySingleTimeZone(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 columns : TReportRequestTypecolumnsArray Index 0 Read Fcolumns Write Setcolumns;
@@ -573,6 +593,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TSavedColumnListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TSavedColumnListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -590,6 +614,10 @@ type
   Protected
     //Property setters
     Procedure Setavailabilities(AIndex : Integer; AValue : TUpdateAvailabilityRequestTypeavailabilitiesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property availabilities : TUpdateAvailabilityRequestTypeavailabilitiesArray Index 0 Read Favailabilities Write Setavailabilities;
@@ -606,6 +634,10 @@ type
   Protected
     //Property setters
     Procedure Setavailabilities(AIndex : Integer; AValue : TUpdateAvailabilityResponseTypeavailabilitiesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property availabilities : TUpdateAvailabilityResponseTypeavailabilitiesArray Index 0 Read Favailabilities Write Setavailabilities;
@@ -1146,6 +1178,20 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TConversion.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'customdimension' : SetLength(FcustomDimension,ALength);
+  'custommetric' : SetLength(FcustomMetric,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1173,6 +1219,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TConversionList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'conversion' : SetLength(Fconversion,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1351,6 +1410,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReport.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'files' : SetLength(Ffiles,ALength);
+  'rows' : SetLength(Frows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1496,6 +1569,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReportRequestTypefiltersItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'values' : SetLength(Fvalues,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1794,6 +1880,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReportRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'columns' : SetLength(Fcolumns,ALength);
+  'filters' : SetLength(Ffilters,ALength);
+  'orderby' : SetLength(ForderBy,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1882,6 +1983,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSavedColumnList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1899,6 +2013,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUpdateAvailabilityRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'availabilities' : SetLength(Favailabilities,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1916,6 +2043,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUpdateAvailabilityResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'availabilities' : SetLength(Favailabilities,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2212,7 +2352,7 @@ end;
 Class Function TDoubleclicksearchAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TDoubleclicksearchAPI.APIbasePath : string;
@@ -2224,7 +2364,7 @@ end;
 Class Function TDoubleclicksearchAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/doubleclicksearch/v2/';
+  Result:='https://www.googleapis.com:443/doubleclicksearch/v2/';
 end;
 
 Class Function TDoubleclicksearchAPI.APIProtocol : string;
@@ -2303,7 +2443,7 @@ Function TDoubleclicksearchAPI.CreateConversionResource(AOwner : TComponent) : T
 
 begin
   Result:=TConversionResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2327,7 +2467,7 @@ Function TDoubleclicksearchAPI.CreateReportsResource(AOwner : TComponent) : TRep
 
 begin
   Result:=TReportsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2351,7 +2491,7 @@ Function TDoubleclicksearchAPI.CreateSavedColumnsResource(AOwner : TComponent) :
 
 begin
   Result:=TSavedColumnsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googledrive.pp

@@ -13,7 +13,7 @@ unit googledrive;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:53
+//Generated on: 16-5-15 08:53:03
 {$MODE objfpc}
 {$H+}
 
@@ -24,30 +24,30 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 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;
-  TPermission = class;
-  TPermissionId = class;
-  TPermissionList = class;
-  TProperty = class;
-  TPropertyList = class;
-  TRevision = class;
-  TRevisionList = class;
-  TUser = class;
+  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;
+  TPermission = Class;
+  TPermissionId = Class;
+  TPermissionList = Class;
+  TProperty = Class;
+  TPropertyList = Class;
+  TRevision = Class;
+  TRevisionList = Class;
+  TUser = Class;
   TAboutArray = Array of TAbout;
   TAppArray = Array of TApp;
   TAppListArray = Array of TAppList;
@@ -73,26 +73,26 @@ type
   TRevisionListArray = Array of TRevisionList;
   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;
-  TChannelTypeparams = class;
-  TCommentTypecontext = class;
-  TFileTypeexportLinks = class;
-  TFileTypeimageMediaMetadataTypelocation = class;
-  TFileTypeimageMediaMetadata = class;
-  TFileTypeindexableText = class;
-  TFileTypelabels = class;
-  TFileTypeopenWithLinks = class;
-  TFileTypethumbnail = class;
-  TFileTypevideoMediaMetadata = class;
-  TRevisionTypeexportLinks = class;
-  TUserTypepicture = class;
+  TAboutTypeadditionalRoleInfoItemTyperoleSetsItem = Class;
+  TAboutTypeadditionalRoleInfoItem = Class;
+  TAboutTypeexportFormatsItem = Class;
+  TAboutTypefeaturesItem = Class;
+  TAboutTypeimportFormatsItem = Class;
+  TAboutTypemaxUploadSizesItem = Class;
+  TAboutTypequotaBytesByServiceItem = Class;
+  TAppTypeiconsItem = Class;
+  TChannelTypeparams = Class;
+  TCommentTypecontext = Class;
+  TFileTypeexportLinks = Class;
+  TFileTypeimageMediaMetadataTypelocation = Class;
+  TFileTypeimageMediaMetadata = Class;
+  TFileTypeindexableText = Class;
+  TFileTypelabels = Class;
+  TFileTypeopenWithLinks = Class;
+  TFileTypethumbnail = Class;
+  TFileTypevideoMediaMetadata = Class;
+  TRevisionTypeexportLinks = Class;
+  TUserTypepicture = Class;
   TAboutTypeadditionalRoleInfoItemTyperoleSetsArray = Array of TAboutTypeadditionalRoleInfoItemTyperoleSetsItem;
   TAboutTypeadditionalRoleInfoArray = Array of TAboutTypeadditionalRoleInfoItem;
   TAboutTypeexportFormatsArray = Array of TAboutTypeexportFormatsItem;
@@ -129,6 +129,10 @@ type
     //Property setters
     Procedure SetadditionalRoles(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetprimaryRole(AIndex : Integer; 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;
@@ -149,6 +153,10 @@ type
     //Property setters
     Procedure SetroleSets(AIndex : Integer; AValue : TAboutTypeadditionalRoleInfoItemTyperoleSetsArray); virtual;
     Procedure Set_type(AIndex : Integer; 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;
@@ -168,6 +176,10 @@ type
     //Property setters
     Procedure Setsource(AIndex : Integer; 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;
@@ -206,6 +218,10 @@ type
     //Property setters
     Procedure Setsource(AIndex : Integer; 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;
@@ -308,6 +324,10 @@ type
     Procedure SetrootFolderId(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Setuser(AIndex : Integer; 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;
@@ -415,6 +435,10 @@ type
     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;
@@ -462,6 +486,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TAppListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -529,6 +557,10 @@ type
     Procedure SetnextLink(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -619,6 +651,10 @@ type
     Procedure SetnextLink(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -713,6 +749,10 @@ type
     Procedure Setreplies(AIndex : Integer; AValue : TCommentTyperepliesArray); virtual;
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Setstatus(AIndex : Integer; 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 anchor : String Index 0 Read Fanchor Write Setanchor;
@@ -751,6 +791,10 @@ type
     Procedure SetnextLink(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -819,6 +863,10 @@ type
     Procedure SetnextLink(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 : TCommentReplyListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1150,6 +1198,10 @@ type
     Procedure SetwebContentLink(AIndex : Integer; AValue : String); virtual;
     Procedure SetwebViewLink(AIndex : Integer; AValue : String); virtual;
     Procedure SetwritersCanShare(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 alternateLink : String Index 0 Read FalternateLink Write SetalternateLink;
@@ -1226,6 +1278,10 @@ type
     Procedure SetnextLink(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -1253,6 +1309,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TParentListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -1327,6 +1387,10 @@ type
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; 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;
@@ -1381,6 +1445,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TPermissionListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -1437,6 +1505,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TPropertyListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -1544,6 +1616,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TRevisionListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -2191,6 +2267,19 @@ begin
 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}
+
 
 
 
@@ -2229,6 +2318,19 @@ begin
   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}
+
 
 
 
@@ -2256,6 +2358,19 @@ begin
 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;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2310,6 +2425,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAboutTypeimportFormatsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'targets' : SetLength(Ftargets,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2622,6 +2750,25 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+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}
+
 
 
 
@@ -2906,6 +3053,23 @@ begin
 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}
+
 
 
 
@@ -2963,6 +3127,20 @@ begin
 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;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3128,6 +3306,19 @@ begin
 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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3326,6 +3517,19 @@ begin
 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}
+
 
 
 
@@ -3568,6 +3772,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TComment.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'replies' : SetLength(Freplies,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3625,6 +3842,19 @@ begin
 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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3779,6 +4009,19 @@ begin
 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}
+
 
 
 
@@ -4714,6 +4957,23 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4781,6 +5041,19 @@ begin
 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);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4828,6 +5101,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TParentList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -5043,6 +5329,19 @@ 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}
+
 
 
 
@@ -5117,6 +5416,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPermissionList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -5231,6 +5543,19 @@ begin
 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}
+
 
 
 
@@ -5489,6 +5814,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRevisionList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -7114,7 +7452,7 @@ end;
 Class Function TDriveAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TDriveAPI.APIbasePath : string;
@@ -7126,7 +7464,7 @@ end;
 Class Function TDriveAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/drive/v2/';
+  Result:='https://www.googleapis.com:443/drive/v2/';
 end;
 
 Class Function TDriveAPI.APIProtocol : string;
@@ -7245,7 +7583,7 @@ Function TDriveAPI.CreateAboutResource(AOwner : TComponent) : TAboutResource;
 
 begin
   Result:=TAboutResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7269,7 +7607,7 @@ Function TDriveAPI.CreateAppsResource(AOwner : TComponent) : TAppsResource;
 
 begin
   Result:=TAppsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7293,7 +7631,7 @@ Function TDriveAPI.CreateChangesResource(AOwner : TComponent) : TChangesResource
 
 begin
   Result:=TChangesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7317,7 +7655,7 @@ Function TDriveAPI.CreateChannelsResource(AOwner : TComponent) : TChannelsResour
 
 begin
   Result:=TChannelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7341,7 +7679,7 @@ Function TDriveAPI.CreateChildrenResource(AOwner : TComponent) : TChildrenResour
 
 begin
   Result:=TChildrenResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7365,7 +7703,7 @@ Function TDriveAPI.CreateCommentsResource(AOwner : TComponent) : TCommentsResour
 
 begin
   Result:=TCommentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7389,7 +7727,7 @@ Function TDriveAPI.CreateFilesResource(AOwner : TComponent) : TFilesResource;
 
 begin
   Result:=TFilesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7413,7 +7751,7 @@ Function TDriveAPI.CreateParentsResource(AOwner : TComponent) : TParentsResource
 
 begin
   Result:=TParentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7437,7 +7775,7 @@ Function TDriveAPI.CreatePermissionsResource(AOwner : TComponent) : TPermissions
 
 begin
   Result:=TPermissionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7461,7 +7799,7 @@ Function TDriveAPI.CreatePropertiesResource(AOwner : TComponent) : TPropertiesRe
 
 begin
   Result:=TPropertiesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7485,7 +7823,7 @@ Function TDriveAPI.CreateRealtimeResource(AOwner : TComponent) : TRealtimeResour
 
 begin
   Result:=TRealtimeResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7509,7 +7847,7 @@ Function TDriveAPI.CreateRepliesResource(AOwner : TComponent) : TRepliesResource
 
 begin
   Result:=TRepliesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -7533,7 +7871,7 @@ Function TDriveAPI.CreateRevisionsResource(AOwner : TComponent) : TRevisionsReso
 
 begin
   Result:=TRevisionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlefitness.pp

@@ -13,7 +13,7 @@ unit googlefitness;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:53
+//Generated on: 16-5-15 08:53:03
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TApplication = class;
-  TDataPoint = class;
-  TDataSource = class;
-  TDataType = class;
-  TDataTypeField = class;
-  TDataset = class;
-  TDevice = class;
-  TListDataSourcesResponse = class;
-  TListSessionsResponse = class;
-  TSession = class;
-  TValue = class;
+  TApplication = Class;
+  TDataPoint = Class;
+  TDataSource = Class;
+  TDataType = Class;
+  TDataTypeField = Class;
+  TDataset = Class;
+  TDevice = Class;
+  TListDataSourcesResponse = Class;
+  TListSessionsResponse = Class;
+  TSession = Class;
+  TValue = Class;
   TApplicationArray = Array of TApplication;
   TDataPointArray = Array of TDataPoint;
   TDataSourceArray = Array of TDataSource;
@@ -103,6 +103,10 @@ type
     Procedure SetrawTimestampNanos(AIndex : Integer; AValue : String); virtual;
     Procedure SetstartTimeNanos(AIndex : Integer; AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; AValue : TDataPointTypevalueArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property computationTimeMillis : String Index 0 Read FcomputationTimeMillis Write SetcomputationTimeMillis;
@@ -163,6 +167,10 @@ type
     //Property setters
     Procedure Setfield(AIndex : Integer; AValue : TDataTypeTypefieldArray); virtual;
     Procedure Setname(AIndex : Integer; 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 field : TDataTypeTypefieldArray Index 0 Read Ffield Write Setfield;
@@ -210,6 +218,10 @@ type
     Procedure SetminStartTimeNs(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setpoint(AIndex : Integer; AValue : TDatasetTypepointArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property dataSourceId : String Index 0 Read FdataSourceId Write SetdataSourceId;
@@ -259,6 +271,10 @@ type
   Protected
     //Property setters
     Procedure SetdataSource(AIndex : Integer; AValue : TListDataSourcesResponseTypedataSourceArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property dataSource : TListDataSourcesResponseTypedataSourceArray Index 0 Read FdataSource Write SetdataSource;
@@ -279,6 +295,10 @@ type
     Procedure SetdeletedSession(AIndex : Integer; AValue : TListSessionsResponseTypedeletedSessionArray); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setsession(AIndex : Integer; AValue : TListSessionsResponseTypesessionArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property deletedSession : TListSessionsResponseTypedeletedSessionArray Index 0 Read FdeletedSession Write SetdeletedSession;
@@ -346,14 +366,142 @@ type
   end;
   TValueClass = Class of TValue;
   
+  { --------------------------------------------------------------------
+    TUsersDataSourcesDatasetsResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TUsersDataSourcesDatasetsResource, method Delete
+  
+  TUsersDataSourcesDatasetsDeleteOptions = Record
+    currentTimeMillis : int64;
+    modifiedTimeMillis : int64;
+  end;
+  
+  
+  //Optional query Options for TUsersDataSourcesDatasetsResource, method Get
+  
+  TUsersDataSourcesDatasetsGetOptions = Record
+    limit : integer;
+    pageToken : String;
+  end;
+  
+  
+  //Optional query Options for TUsersDataSourcesDatasetsResource, method Patch
+  
+  TUsersDataSourcesDatasetsPatchOptions = Record
+    currentTimeMillis : int64;
+  end;
+  
+  TUsersDataSourcesDatasetsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Procedure Delete(dataSourceId: string; datasetId: string; userId: string; AQuery : string  = '');
+    Procedure Delete(dataSourceId: string; datasetId: string; userId: string; AQuery : TUsersDataSourcesDatasetsdeleteOptions);
+    Function Get(dataSourceId: string; datasetId: string; userId: string; AQuery : string  = '') : TDataset;
+    Function Get(dataSourceId: string; datasetId: string; userId: string; AQuery : TUsersDataSourcesDatasetsgetOptions) : TDataset;
+    Function Patch(dataSourceId: string; datasetId: string; userId: string; aDataset : TDataset; AQuery : string  = '') : TDataset;
+    Function Patch(dataSourceId: string; datasetId: string; userId: string; aDataset : TDataset; AQuery : TUsersDataSourcesDatasetspatchOptions) : TDataset;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TUsersDataSourcesResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TUsersDataSourcesResource, method List
+  
+  TUsersDataSourcesListOptions = Record
+    dataTypeName : String;
+  end;
+  
+  TUsersDataSourcesResource = Class(TGoogleResource)
+  Private
+    FDatasetsInstance : TUsersDataSourcesDatasetsResource;
+    Function GetDatasetsInstance : TUsersDataSourcesDatasetsResource;virtual;
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function Create(userId: string; aDataSource : TDataSource) : TDataSource;overload;
+    Function Delete(dataSourceId: string; userId: string) : TDataSource;
+    Function Get(dataSourceId: string; userId: string) : TDataSource;
+    Function List(userId: string; AQuery : string  = '') : TListDataSourcesResponse;
+    Function List(userId: string; AQuery : TUsersDataSourceslistOptions) : TListDataSourcesResponse;
+    Function Patch(dataSourceId: string; userId: string; aDataSource : TDataSource) : TDataSource;
+    Function Update(dataSourceId: string; userId: string; aDataSource : TDataSource) : TDataSource;
+    Function CreateDatasetsResource(AOwner : TComponent) : TUsersDataSourcesDatasetsResource;virtual;overload;
+    Function CreateDatasetsResource : TUsersDataSourcesDatasetsResource;virtual;overload;
+    Property DatasetsResource : TUsersDataSourcesDatasetsResource Read GetDatasetsInstance;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TUsersSessionsResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TUsersSessionsResource, method Delete
+  
+  TUsersSessionsDeleteOptions = Record
+    currentTimeMillis : int64;
+  end;
+  
+  
+  //Optional query Options for TUsersSessionsResource, method List
+  
+  TUsersSessionsListOptions = Record
+    endTime : String;
+    includeDeleted : boolean;
+    pageToken : String;
+    startTime : String;
+  end;
+  
+  
+  //Optional query Options for TUsersSessionsResource, method Update
+  
+  TUsersSessionsUpdateOptions = Record
+    currentTimeMillis : int64;
+  end;
+  
+  TUsersSessionsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Procedure Delete(sessionId: string; userId: string; AQuery : string  = '');
+    Procedure Delete(sessionId: string; userId: string; AQuery : TUsersSessionsdeleteOptions);
+    Function List(userId: string; AQuery : string  = '') : TListSessionsResponse;
+    Function List(userId: string; AQuery : TUsersSessionslistOptions) : TListSessionsResponse;
+    Function Update(sessionId: string; userId: string; aSession : TSession; AQuery : string  = '') : TSession;
+    Function Update(sessionId: string; userId: string; aSession : TSession; AQuery : TUsersSessionsupdateOptions) : TSession;
+  end;
+  
+  
   { --------------------------------------------------------------------
     TUsersResource
     --------------------------------------------------------------------}
   
   TUsersResource = Class(TGoogleResource)
+  Private
+    FDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;
+    FDataSourcesInstance : TUsersDataSourcesResource;
+    FSessionsInstance : TUsersSessionsResource;
+    Function GetDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;virtual;
+    Function GetDataSourcesInstance : TUsersDataSourcesResource;virtual;
+    Function GetSessionsInstance : TUsersSessionsResource;virtual;
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function CreateDataSourcesDatasetsResource(AOwner : TComponent) : TUsersDataSourcesDatasetsResource;virtual;overload;
+    Function CreateDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource;virtual;overload;
+    Function CreateDataSourcesResource(AOwner : TComponent) : TUsersDataSourcesResource;virtual;overload;
+    Function CreateDataSourcesResource : TUsersDataSourcesResource;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 SessionsResource : TUsersSessionsResource Read GetSessionsInstance;
   end;
   
   
@@ -363,7 +511,13 @@ type
   
   TFitnessAPI = Class(TGoogleAPI)
   Private
+    FUsersDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;
+    FUsersDataSourcesInstance : TUsersDataSourcesResource;
+    FUsersSessionsInstance : TUsersSessionsResource;
     FUsersInstance : TUsersResource;
+    Function GetUsersDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;virtual;
+    Function GetUsersDataSourcesInstance : TUsersDataSourcesResource;virtual;
+    Function GetUsersSessionsInstance : TUsersSessionsResource;virtual;
     Function GetUsersInstance : TUsersResource;virtual;
   Public
     //Override class functions with API info
@@ -388,9 +542,18 @@ type
     Class Function APINeedsAuth : Boolean;override;
     Class Procedure RegisterAPIResources; override;
     //Add create function for resources
+    Function CreateUsersDataSourcesDatasetsResource(AOwner : TComponent) : TUsersDataSourcesDatasetsResource;virtual;overload;
+    Function CreateUsersDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource;virtual;overload;
+    Function CreateUsersDataSourcesResource(AOwner : TComponent) : TUsersDataSourcesResource;virtual;overload;
+    Function CreateUsersDataSourcesResource : TUsersDataSourcesResource;virtual;overload;
+    Function CreateUsersSessionsResource(AOwner : TComponent) : TUsersSessionsResource;virtual;overload;
+    Function CreateUsersSessionsResource : TUsersSessionsResource;virtual;overload;
     Function CreateUsersResource(AOwner : TComponent) : TUsersResource;virtual;overload;
     Function CreateUsersResource : TUsersResource;virtual;overload;
     //Add default on-demand instances for resources
+    Property UsersDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource Read GetUsersDataSourcesDatasetsInstance;
+    Property UsersDataSourcesResource : TUsersDataSourcesResource Read GetUsersDataSourcesInstance;
+    Property UsersSessionsResource : TUsersSessionsResource Read GetUsersSessionsInstance;
     Property UsersResource : TUsersResource Read GetUsersInstance;
   end;
 
@@ -528,6 +691,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDataPoint.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'value' : SetLength(Fvalue,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -643,6 +819,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDataType.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'field' : SetLength(Ffield,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -737,6 +926,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDataset.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'point' : SetLength(Fpoint,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -822,6 +1024,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListDataSourcesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'datasource' : SetLength(FdataSource,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -859,6 +1074,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListSessionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'deletedsession' : SetLength(FdeletedSession,ALength);
+  'session' : SetLength(Fsession,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -986,6 +1215,356 @@ end;
 
 
 
+{ --------------------------------------------------------------------
+  TUsersDataSourcesDatasetsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TUsersDataSourcesDatasetsResource.ResourceName : String;
+
+begin
+  Result:='datasets';
+end;
+
+Class Function TUsersDataSourcesDatasetsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TfitnessAPI;
+end;
+
+Procedure TUsersDataSourcesDatasetsResource.Delete(dataSourceId: string; datasetId: string; userId: string; AQuery : string = '');
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = '{userId}/dataSources/{dataSourceId}/datasets/{datasetId}';
+  _Methodid   = 'fitness.users.dataSources.datasets.delete';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['dataSourceId',dataSourceId,'datasetId',datasetId,'userId',userId]);
+  ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TUsersDataSourcesDatasetsResource.Delete(dataSourceId: string; datasetId: string; userId: string; AQuery : TUsersDataSourcesDatasetsdeleteOptions);
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'currentTimeMillis',AQuery.currentTimeMillis);
+  AddToQuery(_Q,'modifiedTimeMillis',AQuery.modifiedTimeMillis);
+  Delete(dataSourceId,datasetId,userId,_Q);
+end;
+
+Function TUsersDataSourcesDatasetsResource.Get(dataSourceId: string; datasetId: string; userId: string; AQuery : string = '') : TDataset;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{userId}/dataSources/{dataSourceId}/datasets/{datasetId}';
+  _Methodid   = 'fitness.users.dataSources.datasets.get';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['dataSourceId',dataSourceId,'datasetId',datasetId,'userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDataset) as TDataset;
+end;
+
+
+Function TUsersDataSourcesDatasetsResource.Get(dataSourceId: string; datasetId: string; userId: string; AQuery : TUsersDataSourcesDatasetsgetOptions) : TDataset;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'limit',AQuery.limit);
+  AddToQuery(_Q,'pageToken',AQuery.pageToken);
+  Result:=Get(dataSourceId,datasetId,userId,_Q);
+end;
+
+Function TUsersDataSourcesDatasetsResource.Patch(dataSourceId: string; datasetId: string; userId: string; aDataset : TDataset; AQuery : string = '') : TDataset;
+
+Const
+  _HTTPMethod = 'PATCH';
+  _Path       = '{userId}/dataSources/{dataSourceId}/datasets/{datasetId}';
+  _Methodid   = 'fitness.users.dataSources.datasets.patch';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['dataSourceId',dataSourceId,'datasetId',datasetId,'userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDataset,TDataset) as TDataset;
+end;
+
+
+Function TUsersDataSourcesDatasetsResource.Patch(dataSourceId: string; datasetId: string; userId: string; aDataset : TDataset; AQuery : TUsersDataSourcesDatasetspatchOptions) : TDataset;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'currentTimeMillis',AQuery.currentTimeMillis);
+  Result:=Patch(dataSourceId,datasetId,userId,aDataset,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TUsersDataSourcesResource
+  --------------------------------------------------------------------}
+
+
+Class Function TUsersDataSourcesResource.ResourceName : String;
+
+begin
+  Result:='dataSources';
+end;
+
+Class Function TUsersDataSourcesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TfitnessAPI;
+end;
+
+Function TUsersDataSourcesResource.Create(userId: string; aDataSource : TDataSource) : TDataSource;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = '{userId}/dataSources';
+  _Methodid   = 'fitness.users.dataSources.create';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aDataSource,TDataSource) as TDataSource;
+end;
+
+Function TUsersDataSourcesResource.Delete(dataSourceId: string; userId: string) : TDataSource;
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = '{userId}/dataSources/{dataSourceId}';
+  _Methodid   = 'fitness.users.dataSources.delete';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['dataSourceId',dataSourceId,'userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDataSource) as TDataSource;
+end;
+
+Function TUsersDataSourcesResource.Get(dataSourceId: string; userId: string) : TDataSource;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{userId}/dataSources/{dataSourceId}';
+  _Methodid   = 'fitness.users.dataSources.get';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['dataSourceId',dataSourceId,'userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDataSource) as TDataSource;
+end;
+
+Function TUsersDataSourcesResource.List(userId: string; AQuery : string = '') : TListDataSourcesResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{userId}/dataSources';
+  _Methodid   = 'fitness.users.dataSources.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListDataSourcesResponse) as TListDataSourcesResponse;
+end;
+
+
+Function TUsersDataSourcesResource.List(userId: string; AQuery : TUsersDataSourceslistOptions) : TListDataSourcesResponse;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'dataTypeName',AQuery.dataTypeName);
+  Result:=List(userId,_Q);
+end;
+
+Function TUsersDataSourcesResource.Patch(dataSourceId: string; userId: string; aDataSource : TDataSource) : TDataSource;
+
+Const
+  _HTTPMethod = 'PATCH';
+  _Path       = '{userId}/dataSources/{dataSourceId}';
+  _Methodid   = 'fitness.users.dataSources.patch';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['dataSourceId',dataSourceId,'userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aDataSource,TDataSource) as TDataSource;
+end;
+
+Function TUsersDataSourcesResource.Update(dataSourceId: string; userId: string; aDataSource : TDataSource) : TDataSource;
+
+Const
+  _HTTPMethod = 'PUT';
+  _Path       = '{userId}/dataSources/{dataSourceId}';
+  _Methodid   = 'fitness.users.dataSources.update';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['dataSourceId',dataSourceId,'userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aDataSource,TDataSource) as TDataSource;
+end;
+
+
+
+Function TUsersDataSourcesResource.GetDatasetsInstance : TUsersDataSourcesDatasetsResource;
+
+begin
+  if (FDatasetsInstance=Nil) then
+    FDatasetsInstance:=CreateDatasetsResource;
+  Result:=FDatasetsInstance;
+end;
+
+Function TUsersDataSourcesResource.CreateDatasetsResource : TUsersDataSourcesDatasetsResource;
+
+begin
+  Result:=CreateDatasetsResource(Self);
+end;
+
+
+Function TUsersDataSourcesResource.CreateDatasetsResource(AOwner : TComponent) : TUsersDataSourcesDatasetsResource;
+
+begin
+  Result:=TUsersDataSourcesDatasetsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TUsersSessionsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TUsersSessionsResource.ResourceName : String;
+
+begin
+  Result:='sessions';
+end;
+
+Class Function TUsersSessionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TfitnessAPI;
+end;
+
+Procedure TUsersSessionsResource.Delete(sessionId: string; userId: string; AQuery : string = '');
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = '{userId}/sessions/{sessionId}';
+  _Methodid   = 'fitness.users.sessions.delete';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['sessionId',sessionId,'userId',userId]);
+  ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TUsersSessionsResource.Delete(sessionId: string; userId: string; AQuery : TUsersSessionsdeleteOptions);
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'currentTimeMillis',AQuery.currentTimeMillis);
+  Delete(sessionId,userId,_Q);
+end;
+
+Function TUsersSessionsResource.List(userId: string; AQuery : string = '') : TListSessionsResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{userId}/sessions';
+  _Methodid   = 'fitness.users.sessions.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListSessionsResponse) as TListSessionsResponse;
+end;
+
+
+Function TUsersSessionsResource.List(userId: string; AQuery : TUsersSessionslistOptions) : TListSessionsResponse;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'endTime',AQuery.endTime);
+  AddToQuery(_Q,'includeDeleted',AQuery.includeDeleted);
+  AddToQuery(_Q,'pageToken',AQuery.pageToken);
+  AddToQuery(_Q,'startTime',AQuery.startTime);
+  Result:=List(userId,_Q);
+end;
+
+Function TUsersSessionsResource.Update(sessionId: string; userId: string; aSession : TSession; AQuery : string = '') : TSession;
+
+Const
+  _HTTPMethod = 'PUT';
+  _Path       = '{userId}/sessions/{sessionId}';
+  _Methodid   = 'fitness.users.sessions.update';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['sessionId',sessionId,'userId',userId]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aSession,TSession) as TSession;
+end;
+
+
+Function TUsersSessionsResource.Update(sessionId: string; userId: string; aSession : TSession; AQuery : TUsersSessionsupdateOptions) : TSession;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'currentTimeMillis',AQuery.currentTimeMillis);
+  Result:=Update(sessionId,userId,aSession,_Q);
+end;
+
+
+
 { --------------------------------------------------------------------
   TUsersResource
   --------------------------------------------------------------------}
@@ -1005,6 +1584,78 @@ end;
 
 
 
+Function TUsersResource.GetDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;
+
+begin
+  if (FDataSourcesDatasetsInstance=Nil) then
+    FDataSourcesDatasetsInstance:=CreateDataSourcesDatasetsResource;
+  Result:=FDataSourcesDatasetsInstance;
+end;
+
+Function TUsersResource.CreateDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource;
+
+begin
+  Result:=CreateDataSourcesDatasetsResource(Self);
+end;
+
+
+Function TUsersResource.CreateDataSourcesDatasetsResource(AOwner : TComponent) : TUsersDataSourcesDatasetsResource;
+
+begin
+  Result:=TUsersDataSourcesDatasetsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TUsersResource.GetDataSourcesInstance : TUsersDataSourcesResource;
+
+begin
+  if (FDataSourcesInstance=Nil) then
+    FDataSourcesInstance:=CreateDataSourcesResource;
+  Result:=FDataSourcesInstance;
+end;
+
+Function TUsersResource.CreateDataSourcesResource : TUsersDataSourcesResource;
+
+begin
+  Result:=CreateDataSourcesResource(Self);
+end;
+
+
+Function TUsersResource.CreateDataSourcesResource(AOwner : TComponent) : TUsersDataSourcesResource;
+
+begin
+  Result:=TUsersDataSourcesResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TUsersResource.GetSessionsInstance : TUsersSessionsResource;
+
+begin
+  if (FSessionsInstance=Nil) then
+    FSessionsInstance:=CreateSessionsResource;
+  Result:=FSessionsInstance;
+end;
+
+Function TUsersResource.CreateSessionsResource : TUsersSessionsResource;
+
+begin
+  Result:=CreateSessionsResource(Self);
+end;
+
+
+Function TUsersResource.CreateSessionsResource(AOwner : TComponent) : TUsersSessionsResource;
+
+begin
+  Result:=TUsersSessionsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TFitnessAPI
   --------------------------------------------------------------------}
@@ -1078,7 +1729,7 @@ end;
 Class Function TFitnessAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TFitnessAPI.APIbasePath : string;
@@ -1090,7 +1741,7 @@ end;
 Class Function TFitnessAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/fitness/v1/users/';
+  Result:='https://www.googleapis.com:443/fitness/v1/users/';
 end;
 
 Class Function TFitnessAPI.APIProtocol : string;
@@ -1153,6 +1804,78 @@ begin
 end;
 
 
+Function TFitnessAPI.GetUsersDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;
+
+begin
+  if (FUsersDataSourcesDatasetsInstance=Nil) then
+    FUsersDataSourcesDatasetsInstance:=CreateUsersDataSourcesDatasetsResource;
+  Result:=FUsersDataSourcesDatasetsInstance;
+end;
+
+Function TFitnessAPI.CreateUsersDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource;
+
+begin
+  Result:=CreateUsersDataSourcesDatasetsResource(Self);
+end;
+
+
+Function TFitnessAPI.CreateUsersDataSourcesDatasetsResource(AOwner : TComponent) : TUsersDataSourcesDatasetsResource;
+
+begin
+  Result:=TUsersDataSourcesDatasetsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TFitnessAPI.GetUsersDataSourcesInstance : TUsersDataSourcesResource;
+
+begin
+  if (FUsersDataSourcesInstance=Nil) then
+    FUsersDataSourcesInstance:=CreateUsersDataSourcesResource;
+  Result:=FUsersDataSourcesInstance;
+end;
+
+Function TFitnessAPI.CreateUsersDataSourcesResource : TUsersDataSourcesResource;
+
+begin
+  Result:=CreateUsersDataSourcesResource(Self);
+end;
+
+
+Function TFitnessAPI.CreateUsersDataSourcesResource(AOwner : TComponent) : TUsersDataSourcesResource;
+
+begin
+  Result:=TUsersDataSourcesResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TFitnessAPI.GetUsersSessionsInstance : TUsersSessionsResource;
+
+begin
+  if (FUsersSessionsInstance=Nil) then
+    FUsersSessionsInstance:=CreateUsersSessionsResource;
+  Result:=FUsersSessionsInstance;
+end;
+
+Function TFitnessAPI.CreateUsersSessionsResource : TUsersSessionsResource;
+
+begin
+  Result:=CreateUsersSessionsResource(Self);
+end;
+
+
+Function TFitnessAPI.CreateUsersSessionsResource(AOwner : TComponent) : TUsersSessionsResource;
+
+begin
+  Result:=TUsersSessionsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 Function TFitnessAPI.GetUsersInstance : TUsersResource;
 
 begin
@@ -1172,7 +1895,7 @@ Function TFitnessAPI.CreateUsersResource(AOwner : TComponent) : TUsersResource;
 
 begin
   Result:=TUsersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlefreebase.pp

@@ -13,7 +13,7 @@ unit googlefreebase;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:53
+//Generated on: 16-5-15 08:53:03
 {$MODE objfpc}
 {$H+}
 
@@ -24,14 +24,14 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TReconcileCandidate = class;
-  TReconcileGet = class;
+  TReconcileCandidate = Class;
+  TReconcileGet = Class;
   TReconcileCandidateArray = Array of TReconcileCandidate;
   TReconcileGetArray = Array of TReconcileGet;
   //Anonymous types, using auto-generated names
-  TReconcileCandidateTypenotable = class;
-  TReconcileGetTypecosts = class;
-  TReconcileGetTypewarningItem = class;
+  TReconcileCandidateTypenotable = Class;
+  TReconcileGetTypecosts = Class;
+  TReconcileGetTypewarningItem = Class;
   TReconcileGetTypecandidateArray = Array of TReconcileCandidate;
   TReconcileGetTypewarningArray = Array of TReconcileGetTypewarningItem;
   
@@ -139,6 +139,10 @@ type
     Procedure Setcosts(AIndex : Integer; AValue : TReconcileGetTypecosts); virtual;
     Procedure Setmatch(AIndex : Integer; AValue : TReconcileCandidate); virtual;
     Procedure Setwarning(AIndex : Integer; AValue : TReconcileGetTypewarningArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property candidate : TReconcileGetTypecandidateArray Index 0 Read Fcandidate Write Setcandidate;
@@ -375,6 +379,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReconcileGet.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'candidate' : SetLength(Fcandidate,ALength);
+  'warning' : SetLength(Fwarning,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -451,7 +469,7 @@ end;
 Class Function TFreebaseAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TFreebaseAPI.APIbasePath : string;
@@ -463,7 +481,7 @@ end;
 Class Function TFreebaseAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/freebase/v1/';
+  Result:='https://www.googleapis.com:443/freebase/v1/';
 end;
 
 Class Function TFreebaseAPI.APIProtocol : string;

packages/googleapi/src/googlefusiontables.pp

@@ -13,7 +13,7 @@ unit googlefusiontables;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:54
+//Generated on: 16-5-15 08:53:03
 {$MODE objfpc}
 {$H+}
 
@@ -24,27 +24,27 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TBucket = class;
-  TColumn = class;
-  TColumnList = class;
-  TGeometry = class;
-  TImport = class;
-  TLine = class;
-  TLineStyle = class;
-  TPoint = class;
-  TPointStyle = class;
-  TPolygon = class;
-  TPolygonStyle = class;
-  TSqlresponse = class;
-  TStyleFunction = class;
-  TStyleSetting = class;
-  TStyleSettingList = class;
-  TTable = class;
-  TTableList = class;
-  TTask = class;
-  TTaskList = class;
-  TTemplate = class;
-  TTemplateList = class;
+  TBucket = Class;
+  TColumn = Class;
+  TColumnList = Class;
+  TGeometry = Class;
+  TImport = Class;
+  TLine = Class;
+  TLineStyle = Class;
+  TPoint = Class;
+  TPointStyle = Class;
+  TPolygon = Class;
+  TPolygonStyle = Class;
+  TSqlresponse = Class;
+  TStyleFunction = Class;
+  TStyleSetting = Class;
+  TStyleSettingList = Class;
+  TTable = Class;
+  TTableList = Class;
+  TTask = Class;
+  TTaskList = Class;
+  TTemplate = Class;
+  TTemplateList = Class;
   TBucketArray = Array of TBucket;
   TColumnArray = Array of TColumn;
   TColumnListArray = Array of TColumnList;
@@ -67,9 +67,9 @@ type
   TTemplateArray = Array of TTemplate;
   TTemplateListArray = Array of TTemplateList;
   //Anonymous types, using auto-generated names
-  TColumnTypebaseColumn = class;
-  TStyleFunctionTypegradientTypecolorsItem = class;
-  TStyleFunctionTypegradient = class;
+  TColumnTypebaseColumn = Class;
+  TStyleFunctionTypegradientTypecolorsItem = Class;
+  TStyleFunctionTypegradient = Class;
   TColumnListTypeitemsArray = Array of TColumn;
   TLineTypecoordinatesArray = Array of TdoubleArray;
   TPolygonTypecoordinatesItemArray = Array of TdoubleArray;
@@ -166,6 +166,10 @@ type
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure SetvalidValues(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetvalidateData(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 baseColumn : TColumnTypebaseColumn Index 0 Read FbaseColumn Write SetbaseColumn;
@@ -199,6 +203,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TColumnListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -223,6 +231,10 @@ type
     Procedure Setgeometries(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     Procedure Setgeometry(AIndex : Integer; AValue : TJSONSchema); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property geometries : TTJSONSchemaArray Index 0 Read Fgeometries Write Setgeometries;
@@ -263,6 +275,10 @@ type
     //Property setters
     Procedure Setcoordinates(AIndex : Integer; AValue : TLineTypecoordinatesArray); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property coordinates : TLineTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
@@ -311,6 +327,10 @@ type
     //Property setters
     Procedure Setcoordinates(AIndex : Integer; AValue : TdoubleArray); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property coordinates : TdoubleArray Index 0 Read Fcoordinates Write Setcoordinates;
@@ -350,6 +370,10 @@ type
     //Property setters
     Procedure Setcoordinates(AIndex : Integer; AValue : TPolygonTypecoordinatesArray); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property coordinates : TPolygonTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
@@ -408,6 +432,10 @@ type
     Procedure Setcolumns(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TSqlresponseTyperowsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property columns : TStringArray Index 0 Read Fcolumns Write Setcolumns;
@@ -449,6 +477,10 @@ type
     Procedure Setcolors(AIndex : Integer; AValue : TStyleFunctionTypegradientTypecolorsArray); virtual;
     Procedure Setmax(AIndex : Integer; AValue : double); virtual;
     Procedure Setmin(AIndex : Integer; AValue : double); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property colors : TStyleFunctionTypegradientTypecolorsArray Index 0 Read Fcolors Write Setcolors;
@@ -473,6 +505,10 @@ type
     Procedure SetcolumnName(AIndex : Integer; AValue : String); virtual;
     Procedure Setgradient(AIndex : Integer; AValue : TStyleFunctionTypegradient); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property buckets : TStyleFunctionTypebucketsArray Index 0 Read Fbuckets Write Setbuckets;
@@ -532,6 +568,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TStyleSettingListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -575,6 +615,10 @@ type
     Procedure SettableId(AIndex : Integer; AValue : String); virtual;
     Procedure SettablePropertiesJson(AIndex : Integer; AValue : String); virtual;
     Procedure SettablePropertiesJsonSchema(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property attribution : String Index 0 Read Fattribution Write Setattribution;
@@ -607,6 +651,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TTableListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TTableListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -660,6 +708,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TTaskListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -689,6 +741,10 @@ type
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure SettableId(AIndex : Integer; AValue : String); virtual;
     Procedure SettemplateId(AIndex : Integer; AValue : integer); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property automaticColumnNames : TStringArray Index 0 Read FautomaticColumnNames Write SetautomaticColumnNames;
@@ -716,6 +772,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TTemplateListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1242,6 +1302,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TColumn.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'validvalues' : SetLength(FvalidValues,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1289,6 +1362,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TColumnList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1337,6 +1423,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGeometry.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'geometries' : SetLength(Fgeometries,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1402,6 +1501,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLine.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'coordinates' : SetLength(Fcoordinates,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1497,6 +1609,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPoint.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'coordinates' : SetLength(Fcoordinates,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1562,6 +1687,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPolygon.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'coordinates' : SetLength(Fcoordinates,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1686,6 +1824,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSqlresponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'columns' : SetLength(Fcolumns,ALength);
+  'rows' : SetLength(Frows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1750,6 +1902,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStyleFunctionTypegradient.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'colors' : SetLength(Fcolors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1797,6 +1962,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStyleFunction.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'buckets' : SetLength(Fbuckets,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1921,6 +2099,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStyleSettingList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2058,6 +2249,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTable.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'basetableids' : SetLength(FbaseTableIds,ALength);
+  'columns' : SetLength(Fcolumns,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2095,6 +2300,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTableList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2210,6 +2428,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTaskList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2277,6 +2508,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTemplate.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'automaticcolumnnames' : SetLength(FautomaticColumnNames,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2324,6 +2568,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTemplateList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3165,7 +3422,7 @@ end;
 Class Function TFusiontablesAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TFusiontablesAPI.APIbasePath : string;
@@ -3177,7 +3434,7 @@ end;
 Class Function TFusiontablesAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/fusiontables/v2/';
+  Result:='https://www.googleapis.com:443/fusiontables/v2/';
 end;
 
 Class Function TFusiontablesAPI.APIProtocol : string;
@@ -3264,7 +3521,7 @@ Function TFusiontablesAPI.CreateColumnResource(AOwner : TComponent) : TColumnRes
 
 begin
   Result:=TColumnResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3288,7 +3545,7 @@ Function TFusiontablesAPI.CreateQueryResource(AOwner : TComponent) : TQueryResou
 
 begin
   Result:=TQueryResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3312,7 +3569,7 @@ Function TFusiontablesAPI.CreateStyleResource(AOwner : TComponent) : TStyleResou
 
 begin
   Result:=TStyleResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3336,7 +3593,7 @@ Function TFusiontablesAPI.CreateTableResource(AOwner : TComponent) : TTableResou
 
 begin
   Result:=TTableResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3360,7 +3617,7 @@ Function TFusiontablesAPI.CreateTaskResource(AOwner : TComponent) : TTaskResourc
 
 begin
   Result:=TTaskResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3384,7 +3641,7 @@ Function TFusiontablesAPI.CreateTemplateResource(AOwner : TComponent) : TTemplat
 
 begin
   Result:=TTemplateResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlegamesConfiguration.pp

@@ -13,7 +13,7 @@ unit googlegamesConfiguration;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:54
+//Generated on: 16-5-15 08:53:04
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAchievementConfiguration = class;
-  TAchievementConfigurationDetail = class;
-  TAchievementConfigurationListResponse = class;
-  TGamesNumberAffixConfiguration = class;
-  TGamesNumberFormatConfiguration = class;
-  TImageConfiguration = class;
-  TLeaderboardConfiguration = class;
-  TLeaderboardConfigurationDetail = class;
-  TLeaderboardConfigurationListResponse = class;
-  TLocalizedString = class;
-  TLocalizedStringBundle = class;
+  TAchievementConfiguration = Class;
+  TAchievementConfigurationDetail = Class;
+  TAchievementConfigurationListResponse = Class;
+  TGamesNumberAffixConfiguration = Class;
+  TGamesNumberFormatConfiguration = Class;
+  TImageConfiguration = Class;
+  TLeaderboardConfiguration = Class;
+  TLeaderboardConfigurationDetail = Class;
+  TLeaderboardConfigurationListResponse = Class;
+  TLocalizedString = Class;
+  TLocalizedStringBundle = Class;
   TAchievementConfigurationArray = Array of TAchievementConfiguration;
   TAchievementConfigurationDetailArray = Array of TAchievementConfigurationDetail;
   TAchievementConfigurationListResponseArray = Array of TAchievementConfigurationListResponse;
@@ -134,6 +134,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TAchievementConfigurationListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -303,6 +307,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TLeaderboardConfigurationListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -345,6 +353,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Settranslations(AIndex : Integer; AValue : TLocalizedStringBundleTypetranslationsArray); 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;
@@ -665,6 +677,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAchievementConfigurationListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1018,6 +1043,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLeaderboardConfigurationListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1082,6 +1120,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLocalizedStringBundle.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'translations' : SetLength(Ftranslations,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1382,7 +1433,7 @@ end;
 Class Function TGamesConfigurationAPI.APIRevision : String;
 
 begin
-  Result:='20150421';
+  Result:='20150511';
 end;
 
 Class Function TGamesConfigurationAPI.APIID : String;
@@ -1436,7 +1487,7 @@ end;
 Class Function TGamesConfigurationAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TGamesConfigurationAPI.APIbasePath : string;
@@ -1448,7 +1499,7 @@ end;
 Class Function TGamesConfigurationAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/games/v1configuration/';
+  Result:='https://www.googleapis.com:443/games/v1configuration/';
 end;
 
 Class Function TGamesConfigurationAPI.APIProtocol : string;
@@ -1520,7 +1571,7 @@ Function TGamesConfigurationAPI.CreateAchievementConfigurationsResource(AOwner :
 
 begin
   Result:=TAchievementConfigurationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1544,7 +1595,7 @@ Function TGamesConfigurationAPI.CreateImageConfigurationsResource(AOwner : TComp
 
 begin
   Result:=TImageConfigurationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1568,7 +1619,7 @@ Function TGamesConfigurationAPI.CreateLeaderboardConfigurationsResource(AOwner :
 
 begin
   Result:=TLeaderboardConfigurationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlegamesManagement.pp

@@ -13,7 +13,7 @@ unit googlegamesManagement;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:54
+//Generated on: 16-5-15 08:53:04
 {$MODE objfpc}
 {$H+}
 
@@ -24,20 +24,20 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAchievementResetAllResponse = class;
-  TAchievementResetMultipleForAllRequest = class;
-  TAchievementResetResponse = class;
-  TEventsResetMultipleForAllRequest = class;
-  TGamesPlayedResource = class;
-  TGamesPlayerExperienceInfoResource = class;
-  TGamesPlayerLevelResource = class;
-  THiddenPlayer = class;
-  THiddenPlayerList = class;
-  TPlayer = class;
-  TPlayerScoreResetAllResponse = class;
-  TPlayerScoreResetResponse = class;
-  TQuestsResetMultipleForAllRequest = class;
-  TScoresResetMultipleForAllRequest = class;
+  TAchievementResetAllResponse = Class;
+  TAchievementResetMultipleForAllRequest = Class;
+  TAchievementResetResponse = Class;
+  TEventsResetMultipleForAllRequest = Class;
+  TGamesPlayedResource = Class;
+  TGamesPlayerExperienceInfoResource = Class;
+  TGamesPlayerLevelResource = Class;
+  THiddenPlayer = Class;
+  THiddenPlayerList = Class;
+  TPlayer = Class;
+  TPlayerScoreResetAllResponse = Class;
+  TPlayerScoreResetResponse = Class;
+  TQuestsResetMultipleForAllRequest = Class;
+  TScoresResetMultipleForAllRequest = Class;
   TAchievementResetAllResponseArray = Array of TAchievementResetAllResponse;
   TAchievementResetMultipleForAllRequestArray = Array of TAchievementResetMultipleForAllRequest;
   TAchievementResetResponseArray = Array of TAchievementResetResponse;
@@ -53,7 +53,7 @@ type
   TQuestsResetMultipleForAllRequestArray = Array of TQuestsResetMultipleForAllRequest;
   TScoresResetMultipleForAllRequestArray = Array of TScoresResetMultipleForAllRequest;
   //Anonymous types, using auto-generated names
-  TPlayerTypename = class;
+  TPlayerTypename = Class;
   TAchievementResetAllResponseTyperesultsArray = Array of TAchievementResetResponse;
   THiddenPlayerListTypeitemsArray = Array of THiddenPlayer;
   TPlayerScoreResetAllResponseTyperesultsArray = Array of TPlayerScoreResetResponse;
@@ -70,6 +70,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setresults(AIndex : Integer; AValue : TAchievementResetAllResponseTyperesultsArray); 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;
@@ -89,6 +93,10 @@ type
     //Property setters
     Procedure Setachievement_ids(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 achievement_ids : TStringArray Index 0 Read Fachievement_ids Write Setachievement_ids;
@@ -133,6 +141,10 @@ type
     //Property setters
     Procedure Setevent_ids(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 event_ids : TStringArray Index 0 Read Fevent_ids Write Setevent_ids;
@@ -242,6 +254,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : THiddenPlayerListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : THiddenPlayerListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -318,6 +334,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setresults(AIndex : Integer; AValue : TPlayerScoreResetAllResponseTyperesultsArray); 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;
@@ -339,6 +359,10 @@ type
     Procedure SetdefinitionId(AIndex : Integer; AValue : String); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetresetScoreTimeSpans(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 definitionId : String Index 0 Read FdefinitionId Write SetdefinitionId;
@@ -359,6 +383,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setquest_ids(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 kind : String Index 0 Read Fkind Write Setkind;
@@ -378,6 +406,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setleaderboard_ids(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 kind : String Index 0 Read Fkind Write Setkind;
@@ -608,6 +640,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAchievementResetAllResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'results' : SetLength(Fresults,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -635,6 +680,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAchievementResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'achievement_ids' : SetLength(Fachievement_ids,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -709,6 +767,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEventsResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'event_ids' : SetLength(Fevent_ids,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -894,6 +965,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure THiddenPlayerList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1035,6 +1119,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPlayerScoreResetAllResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'results' : SetLength(Fresults,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1072,6 +1169,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPlayerScoreResetResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'resetscoretimespans' : SetLength(FresetScoreTimeSpans,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1099,6 +1209,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TQuestsResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'quest_ids' : SetLength(Fquest_ids,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1126,6 +1249,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TScoresResetMultipleForAllRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'leaderboard_ids' : SetLength(Fleaderboard_ids,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1654,7 +1790,7 @@ end;
 Class Function TGamesManagementAPI.APIRevision : String;
 
 begin
-  Result:='20150421';
+  Result:='20150511';
 end;
 
 Class Function TGamesManagementAPI.APIID : String;
@@ -1708,7 +1844,7 @@ end;
 Class Function TGamesManagementAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TGamesManagementAPI.APIbasePath : string;
@@ -1720,7 +1856,7 @@ end;
 Class Function TGamesManagementAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/games/v1management/';
+  Result:='https://www.googleapis.com:443/games/v1management/';
 end;
 
 Class Function TGamesManagementAPI.APIProtocol : string;
@@ -1798,7 +1934,7 @@ Function TGamesManagementAPI.CreateAchievementsResource(AOwner : TComponent) : T
 
 begin
   Result:=TAchievementsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1822,7 +1958,7 @@ Function TGamesManagementAPI.CreateApplicationsResource(AOwner : TComponent) : T
 
 begin
   Result:=TApplicationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1846,7 +1982,7 @@ Function TGamesManagementAPI.CreateEventsResource(AOwner : TComponent) : TEvents
 
 begin
   Result:=TEventsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1870,7 +2006,7 @@ Function TGamesManagementAPI.CreatePlayersResource(AOwner : TComponent) : TPlaye
 
 begin
   Result:=TPlayersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1894,7 +2030,7 @@ Function TGamesManagementAPI.CreateQuestsResource(AOwner : TComponent) : TQuests
 
 begin
   Result:=TQuestsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1918,7 +2054,7 @@ Function TGamesManagementAPI.CreateRoomsResource(AOwner : TComponent) : TRoomsRe
 
 begin
   Result:=TRoomsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1942,7 +2078,7 @@ Function TGamesManagementAPI.CreateScoresResource(AOwner : TComponent) : TScores
 
 begin
   Result:=TScoresResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1966,7 +2102,7 @@ Function TGamesManagementAPI.CreateTurnBasedMatchesResource(AOwner : TComponent)
 
 begin
   Result:=TTurnBasedMatchesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlegan.pp

@@ -13,7 +13,7 @@ unit googlegan;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:54
+//Generated on: 16-5-15 08:53:04
 {$MODE objfpc}
 {$H+}
 
@@ -24,18 +24,18 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAdvertiser = class;
-  TAdvertisers = class;
-  TCcOffer = class;
-  TCcOffers = class;
-  TEvent = class;
-  TEvents = class;
-  TLink = class;
-  TLinks = class;
-  TMoney = class;
-  TPublisher = class;
-  TPublishers = class;
-  TReport = class;
+  TAdvertiser = Class;
+  TAdvertisers = Class;
+  TCcOffer = Class;
+  TCcOffers = Class;
+  TEvent = Class;
+  TEvents = Class;
+  TLink = Class;
+  TLinks = Class;
+  TMoney = Class;
+  TPublisher = Class;
+  TPublishers = Class;
+  TReport = Class;
   TAdvertiserArray = Array of TAdvertiser;
   TAdvertisersArray = Array of TAdvertisers;
   TCcOfferArray = Array of TCcOffer;
@@ -49,11 +49,11 @@ type
   TPublishersArray = Array of TPublishers;
   TReportArray = Array of TReport;
   //Anonymous types, using auto-generated names
-  TCcOfferTypebonusRewardsItem = class;
-  TCcOfferTypedefaultFeesItem = class;
-  TCcOfferTyperewardsItem = class;
-  TEventTypeproductsItem = class;
-  TLinkTypespecialOffers = class;
+  TCcOfferTypebonusRewardsItem = Class;
+  TCcOfferTypedefaultFeesItem = Class;
+  TCcOfferTyperewardsItem = Class;
+  TEventTypeproductsItem = Class;
+  TLinkTypespecialOffers = Class;
   TAdvertisersTypeitemsArray = Array of TAdvertiser;
   TCcOfferTypebonusRewardsArray = Array of TCcOfferTypebonusRewardsItem;
   TCcOfferTypedefaultFeesArray = Array of TCcOfferTypedefaultFeesItem;
@@ -116,6 +116,10 @@ type
     Procedure SetredirectDomains(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetsiteUrl(AIndex : Integer; AValue : String); virtual;
     Procedure Setstatus(AIndex : Integer; 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 allowPublisherCreatedLinks : boolean Index 0 Read FallowPublisherCreatedLinks Write SetallowPublisherCreatedLinks;
@@ -156,6 +160,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TAdvertisersTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TAdvertisersTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -373,6 +381,10 @@ type
     Procedure SettravelInsurance(AIndex : Integer; AValue : String); virtual;
     Procedure SetvariableRatesLastUpdated(AIndex : Integer; AValue : String); virtual;
     Procedure SetvariableRatesUpdateFrequency(AIndex : Integer; 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 additionalCardBenefits : TStringArray Index 0 Read FadditionalCardBenefits Write SetadditionalCardBenefits;
@@ -453,6 +465,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TCcOffersTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TCcOffersTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -545,6 +561,10 @@ type
     Procedure SetpublisherName(AIndex : Integer; AValue : String); virtual;
     Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; 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 advertiserId : String Index 0 Read FadvertiserId Write SetadvertiserId;
@@ -582,6 +602,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TEventsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TEventsTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -614,6 +638,10 @@ type
     Procedure SetpriceCut(AIndex : Integer; AValue : TMoney); virtual;
     Procedure SetpriceCutMin(AIndex : Integer; AValue : TMoney); virtual;
     Procedure SetpromotionCodes(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 freeGift : boolean Index 0 Read FfreeGift Write SetfreeGift;
@@ -717,6 +745,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TLinksTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TLinksTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -774,6 +806,10 @@ type
     Procedure SetpayoutRank(AIndex : Integer; AValue : String); virtual;
     Procedure Setsites(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setstatus(AIndex : Integer; 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 classification : String Index 0 Read Fclassification Write Setclassification;
@@ -804,6 +840,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TPublishersTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TPublishersTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -837,6 +877,10 @@ type
     Procedure Setstart_date(AIndex : Integer; AValue : String); virtual;
     Procedure Settotals_rows(AIndex : Integer; AValue : TReportTypetotals_rowsArray); virtual;
     Procedure Set_type(AIndex : Integer; 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 column_names : TStringArray Index 0 Read Fcolumn_names Write Setcolumn_names;
@@ -1319,6 +1363,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAdvertiser.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'merchantcenterids' : SetLength(FmerchantCenterIds,ALength);
+  'redirectdomains' : SetLength(FredirectDomains,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1356,6 +1414,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAdvertisers.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2134,6 +2205,25 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCcOffer.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'additionalcardbenefits' : SetLength(FadditionalCardBenefits,ALength);
+  'approvedcategories' : SetLength(FapprovedCategories,ALength);
+  'bonusrewards' : SetLength(FbonusRewards,ALength);
+  'cardbenefits' : SetLength(FcardBenefits,ALength);
+  'defaultfees' : SetLength(FdefaultFees,ALength);
+  'prohibitedcategories' : SetLength(FprohibitedCategories,ALength);
+  'rewards' : SetLength(Frewards,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2161,6 +2251,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCcOffers.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2456,6 +2559,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEvent.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'products' : SetLength(Fproducts,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2493,6 +2609,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEvents.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2580,6 +2709,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLinkTypespecialOffers.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'promotioncodes' : SetLength(FpromotionCodes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2834,6 +2976,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLinks.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2978,6 +3133,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublisher.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'sites' : SetLength(Fsites,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3015,6 +3183,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublishers.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3113,6 +3294,21 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReport.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'column_names' : SetLength(Fcolumn_names,ALength);
+  'rows' : SetLength(Frows,ALength);
+  'totals_rows' : SetLength(Ftotals_rows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3599,7 +3795,7 @@ end;
 Class Function TGanAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TGanAPI.APIbasePath : string;
@@ -3611,7 +3807,7 @@ end;
 Class Function TGanAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/gan/v1beta1/';
+  Result:='https://www.googleapis.com:443/gan/v1beta1/';
 end;
 
 Class Function TGanAPI.APIProtocol : string;
@@ -3687,7 +3883,7 @@ Function TGanAPI.CreateAdvertisersResource(AOwner : TComponent) : TAdvertisersRe
 
 begin
   Result:=TAdvertisersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3711,7 +3907,7 @@ Function TGanAPI.CreateCcOffersResource(AOwner : TComponent) : TCcOffersResource
 
 begin
   Result:=TCcOffersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3735,7 +3931,7 @@ Function TGanAPI.CreateEventsResource(AOwner : TComponent) : TEventsResource;
 
 begin
   Result:=TEventsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3759,7 +3955,7 @@ Function TGanAPI.CreateLinksResource(AOwner : TComponent) : TLinksResource;
 
 begin
   Result:=TLinksResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3783,7 +3979,7 @@ Function TGanAPI.CreatePublishersResource(AOwner : TComponent) : TPublishersReso
 
 begin
   Result:=TPublishersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3807,7 +4003,7 @@ Function TGanAPI.CreateReportsResource(AOwner : TComponent) : TReportsResource;
 
 begin
   Result:=TReportsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlegroupsmigration.pp

@@ -13,7 +13,7 @@ unit googlegroupsmigration;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:55
+//Generated on: 16-5-15 08:53:05
 {$MODE objfpc}
 {$H+}
 
@@ -24,7 +24,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TGroups = class;
+  TGroups = Class;
   TGroupsArray = Array of TGroups;
   //Anonymous types, using auto-generated names
   
@@ -233,7 +233,7 @@ end;
 Class Function TGroupsmigrationAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TGroupsmigrationAPI.APIbasePath : string;
@@ -245,7 +245,7 @@ end;
 Class Function TGroupsmigrationAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/groups/v1/groups/';
+  Result:='https://www.googleapis.com:443/groups/v1/groups/';
 end;
 
 Class Function TGroupsmigrationAPI.APIProtocol : string;
@@ -307,7 +307,7 @@ Function TGroupsmigrationAPI.CreateArchiveResource(AOwner : TComponent) : TArchi
 
 begin
   Result:=TArchiveResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlegroupssettings.pp

@@ -13,7 +13,7 @@ unit googlegroupssettings;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:55
+//Generated on: 16-5-15 08:53:05
 {$MODE objfpc}
 {$H+}
 
@@ -24,7 +24,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TGroups = class;
+  TGroups = Class;
   TGroupsArray = Array of TGroups;
   //Anonymous types, using auto-generated names
   
@@ -603,7 +603,7 @@ end;
 Class Function TGroupssettingsAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TGroupssettingsAPI.APIbasePath : string;
@@ -615,7 +615,7 @@ end;
 Class Function TGroupssettingsAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/groups/v1/groups/';
+  Result:='https://www.googleapis.com:443/groups/v1/groups/';
 end;
 
 Class Function TGroupssettingsAPI.APIProtocol : string;
@@ -677,7 +677,7 @@ Function TGroupssettingsAPI.CreateGroupsResource(AOwner : TComponent) : TGroupsR
 
 begin
   Result:=TGroupsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleidentitytoolkit.pp

@@ -13,7 +13,7 @@ unit googleidentitytoolkit;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:55
+//Generated on: 16-5-15 08:53:05
 {$MODE objfpc}
 {$H+}
 
@@ -24,29 +24,29 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TCreateAuthUriResponse = class;
-  TDeleteAccountResponse = class;
-  TDownloadAccountResponse = class;
-  TGetAccountInfoResponse = class;
-  TGetOobConfirmationCodeResponse = class;
-  TGetRecaptchaParamResponse = class;
-  TIdentitytoolkitRelyingpartyCreateAuthUriRequest = class;
-  TIdentitytoolkitRelyingpartyDeleteAccountRequest = class;
-  TIdentitytoolkitRelyingpartyDownloadAccountRequest = class;
-  TIdentitytoolkitRelyingpartyGetAccountInfoRequest = class;
-  TIdentitytoolkitRelyingpartyGetPublicKeysResponse = class;
-  TIdentitytoolkitRelyingpartyResetPasswordRequest = class;
-  TIdentitytoolkitRelyingpartySetAccountInfoRequest = class;
-  TIdentitytoolkitRelyingpartyUploadAccountRequest = class;
-  TIdentitytoolkitRelyingpartyVerifyAssertionRequest = class;
-  TIdentitytoolkitRelyingpartyVerifyPasswordRequest = class;
-  TRelyingparty = class;
-  TResetPasswordResponse = class;
-  TSetAccountInfoResponse = class;
-  TUploadAccountResponse = class;
-  TUserInfo = class;
-  TVerifyAssertionResponse = class;
-  TVerifyPasswordResponse = class;
+  TCreateAuthUriResponse = Class;
+  TDeleteAccountResponse = Class;
+  TDownloadAccountResponse = Class;
+  TGetAccountInfoResponse = Class;
+  TGetOobConfirmationCodeResponse = Class;
+  TGetRecaptchaParamResponse = Class;
+  TIdentitytoolkitRelyingpartyCreateAuthUriRequest = Class;
+  TIdentitytoolkitRelyingpartyDeleteAccountRequest = Class;
+  TIdentitytoolkitRelyingpartyDownloadAccountRequest = Class;
+  TIdentitytoolkitRelyingpartyGetAccountInfoRequest = Class;
+  TIdentitytoolkitRelyingpartyGetPublicKeysResponse = Class;
+  TIdentitytoolkitRelyingpartyResetPasswordRequest = Class;
+  TIdentitytoolkitRelyingpartySetAccountInfoRequest = Class;
+  TIdentitytoolkitRelyingpartyUploadAccountRequest = Class;
+  TIdentitytoolkitRelyingpartyVerifyAssertionRequest = Class;
+  TIdentitytoolkitRelyingpartyVerifyPasswordRequest = Class;
+  TRelyingparty = Class;
+  TResetPasswordResponse = Class;
+  TSetAccountInfoResponse = Class;
+  TUploadAccountResponse = Class;
+  TUserInfo = Class;
+  TVerifyAssertionResponse = Class;
+  TVerifyPasswordResponse = Class;
   TCreateAuthUriResponseArray = Array of TCreateAuthUriResponse;
   TDeleteAccountResponseArray = Array of TDeleteAccountResponse;
   TDownloadAccountResponseArray = Array of TDownloadAccountResponse;
@@ -71,9 +71,9 @@ type
   TVerifyAssertionResponseArray = Array of TVerifyAssertionResponse;
   TVerifyPasswordResponseArray = Array of TVerifyPasswordResponse;
   //Anonymous types, using auto-generated names
-  TSetAccountInfoResponseTypeproviderUserInfoItem = class;
-  TUploadAccountResponseTypeerrorItem = class;
-  TUserInfoTypeproviderUserInfoItem = class;
+  TSetAccountInfoResponseTypeproviderUserInfoItem = Class;
+  TUploadAccountResponseTypeerrorItem = Class;
+  TUserInfoTypeproviderUserInfoItem = Class;
   TDownloadAccountResponseTypeusersArray = Array of TUserInfo;
   TGetAccountInfoResponseTypeusersArray = Array of TUserInfo;
   TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray = Array of TUserInfo;
@@ -142,6 +142,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setusers(AIndex : Integer; AValue : TDownloadAccountResponseTypeusersArray); 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;
@@ -162,6 +166,10 @@ type
     //Property setters
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setusers(AIndex : Integer; AValue : TGetAccountInfoResponseTypeusersArray); 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;
@@ -302,6 +310,10 @@ type
     Procedure Setemail(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetidToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetlocalId(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 email : TStringArray Index 0 Read Femail Write Setemail;
@@ -357,6 +369,7 @@ type
   Private
     FcaptchaChallenge : String;
     FcaptchaResponse : String;
+    FdisableUser : boolean;
     FdisplayName : String;
     Femail : String;
     FemailVerified : boolean;
@@ -366,10 +379,12 @@ type
     Fpassword : String;
     Fprovider : TStringArray;
     FupgradeToFederatedLogin : boolean;
+    FvalidSince : String;
   Protected
     //Property setters
     Procedure SetcaptchaChallenge(AIndex : Integer; AValue : String); virtual;
     Procedure SetcaptchaResponse(AIndex : Integer; AValue : String); virtual;
+    Procedure SetdisableUser(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
     Procedure Setemail(AIndex : Integer; AValue : String); virtual;
     Procedure SetemailVerified(AIndex : Integer; AValue : boolean); virtual;
@@ -379,19 +394,26 @@ type
     Procedure Setpassword(AIndex : Integer; AValue : String); virtual;
     Procedure Setprovider(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetupgradeToFederatedLogin(AIndex : Integer; AValue : boolean); virtual;
+    Procedure SetvalidSince(AIndex : Integer; 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 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 emailVerified : boolean Index 32 Read FemailVerified Write SetemailVerified;
-    Property idToken : String Index 40 Read FidToken Write SetidToken;
-    Property localId : String Index 48 Read FlocalId Write SetlocalId;
-    Property oobCode : String Index 56 Read FoobCode Write SetoobCode;
-    Property password : String Index 64 Read Fpassword Write Setpassword;
-    Property provider : TStringArray Index 72 Read Fprovider Write Setprovider;
-    Property upgradeToFederatedLogin : boolean Index 80 Read FupgradeToFederatedLogin Write SetupgradeToFederatedLogin;
+    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;
   end;
   TIdentitytoolkitRelyingpartySetAccountInfoRequestClass = Class of TIdentitytoolkitRelyingpartySetAccountInfoRequest;
   
@@ -415,6 +437,10 @@ type
     Procedure SetsaltSeparator(AIndex : Integer; AValue : String); virtual;
     Procedure SetsignerKey(AIndex : Integer; AValue : String); virtual;
     Procedure Setusers(AIndex : Integer; 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;
@@ -575,6 +601,10 @@ type
     Procedure SetidToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetproviderUserInfo(AIndex : Integer; AValue : TSetAccountInfoResponseTypeproviderUserInfoArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
@@ -616,6 +646,10 @@ type
     //Property setters
     Procedure Seterror(AIndex : Integer; AValue : TUploadAccountResponseTypeerrorArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 error : TUploadAccountResponseTypeerrorArray Index 0 Read Ferror Write Seterror;
@@ -654,6 +688,7 @@ type
   
   TUserInfo = Class(TGoogleBaseObject)
   Private
+    Fdisabled : boolean;
     FdisplayName : String;
     Femail : String;
     FemailVerified : boolean;
@@ -663,9 +698,11 @@ type
     FphotoUrl : String;
     FproviderUserInfo : TUserInfoTypeproviderUserInfoArray;
     Fsalt : String;
+    FvalidSince : String;
     Fversion : integer;
   Protected
     //Property setters
+    Procedure Setdisabled(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetdisplayName(AIndex : Integer; AValue : String); virtual;
     Procedure Setemail(AIndex : Integer; AValue : String); virtual;
     Procedure SetemailVerified(AIndex : Integer; AValue : boolean); virtual;
@@ -675,19 +712,26 @@ type
     Procedure SetphotoUrl(AIndex : Integer; AValue : String); virtual;
     Procedure SetproviderUserInfo(AIndex : Integer; AValue : TUserInfoTypeproviderUserInfoArray); virtual;
     Procedure Setsalt(AIndex : Integer; AValue : String); virtual;
+    Procedure SetvalidSince(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 displayName : String Index 0 Read FdisplayName Write SetdisplayName;
-    Property email : String Index 8 Read Femail Write Setemail;
-    Property emailVerified : boolean Index 16 Read FemailVerified Write SetemailVerified;
-    Property localId : String Index 24 Read FlocalId Write SetlocalId;
-    Property passwordHash : String Index 32 Read FpasswordHash Write SetpasswordHash;
-    Property passwordUpdatedAt : double Index 40 Read FpasswordUpdatedAt Write SetpasswordUpdatedAt;
-    Property photoUrl : String Index 48 Read FphotoUrl Write SetphotoUrl;
-    Property providerUserInfo : TUserInfoTypeproviderUserInfoArray Index 56 Read FproviderUserInfo Write SetproviderUserInfo;
-    Property salt : String Index 64 Read Fsalt Write Setsalt;
-    Property version : integer Index 72 Read Fversion Write Setversion;
+    Property disabled : boolean Index 0 Read Fdisabled Write Setdisabled;
+    Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+    Property email : String Index 16 Read Femail Write Setemail;
+    Property emailVerified : boolean Index 24 Read FemailVerified Write SetemailVerified;
+    Property localId : String Index 32 Read FlocalId Write SetlocalId;
+    Property passwordHash : String Index 40 Read FpasswordHash Write SetpasswordHash;
+    Property passwordUpdatedAt : double Index 48 Read FpasswordUpdatedAt Write SetpasswordUpdatedAt;
+    Property photoUrl : String Index 56 Read FphotoUrl Write SetphotoUrl;
+    Property providerUserInfo : TUserInfoTypeproviderUserInfoArray Index 64 Read FproviderUserInfo Write SetproviderUserInfo;
+    Property salt : String Index 72 Read Fsalt Write Setsalt;
+    Property validSince : String Index 80 Read FvalidSince Write SetvalidSince;
+    Property version : integer Index 88 Read Fversion Write Setversion;
   end;
   TUserInfoClass = Class of TUserInfo;
   
@@ -759,6 +803,10 @@ type
     Procedure SetproviderId(AIndex : Integer; AValue : String); virtual;
     Procedure SettimeZone(AIndex : Integer; AValue : String); virtual;
     Procedure SetverifiedProvider(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 action : String Index 0 Read Faction Write Setaction;
@@ -1009,6 +1057,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDownloadAccountResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'users' : SetLength(Fusers,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1036,6 +1097,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetAccountInfoResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'users' : SetLength(Fusers,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1288,6 +1362,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'email' : SetLength(Femail,ALength);
+  'localid' : SetLength(FlocalId,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1376,6 +1464,16 @@ end;
 
 
 
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdisableUser(AIndex : Integer; AValue : boolean); 
+
+begin
+  If (FdisableUser=AValue) then exit;
+  FdisableUser:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
 Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdisplayName(AIndex : Integer; AValue : String); 
 
 begin
@@ -1466,6 +1564,29 @@ end;
 
 
 
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetvalidSince(AIndex : Integer; AValue : String); 
+
+begin
+  If (FvalidSince=AValue) then exit;
+  FvalidSince:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'provider' : SetLength(Fprovider,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
+
 
 
 { --------------------------------------------------------------------
@@ -1532,6 +1653,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'users' : SetLength(Fusers,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1844,6 +1978,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSetAccountInfoResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'provideruserinfo' : SetLength(FproviderUserInfo,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1898,6 +2045,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUploadAccountResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'error' : SetLength(Ferror,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1953,6 +2113,16 @@ end;
   --------------------------------------------------------------------}
 
 
+Procedure TUserInfo.Setdisabled(AIndex : Integer; AValue : boolean); 
+
+begin
+  If (Fdisabled=AValue) then exit;
+  Fdisabled:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
 Procedure TUserInfo.SetdisplayName(AIndex : Integer; AValue : String); 
 
 begin
@@ -2043,6 +2213,16 @@ end;
 
 
 
+Procedure TUserInfo.SetvalidSince(AIndex : Integer; AValue : String); 
+
+begin
+  If (FvalidSince=AValue) then exit;
+  FvalidSince:=AValue;
+  MarkPropertyChanged(AIndex);
+end;
+
+
+
 Procedure TUserInfo.Setversion(AIndex : Integer; AValue : integer); 
 
 begin
@@ -2052,6 +2232,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUserInfo.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'provideruserinfo' : SetLength(FproviderUserInfo,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2359,6 +2552,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TVerifyAssertionResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'verifiedprovider' : SetLength(FverifiedProvider,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2609,7 +2815,7 @@ end;
 Class Function TIdentitytoolkitAPI.APIRevision : String;
 
 begin
-  Result:='20150406';
+  Result:='20150513';
 end;
 
 Class Function TIdentitytoolkitAPI.APIID : String;
@@ -2663,7 +2869,7 @@ end;
 Class Function TIdentitytoolkitAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TIdentitytoolkitAPI.APIbasePath : string;
@@ -2675,7 +2881,7 @@ end;
 Class Function TIdentitytoolkitAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/identitytoolkit/v3/relyingparty/';
+  Result:='https://www.googleapis.com:443/identitytoolkit/v3/relyingparty/';
 end;
 
 Class Function TIdentitytoolkitAPI.APIProtocol : string;
@@ -2760,7 +2966,7 @@ Function TIdentitytoolkitAPI.CreateRelyingpartyResource(AOwner : TComponent) : T
 
 begin
   Result:=TRelyingpartyResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlelicensing.pp

@@ -13,7 +13,7 @@ unit googlelicensing;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:55
+//Generated on: 16-5-15 08:53:05
 {$MODE objfpc}
 {$H+}
 
@@ -24,9 +24,9 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TLicenseAssignment = class;
-  TLicenseAssignmentInsert = class;
-  TLicenseAssignmentList = class;
+  TLicenseAssignment = Class;
+  TLicenseAssignmentInsert = Class;
+  TLicenseAssignmentList = Class;
   TLicenseAssignmentArray = Array of TLicenseAssignment;
   TLicenseAssignmentInsertArray = Array of TLicenseAssignmentInsert;
   TLicenseAssignmentListArray = Array of TLicenseAssignmentList;
@@ -96,6 +96,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TLicenseAssignmentListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -311,6 +315,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLicenseAssignmentList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -539,7 +556,7 @@ end;
 Class Function TLicensingAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TLicensingAPI.APIbasePath : string;
@@ -551,7 +568,7 @@ end;
 Class Function TLicensingAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/apps/licensing/v1/product/';
+  Result:='https://www.googleapis.com:443/apps/licensing/v1/product/';
 end;
 
 Class Function TLicensingAPI.APIProtocol : string;
@@ -615,7 +632,7 @@ Function TLicensingAPI.CreateLicenseAssignmentsResource(AOwner : TComponent) : T
 
 begin
   Result:=TLicenseAssignmentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlemanager.pp

@@ -13,7 +13,7 @@ unit googlemanager;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:55
+//Generated on: 16-5-15 08:53:05
 {$MODE objfpc}
 {$H+}
 
@@ -24,41 +24,41 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAccessConfig = class;
-  TAction = class;
-  TAllowedRule = class;
-  TAutoscalingModule = class;
-  TAutoscalingModuleStatus = class;
-  TDeployState = class;
-  TDeployment = class;
-  TDeploymentsListResponse = class;
-  TDiskAttachment = class;
-  TEnvVariable = class;
-  TExistingDisk = class;
-  TFirewallModule = class;
-  TFirewallModuleStatus = class;
-  THealthCheckModule = class;
-  THealthCheckModuleStatus = class;
-  TLbModule = class;
-  TLbModuleStatus = class;
-  TMetadata = class;
-  TMetadataItem = class;
-  TModule = class;
-  TModuleStatus = class;
-  TNetworkInterface = class;
-  TNetworkModule = class;
-  TNetworkModuleStatus = class;
-  TNewDisk = class;
-  TNewDiskInitializeParams = class;
-  TParamOverride = class;
-  TReplicaPoolModule = class;
-  TReplicaPoolModuleStatus = class;
-  TReplicaPoolParams = class;
-  TReplicaPoolParamsV1Beta1 = class;
-  TServiceAccount = class;
-  TTag = class;
-  TTemplate = class;
-  TTemplatesListResponse = class;
+  TAccessConfig = Class;
+  TAction = Class;
+  TAllowedRule = Class;
+  TAutoscalingModule = Class;
+  TAutoscalingModuleStatus = Class;
+  TDeployState = Class;
+  TDeployment = Class;
+  TDeploymentsListResponse = Class;
+  TDiskAttachment = Class;
+  TEnvVariable = Class;
+  TExistingDisk = Class;
+  TFirewallModule = Class;
+  TFirewallModuleStatus = Class;
+  THealthCheckModule = Class;
+  THealthCheckModuleStatus = Class;
+  TLbModule = Class;
+  TLbModuleStatus = Class;
+  TMetadata = Class;
+  TMetadataItem = Class;
+  TModule = Class;
+  TModuleStatus = Class;
+  TNetworkInterface = Class;
+  TNetworkModule = Class;
+  TNetworkModuleStatus = Class;
+  TNewDisk = Class;
+  TNewDiskInitializeParams = Class;
+  TParamOverride = Class;
+  TReplicaPoolModule = Class;
+  TReplicaPoolModuleStatus = Class;
+  TReplicaPoolParams = Class;
+  TReplicaPoolParamsV1Beta1 = Class;
+  TServiceAccount = Class;
+  TTag = Class;
+  TTemplate = Class;
+  TTemplatesListResponse = Class;
   TAccessConfigArray = Array of TAccessConfig;
   TActionArray = Array of TAction;
   TAllowedRuleArray = Array of TAllowedRule;
@@ -95,10 +95,10 @@ type
   TTemplateArray = Array of TTemplate;
   TTemplatesListResponseArray = Array of TTemplatesListResponse;
   //Anonymous types, using auto-generated names
-  TDeploymentTypemodules = class;
-  TReplicaPoolModuleTypeenvVariables = class;
-  TTemplateTypeactions = class;
-  TTemplateTypemodules = class;
+  TDeploymentTypemodules = Class;
+  TReplicaPoolModuleTypeenvVariables = Class;
+  TTemplateTypeactions = Class;
+  TTemplateTypemodules = Class;
   TDeploymentTypeoverridesArray = Array of TParamOverride;
   TDeploymentsListResponseTyperesourcesArray = Array of TDeployment;
   TFirewallModuleTypeallowedArray = Array of TAllowedRule;
@@ -145,6 +145,10 @@ type
     //Property setters
     Procedure Setcommands(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SettimeoutMs(AIndex : Integer; 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 commands : TStringArray Index 0 Read Fcommands Write Setcommands;
@@ -164,6 +168,10 @@ type
     //Property setters
     Procedure SetIPProtocol(AIndex : Integer; AValue : String); virtual;
     Procedure Setports(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 IPProtocol : String Index 0 Read FIPProtocol Write SetIPProtocol;
@@ -276,6 +284,10 @@ type
     Procedure Setoverrides(AIndex : Integer; AValue : TDeploymentTypeoverridesArray); virtual;
     Procedure Setstate(AIndex : Integer; AValue : TDeployState); virtual;
     Procedure SettemplateName(AIndex : Integer; 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 creationDate : String Index 0 Read FcreationDate Write SetcreationDate;
@@ -300,6 +312,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TDeploymentsListResponseTyperesourcesArray); 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;
@@ -384,6 +400,10 @@ type
     Procedure SetsourceRanges(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetsourceTags(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SettargetTags(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 allowed : TFirewallModuleTypeallowedArray Index 0 Read Fallowed Write Setallowed;
@@ -486,6 +506,10 @@ type
     Procedure SetportRange(AIndex : Integer; AValue : String); virtual;
     Procedure SetsessionAffinity(AIndex : Integer; AValue : String); virtual;
     Procedure SettargetModules(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 description : String Index 0 Read Fdescription Write Setdescription;
@@ -529,6 +553,10 @@ type
     //Property setters
     Procedure SetfingerPrint(AIndex : Integer; AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray); 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;
@@ -644,6 +672,10 @@ type
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
     Procedure SetnetworkIp(AIndex : Integer; 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 accessConfigs : TNetworkInterfaceTypeaccessConfigsArray Index 0 Read FaccessConfigs Write SetaccessConfigs;
@@ -789,6 +821,10 @@ type
     Procedure SetnumReplicas(AIndex : Integer; AValue : integer); virtual;
     Procedure SetreplicaPoolParams(AIndex : Integer; AValue : TReplicaPoolParams); virtual;
     Procedure SetresourceView(AIndex : Integer; 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 envVariables : TReplicaPoolModuleTypeenvVariables Index 0 Read FenvVariables Write SetenvVariables;
@@ -870,6 +906,10 @@ type
     Procedure SetserviceAccounts(AIndex : Integer; AValue : TReplicaPoolParamsV1Beta1TypeserviceAccountsArray); virtual;
     Procedure Settags(AIndex : Integer; AValue : TTag); virtual;
     Procedure Setzone(AIndex : Integer; 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 autoRestart : boolean Index 0 Read FautoRestart Write SetautoRestart;
@@ -901,6 +941,10 @@ type
     //Property setters
     Procedure Setemail(AIndex : Integer; AValue : String); virtual;
     Procedure Setscopes(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 email : String Index 0 Read Femail Write Setemail;
@@ -920,6 +964,10 @@ type
     //Property setters
     Procedure SetfingerPrint(AIndex : Integer; AValue : String); virtual;
     Procedure Setitems(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 fingerPrint : String Index 0 Read FfingerPrint Write SetfingerPrint;
@@ -992,6 +1040,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setresources(AIndex : Integer; AValue : TTemplatesListResponseTyperesourcesArray); 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;
@@ -1164,6 +1216,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAction.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'commands' : SetLength(Fcommands,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1191,6 +1256,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAllowedRule.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'ports' : SetLength(Fports,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1402,6 +1480,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeployment.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'overrides' : SetLength(Foverrides,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1429,6 +1520,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeploymentsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'resources' : SetLength(Fresources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1577,6 +1681,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFirewallModule.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'allowed' : SetLength(Fallowed,ALength);
+  'sourceranges' : SetLength(FsourceRanges,ALength);
+  'sourcetags' : SetLength(FsourceTags,ALength);
+  'targettags' : SetLength(FtargetTags,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1775,6 +1895,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLbModule.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'healthchecks' : SetLength(FhealthChecks,ALength);
+  'targetmodules' : SetLength(FtargetModules,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1829,6 +1963,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMetadata.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2089,6 +2236,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TNetworkInterface.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'accessconfigs' : SetLength(FaccessConfigs,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2324,6 +2484,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReplicaPoolModule.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'healthchecks' : SetLength(FhealthChecks,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2515,6 +2688,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReplicaPoolParamsV1Beta1.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'diskstoattach' : SetLength(FdisksToAttach,ALength);
+  'diskstocreate' : SetLength(FdisksToCreate,ALength);
+  'networkinterfaces' : SetLength(FnetworkInterfaces,ALength);
+  'serviceaccounts' : SetLength(FserviceAccounts,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2542,6 +2731,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TServiceAccount.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'scopes' : SetLength(Fscopes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2569,6 +2771,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTag.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2669,6 +2884,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTemplatesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'resources' : SetLength(Fresources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2929,7 +3157,7 @@ end;
 Class Function TManagerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TManagerAPI.APIbasePath : string;
@@ -2941,7 +3169,7 @@ end;
 Class Function TManagerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/manager/v1beta2/projects/';
+  Result:='https://www.googleapis.com:443/manager/v1beta2/projects/';
 end;
 
 Class Function TManagerAPI.APIProtocol : string;
@@ -3051,7 +3279,7 @@ Function TManagerAPI.CreateDeploymentsResource(AOwner : TComponent) : TDeploymen
 
 begin
   Result:=TDeploymentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3075,7 +3303,7 @@ Function TManagerAPI.CreateTemplatesResource(AOwner : TComponent) : TTemplatesRe
 
 begin
   Result:=TTemplatesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlemirror.pp

@@ -13,7 +13,7 @@ unit googlemirror;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:56
+//Generated on: 16-5-15 08:53:06
 {$MODE objfpc}
 {$H+}
 
@@ -24,26 +24,26 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAccount = class;
-  TAttachment = class;
-  TAttachmentsListResponse = class;
-  TAuthToken = class;
-  TCommand = class;
-  TContact = class;
-  TContactsListResponse = class;
-  TLocation = class;
-  TLocationsListResponse = class;
-  TMenuItem = class;
-  TMenuValue = class;
-  TNotification = class;
-  TNotificationConfig = class;
-  TSetting = class;
-  TSubscription = class;
-  TSubscriptionsListResponse = class;
-  TTimelineItem = class;
-  TTimelineListResponse = class;
-  TUserAction = class;
-  TUserData = class;
+  TAccount = Class;
+  TAttachment = Class;
+  TAttachmentsListResponse = Class;
+  TAuthToken = Class;
+  TCommand = Class;
+  TContact = Class;
+  TContactsListResponse = Class;
+  TLocation = Class;
+  TLocationsListResponse = Class;
+  TMenuItem = Class;
+  TMenuValue = Class;
+  TNotification = Class;
+  TNotificationConfig = Class;
+  TSetting = Class;
+  TSubscription = Class;
+  TSubscriptionsListResponse = Class;
+  TTimelineItem = Class;
+  TTimelineListResponse = Class;
+  TUserAction = Class;
+  TUserData = Class;
   TAccountArray = Array of TAccount;
   TAttachmentArray = Array of TAttachment;
   TAttachmentsListResponseArray = Array of TAttachmentsListResponse;
@@ -95,6 +95,10 @@ type
     Procedure Setfeatures(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setpassword(AIndex : Integer; AValue : String); virtual;
     Procedure SetuserData(AIndex : Integer; AValue : TAccountTypeuserDataArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property authTokens : TAccountTypeauthTokensArray Index 0 Read FauthTokens Write SetauthTokens;
@@ -141,6 +145,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TAttachmentsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TAttachmentsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -218,6 +226,10 @@ type
     Procedure Setsource(AIndex : Integer; AValue : String); virtual;
     Procedure SetspeakableName(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; 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 acceptCommands : TContactTypeacceptCommandsArray Index 0 Read FacceptCommands Write SetacceptCommands;
@@ -247,6 +259,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TContactsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TContactsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -303,6 +319,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TLocationsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TLocationsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -330,6 +350,10 @@ type
     Procedure Setpayload(AIndex : Integer; AValue : String); virtual;
     Procedure SetremoveWhenSelected(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setvalues(AIndex : Integer; AValue : TMenuItemTypevaluesArray); 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;
@@ -383,6 +407,10 @@ type
     Procedure SetuserActions(AIndex : Integer; AValue : TNotificationTypeuserActionsArray); virtual;
     Procedure SetuserToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetverifyToken(AIndex : Integer; 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 collection : String Index 0 Read Fcollection Write Setcollection;
@@ -461,6 +489,10 @@ type
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure SetuserToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetverifyToken(AIndex : Integer; 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 callbackUrl : String Index 0 Read FcallbackUrl Write SetcallbackUrl;
@@ -487,6 +519,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TSubscriptionsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TSubscriptionsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -554,6 +590,10 @@ type
     Procedure Settext(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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 attachments : TTimelineItemTypeattachmentsArray Index 0 Read Fattachments Write Setattachments;
@@ -599,6 +639,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TTimelineListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TTimelineListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -715,6 +759,21 @@ type
   end;
   
   
+  { --------------------------------------------------------------------
+    TTimelineAttachmentsResource
+    --------------------------------------------------------------------}
+  
+  TTimelineAttachmentsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Procedure Delete(attachmentId: string; itemId: string);
+    Function Get(attachmentId: string; itemId: string) : TAttachment;
+    Function Insert(itemId: string) : TAttachment;
+    Function List(itemId: string) : TAttachmentsListResponse;
+  end;
+  
+  
   { --------------------------------------------------------------------
     TTimelineResource
     --------------------------------------------------------------------}
@@ -733,6 +792,9 @@ type
   end;
   
   TTimelineResource = Class(TGoogleResource)
+  Private
+    FAttachmentsInstance : TTimelineAttachmentsResource;
+    Function GetAttachmentsInstance : TTimelineAttachmentsResource;virtual;
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
@@ -743,6 +805,9 @@ type
     Function List(AQuery : TTimelinelistOptions) : TTimelineListResponse;
     Function Patch(id: string; aTimelineItem : TTimelineItem) : TTimelineItem;
     Function Update(id: string; aTimelineItem : TTimelineItem) : TTimelineItem;
+    Function CreateAttachmentsResource(AOwner : TComponent) : TTimelineAttachmentsResource;virtual;overload;
+    Function CreateAttachmentsResource : TTimelineAttachmentsResource;virtual;overload;
+    Property AttachmentsResource : TTimelineAttachmentsResource Read GetAttachmentsInstance;
   end;
   
   
@@ -757,12 +822,14 @@ type
     FLocationsInstance : TLocationsResource;
     FSettingsInstance : TSettingsResource;
     FSubscriptionsInstance : TSubscriptionsResource;
+    FTimelineAttachmentsInstance : TTimelineAttachmentsResource;
     FTimelineInstance : TTimelineResource;
     Function GetAccountsInstance : TAccountsResource;virtual;
     Function GetContactsInstance : TContactsResource;virtual;
     Function GetLocationsInstance : TLocationsResource;virtual;
     Function GetSettingsInstance : TSettingsResource;virtual;
     Function GetSubscriptionsInstance : TSubscriptionsResource;virtual;
+    Function GetTimelineAttachmentsInstance : TTimelineAttachmentsResource;virtual;
     Function GetTimelineInstance : TTimelineResource;virtual;
   Public
     //Override class functions with API info
@@ -797,6 +864,8 @@ type
     Function CreateSettingsResource : TSettingsResource;virtual;overload;
     Function CreateSubscriptionsResource(AOwner : TComponent) : TSubscriptionsResource;virtual;overload;
     Function CreateSubscriptionsResource : TSubscriptionsResource;virtual;overload;
+    Function CreateTimelineAttachmentsResource(AOwner : TComponent) : TTimelineAttachmentsResource;virtual;overload;
+    Function CreateTimelineAttachmentsResource : TTimelineAttachmentsResource;virtual;overload;
     Function CreateTimelineResource(AOwner : TComponent) : TTimelineResource;virtual;overload;
     Function CreateTimelineResource : TTimelineResource;virtual;overload;
     //Add default on-demand instances for resources
@@ -805,6 +874,7 @@ type
     Property LocationsResource : TLocationsResource Read GetLocationsInstance;
     Property SettingsResource : TSettingsResource Read GetSettingsInstance;
     Property SubscriptionsResource : TSubscriptionsResource Read GetSubscriptionsInstance;
+    Property TimelineAttachmentsResource : TTimelineAttachmentsResource Read GetTimelineAttachmentsInstance;
     Property TimelineResource : TTimelineResource Read GetTimelineInstance;
   end;
 
@@ -855,6 +925,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAccount.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'authtokens' : SetLength(FauthTokens,ALength);
+  'features' : SetLength(Ffeatures,ALength);
+  'userdata' : SetLength(FuserData,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -929,6 +1014,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAttachmentsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1133,6 +1231,22 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TContact.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'acceptcommands' : SetLength(FacceptCommands,ALength);
+  'accepttypes' : SetLength(FacceptTypes,ALength);
+  'imageurls' : SetLength(FimageUrls,ALength);
+  'sharingfeatures' : SetLength(FsharingFeatures,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1160,6 +1274,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TContactsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1274,6 +1401,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLocationsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1341,6 +1481,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMenuItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'values' : SetLength(Fvalues,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1445,6 +1598,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TNotification.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'useractions' : SetLength(FuserActions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1606,6 +1772,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSubscription.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'operation' : SetLength(Foperation,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1633,6 +1812,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSubscriptionsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1900,6 +2092,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTimelineItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'attachments' : SetLength(Fattachments,ALength);
+  'menuitems' : SetLength(FmenuItems,ALength);
+  'recipients' : SetLength(Frecipients,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1937,6 +2144,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTimelineListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2290,6 +2510,85 @@ end;
 
 
 
+{ --------------------------------------------------------------------
+  TTimelineAttachmentsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TTimelineAttachmentsResource.ResourceName : String;
+
+begin
+  Result:='attachments';
+end;
+
+Class Function TTimelineAttachmentsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TmirrorAPI;
+end;
+
+Procedure TTimelineAttachmentsResource.Delete(attachmentId: string; itemId: string);
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = 'timeline/{itemId}/attachments/{attachmentId}';
+  _Methodid   = 'mirror.timeline.attachments.delete';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['attachmentId',attachmentId,'itemId',itemId]);
+  ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
+Function TTimelineAttachmentsResource.Get(attachmentId: string; itemId: string) : TAttachment;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'timeline/{itemId}/attachments/{attachmentId}';
+  _Methodid   = 'mirror.timeline.attachments.get';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['attachmentId',attachmentId,'itemId',itemId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAttachment) as TAttachment;
+end;
+
+Function TTimelineAttachmentsResource.Insert(itemId: string) : TAttachment;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = 'timeline/{itemId}/attachments';
+  _Methodid   = 'mirror.timeline.attachments.insert';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['itemId',itemId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAttachment) as TAttachment;
+end;
+
+Function TTimelineAttachmentsResource.List(itemId: string) : TAttachmentsListResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'timeline/{itemId}/attachments';
+  _Methodid   = 'mirror.timeline.attachments.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['itemId',itemId]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAttachmentsListResponse) as TAttachmentsListResponse;
+end;
+
+
+
 { --------------------------------------------------------------------
   TTimelineResource
   --------------------------------------------------------------------}
@@ -2409,6 +2708,30 @@ end;
 
 
 
+Function TTimelineResource.GetAttachmentsInstance : TTimelineAttachmentsResource;
+
+begin
+  if (FAttachmentsInstance=Nil) then
+    FAttachmentsInstance:=CreateAttachmentsResource;
+  Result:=FAttachmentsInstance;
+end;
+
+Function TTimelineResource.CreateAttachmentsResource : TTimelineAttachmentsResource;
+
+begin
+  Result:=CreateAttachmentsResource(Self);
+end;
+
+
+Function TTimelineResource.CreateAttachmentsResource(AOwner : TComponent) : TTimelineAttachmentsResource;
+
+begin
+  Result:=TTimelineAttachmentsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TMirrorAPI
   --------------------------------------------------------------------}
@@ -2482,7 +2805,7 @@ end;
 Class Function TMirrorAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TMirrorAPI.APIbasePath : string;
@@ -2494,7 +2817,7 @@ end;
 Class Function TMirrorAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/mirror/v1/';
+  Result:='https://www.googleapis.com:443/mirror/v1/';
 end;
 
 Class Function TMirrorAPI.APIProtocol : string;
@@ -2577,7 +2900,7 @@ Function TMirrorAPI.CreateAccountsResource(AOwner : TComponent) : TAccountsResou
 
 begin
   Result:=TAccountsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2601,7 +2924,7 @@ Function TMirrorAPI.CreateContactsResource(AOwner : TComponent) : TContactsResou
 
 begin
   Result:=TContactsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2625,7 +2948,7 @@ Function TMirrorAPI.CreateLocationsResource(AOwner : TComponent) : TLocationsRes
 
 begin
   Result:=TLocationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2649,7 +2972,7 @@ Function TMirrorAPI.CreateSettingsResource(AOwner : TComponent) : TSettingsResou
 
 begin
   Result:=TSettingsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2673,7 +2996,31 @@ Function TMirrorAPI.CreateSubscriptionsResource(AOwner : TComponent) : TSubscrip
 
 begin
   Result:=TSubscriptionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
+end;
+
+
+
+Function TMirrorAPI.GetTimelineAttachmentsInstance : TTimelineAttachmentsResource;
+
+begin
+  if (FTimelineAttachmentsInstance=Nil) then
+    FTimelineAttachmentsInstance:=CreateTimelineAttachmentsResource;
+  Result:=FTimelineAttachmentsInstance;
+end;
+
+Function TMirrorAPI.CreateTimelineAttachmentsResource : TTimelineAttachmentsResource;
+
+begin
+  Result:=CreateTimelineAttachmentsResource(Self);
+end;
+
+
+Function TMirrorAPI.CreateTimelineAttachmentsResource(AOwner : TComponent) : TTimelineAttachmentsResource;
+
+begin
+  Result:=TTimelineAttachmentsResource.Create(AOwner);
+  Result.API:=Self.API;
 end;
 
 
@@ -2697,7 +3044,7 @@ Function TMirrorAPI.CreateTimelineResource(AOwner : TComponent) : TTimelineResou
 
 begin
   Result:=TTimelineResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleoauth2.pp

@@ -13,7 +13,7 @@ unit googleoauth2;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:56
+//Generated on: 16-5-15 08:53:06
 {$MODE objfpc}
 {$H+}
 
@@ -24,14 +24,14 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TJwk = class;
-  TTokeninfo = class;
-  TUserinfoplus = class;
+  TJwk = Class;
+  TTokeninfo = Class;
+  TUserinfoplus = Class;
   TJwkArray = Array of TJwk;
   TTokeninfoArray = Array of TTokeninfo;
   TUserinfoplusArray = Array of TUserinfoplus;
   //Anonymous types, using auto-generated names
-  TJwkTypekeysItem = class;
+  TJwkTypekeysItem = Class;
   TJwkTypekeysArray = Array of TJwkTypekeysItem;
   
   { --------------------------------------------------------------------
@@ -75,6 +75,10 @@ type
   Protected
     //Property setters
     Procedure Setkeys(AIndex : Integer; AValue : TJwkTypekeysArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property keys : TJwkTypekeysArray Index 0 Read Fkeys Write Setkeys;
@@ -167,15 +171,55 @@ type
   end;
   TUserinfoplusClass = Class of TUserinfoplus;
   
+  { --------------------------------------------------------------------
+    TUserinfoV2MeResource
+    --------------------------------------------------------------------}
+  
+  TUserinfoV2MeResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function Get : TUserinfoplus;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TUserinfoV2Resource
+    --------------------------------------------------------------------}
+  
+  TUserinfoV2Resource = Class(TGoogleResource)
+  Private
+    FMeInstance : TUserinfoV2MeResource;
+    Function GetMeInstance : TUserinfoV2MeResource;virtual;
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function CreateMeResource(AOwner : TComponent) : TUserinfoV2MeResource;virtual;overload;
+    Function CreateMeResource : TUserinfoV2MeResource;virtual;overload;
+    Property MeResource : TUserinfoV2MeResource Read GetMeInstance;
+  end;
+  
+  
   { --------------------------------------------------------------------
     TUserinfoResource
     --------------------------------------------------------------------}
   
   TUserinfoResource = Class(TGoogleResource)
+  Private
+    FV2MeInstance : TUserinfoV2MeResource;
+    FV2Instance : TUserinfoV2Resource;
+    Function GetV2MeInstance : TUserinfoV2MeResource;virtual;
+    Function GetV2Instance : TUserinfoV2Resource;virtual;
   Public
     Class Function ResourceName : String; override;
     Class Function DefaultAPI : TGoogleAPIClass; override;
     Function Get : TUserinfoplus;
+    Function CreateV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;virtual;overload;
+    Function CreateV2MeResource : TUserinfoV2MeResource;virtual;overload;
+    Function CreateV2Resource(AOwner : TComponent) : TUserinfoV2Resource;virtual;overload;
+    Function CreateV2Resource : TUserinfoV2Resource;virtual;overload;
+    Property V2MeResource : TUserinfoV2MeResource Read GetV2MeInstance;
+    Property V2Resource : TUserinfoV2Resource Read GetV2Instance;
   end;
   
   
@@ -185,7 +229,11 @@ type
   
   TOauth2API = Class(TGoogleAPI)
   Private
+    FUserinfoV2MeInstance : TUserinfoV2MeResource;
+    FUserinfoV2Instance : TUserinfoV2Resource;
     FUserinfoInstance : TUserinfoResource;
+    Function GetUserinfoV2MeInstance : TUserinfoV2MeResource;virtual;
+    Function GetUserinfoV2Instance : TUserinfoV2Resource;virtual;
     Function GetUserinfoInstance : TUserinfoResource;virtual;
   Public
     //Override class functions with API info
@@ -210,9 +258,15 @@ type
     Class Function APINeedsAuth : Boolean;override;
     Class Procedure RegisterAPIResources; override;
     //Add create function for resources
+    Function CreateUserinfoV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;virtual;overload;
+    Function CreateUserinfoV2MeResource : TUserinfoV2MeResource;virtual;overload;
+    Function CreateUserinfoV2Resource(AOwner : TComponent) : TUserinfoV2Resource;virtual;overload;
+    Function CreateUserinfoV2Resource : TUserinfoV2Resource;virtual;overload;
     Function CreateUserinfoResource(AOwner : TComponent) : TUserinfoResource;virtual;overload;
     Function CreateUserinfoResource : TUserinfoResource;virtual;overload;
     //Add default on-demand instances for resources
+    Property UserinfoV2MeResource : TUserinfoV2MeResource Read GetUserinfoV2MeInstance;
+    Property UserinfoV2Resource : TUserinfoV2Resource Read GetUserinfoV2Instance;
     Property UserinfoResource : TUserinfoResource Read GetUserinfoInstance;
   end;
 
@@ -300,6 +354,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJwk.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'keys' : SetLength(Fkeys,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -517,6 +584,79 @@ end;
 
 
 
+{ --------------------------------------------------------------------
+  TUserinfoV2MeResource
+  --------------------------------------------------------------------}
+
+
+Class Function TUserinfoV2MeResource.ResourceName : String;
+
+begin
+  Result:='me';
+end;
+
+Class Function TUserinfoV2MeResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=Toauth2API;
+end;
+
+Function TUserinfoV2MeResource.Get : TUserinfoplus;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = 'userinfo/v2/me';
+  _Methodid   = 'oauth2.userinfo.v2.me.get';
+
+begin
+  Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TUserinfoplus) as TUserinfoplus;
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TUserinfoV2Resource
+  --------------------------------------------------------------------}
+
+
+Class Function TUserinfoV2Resource.ResourceName : String;
+
+begin
+  Result:='v2';
+end;
+
+Class Function TUserinfoV2Resource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=Toauth2API;
+end;
+
+
+
+Function TUserinfoV2Resource.GetMeInstance : TUserinfoV2MeResource;
+
+begin
+  if (FMeInstance=Nil) then
+    FMeInstance:=CreateMeResource;
+  Result:=FMeInstance;
+end;
+
+Function TUserinfoV2Resource.CreateMeResource : TUserinfoV2MeResource;
+
+begin
+  Result:=CreateMeResource(Self);
+end;
+
+
+Function TUserinfoV2Resource.CreateMeResource(AOwner : TComponent) : TUserinfoV2MeResource;
+
+begin
+  Result:=TUserinfoV2MeResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TUserinfoResource
   --------------------------------------------------------------------}
@@ -547,6 +687,54 @@ end;
 
 
 
+Function TUserinfoResource.GetV2MeInstance : TUserinfoV2MeResource;
+
+begin
+  if (FV2MeInstance=Nil) then
+    FV2MeInstance:=CreateV2MeResource;
+  Result:=FV2MeInstance;
+end;
+
+Function TUserinfoResource.CreateV2MeResource : TUserinfoV2MeResource;
+
+begin
+  Result:=CreateV2MeResource(Self);
+end;
+
+
+Function TUserinfoResource.CreateV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;
+
+begin
+  Result:=TUserinfoV2MeResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TUserinfoResource.GetV2Instance : TUserinfoV2Resource;
+
+begin
+  if (FV2Instance=Nil) then
+    FV2Instance:=CreateV2Resource;
+  Result:=FV2Instance;
+end;
+
+Function TUserinfoResource.CreateV2Resource : TUserinfoV2Resource;
+
+begin
+  Result:=CreateV2Resource(Self);
+end;
+
+
+Function TUserinfoResource.CreateV2Resource(AOwner : TComponent) : TUserinfoV2Resource;
+
+begin
+  Result:=TUserinfoV2Resource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TOauth2API
   --------------------------------------------------------------------}
@@ -620,7 +808,7 @@ end;
 Class Function TOauth2API.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TOauth2API.APIbasePath : string;
@@ -632,7 +820,7 @@ end;
 Class Function TOauth2API.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TOauth2API.APIProtocol : string;
@@ -684,6 +872,54 @@ begin
 end;
 
 
+Function TOauth2API.GetUserinfoV2MeInstance : TUserinfoV2MeResource;
+
+begin
+  if (FUserinfoV2MeInstance=Nil) then
+    FUserinfoV2MeInstance:=CreateUserinfoV2MeResource;
+  Result:=FUserinfoV2MeInstance;
+end;
+
+Function TOauth2API.CreateUserinfoV2MeResource : TUserinfoV2MeResource;
+
+begin
+  Result:=CreateUserinfoV2MeResource(Self);
+end;
+
+
+Function TOauth2API.CreateUserinfoV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;
+
+begin
+  Result:=TUserinfoV2MeResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TOauth2API.GetUserinfoV2Instance : TUserinfoV2Resource;
+
+begin
+  if (FUserinfoV2Instance=Nil) then
+    FUserinfoV2Instance:=CreateUserinfoV2Resource;
+  Result:=FUserinfoV2Instance;
+end;
+
+Function TOauth2API.CreateUserinfoV2Resource : TUserinfoV2Resource;
+
+begin
+  Result:=CreateUserinfoV2Resource(Self);
+end;
+
+
+Function TOauth2API.CreateUserinfoV2Resource(AOwner : TComponent) : TUserinfoV2Resource;
+
+begin
+  Result:=TUserinfoV2Resource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 Function TOauth2API.GetUserinfoInstance : TUserinfoResource;
 
 begin
@@ -703,7 +939,7 @@ Function TOauth2API.CreateUserinfoResource(AOwner : TComponent) : TUserinfoResou
 
 begin
   Result:=TUserinfoResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlepagespeedonline.pp

@@ -13,7 +13,7 @@ unit googlepagespeedonline;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:56
+//Generated on: 16-5-15 08:53:06
 {$MODE objfpc}
 {$H+}
 
@@ -24,22 +24,22 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TPagespeedApiFormatStringV2 = class;
-  TPagespeedApiImageV2 = class;
-  TResult = class;
+  TPagespeedApiFormatStringV2 = Class;
+  TPagespeedApiImageV2 = Class;
+  TResult = Class;
   TPagespeedApiFormatStringV2Array = Array of TPagespeedApiFormatStringV2;
   TPagespeedApiImageV2Array = Array of TPagespeedApiImageV2;
   TResultArray = Array of TResult;
   //Anonymous types, using auto-generated names
-  TPagespeedApiFormatStringV2TypeargsItemTyperectsItem = class;
-  TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem = class;
-  TPagespeedApiFormatStringV2TypeargsItem = class;
-  TPagespeedApiImageV2Typepage_rect = class;
-  TResultTypeformattedResultsTyperuleResults = class;
-  TResultTypeformattedResults = class;
-  TResultTypepageStats = class;
-  TResultTyperuleGroups = class;
-  TResultTypeversion = class;
+  TPagespeedApiFormatStringV2TypeargsItemTyperectsItem = Class;
+  TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem = Class;
+  TPagespeedApiFormatStringV2TypeargsItem = Class;
+  TPagespeedApiImageV2Typepage_rect = Class;
+  TResultTypeformattedResultsTyperuleResults = Class;
+  TResultTypeformattedResults = Class;
+  TResultTypepageStats = Class;
+  TResultTyperuleGroups = Class;
+  TResultTypeversion = Class;
   TPagespeedApiFormatStringV2TypeargsItemTyperectsArray = Array of TPagespeedApiFormatStringV2TypeargsItemTyperectsItem;
   TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray = Array of TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem;
   TPagespeedApiFormatStringV2TypeargsArray = Array of TPagespeedApiFormatStringV2TypeargsItem;
@@ -113,6 +113,10 @@ type
     Procedure Setsecondary_rects(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setvalue(AIndex : Integer; 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 key : String Index 0 Read Fkey Write Setkey;
@@ -135,6 +139,10 @@ type
     //Property setters
     Procedure Setargs(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsArray); virtual;
     Procedure Setformat(AIndex : Integer; 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 args : TPagespeedApiFormatStringV2TypeargsArray Index 0 Read Fargs Write Setargs;
@@ -344,6 +352,10 @@ type
     Procedure Setscreenshot(AIndex : Integer; AValue : TPagespeedApiImageV2); virtual;
     Procedure Settitle(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; AValue : TResultTypeversion); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property formattedResults : TResultTypeformattedResults Index 0 Read FformattedResults Write SetformattedResults;
@@ -583,6 +595,20 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPagespeedApiFormatStringV2TypeargsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rects' : SetLength(Frects,ALength);
+  'secondary_rects' : SetLength(Fsecondary_rects,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -610,6 +636,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPagespeedApiFormatStringV2.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'args' : SetLength(Fargs,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1048,6 +1087,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResult.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'invalidrules' : SetLength(FinvalidRules,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1171,7 +1223,7 @@ end;
 Class Function TPagespeedonlineAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TPagespeedonlineAPI.APIbasePath : string;
@@ -1183,7 +1235,7 @@ end;
 Class Function TPagespeedonlineAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/pagespeedonline/v2/';
+  Result:='https://www.googleapis.com:443/pagespeedonline/v2/';
 end;
 
 Class Function TPagespeedonlineAPI.APIProtocol : string;
@@ -1254,7 +1306,7 @@ Function TPagespeedonlineAPI.CreatePagespeedapiResource(AOwner : TComponent) : T
 
 begin
   Result:=TPagespeedapiResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleplus.pp

@@ -13,7 +13,7 @@ unit googleplus;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:56
+//Generated on: 16-5-15 08:53:06
 {$MODE objfpc}
 {$H+}
 
@@ -24,18 +24,18 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAcl = class;
-  TActivity = class;
-  TActivityFeed = class;
-  TComment = class;
-  TCommentFeed = class;
-  TItemScope = class;
-  TMoment = class;
-  TMomentsFeed = class;
-  TPeopleFeed = class;
-  TPerson = class;
-  TPlace = class;
-  TPlusAclentryResource = class;
+  TAcl = Class;
+  TActivity = Class;
+  TActivityFeed = Class;
+  TComment = Class;
+  TCommentFeed = Class;
+  TItemScope = Class;
+  TMoment = Class;
+  TMomentsFeed = Class;
+  TPeopleFeed = Class;
+  TPerson = Class;
+  TPlace = Class;
+  TPlusAclentryResource = Class;
   TAclArray = Array of TAcl;
   TActivityArray = Array of TActivity;
   TActivityFeedArray = Array of TActivityFeed;
@@ -49,39 +49,39 @@ type
   TPlaceArray = Array of TPlace;
   TPlusAclentryResourceArray = Array of TPlusAclentryResource;
   //Anonymous types, using auto-generated names
-  TActivityTypeactorTypeimage = class;
-  TActivityTypeactorTypename = class;
-  TActivityTypeactor = class;
-  TActivityTypeobjectTypeactorTypeimage = class;
-  TActivityTypeobjectTypeactor = class;
-  TActivityTypeobjectTypeattachmentsItemTypeembed = class;
-  TActivityTypeobjectTypeattachmentsItemTypefullImage = class;
-  TActivityTypeobjectTypeattachmentsItemTypeimage = class;
-  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = class;
-  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = class;
-  TActivityTypeobjectTypeattachmentsItem = class;
-  TActivityTypeobjectTypeplusoners = class;
-  TActivityTypeobjectTypereplies = class;
-  TActivityTypeobjectTyperesharers = class;
-  TActivityTypeobject = class;
-  TActivityTypeprovider = class;
-  TCommentTypeactorTypeimage = class;
-  TCommentTypeactor = class;
-  TCommentTypeinReplyToItem = class;
-  TCommentTypeobject = class;
-  TCommentTypeplusoners = class;
-  TPersonTypeageRange = class;
-  TPersonTypecoverTypecoverInfo = class;
-  TPersonTypecoverTypecoverPhoto = class;
-  TPersonTypecover = class;
-  TPersonTypeemailsItem = class;
-  TPersonTypeimage = class;
-  TPersonTypename = class;
-  TPersonTypeorganizationsItem = class;
-  TPersonTypeplacesLivedItem = class;
-  TPersonTypeurlsItem = class;
-  TPlaceTypeaddress = class;
-  TPlaceTypeposition = class;
+  TActivityTypeactorTypeimage = Class;
+  TActivityTypeactorTypename = Class;
+  TActivityTypeactor = Class;
+  TActivityTypeobjectTypeactorTypeimage = Class;
+  TActivityTypeobjectTypeactor = Class;
+  TActivityTypeobjectTypeattachmentsItemTypeembed = Class;
+  TActivityTypeobjectTypeattachmentsItemTypefullImage = Class;
+  TActivityTypeobjectTypeattachmentsItemTypeimage = Class;
+  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = Class;
+  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = Class;
+  TActivityTypeobjectTypeattachmentsItem = Class;
+  TActivityTypeobjectTypeplusoners = Class;
+  TActivityTypeobjectTypereplies = Class;
+  TActivityTypeobjectTyperesharers = Class;
+  TActivityTypeobject = Class;
+  TActivityTypeprovider = Class;
+  TCommentTypeactorTypeimage = Class;
+  TCommentTypeactor = Class;
+  TCommentTypeinReplyToItem = Class;
+  TCommentTypeobject = Class;
+  TCommentTypeplusoners = Class;
+  TPersonTypeageRange = Class;
+  TPersonTypecoverTypecoverInfo = Class;
+  TPersonTypecoverTypecoverPhoto = Class;
+  TPersonTypecover = Class;
+  TPersonTypeemailsItem = Class;
+  TPersonTypeimage = Class;
+  TPersonTypename = Class;
+  TPersonTypeorganizationsItem = Class;
+  TPersonTypeplacesLivedItem = Class;
+  TPersonTypeurlsItem = Class;
+  TPlaceTypeaddress = Class;
+  TPlaceTypeposition = Class;
   TAclTypeitemsArray = Array of TPlusAclentryResource;
   TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray = Array of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem;
   TActivityTypeobjectTypeattachmentsArray = Array of TActivityTypeobjectTypeattachmentsItem;
@@ -114,6 +114,10 @@ type
     Procedure Setdescription(AIndex : Integer; AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAclTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -372,6 +376,10 @@ type
     Procedure SetobjectType(AIndex : Integer; AValue : String); virtual;
     Procedure Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
     Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property content : String Index 0 Read Fcontent Write Setcontent;
@@ -471,6 +479,10 @@ type
     Procedure Setreplies(AIndex : Integer; AValue : TActivityTypeobjectTypereplies); virtual;
     Procedure Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers); virtual;
     Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property actor : TActivityTypeobjectTypeactor Index 0 Read Factor Write Setactor;
@@ -602,6 +614,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
@@ -745,6 +761,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setverb(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property actor : TCommentTypeactor Index 0 Read Factor Write Setactor;
@@ -785,6 +805,10 @@ type
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
@@ -917,6 +941,10 @@ type
     Procedure Seturl(AIndex : Integer; AValue : String); virtual;
     Procedure Setwidth(AIndex : Integer; AValue : String); virtual;
     Procedure SetworstRating(AIndex : Integer; 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;
@@ -1036,6 +1064,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
@@ -1071,6 +1103,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property etag : String Index 0 Read Fetag Write Setetag;
@@ -1386,6 +1422,10 @@ type
     Procedure Seturl(AIndex : Integer; AValue : String); virtual;
     Procedure Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray); virtual;
     Procedure Setverified(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 aboutMe : String Index 0 Read FaboutMe Write SetaboutMe;
@@ -1732,6 +1772,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAcl.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2243,6 +2296,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityTypeobjectTypeattachmentsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'thumbnails' : SetLength(Fthumbnails,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2431,6 +2497,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityTypeobject.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'attachments' : SetLength(Fattachments,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2764,6 +2843,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3038,6 +3130,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TComment.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'inreplyto' : SetLength(FinReplyTo,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3125,6 +3230,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCommentFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3693,6 +3811,24 @@ begin
   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}
+
 
 
 
@@ -3869,6 +4005,19 @@ begin
 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}
+
 
 
 
@@ -3946,6 +4095,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPeopleFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4697,6 +4859,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPerson.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'emails' : SetLength(Femails,ALength);
+  'organizations' : SetLength(Forganizations,ALength);
+  'placeslived' : SetLength(FplacesLived,ALength);
+  'urls' : SetLength(Furls,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -5228,7 +5406,7 @@ end;
 Class Function TPlusAPI.APIRevision : String;
 
 begin
-  Result:='20150326';
+  Result:='20150302';
 end;
 
 Class Function TPlusAPI.APIID : String;
@@ -5282,7 +5460,7 @@ end;
 Class Function TPlusAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TPlusAPI.APIbasePath : string;
@@ -5294,7 +5472,7 @@ end;
 Class Function TPlusAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/plus/v1/';
+  Result:='https://www.googleapis.com:443/plus/v1/';
 end;
 
 Class Function TPlusAPI.APIProtocol : string;
@@ -5406,7 +5584,7 @@ Function TPlusAPI.CreateActivitiesResource(AOwner : TComponent) : TActivitiesRes
 
 begin
   Result:=TActivitiesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5430,7 +5608,7 @@ Function TPlusAPI.CreateCommentsResource(AOwner : TComponent) : TCommentsResourc
 
 begin
   Result:=TCommentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5454,7 +5632,7 @@ Function TPlusAPI.CreateMomentsResource(AOwner : TComponent) : TMomentsResource;
 
 begin
   Result:=TMomentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5478,7 +5656,7 @@ Function TPlusAPI.CreatePeopleResource(AOwner : TComponent) : TPeopleResource;
 
 begin
   Result:=TPeopleResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleplusDomains.pp

@@ -13,7 +13,7 @@ unit googleplusDomains;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:57
+//Generated on: 16-5-15 08:53:06
 {$MODE objfpc}
 {$H+}
 
@@ -24,21 +24,21 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAcl = class;
-  TActivity = class;
-  TActivityFeed = class;
-  TAudience = class;
-  TAudiencesFeed = class;
-  TCircle = class;
-  TCircleFeed = class;
-  TComment = class;
-  TCommentFeed = class;
-  TMedia = class;
-  TPeopleFeed = class;
-  TPerson = class;
-  TPlace = class;
-  TPlusDomainsAclentryResource = class;
-  TVideostream = class;
+  TAcl = Class;
+  TActivity = Class;
+  TActivityFeed = Class;
+  TAudience = Class;
+  TAudiencesFeed = Class;
+  TCircle = Class;
+  TCircleFeed = Class;
+  TComment = Class;
+  TCommentFeed = Class;
+  TMedia = Class;
+  TPeopleFeed = Class;
+  TPerson = Class;
+  TPlace = Class;
+  TPlusDomainsAclentryResource = Class;
+  TVideostream = Class;
   TAclArray = Array of TAcl;
   TActivityArray = Array of TActivity;
   TActivityFeedArray = Array of TActivityFeed;
@@ -55,44 +55,44 @@ type
   TPlusDomainsAclentryResourceArray = Array of TPlusDomainsAclentryResource;
   TVideostreamArray = Array of TVideostream;
   //Anonymous types, using auto-generated names
-  TActivityTypeactorTypeimage = class;
-  TActivityTypeactorTypename = class;
-  TActivityTypeactor = class;
-  TActivityTypeobjectTypeactorTypeimage = class;
-  TActivityTypeobjectTypeactor = class;
-  TActivityTypeobjectTypeattachmentsItemTypeembed = class;
-  TActivityTypeobjectTypeattachmentsItemTypefullImage = class;
-  TActivityTypeobjectTypeattachmentsItemTypeimage = class;
-  TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem = class;
-  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = class;
-  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = class;
-  TActivityTypeobjectTypeattachmentsItem = class;
-  TActivityTypeobjectTypeplusoners = class;
-  TActivityTypeobjectTypereplies = class;
-  TActivityTypeobjectTyperesharers = class;
-  TActivityTypeobjectTypestatusForViewer = class;
-  TActivityTypeobject = class;
-  TActivityTypeprovider = class;
-  TCircleTypepeople = class;
-  TCommentTypeactorTypeimage = class;
-  TCommentTypeactor = class;
-  TCommentTypeinReplyToItem = class;
-  TCommentTypeobject = class;
-  TCommentTypeplusoners = class;
-  TMediaTypeauthorTypeimage = class;
-  TMediaTypeauthor = class;
-  TMediaTypeexif = class;
-  TPersonTypecoverTypecoverInfo = class;
-  TPersonTypecoverTypecoverPhoto = class;
-  TPersonTypecover = class;
-  TPersonTypeemailsItem = class;
-  TPersonTypeimage = class;
-  TPersonTypename = class;
-  TPersonTypeorganizationsItem = class;
-  TPersonTypeplacesLivedItem = class;
-  TPersonTypeurlsItem = class;
-  TPlaceTypeaddress = class;
-  TPlaceTypeposition = class;
+  TActivityTypeactorTypeimage = Class;
+  TActivityTypeactorTypename = Class;
+  TActivityTypeactor = Class;
+  TActivityTypeobjectTypeactorTypeimage = Class;
+  TActivityTypeobjectTypeactor = Class;
+  TActivityTypeobjectTypeattachmentsItemTypeembed = Class;
+  TActivityTypeobjectTypeattachmentsItemTypefullImage = Class;
+  TActivityTypeobjectTypeattachmentsItemTypeimage = Class;
+  TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem = Class;
+  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = Class;
+  TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = Class;
+  TActivityTypeobjectTypeattachmentsItem = Class;
+  TActivityTypeobjectTypeplusoners = Class;
+  TActivityTypeobjectTypereplies = Class;
+  TActivityTypeobjectTyperesharers = Class;
+  TActivityTypeobjectTypestatusForViewer = Class;
+  TActivityTypeobject = Class;
+  TActivityTypeprovider = Class;
+  TCircleTypepeople = Class;
+  TCommentTypeactorTypeimage = Class;
+  TCommentTypeactor = Class;
+  TCommentTypeinReplyToItem = Class;
+  TCommentTypeobject = Class;
+  TCommentTypeplusoners = Class;
+  TMediaTypeauthorTypeimage = Class;
+  TMediaTypeauthor = Class;
+  TMediaTypeexif = Class;
+  TPersonTypecoverTypecoverInfo = Class;
+  TPersonTypecoverTypecoverPhoto = Class;
+  TPersonTypecover = Class;
+  TPersonTypeemailsItem = Class;
+  TPersonTypeimage = Class;
+  TPersonTypename = Class;
+  TPersonTypeorganizationsItem = Class;
+  TPersonTypeplacesLivedItem = Class;
+  TPersonTypeurlsItem = Class;
+  TPlaceTypeaddress = Class;
+  TPlaceTypeposition = Class;
   TAclTypeitemsArray = Array of TPlusDomainsAclentryResource;
   TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray = Array of TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem;
   TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray = Array of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem;
@@ -125,6 +125,10 @@ type
     Procedure SetdomainRestricted(AIndex : Integer; AValue : boolean); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TAclTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property description : String Index 0 Read Fdescription Write Setdescription;
@@ -402,6 +406,10 @@ type
     Procedure SetpreviewThumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray); virtual;
     Procedure Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
     Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property content : String Index 0 Read Fcontent Write Setcontent;
@@ -532,6 +540,10 @@ type
     Procedure Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers); virtual;
     Procedure SetstatusForViewer(AIndex : Integer; AValue : TActivityTypeobjectTypestatusForViewer); virtual;
     Procedure Seturl(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property actor : TActivityTypeobjectTypeactor Index 0 Read Factor Write Setactor;
@@ -664,6 +676,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
@@ -724,6 +740,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property etag : String Index 0 Read Fetag Write Setetag;
@@ -808,6 +828,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property etag : String Index 0 Read Fetag Write Setetag;
@@ -950,6 +974,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setverb(AIndex : Integer; AValue : String); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property actor : TCommentTypeactor Index 0 Read Factor Write Setactor;
@@ -990,6 +1018,10 @@ type
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
@@ -1105,6 +1137,10 @@ type
     Procedure SetvideoDuration(AIndex : Integer; AValue : String); virtual;
     Procedure SetvideoStatus(AIndex : Integer; AValue : String); virtual;
     Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property author : TMediaTypeauthor Index 0 Read Fauthor Write Setauthor;
@@ -1150,6 +1186,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property etag : String Index 0 Read Fetag Write Setetag;
@@ -1442,6 +1482,10 @@ type
     Procedure Seturl(AIndex : Integer; AValue : String); virtual;
     Procedure Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray); virtual;
     Procedure Setverified(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 aboutMe : String Index 0 Read FaboutMe Write SetaboutMe;
@@ -1873,6 +1917,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAcl.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2411,6 +2468,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityTypeobjectTypeattachmentsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'previewthumbnails' : SetLength(FpreviewThumbnails,ALength);
+  'thumbnails' : SetLength(Fthumbnails,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2666,6 +2737,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityTypeobject.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'attachments' : SetLength(Fattachments,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2999,6 +3083,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TActivityFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3113,6 +3210,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAudiencesFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3294,6 +3404,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCircleFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3568,6 +3691,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TComment.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'inreplyto' : SetLength(FinReplyTo,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3655,6 +3791,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCommentFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3934,6 +4083,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMedia.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'streams' : SetLength(Fstreams,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4011,6 +4173,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPeopleFeed.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4715,6 +4890,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPerson.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'emails' : SetLength(Femails,ALength);
+  'organizations' : SetLength(Forganizations,ALength);
+  'placeslived' : SetLength(FplacesLived,ALength);
+  'urls' : SetLength(Furls,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -5489,7 +5680,7 @@ end;
 Class Function TPlusDomainsAPI.APIRevision : String;
 
 begin
-  Result:='20150326';
+  Result:='20150302';
 end;
 
 Class Function TPlusDomainsAPI.APIID : String;
@@ -5543,7 +5734,7 @@ end;
 Class Function TPlusDomainsAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TPlusDomainsAPI.APIbasePath : string;
@@ -5555,7 +5746,7 @@ end;
 Class Function TPlusDomainsAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/plusDomains/v1/';
+  Result:='https://www.googleapis.com:443/plusDomains/v1/';
 end;
 
 Class Function TPlusDomainsAPI.APIProtocol : string;
@@ -5687,7 +5878,7 @@ Function TPlusDomainsAPI.CreateActivitiesResource(AOwner : TComponent) : TActivi
 
 begin
   Result:=TActivitiesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5711,7 +5902,7 @@ Function TPlusDomainsAPI.CreateAudiencesResource(AOwner : TComponent) : TAudienc
 
 begin
   Result:=TAudiencesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5735,7 +5926,7 @@ Function TPlusDomainsAPI.CreateCirclesResource(AOwner : TComponent) : TCirclesRe
 
 begin
   Result:=TCirclesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5759,7 +5950,7 @@ Function TPlusDomainsAPI.CreateCommentsResource(AOwner : TComponent) : TComments
 
 begin
   Result:=TCommentsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5783,7 +5974,7 @@ Function TPlusDomainsAPI.CreateMediaResource(AOwner : TComponent) : TMediaResour
 
 begin
   Result:=TMediaResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -5807,7 +5998,7 @@ Function TPlusDomainsAPI.CreatePeopleResource(AOwner : TComponent) : TPeopleReso
 
 begin
   Result:=TPeopleResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleprediction.pp

@@ -13,7 +13,7 @@ unit googleprediction;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:57
+//Generated on: 16-5-15 08:53:06
 {$MODE objfpc}
 {$H+}
 
@@ -24,13 +24,13 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAnalyze = class;
-  TInput = class;
-  TInsert = class;
-  TInsert2 = class;
-  TList = class;
-  TOutput = class;
-  TUpdate = class;
+  TAnalyze = Class;
+  TInput = Class;
+  TInsert = Class;
+  TInsert2 = Class;
+  TList = Class;
+  TOutput = Class;
+  TUpdate = Class;
   TAnalyzeArray = Array of TAnalyze;
   TInputArray = Array of TInput;
   TInsertArray = Array of TInsert;
@@ -39,24 +39,24 @@ type
   TOutputArray = Array of TOutput;
   TUpdateArray = Array of TUpdate;
   //Anonymous types, using auto-generated names
-  TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesItem = class;
-  TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical = class;
-  TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric = class;
-  TAnalyzeTypedataDescriptionTypefeaturesItemTypetext = class;
-  TAnalyzeTypedataDescriptionTypefeaturesItem = class;
-  TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric = class;
-  TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextItem = class;
-  TAnalyzeTypedataDescriptionTypeoutputFeature = class;
-  TAnalyzeTypedataDescription = class;
-  TAnalyzeTypeerrorsItem = class;
-  TAnalyzeTypemodelDescriptionTypeconfusionMatrix = class;
-  TAnalyzeTypemodelDescriptionTypeconfusionMatrixRowTotals = class;
-  TAnalyzeTypemodelDescription = class;
-  TInputTypeinput = class;
-  TInsertTypetrainingInstancesItem = class;
-  TInsertTypeutilityItem = class;
-  TInsert2TypemodelInfo = class;
-  TOutputTypeoutputMultiItem = class;
+  TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesItem = Class;
+  TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical = Class;
+  TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric = Class;
+  TAnalyzeTypedataDescriptionTypefeaturesItemTypetext = Class;
+  TAnalyzeTypedataDescriptionTypefeaturesItem = Class;
+  TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric = Class;
+  TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextItem = Class;
+  TAnalyzeTypedataDescriptionTypeoutputFeature = Class;
+  TAnalyzeTypedataDescription = Class;
+  TAnalyzeTypeerrorsItem = Class;
+  TAnalyzeTypemodelDescriptionTypeconfusionMatrix = Class;
+  TAnalyzeTypemodelDescriptionTypeconfusionMatrixRowTotals = Class;
+  TAnalyzeTypemodelDescription = Class;
+  TInputTypeinput = Class;
+  TInsertTypetrainingInstancesItem = Class;
+  TInsertTypeutilityItem = Class;
+  TInsert2TypemodelInfo = Class;
+  TOutputTypeoutputMultiItem = Class;
   TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray = Array of TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesItem;
   TAnalyzeTypedataDescriptionTypefeaturesArray = Array of TAnalyzeTypedataDescriptionTypefeaturesItem;
   TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextArray = Array of TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextItem;
@@ -97,6 +97,10 @@ type
     //Property setters
     Procedure Setcount(AIndex : Integer; AValue : String); virtual;
     Procedure Setvalues(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray); 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;
@@ -220,6 +224,10 @@ type
     //Property setters
     Procedure Setnumeric(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric); virtual;
     Procedure Settext(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property numeric : TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric Index 0 Read Fnumeric Write Setnumeric;
@@ -239,6 +247,10 @@ type
     //Property setters
     Procedure Setfeatures(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesArray); virtual;
     Procedure SetoutputFeature(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeature); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property features : TAnalyzeTypedataDescriptionTypefeaturesArray Index 0 Read Ffeatures Write Setfeatures;
@@ -330,6 +342,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetmodelDescription(AIndex : Integer; AValue : TAnalyzeTypemodelDescription); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 dataDescription : TAnalyzeTypedataDescription Index 0 Read FdataDescription Write SetdataDescription;
@@ -351,6 +367,10 @@ type
   Protected
     //Property setters
     Procedure SetcsvInstance(AIndex : Integer; 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 csvInstance : TTJSONSchemaArray Index 0 Read FcsvInstance Write SetcsvInstance;
@@ -385,6 +405,10 @@ type
     //Property setters
     Procedure SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     Procedure Setoutput(AIndex : Integer; 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 csvInstance : TTJSONSchemaArray Index 0 Read FcsvInstance Write SetcsvInstance;
@@ -430,6 +454,10 @@ type
     Procedure SetstoragePMMLModelLocation(AIndex : Integer; AValue : String); virtual;
     Procedure SettrainingInstances(AIndex : Integer; AValue : TInsertTypetrainingInstancesArray); virtual;
     Procedure Setutility(AIndex : Integer; AValue : TInsertTypeutilityArray); 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;
@@ -536,6 +564,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 : TListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -575,7 +607,7 @@ type
     Fkind : String;
     FoutputLabel : String;
     FoutputMulti : TOutputTypeoutputMultiArray;
-    FoutputValue : double;
+    FoutputValue : String;
     FselfLink : String;
   Protected
     //Property setters
@@ -583,15 +615,19 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetoutputLabel(AIndex : Integer; AValue : String); virtual;
     Procedure SetoutputMulti(AIndex : Integer; AValue : TOutputTypeoutputMultiArray); virtual;
-    Procedure SetoutputValue(AIndex : Integer; AValue : double); virtual;
+    Procedure SetoutputValue(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 kind : String Index 8 Read Fkind Write Setkind;
     Property outputLabel : String Index 16 Read FoutputLabel Write SetoutputLabel;
     Property outputMulti : TOutputTypeoutputMultiArray Index 24 Read FoutputMulti Write SetoutputMulti;
-    Property outputValue : double Index 32 Read FoutputValue Write SetoutputValue;
+    Property outputValue : String Index 32 Read FoutputValue Write SetoutputValue;
     Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
   end;
   TOutputClass = Class of TOutput;
@@ -608,6 +644,10 @@ type
     //Property setters
     Procedure SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     Procedure Setoutput(AIndex : Integer; 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 csvInstance : TTJSONSchemaArray Index 0 Read FcsvInstance Write SetcsvInstance;
@@ -750,6 +790,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'values' : SetLength(Fvalues,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -942,6 +995,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeature.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'text' : SetLength(Ftext,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -969,6 +1035,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAnalyzeTypedataDescription.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'features' : SetLength(Ffeatures,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1112,6 +1191,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAnalyze.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1129,6 +1221,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInputTypeinput.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'csvinstance' : SetLength(FcsvInstance,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1173,6 +1278,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInsertTypetrainingInstancesItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'csvinstance' : SetLength(FcsvInstance,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1273,6 +1391,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInsert.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'traininginstances' : SetLength(FtrainingInstances,ALength);
+  'utility' : SetLength(Futility,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1504,6 +1636,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1590,7 +1735,7 @@ end;
 
 
 
-Procedure TOutput.SetoutputValue(AIndex : Integer; AValue : double); 
+Procedure TOutput.SetoutputValue(AIndex : Integer; AValue : String); 
 
 begin
   If (FoutputValue=AValue) then exit;
@@ -1609,6 +1754,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOutput.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'outputmulti' : SetLength(FoutputMulti,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1636,6 +1794,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUpdate.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'csvinstance' : SetLength(FcsvInstance,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1883,7 +2054,7 @@ end;
 Class Function TPredictionAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TPredictionAPI.APIbasePath : string;
@@ -1895,7 +2066,7 @@ end;
 Class Function TPredictionAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/prediction/v1.6/projects/';
+  Result:='https://www.googleapis.com:443/prediction/v1.6/projects/';
 end;
 
 Class Function TPredictionAPI.APIProtocol : string;
@@ -1987,7 +2158,7 @@ Function TPredictionAPI.CreateHostedmodelsResource(AOwner : TComponent) : THoste
 
 begin
   Result:=THostedmodelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -2011,7 +2182,7 @@ Function TPredictionAPI.CreateTrainedmodelsResource(AOwner : TComponent) : TTrai
 
 begin
   Result:=TTrainedmodelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlepubsub.pp

@@ -13,7 +13,7 @@ unit googlepubsub;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:57
+//Generated on: 16-5-15 08:53:07
 {$MODE objfpc}
 {$H+}
 
@@ -24,22 +24,22 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAcknowledgeRequest = class;
-  TEmpty = class;
-  TListSubscriptionsResponse = class;
-  TListTopicSubscriptionsResponse = class;
-  TListTopicsResponse = class;
-  TModifyAckDeadlineRequest = class;
-  TModifyPushConfigRequest = class;
-  TPublishRequest = class;
-  TPublishResponse = class;
-  TPubsubMessage = class;
-  TPullRequest = class;
-  TPullResponse = class;
-  TPushConfig = class;
-  TReceivedMessage = class;
-  TSubscription = class;
-  TTopic = class;
+  TAcknowledgeRequest = Class;
+  TEmpty = Class;
+  TListSubscriptionsResponse = Class;
+  TListTopicSubscriptionsResponse = Class;
+  TListTopicsResponse = Class;
+  TModifyAckDeadlineRequest = Class;
+  TModifyPushConfigRequest = Class;
+  TPublishRequest = Class;
+  TPublishResponse = Class;
+  TPubsubMessage = Class;
+  TPullRequest = Class;
+  TPullResponse = Class;
+  TPushConfig = Class;
+  TReceivedMessage = Class;
+  TSubscription = Class;
+  TTopic = Class;
   TAcknowledgeRequestArray = Array of TAcknowledgeRequest;
   TEmptyArray = Array of TEmpty;
   TListSubscriptionsResponseArray = Array of TListSubscriptionsResponse;
@@ -57,8 +57,8 @@ type
   TSubscriptionArray = Array of TSubscription;
   TTopicArray = Array of TTopic;
   //Anonymous types, using auto-generated names
-  TPubsubMessageTypeattributes = class;
-  TPushConfigTypeattributes = class;
+  TPubsubMessageTypeattributes = Class;
+  TPushConfigTypeattributes = Class;
   TListSubscriptionsResponseTypesubscriptionsArray = Array of TSubscription;
   TListTopicsResponseTypetopicsArray = Array of TTopic;
   TPublishRequestTypemessagesArray = Array of TPubsubMessage;
@@ -74,6 +74,10 @@ type
   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}
   Public
   Published
     Property ackIds : TStringArray Index 0 Read FackIds Write SetackIds;
@@ -105,6 +109,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponseTypesubscriptionsArray); 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;
@@ -124,6 +132,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setsubscriptions(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 nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
@@ -143,6 +155,10 @@ type
     //Property setters
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Settopics(AIndex : Integer; AValue : TListTopicsResponseTypetopicsArray); 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;
@@ -195,6 +211,10 @@ type
   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
   Published
     Property messages : TPublishRequestTypemessagesArray Index 0 Read Fmessages Write Setmessages;
@@ -211,6 +231,10 @@ type
   Protected
     //Property setters
     Procedure SetmessageIds(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 messageIds : TStringArray Index 0 Read FmessageIds Write SetmessageIds;
@@ -282,6 +306,10 @@ type
   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}
   Public
   Published
     Property receivedMessages : TPullResponseTypereceivedMessagesArray Index 0 Read FreceivedMessages Write SetreceivedMessages;
@@ -381,14 +409,110 @@ type
   end;
   TTopicClass = Class of TTopic;
   
+  { --------------------------------------------------------------------
+    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 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;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TProjectsTopicsSubscriptionsResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TProjectsTopicsSubscriptionsResource, method List
+  
+  TProjectsTopicsSubscriptionsListOptions = Record
+    pageSize : integer;
+    pageToken : String;
+  end;
+  
+  TProjectsTopicsSubscriptionsResource = Class(TGoogleResource)
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function List(topic: string; AQuery : string  = '') : TListTopicSubscriptionsResponse;
+    Function List(topic: string; AQuery : TProjectsTopicsSubscriptionslistOptions) : TListTopicSubscriptionsResponse;
+  end;
+  
+  
+  { --------------------------------------------------------------------
+    TProjectsTopicsResource
+    --------------------------------------------------------------------}
+  
+  
+  //Optional query Options for TProjectsTopicsResource, method List
+  
+  TProjectsTopicsListOptions = Record
+    pageSize : integer;
+    pageToken : String;
+  end;
+  
+  TProjectsTopicsResource = Class(TGoogleResource)
+  Private
+    FSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
+    Function GetSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;virtual;
+  Public
+    Class Function ResourceName : String; override;
+    Class Function DefaultAPI : TGoogleAPIClass; override;
+    Function Create(_name: string; aTopic : TTopic) : TTopic;overload;
+    Function Delete(topic: string) : TEmpty;
+    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 CreateSubscriptionsResource(AOwner : TComponent) : TProjectsTopicsSubscriptionsResource;virtual;overload;
+    Function CreateSubscriptionsResource : TProjectsTopicsSubscriptionsResource;virtual;overload;
+    Property SubscriptionsResource : TProjectsTopicsSubscriptionsResource Read GetSubscriptionsInstance;
+  end;
+  
+  
   { --------------------------------------------------------------------
     TProjectsResource
     --------------------------------------------------------------------}
   
   TProjectsResource = Class(TGoogleResource)
+  Private
+    FSubscriptionsInstance : TProjectsSubscriptionsResource;
+    FTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
+    FTopicsInstance : TProjectsTopicsResource;
+    Function GetSubscriptionsInstance : TProjectsSubscriptionsResource;virtual;
+    Function GetTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;virtual;
+    Function GetTopicsInstance : TProjectsTopicsResource;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;
+    Property TopicsSubscriptionsResource : TProjectsTopicsSubscriptionsResource Read GetTopicsSubscriptionsInstance;
+    Property TopicsResource : TProjectsTopicsResource Read GetTopicsInstance;
   end;
   
   
@@ -398,7 +522,13 @@ type
   
   TPubsubAPI = Class(TGoogleAPI)
   Private
+    FProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;
+    FProjectsTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
+    FProjectsTopicsInstance : TProjectsTopicsResource;
     FProjectsInstance : TProjectsResource;
+    Function GetProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;virtual;
+    Function GetProjectsTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;virtual;
+    Function GetProjectsTopicsInstance : TProjectsTopicsResource;virtual;
     Function GetProjectsInstance : TProjectsResource;virtual;
   Public
     //Override class functions with API info
@@ -423,9 +553,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 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 ProjectsResource : TProjectsResource Read GetProjectsInstance;
   end;
 
@@ -446,6 +585,19 @@ begin
 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}
+
 
 
 
@@ -480,6 +632,19 @@ begin
 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}
+
 
 
 
@@ -507,6 +672,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListTopicSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'subscriptions' : SetLength(Fsubscriptions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -534,6 +712,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListTopicsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'topics' : SetLength(Ftopics,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -595,6 +786,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublishRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'messages' : SetLength(Fmessages,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -612,6 +816,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublishResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'messageids' : SetLength(FmessageIds,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -706,6 +923,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPullResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'receivedmessages' : SetLength(FreceivedMessages,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -840,6 +1070,336 @@ end;
 
 
 
+{ --------------------------------------------------------------------
+  TProjectsSubscriptionsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TProjectsSubscriptionsResource.ResourceName : String;
+
+begin
+  Result:='subscriptions';
+end;
+
+Class Function TProjectsSubscriptionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TpubsubAPI;
+end;
+
+Function TProjectsSubscriptionsResource.Acknowledge(subscription: string; aAcknowledgeRequest : TAcknowledgeRequest) : TEmpty;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = '{+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.Create(_name: string; aSubscription : TSubscription) : TSubscription;
+
+Const
+  _HTTPMethod = 'PUT';
+  _Path       = '{+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.Delete(subscription: string) : TEmpty;
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = '{+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.Get(subscription: string) : TSubscription;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{+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       = '{+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.ModifyAckDeadline(subscription: string; aModifyAckDeadlineRequest : TModifyAckDeadlineRequest) : TEmpty;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = '{+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.ModifyPushConfig(subscription: string; aModifyPushConfigRequest : TModifyPushConfigRequest) : TEmpty;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = '{+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;
+
+Function TProjectsSubscriptionsResource.Pull(subscription: string; aPullRequest : TPullRequest) : TPullResponse;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = '{+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;
+
+
+
+{ --------------------------------------------------------------------
+  TProjectsTopicsSubscriptionsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TProjectsTopicsSubscriptionsResource.ResourceName : String;
+
+begin
+  Result:='subscriptions';
+end;
+
+Class Function TProjectsTopicsSubscriptionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TpubsubAPI;
+end;
+
+Function TProjectsTopicsSubscriptionsResource.List(topic: string; AQuery : string = '') : TListTopicSubscriptionsResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{+topic}/subscriptions';
+  _Methodid   = 'pubsub.projects.topics.subscriptions.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['topic',topic]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListTopicSubscriptionsResponse) as TListTopicSubscriptionsResponse;
+end;
+
+
+Function TProjectsTopicsSubscriptionsResource.List(topic: string; AQuery : TProjectsTopicsSubscriptionslistOptions) : TListTopicSubscriptionsResponse;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'pageSize',AQuery.pageSize);
+  AddToQuery(_Q,'pageToken',AQuery.pageToken);
+  Result:=List(topic,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+  TProjectsTopicsResource
+  --------------------------------------------------------------------}
+
+
+Class Function TProjectsTopicsResource.ResourceName : String;
+
+begin
+  Result:='topics';
+end;
+
+Class Function TProjectsTopicsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+  Result:=TpubsubAPI;
+end;
+
+Function TProjectsTopicsResource.Create(_name: string; aTopic : TTopic) : TTopic;
+
+Const
+  _HTTPMethod = 'PUT';
+  _Path       = '{+name}';
+  _Methodid   = 'pubsub.projects.topics.create';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['name',_name]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aTopic,TTopic) as TTopic;
+end;
+
+Function TProjectsTopicsResource.Delete(topic: string) : TEmpty;
+
+Const
+  _HTTPMethod = 'DELETE';
+  _Path       = '{+topic}';
+  _Methodid   = 'pubsub.projects.topics.delete';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['topic',topic]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TProjectsTopicsResource.Get(topic: string) : TTopic;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{+topic}';
+  _Methodid   = 'pubsub.projects.topics.get';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['topic',topic]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTopic) as TTopic;
+end;
+
+Function TProjectsTopicsResource.List(project: string; AQuery : string = '') : TListTopicsResponse;
+
+Const
+  _HTTPMethod = 'GET';
+  _Path       = '{+project}/topics';
+  _Methodid   = 'pubsub.projects.topics.list';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['project',project]);
+  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListTopicsResponse) as TListTopicsResponse;
+end;
+
+
+Function TProjectsTopicsResource.List(project: string; AQuery : TProjectsTopicslistOptions) : TListTopicsResponse;
+
+Var
+  _Q : String;
+
+begin
+  _Q:='';
+  AddToQuery(_Q,'pageSize',AQuery.pageSize);
+  AddToQuery(_Q,'pageToken',AQuery.pageToken);
+  Result:=List(project,_Q);
+end;
+
+Function TProjectsTopicsResource.Publish(topic: string; aPublishRequest : TPublishRequest) : TPublishResponse;
+
+Const
+  _HTTPMethod = 'POST';
+  _Path       = '{+topic}:publish';
+  _Methodid   = 'pubsub.projects.topics.publish';
+
+Var
+  _P : String;
+
+begin
+  _P:=SubstitutePath(_Path,['topic',topic]);
+  Result:=ServiceCall(_HTTPMethod,_P,'',aPublishRequest,TPublishResponse) as TPublishResponse;
+end;
+
+
+
+Function TProjectsTopicsResource.GetSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
+
+begin
+  if (FSubscriptionsInstance=Nil) then
+    FSubscriptionsInstance:=CreateSubscriptionsResource;
+  Result:=FSubscriptionsInstance;
+end;
+
+Function TProjectsTopicsResource.CreateSubscriptionsResource : TProjectsTopicsSubscriptionsResource;
+
+begin
+  Result:=CreateSubscriptionsResource(Self);
+end;
+
+
+Function TProjectsTopicsResource.CreateSubscriptionsResource(AOwner : TComponent) : TProjectsTopicsSubscriptionsResource;
+
+begin
+  Result:=TProjectsTopicsSubscriptionsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TProjectsResource
   --------------------------------------------------------------------}
@@ -859,6 +1419,78 @@ 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;
+
+
+
+Function TProjectsResource.GetTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
+
+begin
+  if (FTopicsSubscriptionsInstance=Nil) then
+    FTopicsSubscriptionsInstance:=CreateTopicsSubscriptionsResource;
+  Result:=FTopicsSubscriptionsInstance;
+end;
+
+Function TProjectsResource.CreateTopicsSubscriptionsResource : TProjectsTopicsSubscriptionsResource;
+
+begin
+  Result:=CreateTopicsSubscriptionsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateTopicsSubscriptionsResource(AOwner : TComponent) : TProjectsTopicsSubscriptionsResource;
+
+begin
+  Result:=TProjectsTopicsSubscriptionsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetTopicsInstance : TProjectsTopicsResource;
+
+begin
+  if (FTopicsInstance=Nil) then
+    FTopicsInstance:=CreateTopicsResource;
+  Result:=FTopicsInstance;
+end;
+
+Function TProjectsResource.CreateTopicsResource : TProjectsTopicsResource;
+
+begin
+  Result:=CreateTopicsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateTopicsResource(AOwner : TComponent) : TProjectsTopicsResource;
+
+begin
+  Result:=TProjectsTopicsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 { --------------------------------------------------------------------
   TPubsubAPI
   --------------------------------------------------------------------}
@@ -1006,6 +1638,78 @@ begin
 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.GetProjectsTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
+
+begin
+  if (FProjectsTopicsSubscriptionsInstance=Nil) then
+    FProjectsTopicsSubscriptionsInstance:=CreateProjectsTopicsSubscriptionsResource;
+  Result:=FProjectsTopicsSubscriptionsInstance;
+end;
+
+Function TPubsubAPI.CreateProjectsTopicsSubscriptionsResource : TProjectsTopicsSubscriptionsResource;
+
+begin
+  Result:=CreateProjectsTopicsSubscriptionsResource(Self);
+end;
+
+
+Function TPubsubAPI.CreateProjectsTopicsSubscriptionsResource(AOwner : TComponent) : TProjectsTopicsSubscriptionsResource;
+
+begin
+  Result:=TProjectsTopicsSubscriptionsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
+Function TPubsubAPI.GetProjectsTopicsInstance : TProjectsTopicsResource;
+
+begin
+  if (FProjectsTopicsInstance=Nil) then
+    FProjectsTopicsInstance:=CreateProjectsTopicsResource;
+  Result:=FProjectsTopicsInstance;
+end;
+
+Function TPubsubAPI.CreateProjectsTopicsResource : TProjectsTopicsResource;
+
+begin
+  Result:=CreateProjectsTopicsResource(Self);
+end;
+
+
+Function TPubsubAPI.CreateProjectsTopicsResource(AOwner : TComponent) : TProjectsTopicsResource;
+
+begin
+  Result:=TProjectsTopicsResource.Create(AOwner);
+  Result.API:=Self.API;
+end;
+
+
+
 Function TPubsubAPI.GetProjectsInstance : TProjectsResource;
 
 begin
@@ -1025,7 +1729,7 @@ Function TPubsubAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResou
 
 begin
   Result:=TProjectsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleqpxExpress.pp

@@ -13,7 +13,7 @@ unit googleqpxExpress;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:57
+//Generated on: 16-5-15 08:53:07
 {$MODE objfpc}
 {$H+}
 
@@ -24,30 +24,30 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAircraftData = class;
-  TAirportData = class;
-  TBagDescriptor = class;
-  TCarrierData = class;
-  TCityData = class;
-  TData = class;
-  TFareInfo = class;
-  TFlightInfo = class;
-  TFreeBaggageAllowance = class;
-  TLegInfo = class;
-  TPassengerCounts = class;
-  TPricingInfo = class;
-  TSegmentInfo = class;
-  TSegmentPricing = class;
-  TSliceInfo = class;
-  TSliceInput = class;
-  TTaxData = class;
-  TTaxInfo = class;
-  TTimeOfDayRange = class;
-  TTripOption = class;
-  TTripOptionsRequest = class;
-  TTripOptionsResponse = class;
-  TTripsSearchRequest = class;
-  TTripsSearchResponse = class;
+  TAircraftData = Class;
+  TAirportData = Class;
+  TBagDescriptor = Class;
+  TCarrierData = Class;
+  TCityData = Class;
+  TData = Class;
+  TFareInfo = Class;
+  TFlightInfo = Class;
+  TFreeBaggageAllowance = Class;
+  TLegInfo = Class;
+  TPassengerCounts = Class;
+  TPricingInfo = Class;
+  TSegmentInfo = Class;
+  TSegmentPricing = Class;
+  TSliceInfo = Class;
+  TSliceInput = Class;
+  TTaxData = Class;
+  TTaxInfo = Class;
+  TTimeOfDayRange = Class;
+  TTripOption = Class;
+  TTripOptionsRequest = Class;
+  TTripOptionsResponse = Class;
+  TTripsSearchRequest = Class;
+  TTripsSearchResponse = Class;
   TAircraftDataArray = Array of TAircraftData;
   TAirportDataArray = Array of TAirportData;
   TBagDescriptorArray = Array of TBagDescriptor;
@@ -155,6 +155,10 @@ type
     Procedure Setdescription(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setsubcode(AIndex : Integer; 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 commercialName : String Index 0 Read FcommercialName Write SetcommercialName;
@@ -232,6 +236,10 @@ type
     Procedure Setcity(AIndex : Integer; AValue : TDataTypecityArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Settax(AIndex : Integer; AValue : TDataTypetaxArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property aircraft : TDataTypeaircraftArray Index 0 Read Faircraft Write Setaircraft;
@@ -317,6 +325,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setpieces(AIndex : Integer; AValue : integer); virtual;
     Procedure Setpounds(AIndex : Integer; 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 bagDescriptor : TFreeBaggageAllowanceTypebagDescriptorArray Index 0 Read FbagDescriptor Write SetbagDescriptor;
@@ -457,6 +469,10 @@ type
     Procedure SetsaleTotal(AIndex : Integer; AValue : String); virtual;
     Procedure SetsegmentPricing(AIndex : Integer; AValue : TPricingInfoTypesegmentPricingArray); virtual;
     Procedure Settax(AIndex : Integer; AValue : TPricingInfoTypetaxArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property baseFareTotal : String Index 0 Read FbaseFareTotal Write SetbaseFareTotal;
@@ -505,6 +521,10 @@ type
     Procedure Setleg(AIndex : Integer; AValue : TSegmentInfoTypelegArray); virtual;
     Procedure SetmarriedSegmentGroup(AIndex : Integer; AValue : String); virtual;
     Procedure SetsubjectToGovernmentApproval(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 bookingCode : String Index 0 Read FbookingCode Write SetbookingCode;
@@ -537,6 +557,10 @@ type
     Procedure SetfreeBaggageOption(AIndex : Integer; AValue : TSegmentPricingTypefreeBaggageOptionArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetsegmentId(AIndex : Integer; 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 fareId : String Index 0 Read FfareId Write SetfareId;
@@ -560,6 +584,10 @@ type
     Procedure Setduration(AIndex : Integer; AValue : integer); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setsegment(AIndex : Integer; AValue : TSliceInfoTypesegmentArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property duration : integer Index 0 Read Fduration Write Setduration;
@@ -598,6 +626,10 @@ type
     Procedure SetpermittedDepartureTime(AIndex : Integer; AValue : TTimeOfDayRange); virtual;
     Procedure SetpreferredCabin(AIndex : Integer; AValue : String); virtual;
     Procedure SetprohibitedCarrier(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 alliance : String Index 0 Read Falliance Write Setalliance;
@@ -707,6 +739,10 @@ type
     Procedure Setpricing(AIndex : Integer; AValue : TTripOptionTypepricingArray); virtual;
     Procedure SetsaleTotal(AIndex : Integer; AValue : String); virtual;
     Procedure Setslice(AIndex : Integer; AValue : TTripOptionTypesliceArray); 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;
@@ -737,6 +773,10 @@ type
     Procedure SetsaleCountry(AIndex : Integer; AValue : String); virtual;
     Procedure Setslice(AIndex : Integer; AValue : TTripOptionsRequestTypesliceArray); virtual;
     Procedure Setsolutions(AIndex : Integer; 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 maxPrice : String Index 0 Read FmaxPrice Write SetmaxPrice;
@@ -764,6 +804,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetrequestId(AIndex : Integer; AValue : String); virtual;
     Procedure SettripOption(AIndex : Integer; AValue : TTripOptionsResponseTypetripOptionArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property data : TData Index 0 Read Fdata Write Setdata;
@@ -998,6 +1042,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBagDescriptor.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'description' : SetLength(Fdescription,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1149,6 +1206,23 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TData.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'aircraft' : SetLength(Faircraft,ALength);
+  'airport' : SetLength(Fairport,ALength);
+  'carrier' : SetLength(Fcarrier,ALength);
+  'city' : SetLength(Fcity,ALength);
+  'tax' : SetLength(Ftax,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1331,6 +1405,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFreeBaggageAllowance.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'bagdescriptor' : SetLength(FbagDescriptor,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1712,6 +1799,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPricingInfo.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'fare' : SetLength(Ffare,ALength);
+  'segmentpricing' : SetLength(FsegmentPricing,ALength);
+  'tax' : SetLength(Ftax,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1829,6 +1931,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSegmentInfo.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'leg' : SetLength(Fleg,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1876,6 +1991,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSegmentPricing.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'freebaggageoption' : SetLength(FfreeBaggageOption,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1913,6 +2041,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSliceInfo.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'segment' : SetLength(Fsegment,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2030,6 +2171,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSliceInput.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'permittedcarrier' : SetLength(FpermittedCarrier,ALength);
+  'prohibitedcarrier' : SetLength(FprohibitedCarrier,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2228,6 +2383,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTripOption.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'pricing' : SetLength(Fpricing,ALength);
+  'slice' : SetLength(Fslice,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2295,6 +2464,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTripOptionsRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'slice' : SetLength(Fslice,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2342,6 +2524,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTripOptionsResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'tripoption' : SetLength(FtripOption,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2492,7 +2687,7 @@ end;
 Class Function TQpxExpressAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TQpxExpressAPI.APIbasePath : string;
@@ -2504,7 +2699,7 @@ end;
 Class Function TQpxExpressAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/qpxExpress/v1/trips/';
+  Result:='https://www.googleapis.com:443/qpxExpress/v1/trips/';
 end;
 
 Class Function TQpxExpressAPI.APIProtocol : string;
@@ -2587,7 +2782,7 @@ Function TQpxExpressAPI.CreateTripsResource(AOwner : TComponent) : TTripsResourc
 
 begin
   Result:=TTripsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlereplicapool.pp

@@ -13,7 +13,7 @@ unit googlereplicapool;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:57
+//Generated on: 16-5-15 08:53:07
 {$MODE objfpc}
 {$H+}
 
@@ -24,15 +24,15 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TInstanceGroupManager = class;
-  TInstanceGroupManagerList = class;
-  TInstanceGroupManagersAbandonInstancesRequest = class;
-  TInstanceGroupManagersDeleteInstancesRequest = class;
-  TInstanceGroupManagersRecreateInstancesRequest = class;
-  TInstanceGroupManagersSetInstanceTemplateRequest = class;
-  TInstanceGroupManagersSetTargetPoolsRequest = class;
-  TOperation = class;
-  TOperationList = class;
+  TInstanceGroupManager = Class;
+  TInstanceGroupManagerList = Class;
+  TInstanceGroupManagersAbandonInstancesRequest = Class;
+  TInstanceGroupManagersDeleteInstancesRequest = Class;
+  TInstanceGroupManagersRecreateInstancesRequest = Class;
+  TInstanceGroupManagersSetInstanceTemplateRequest = Class;
+  TInstanceGroupManagersSetTargetPoolsRequest = Class;
+  TOperation = Class;
+  TOperationList = Class;
   TInstanceGroupManagerArray = Array of TInstanceGroupManager;
   TInstanceGroupManagerListArray = Array of TInstanceGroupManagerList;
   TInstanceGroupManagersAbandonInstancesRequestArray = Array of TInstanceGroupManagersAbandonInstancesRequest;
@@ -43,10 +43,10 @@ type
   TOperationArray = Array of TOperation;
   TOperationListArray = Array of TOperationList;
   //Anonymous types, using auto-generated names
-  TOperationTypeerrorTypeerrorsItem = class;
-  TOperationTypeerror = class;
-  TOperationTypewarningsItemTypedataItem = class;
-  TOperationTypewarningsItem = class;
+  TOperationTypeerrorTypeerrorsItem = Class;
+  TOperationTypeerror = Class;
+  TOperationTypewarningsItemTypedataItem = Class;
+  TOperationTypewarningsItem = Class;
   TInstanceGroupManagerListTypeitemsArray = Array of TInstanceGroupManager;
   TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
   TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
@@ -87,6 +87,10 @@ type
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure SettargetPools(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SettargetSize(AIndex : Integer; 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;
@@ -123,6 +127,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -143,6 +151,10 @@ type
   Protected
     //Property setters
     Procedure Setinstances(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 instances : TStringArray Index 0 Read Finstances Write Setinstances;
@@ -159,6 +171,10 @@ type
   Protected
     //Property setters
     Procedure Setinstances(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 instances : TStringArray Index 0 Read Finstances Write Setinstances;
@@ -175,6 +191,10 @@ type
   Protected
     //Property setters
     Procedure Setinstances(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 instances : TStringArray Index 0 Read Finstances Write Setinstances;
@@ -209,6 +229,10 @@ type
     //Property setters
     Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
     Procedure SettargetPools(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 fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
@@ -248,6 +272,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; 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;
@@ -287,6 +315,10 @@ type
     Procedure Setcode(AIndex : Integer; AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
     Procedure Setmessage(AIndex : Integer; 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;
@@ -347,6 +379,10 @@ type
     Procedure Setuser(AIndex : Integer; AValue : String); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
     Procedure Setzone(AIndex : Integer; 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;
@@ -392,6 +428,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -651,6 +691,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManager.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'targetpools' : SetLength(FtargetPools,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -708,6 +761,19 @@ begin
 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}
+
 
 
 
@@ -725,6 +791,19 @@ begin
 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}
+
 
 
 
@@ -742,6 +821,19 @@ begin
 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}
+
 
 
 
@@ -759,6 +851,19 @@ begin
 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}
+
 
 
 
@@ -803,6 +908,19 @@ begin
 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}
+
 
 
 
@@ -857,6 +975,19 @@ begin
 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}
+
 
 
 
@@ -921,6 +1052,19 @@ begin
 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}
+
 
 
 
@@ -1148,6 +1292,19 @@ begin
 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}
+
 
 
 
@@ -1205,6 +1362,19 @@ begin
 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}
+
 
 
 
@@ -1551,7 +1721,7 @@ end;
 Class Function TReplicapoolAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TReplicapoolAPI.APIbasePath : string;
@@ -1563,7 +1733,7 @@ end;
 Class Function TReplicapoolAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/replicapool/v1beta2/projects/';
+  Result:='https://www.googleapis.com:443/replicapool/v1beta2/projects/';
 end;
 
 Class Function TReplicapoolAPI.APIProtocol : string;
@@ -1641,7 +1811,7 @@ Function TReplicapoolAPI.CreateInstanceGroupManagersResource(AOwner : TComponent
 
 begin
   Result:=TInstanceGroupManagersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1665,7 +1835,7 @@ Function TReplicapoolAPI.CreateZoneOperationsResource(AOwner : TComponent) : TZo
 
 begin
   Result:=TZoneOperationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlereplicapoolupdater.pp

@@ -13,7 +13,7 @@ unit googlereplicapoolupdater;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:57
+//Generated on: 16-5-15 08:53:07
 {$MODE objfpc}
 {$H+}
 
@@ -24,26 +24,26 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TInstanceUpdate = class;
-  TInstanceUpdateList = class;
-  TOperation = class;
-  TRollingUpdate = class;
-  TRollingUpdateList = class;
+  TInstanceUpdate = Class;
+  TInstanceUpdateList = Class;
+  TOperation = Class;
+  TRollingUpdate = Class;
+  TRollingUpdateList = Class;
   TInstanceUpdateArray = Array of TInstanceUpdate;
   TInstanceUpdateListArray = Array of TInstanceUpdateList;
   TOperationArray = Array of TOperation;
   TRollingUpdateArray = Array of TRollingUpdate;
   TRollingUpdateListArray = Array of TRollingUpdateList;
   //Anonymous types, using auto-generated names
-  TInstanceUpdateTypeerrorTypeerrorsItem = class;
-  TInstanceUpdateTypeerror = class;
-  TOperationTypeerrorTypeerrorsItem = class;
-  TOperationTypeerror = class;
-  TOperationTypewarningsItemTypedataItem = class;
-  TOperationTypewarningsItem = class;
-  TRollingUpdateTypeerrorTypeerrorsItem = class;
-  TRollingUpdateTypeerror = class;
-  TRollingUpdateTypepolicy = class;
+  TInstanceUpdateTypeerrorTypeerrorsItem = Class;
+  TInstanceUpdateTypeerror = Class;
+  TOperationTypeerrorTypeerrorsItem = Class;
+  TOperationTypeerror = Class;
+  TOperationTypewarningsItemTypedataItem = Class;
+  TOperationTypewarningsItem = Class;
+  TRollingUpdateTypeerrorTypeerrorsItem = Class;
+  TRollingUpdateTypeerror = Class;
+  TRollingUpdateTypepolicy = Class;
   TInstanceUpdateTypeerrorTypeerrorsArray = Array of TInstanceUpdateTypeerrorTypeerrorsItem;
   TInstanceUpdateListTypeitemsArray = Array of TInstanceUpdate;
   TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
@@ -84,6 +84,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TInstanceUpdateTypeerrorTypeerrorsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property errors : TInstanceUpdateTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
@@ -128,6 +132,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 : TInstanceUpdateListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -169,6 +177,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; 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;
@@ -208,6 +220,10 @@ type
     Procedure Setcode(AIndex : Integer; AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
     Procedure Setmessage(AIndex : Integer; 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;
@@ -268,6 +284,10 @@ type
     Procedure Setuser(AIndex : Integer; AValue : String); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
     Procedure Setzone(AIndex : Integer; 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;
@@ -327,6 +347,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TRollingUpdateTypeerrorTypeerrorsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property errors : TRollingUpdateTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
@@ -435,6 +459,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 : TRollingUpdateListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -592,6 +620,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceUpdateTypeerror.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -676,6 +717,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceUpdateList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -730,6 +784,19 @@ begin
 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}
+
 
 
 
@@ -794,6 +861,19 @@ begin
 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}
+
 
 
 
@@ -1021,6 +1101,19 @@ begin
 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}
+
 
 
 
@@ -1075,6 +1168,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRollingUpdateTypeerror.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1336,6 +1442,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRollingUpdateList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1614,7 +1733,7 @@ end;
 Class Function TReplicapoolupdaterAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TReplicapoolupdaterAPI.APIbasePath : string;
@@ -1626,7 +1745,7 @@ end;
 Class Function TReplicapoolupdaterAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/replicapoolupdater/v1beta1/projects/';
+  Result:='https://www.googleapis.com:443/replicapoolupdater/v1beta1/projects/';
 end;
 
 Class Function TReplicapoolupdaterAPI.APIProtocol : string;
@@ -1705,7 +1824,7 @@ Function TReplicapoolupdaterAPI.CreateRollingUpdatesResource(AOwner : TComponent
 
 begin
   Result:=TRollingUpdatesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1729,7 +1848,7 @@ Function TReplicapoolupdaterAPI.CreateZoneOperationsResource(AOwner : TComponent
 
 begin
   Result:=TZoneOperationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlereseller.pp

@@ -13,7 +13,7 @@ unit googlereseller;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:57
+//Generated on: 16-5-15 08:53:07
 {$MODE objfpc}
 {$H+}
 
@@ -24,13 +24,13 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAddress = class;
-  TChangePlanRequest = class;
-  TCustomer = class;
-  TRenewalSettings = class;
-  TSeats = class;
-  TSubscription = class;
-  TSubscriptions = class;
+  TAddress = Class;
+  TChangePlanRequest = Class;
+  TCustomer = Class;
+  TRenewalSettings = Class;
+  TSeats = Class;
+  TSubscription = Class;
+  TSubscriptions = Class;
   TAddressArray = Array of TAddress;
   TChangePlanRequestArray = Array of TChangePlanRequest;
   TCustomerArray = Array of TCustomer;
@@ -39,10 +39,10 @@ type
   TSubscriptionArray = Array of TSubscription;
   TSubscriptionsArray = Array of TSubscriptions;
   //Anonymous types, using auto-generated names
-  TSubscriptionTypeplanTypecommitmentInterval = class;
-  TSubscriptionTypeplan = class;
-  TSubscriptionTypetransferInfo = class;
-  TSubscriptionTypetrialSettings = class;
+  TSubscriptionTypeplanTypecommitmentInterval = Class;
+  TSubscriptionTypeplan = Class;
+  TSubscriptionTypetransferInfo = Class;
+  TSubscriptionTypetrialSettings = Class;
   TSubscriptionsTypesubscriptionsArray = Array of TSubscription;
   
   { --------------------------------------------------------------------
@@ -339,6 +339,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setsubscriptions(AIndex : Integer; AValue : TSubscriptionsTypesubscriptionsArray); 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;
@@ -1068,6 +1072,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSubscriptions.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'subscriptions' : SetLength(Fsubscriptions,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1436,7 +1453,7 @@ end;
 Class Function TResellerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TResellerAPI.APIbasePath : string;
@@ -1448,7 +1465,7 @@ end;
 Class Function TResellerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/apps/reseller/v1/';
+  Result:='https://www.googleapis.com:443/apps/reseller/v1/';
 end;
 
 Class Function TResellerAPI.APIProtocol : string;
@@ -1522,7 +1539,7 @@ Function TResellerAPI.CreateCustomersResource(AOwner : TComponent) : TCustomersR
 
 begin
   Result:=TCustomersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1546,7 +1563,7 @@ Function TResellerAPI.CreateSubscriptionsResource(AOwner : TComponent) : TSubscr
 
 begin
   Result:=TSubscriptionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleresourceviews.pp

@@ -13,7 +13,7 @@ unit googleresourceviews;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:58
+//Generated on: 16-5-15 08:53:07
 {$MODE objfpc}
 {$H+}
 
@@ -24,18 +24,18 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TLabel = class;
-  TListResourceResponseItem = class;
-  TOperation = class;
-  TOperationList = class;
-  TResourceView = class;
-  TServiceEndpoint = class;
-  TZoneViewsAddResourcesRequest = class;
-  TZoneViewsGetServiceResponse = class;
-  TZoneViewsList = class;
-  TZoneViewsListResourcesResponse = class;
-  TZoneViewsRemoveResourcesRequest = class;
-  TZoneViewsSetServiceRequest = class;
+  TLabel = Class;
+  TListResourceResponseItem = Class;
+  TOperation = Class;
+  TOperationList = Class;
+  TResourceView = Class;
+  TServiceEndpoint = Class;
+  TZoneViewsAddResourcesRequest = Class;
+  TZoneViewsGetServiceResponse = Class;
+  TZoneViewsList = Class;
+  TZoneViewsListResourcesResponse = Class;
+  TZoneViewsRemoveResourcesRequest = Class;
+  TZoneViewsSetServiceRequest = Class;
   TLabelArray = Array of TLabel;
   TListResourceResponseItemArray = Array of TListResourceResponseItem;
   TOperationArray = Array of TOperation;
@@ -49,11 +49,11 @@ type
   TZoneViewsRemoveResourcesRequestArray = Array of TZoneViewsRemoveResourcesRequest;
   TZoneViewsSetServiceRequestArray = Array of TZoneViewsSetServiceRequest;
   //Anonymous types, using auto-generated names
-  TListResourceResponseItemTypeendpoints = class;
-  TOperationTypeerrorTypeerrorsItem = class;
-  TOperationTypeerror = class;
-  TOperationTypewarningsItemTypedataItem = class;
-  TOperationTypewarningsItem = class;
+  TListResourceResponseItemTypeendpoints = Class;
+  TOperationTypeerrorTypeerrorsItem = Class;
+  TOperationTypeerror = Class;
+  TOperationTypewarningsItemTypedataItem = Class;
+  TOperationTypewarningsItem = Class;
   TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
   TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
   TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
@@ -149,6 +149,10 @@ type
   Protected
     //Property setters
     Procedure Seterrors(AIndex : Integer; 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;
@@ -188,6 +192,10 @@ type
     Procedure Setcode(AIndex : Integer; AValue : String); virtual;
     Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
     Procedure Setmessage(AIndex : Integer; 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;
@@ -248,6 +256,10 @@ type
     Procedure Setuser(AIndex : Integer; AValue : String); virtual;
     Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
     Procedure Setzone(AIndex : Integer; 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;
@@ -293,6 +305,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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;
@@ -335,6 +351,10 @@ type
     Procedure Setresources(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetselfLink(AIndex : Integer; AValue : String); virtual;
     Procedure Setsize(AIndex : Integer; 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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
@@ -381,6 +401,10 @@ type
   Protected
     //Property setters
     Procedure Setresources(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 resources : TStringArray Index 0 Read Fresources Write Setresources;
@@ -399,6 +423,10 @@ type
     //Property setters
     Procedure Setendpoints(AIndex : Integer; AValue : TZoneViewsGetServiceResponseTypeendpointsArray); virtual;
     Procedure Setfingerprint(AIndex : Integer; 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 : TZoneViewsGetServiceResponseTypeendpointsArray Index 0 Read Fendpoints Write Setendpoints;
@@ -422,6 +450,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure SetselfLink(AIndex : Integer; 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 : TZoneViewsListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -445,6 +477,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TZoneViewsListResourcesResponseTypeitemsArray); virtual;
     Procedure Setnetwork(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TZoneViewsListResourcesResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -463,6 +499,10 @@ type
   Protected
     //Property setters
     Procedure Setresources(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 resources : TStringArray Index 0 Read Fresources Write Setresources;
@@ -483,6 +523,10 @@ type
     Procedure Setendpoints(AIndex : Integer; AValue : TZoneViewsSetServiceRequestTypeendpointsArray); virtual;
     Procedure Setfingerprint(AIndex : Integer; AValue : String); virtual;
     Procedure SetresourceName(AIndex : Integer; 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 : TZoneViewsSetServiceRequestTypeendpointsArray Index 0 Read Fendpoints Write Setendpoints;
@@ -726,6 +770,19 @@ begin
 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}
+
 
 
 
@@ -790,6 +847,19 @@ begin
 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}
+
 
 
 
@@ -1017,6 +1087,19 @@ begin
 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}
+
 
 
 
@@ -1074,6 +1157,19 @@ begin
 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}
+
 
 
 
@@ -1201,6 +1297,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResourceView.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'endpoints' : SetLength(Fendpoints,ALength);
+  'labels' : SetLength(Flabels,ALength);
+  'resources' : SetLength(Fresources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1245,6 +1356,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TZoneViewsAddResourcesRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'resources' : SetLength(Fresources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1272,6 +1396,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TZoneViewsGetServiceResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'endpoints' : SetLength(Fendpoints,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1319,6 +1456,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TZoneViewsList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1356,6 +1506,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TZoneViewsListResourcesResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1373,6 +1536,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TZoneViewsRemoveResourcesRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'resources' : SetLength(Fresources,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1410,6 +1586,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TZoneViewsSetServiceRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'endpoints' : SetLength(Fendpoints,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1744,7 +1933,7 @@ end;
 Class Function TResourceviewsAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TResourceviewsAPI.APIbasePath : string;
@@ -1756,7 +1945,7 @@ end;
 Class Function TResourceviewsAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/resourceviews/v1beta2/projects/';
+  Result:='https://www.googleapis.com:443/resourceviews/v1beta2/projects/';
 end;
 
 Class Function TResourceviewsAPI.APIProtocol : string;
@@ -1842,7 +2031,7 @@ Function TResourceviewsAPI.CreateZoneOperationsResource(AOwner : TComponent) : T
 
 begin
   Result:=TZoneOperationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1866,7 +2055,7 @@ Function TResourceviewsAPI.CreateZoneViewsResource(AOwner : TComponent) : TZoneV
 
 begin
   Result:=TZoneViewsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleservice.pp

@@ -1,33 +1,17 @@
-{ Base Google service API classes
-
-  Copyright (C) 2015 Michael Van Canneyt [email protected]
-
-  This library is free software; you can redistribute it and/or modify it
-  under the terms of the GNU Library General Public License as published by
-  the Free Software Foundation; either version 2 of the License, or (at your
-  option) any later version with the following modification:
-
-  As a special exception, the copyright holders of this library give you
-  permission to link this library with independent modules to produce an
-  executable, regardless of the license terms of these independent modules,and
-  to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a
-  module which is not derived from or based on this library. If you modify
-  this library, you may extend this exception to your version of the library,
-  but you are not obligated to do so. If you do not wish to do so, delete this
-  exception statement from your 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 Library General Public License
-  for more details.
-
-  You should have received a copy of the GNU Library General Public License
-  along with this library; if not, write to the Free Software Foundation,
-  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-}
+{ **********************************************************************
+    This file is part of the Free Component Library (FCL)
+    Copyright (c) 2015 The free pascal team.
 
+    Base Google service API classes
+
+    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 googleservice;
 
 {$mode objfpc}{$H+}
@@ -83,6 +67,7 @@ Type
     procedure SetGoogleClient(AValue: TGoogleClient);
   Protected
     Procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    Function API : TGoogleAPI;// Used when creating resources.
   Public
     // All info in one fell swoop
     Class Function APIInfo : TAPIInfo; virtual;
@@ -381,7 +366,7 @@ end;
 
 { TGoogleAPI }
 
-class function TGoogleAPI.APIName: String;
+Class Function TGoogleAPI.APIName: String;
 begin
   Result:=ClassName;
   if UpCase(Result[1])='T' then
@@ -390,7 +375,7 @@ begin
     Result:=Copy(Result,1,Length(Result)-7);
 end;
 
-class function TGoogleAPI.APINeedsAuth: Boolean;
+Class Function TGoogleAPI.APINeedsAuth: Boolean;
 begin
   Result:=Length(APIAuthScopes)<>0;
 end;
@@ -405,7 +390,7 @@ begin
     FGoogleClient.FreeNotification(Self);
 end;
 
-procedure TGoogleAPI.Notification(AComponent: TComponent; Operation: TOperation
+Procedure TGoogleAPI.Notification(AComponent: TComponent; Operation: TOperation
   );
 begin
   inherited Notification(AComponent, Operation);
@@ -413,7 +398,12 @@ begin
     FGoogleClient:=Nil;
 end;
 
-class function TGoogleAPI.APIInfo: TAPIInfo;
+Function TGoogleAPI.API: TGoogleAPI;
+begin
+  Result:=Self;
+end;
+
+Class Function TGoogleAPI.APIInfo: TAPIInfo;
 begin
   Result.Name:=APIName;
   Result.Version:=APIVersion;
@@ -435,17 +425,17 @@ begin
   Result.AuthScopes:=APIAuthScopes;
 end;
 
-class procedure TGoogleAPI.RegisterAPI;
+Class Procedure TGoogleAPI.RegisterAPI;
 begin
   APIFactory.RegisterAPI(Self);
 end;
 
-class procedure TGoogleAPI.RegisterAPIResources;
+Class Procedure TGoogleAPI.RegisterAPIResources;
 begin
   // needs to be implemented in descendents
 end;
 
-function TGoogleAPI.ServiceCall(const AResource: TGoogleResource; AMethod,
+Function TGoogleAPI.ServiceCall(Const AResource: TGoogleResource; AMethod,
   APath, AQuery: String; AInput: TGoogleBaseObject;
   AReturnClass: TGoogleBaseObjectClass): TGoogleBaseObject;
 
@@ -503,7 +493,7 @@ begin
     end;
 end;
 
-function TGoogleAPI.ServiceCall(const AResource: TGoogleResource; AMethod,
+Function TGoogleAPI.ServiceCall(Const AResource: TGoogleResource; AMethod,
   APath, AQuery, AInput: String): String;
 
 Var
@@ -521,8 +511,10 @@ begin
   try
     Req:=googleclient.WebClient.CreateRequest;
     if (AInput<>'') then
+      begin
       Req.Headers.Values['Content-type']:='application/json';
-    Req.SetContentFromString(AInput);
+      Req.SetContentFromString(AInput);
+      end;
     If Not APINeedsAuth then
       Resp:=googleclient.WebClient.ExecuteRequest(AMethod,URL,Req)
     else
@@ -536,8 +528,8 @@ begin
   end;
 end;
 
-function TGoogleAPI.SubstitutePath(const AResource, APath: String;
-  const Args: array of const): String;
+Function TGoogleAPI.SubstitutePath(Const AResource, APath: String;
+  Const Args: Array of const): String;
 
 Var
   N,V : String;
@@ -577,14 +569,14 @@ begin
     end;
 end;
 
-function TGoogleAPI.CreateResource(AClass: TGoogleResourceClass
+Function TGoogleAPI.CreateResource(AClass: TGoogleResourceClass
   ): TGoogleResource;
 begin
   Result:=AClass.Create(Self);
   Result.SetAPI(Self);
 end;
 
-function TGoogleAPI.CreateResource(const Resource: String): TGoogleResource;
+Function TGoogleAPI.CreateResource(const Resource: String): TGoogleResource;
 begin
   Result:=CreateResource(APIFactory.GetResourceClass(Resource));
 end;

packages/googleapi/src/googlesiteVerification.pp

@@ -13,7 +13,7 @@ unit googlesiteVerification;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:58
+//Generated on: 16-5-15 08:53:07
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TSiteVerificationWebResourceGettokenRequest = class;
-  TSiteVerificationWebResourceGettokenResponse = class;
-  TSiteVerificationWebResourceListResponse = class;
-  TSiteVerificationWebResourceResource = class;
+  TSiteVerificationWebResourceGettokenRequest = Class;
+  TSiteVerificationWebResourceGettokenResponse = Class;
+  TSiteVerificationWebResourceListResponse = Class;
+  TSiteVerificationWebResourceResource = Class;
   TSiteVerificationWebResourceGettokenRequestArray = Array of TSiteVerificationWebResourceGettokenRequest;
   TSiteVerificationWebResourceGettokenResponseArray = Array of TSiteVerificationWebResourceGettokenResponse;
   TSiteVerificationWebResourceListResponseArray = Array of TSiteVerificationWebResourceListResponse;
   TSiteVerificationWebResourceResourceArray = Array of TSiteVerificationWebResourceResource;
   //Anonymous types, using auto-generated names
-  TSiteVerificationWebResourceGettokenRequestTypesite = class;
-  TSiteVerificationWebResourceResourceTypesite = class;
+  TSiteVerificationWebResourceGettokenRequestTypesite = Class;
+  TSiteVerificationWebResourceResourceTypesite = Class;
   TSiteVerificationWebResourceListResponseTypeitemsArray = Array of TSiteVerificationWebResourceResource;
   
   { --------------------------------------------------------------------
@@ -105,6 +105,10 @@ type
   Protected
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TSiteVerificationWebResourceListResponseTypeitemsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TSiteVerificationWebResourceListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -145,6 +149,10 @@ type
     Procedure Setid(AIndex : Integer; AValue : String); virtual;
     Procedure Setowners(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceTypesite); 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;
@@ -325,6 +333,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSiteVerificationWebResourceListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -400,6 +421,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSiteVerificationWebResourceResource.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'owners' : SetLength(Fowners,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -600,7 +634,7 @@ end;
 Class Function TSiteVerificationAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TSiteVerificationAPI.APIbasePath : string;
@@ -612,7 +646,7 @@ end;
 Class Function TSiteVerificationAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/siteVerification/v1/';
+  Result:='https://www.googleapis.com:443/siteVerification/v1/';
 end;
 
 Class Function TSiteVerificationAPI.APIProtocol : string;
@@ -681,7 +715,7 @@ Function TSiteVerificationAPI.CreateWebResourceResource(AOwner : TComponent) : T
 
 begin
   Result:=TWebResourceResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlespectrum.pp

@@ -13,7 +13,7 @@ unit googlespectrum;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:58
+//Generated on: 16-5-15 08:53:08
 {$MODE objfpc}
 {$H+}
 
@@ -24,39 +24,39 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAntennaCharacteristics = class;
-  TDatabaseSpec = class;
-  TDbUpdateSpec = class;
-  TDeviceCapabilities = class;
-  TDeviceDescriptor = class;
-  TDeviceOwner = class;
-  TDeviceValidity = class;
-  TEventTime = class;
-  TFrequencyRange = class;
-  TGeoLocation = class;
-  TGeoLocationEllipse = class;
-  TGeoLocationPoint = class;
-  TGeoLocationPolygon = class;
-  TGeoSpectrumSchedule = class;
-  TPawsGetSpectrumBatchRequest = class;
-  TPawsGetSpectrumBatchResponse = class;
-  TPawsGetSpectrumRequest = class;
-  TPawsGetSpectrumResponse = class;
-  TPawsInitRequest = class;
-  TPawsInitResponse = class;
-  TPawsNotifySpectrumUseRequest = class;
-  TPawsNotifySpectrumUseResponse = class;
-  TPawsRegisterRequest = class;
-  TPawsRegisterResponse = class;
-  TPawsVerifyDeviceRequest = class;
-  TPawsVerifyDeviceResponse = class;
-  TRulesetInfo = class;
-  TSpectrumMessage = class;
-  TSpectrumSchedule = class;
-  TVcard = class;
-  TVcardAddress = class;
-  TVcardTelephone = class;
-  TVcardTypedText = class;
+  TAntennaCharacteristics = Class;
+  TDatabaseSpec = Class;
+  TDbUpdateSpec = Class;
+  TDeviceCapabilities = Class;
+  TDeviceDescriptor = Class;
+  TDeviceOwner = Class;
+  TDeviceValidity = Class;
+  TEventTime = Class;
+  TFrequencyRange = Class;
+  TGeoLocation = Class;
+  TGeoLocationEllipse = Class;
+  TGeoLocationPoint = Class;
+  TGeoLocationPolygon = Class;
+  TGeoSpectrumSchedule = Class;
+  TPawsGetSpectrumBatchRequest = Class;
+  TPawsGetSpectrumBatchResponse = Class;
+  TPawsGetSpectrumRequest = Class;
+  TPawsGetSpectrumResponse = Class;
+  TPawsInitRequest = Class;
+  TPawsInitResponse = Class;
+  TPawsNotifySpectrumUseRequest = Class;
+  TPawsNotifySpectrumUseResponse = Class;
+  TPawsRegisterRequest = Class;
+  TPawsRegisterResponse = Class;
+  TPawsVerifyDeviceRequest = Class;
+  TPawsVerifyDeviceResponse = Class;
+  TRulesetInfo = Class;
+  TSpectrumMessage = Class;
+  TSpectrumSchedule = Class;
+  TVcard = Class;
+  TVcardAddress = Class;
+  TVcardTelephone = Class;
+  TVcardTypedText = Class;
   TAntennaCharacteristicsArray = Array of TAntennaCharacteristics;
   TDatabaseSpecArray = Array of TDatabaseSpec;
   TDbUpdateSpecArray = Array of TDbUpdateSpec;
@@ -155,6 +155,10 @@ type
   Protected
     //Property setters
     Procedure Setdatabases(AIndex : Integer; AValue : TDbUpdateSpecTypedatabasesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property databases : TDbUpdateSpecTypedatabasesArray Index 0 Read Fdatabases Write Setdatabases;
@@ -171,6 +175,10 @@ type
   Protected
     //Property setters
     Procedure SetfrequencyRanges(AIndex : Integer; AValue : TDeviceCapabilitiesTypefrequencyRangesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property frequencyRanges : TDeviceCapabilitiesTypefrequencyRangesArray Index 0 Read FfrequencyRanges Write SetfrequencyRanges;
@@ -205,6 +213,10 @@ type
     Procedure SetmodelId(AIndex : Integer; AValue : String); virtual;
     Procedure SetrulesetIds(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetserialNumber(AIndex : Integer; 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 etsiEnDeviceCategory : String Index 0 Read FetsiEnDeviceCategory Write SetetsiEnDeviceCategory;
@@ -382,6 +394,10 @@ type
   Protected
     //Property setters
     Procedure Setexterior(AIndex : Integer; AValue : TGeoLocationPolygonTypeexteriorArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property exterior : TGeoLocationPolygonTypeexteriorArray Index 0 Read Fexterior Write Setexterior;
@@ -400,6 +416,10 @@ type
     //Property setters
     Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
     Procedure SetspectrumSchedules(AIndex : Integer; AValue : TGeoSpectrumScheduleTypespectrumSchedulesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property location : TGeoLocation Index 0 Read Flocation Write Setlocation;
@@ -434,6 +454,10 @@ type
     Procedure SetrequestType(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 antenna : TAntennaCharacteristics Index 0 Read Fantenna Write Setantenna;
@@ -479,6 +503,10 @@ type
     Procedure Settimestamp(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 databaseChange : TDbUpdateSpec Index 0 Read FdatabaseChange Write SetdatabaseChange;
@@ -567,6 +595,10 @@ type
     Procedure Settimestamp(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 databaseChange : TDbUpdateSpec Index 0 Read FdatabaseChange Write SetdatabaseChange;
@@ -657,6 +689,10 @@ type
     Procedure Setspectra(AIndex : Integer; AValue : TPawsNotifySpectrumUseRequestTypespectraArray); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 deviceDesc : TDeviceDescriptor Index 0 Read FdeviceDesc Write SetdeviceDesc;
@@ -763,6 +799,10 @@ type
     Procedure SetdeviceDescs(AIndex : Integer; AValue : TPawsVerifyDeviceRequestTypedeviceDescsArray); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 deviceDescs : TPawsVerifyDeviceRequestTypedeviceDescsArray Index 0 Read FdeviceDescs Write SetdeviceDescs;
@@ -790,6 +830,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setversion(AIndex : Integer; 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 databaseChange : TDbUpdateSpec Index 0 Read FdatabaseChange Write SetdatabaseChange;
@@ -816,6 +860,10 @@ type
     Procedure SetmaxLocationChange(AIndex : Integer; AValue : double); virtual;
     Procedure SetmaxPollingSecs(AIndex : Integer; AValue : integer); virtual;
     Procedure SetrulesetIds(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 authority : String Index 0 Read Fauthority Write Setauthority;
@@ -837,6 +885,10 @@ type
     //Property setters
     Procedure Setbandwidth(AIndex : Integer; AValue : double); virtual;
     Procedure SetfrequencyRanges(AIndex : Integer; AValue : TSpectrumMessageTypefrequencyRangesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property bandwidth : double Index 0 Read Fbandwidth Write Setbandwidth;
@@ -856,6 +908,10 @@ type
     //Property setters
     Procedure SeteventTime(AIndex : Integer; AValue : TEventTime); virtual;
     Procedure Setspectra(AIndex : Integer; AValue : TSpectrumScheduleTypespectraArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property eventTime : TEventTime Index 0 Read FeventTime Write SeteventTime;
@@ -1089,6 +1145,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDbUpdateSpec.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'databases' : SetLength(Fdatabases,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1106,6 +1175,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeviceCapabilities.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'frequencyranges' : SetLength(FfrequencyRanges,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1213,6 +1295,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeviceDescriptor.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rulesetids' : SetLength(FrulesetIds,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1490,6 +1585,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGeoLocationPolygon.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'exterior' : SetLength(Fexterior,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1517,6 +1625,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGeoSpectrumSchedule.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'spectrumschedules' : SetLength(FspectrumSchedules,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1625,6 +1746,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPawsGetSpectrumBatchRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'locations' : SetLength(Flocations,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1753,6 +1887,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPawsGetSpectrumBatchResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'geospectrumschedules' : SetLength(FgeoSpectrumSchedules,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1989,6 +2136,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPawsGetSpectrumResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'spectrumschedules' : SetLength(FspectrumSchedules,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2183,6 +2343,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPawsNotifySpectrumUseRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'spectra' : SetLength(Fspectra,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2415,6 +2588,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPawsVerifyDeviceRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'devicedescs' : SetLength(FdeviceDescs,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2483,6 +2669,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPawsVerifyDeviceResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'devicevalidities' : SetLength(FdeviceValidities,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2530,6 +2729,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRulesetInfo.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rulesetids' : SetLength(FrulesetIds,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2557,6 +2769,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSpectrumMessage.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'frequencyranges' : SetLength(FfrequencyRanges,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2584,6 +2809,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSpectrumSchedule.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'spectra' : SetLength(Fspectra,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2903,7 +3141,7 @@ end;
 Class Function TSpectrumAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TSpectrumAPI.APIbasePath : string;
@@ -2915,7 +3153,7 @@ end;
 Class Function TSpectrumAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/spectrum/v1explorer/paws/';
+  Result:='https://www.googleapis.com:443/spectrum/v1explorer/paws/';
 end;
 
 Class Function TSpectrumAPI.APIProtocol : string;
@@ -3007,7 +3245,7 @@ Function TSpectrumAPI.CreatePawsResource(AOwner : TComponent) : TPawsResource;
 
 begin
   Result:=TPawsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlesqladmin.pp

@@ -13,7 +13,7 @@ unit googlesqladmin;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:58
+//Generated on: 16-5-15 08:53:08
 {$MODE objfpc}
 {$H+}
 
@@ -24,46 +24,46 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAclEntry = class;
-  TBackupConfiguration = class;
-  TBackupRun = class;
-  TBackupRunsListResponse = class;
-  TBinLogCoordinates = class;
-  TCloneContext = class;
-  TDatabase = class;
-  TDatabaseFlags = class;
-  TDatabaseInstance = class;
-  TDatabasesListResponse = class;
-  TExportContext = class;
-  TFlag = class;
-  TFlagsListResponse = class;
-  TImportContext = class;
-  TInstancesCloneRequest = class;
-  TInstancesExportRequest = class;
-  TInstancesImportRequest = class;
-  TInstancesListResponse = class;
-  TInstancesRestoreBackupRequest = class;
-  TIpConfiguration = class;
-  TIpMapping = class;
-  TLocationPreference = class;
-  TMySqlReplicaConfiguration = class;
-  TOnPremisesConfiguration = class;
-  TOperation = class;
-  TOperationError = class;
-  TOperationErrors = class;
-  TOperationsListResponse = class;
-  TReplicaConfiguration = class;
-  TRestoreBackupContext = class;
-  TSettings = class;
-  TSslCert = class;
-  TSslCertDetail = class;
-  TSslCertsInsertRequest = class;
-  TSslCertsInsertResponse = class;
-  TSslCertsListResponse = class;
-  TTier = class;
-  TTiersListResponse = class;
-  TUser = class;
-  TUsersListResponse = class;
+  TAclEntry = Class;
+  TBackupConfiguration = Class;
+  TBackupRun = Class;
+  TBackupRunsListResponse = Class;
+  TBinLogCoordinates = Class;
+  TCloneContext = Class;
+  TDatabase = Class;
+  TDatabaseFlags = Class;
+  TDatabaseInstance = Class;
+  TDatabasesListResponse = Class;
+  TExportContext = Class;
+  TFlag = Class;
+  TFlagsListResponse = Class;
+  TImportContext = Class;
+  TInstancesCloneRequest = Class;
+  TInstancesExportRequest = Class;
+  TInstancesImportRequest = Class;
+  TInstancesListResponse = Class;
+  TInstancesRestoreBackupRequest = Class;
+  TIpConfiguration = Class;
+  TIpMapping = Class;
+  TLocationPreference = Class;
+  TMySqlReplicaConfiguration = Class;
+  TOnPremisesConfiguration = Class;
+  TOperation = Class;
+  TOperationError = Class;
+  TOperationErrors = Class;
+  TOperationsListResponse = Class;
+  TReplicaConfiguration = Class;
+  TRestoreBackupContext = Class;
+  TSettings = Class;
+  TSslCert = Class;
+  TSslCertDetail = Class;
+  TSslCertsInsertRequest = Class;
+  TSslCertsInsertResponse = Class;
+  TSslCertsListResponse = Class;
+  TTier = Class;
+  TTiersListResponse = Class;
+  TUser = Class;
+  TUsersListResponse = Class;
   TAclEntryArray = Array of TAclEntry;
   TBackupConfigurationArray = Array of TBackupConfiguration;
   TBackupRunArray = Array of TBackupRun;
@@ -105,9 +105,9 @@ type
   TUserArray = Array of TUser;
   TUsersListResponseArray = Array of TUsersListResponse;
   //Anonymous types, using auto-generated names
-  TExportContextTypecsvExportOptions = class;
-  TExportContextTypesqlExportOptions = class;
-  TImportContextTypecsvImportOptions = class;
+  TExportContextTypecsvExportOptions = Class;
+  TExportContextTypesqlExportOptions = Class;
+  TImportContextTypecsvImportOptions = Class;
   TBackupRunsListResponseTypeitemsArray = Array of TBackupRun;
   TDatabaseInstanceTypeipAddressesArray = Array of TIpMapping;
   TDatabasesListResponseTypeitemsArray = Array of TDatabase;
@@ -228,6 +228,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TBackupRunsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TBackupRunsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -384,6 +388,10 @@ type
     Procedure SetserviceAccountEmailAddress(AIndex : Integer; AValue : String); virtual;
     Procedure Setsettings(AIndex : Integer; AValue : TSettings); virtual;
     Procedure Setstate(AIndex : Integer; 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 currentDiskSize : String Index 0 Read FcurrentDiskSize Write SetcurrentDiskSize;
@@ -421,6 +429,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TDatabasesListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TDatabasesListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -454,6 +466,10 @@ type
   Protected
     //Property setters
     Procedure Settables(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 tables : TStringArray Index 0 Read Ftables Write Settables;
@@ -480,6 +496,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetsqlExportOptions(AIndex : Integer; AValue : TExportContextTypesqlExportOptions); virtual;
     Procedure Seturi(AIndex : Integer; 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 csvExportOptions : TExportContextTypecsvExportOptions Index 0 Read FcsvExportOptions Write SetcsvExportOptions;
@@ -514,6 +534,10 @@ type
     Procedure SetminValue(AIndex : Integer; AValue : String); virtual;
     Procedure Setname(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; 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 allowedStringValues : TStringArray Index 0 Read FallowedStringValues Write SetallowedStringValues;
@@ -538,6 +562,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TFlagsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TFlagsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -557,6 +585,10 @@ type
     //Property setters
     Procedure Setcolumns(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Settable(AIndex : Integer; 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 : TStringArray Index 0 Read Fcolumns Write Setcolumns;
@@ -654,6 +686,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TInstancesListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TInstancesListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -692,6 +728,10 @@ type
     Procedure SetauthorizedNetworks(AIndex : Integer; AValue : TIpConfigurationTypeauthorizedNetworksArray); virtual;
     Procedure Setipv4Enabled(AIndex : Integer; AValue : boolean); virtual;
     Procedure SetrequireSsl(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 authorizedNetworks : TIpConfigurationTypeauthorizedNetworksArray Index 0 Read FauthorizedNetworks Write SetauthorizedNetworks;
@@ -898,6 +938,10 @@ type
     //Property setters
     Procedure Seterrors(AIndex : Integer; AValue : TOperationErrorsTypeerrorsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 errors : TOperationErrorsTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
@@ -919,6 +963,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TOperationsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TOperationsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1002,6 +1050,10 @@ type
     Procedure SetreplicationType(AIndex : Integer; AValue : String); virtual;
     Procedure SetsettingsVersion(AIndex : Integer; AValue : String); virtual;
     Procedure Settier(AIndex : Integer; 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 activationPolicy : String Index 0 Read FactivationPolicy Write SetactivationPolicy;
@@ -1129,6 +1181,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TSslCertsListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TSslCertsListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1154,6 +1210,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setregion(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Settier(AIndex : Integer; 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 DiskQuota : String Index 0 Read FDiskQuota Write SetDiskQuota;
@@ -1176,6 +1236,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTiersListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TTiersListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1231,6 +1295,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TUsersListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TUsersListResponseTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1718,6 +1786,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBackupRunsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2113,6 +2194,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDatabaseInstance.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'ipaddresses' : SetLength(FipAddresses,ALength);
+  'replicanames' : SetLength(FreplicaNames,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2140,6 +2235,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDatabasesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2174,6 +2282,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExportContextTypesqlExportOptions.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'tables' : SetLength(Ftables,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2241,6 +2362,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExportContext.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'databases' : SetLength(Fdatabases,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2329,6 +2463,20 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFlag.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'allowedstringvalues' : SetLength(FallowedStringValues,ALength);
+  'appliesto' : SetLength(FappliesTo,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2356,6 +2504,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFlagsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2383,6 +2544,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TImportContextTypecsvImportOptions.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'columns' : SetLength(Fcolumns,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2528,6 +2702,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstancesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2582,6 +2769,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TIpConfiguration.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'authorizednetworks' : SetLength(FauthorizedNetworks,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3011,6 +3211,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationErrors.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'errors' : SetLength(Ferrors,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3048,6 +3261,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3249,6 +3475,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSettings.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'authorizedgaeapplications' : SetLength(FauthorizedGaeApplications,ALength);
+  'databaseflags' : SetLength(FdatabaseFlags,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3454,6 +3694,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSslCertsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3511,6 +3764,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTier.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'region' : SetLength(Fregion,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3538,6 +3804,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTiersListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3652,6 +3931,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUsersListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -4467,7 +4759,7 @@ end;
 Class Function TSqladminAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TSqladminAPI.APIbasePath : string;
@@ -4479,7 +4771,7 @@ end;
 Class Function TSqladminAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/sql/v1beta4/';
+  Result:='https://www.googleapis.com:443/sql/v1beta4/';
 end;
 
 Class Function TSqladminAPI.APIProtocol : string;
@@ -4585,7 +4877,7 @@ Function TSqladminAPI.CreateBackupRunsResource(AOwner : TComponent) : TBackupRun
 
 begin
   Result:=TBackupRunsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4609,7 +4901,7 @@ Function TSqladminAPI.CreateDatabasesResource(AOwner : TComponent) : TDatabasesR
 
 begin
   Result:=TDatabasesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4633,7 +4925,7 @@ Function TSqladminAPI.CreateFlagsResource(AOwner : TComponent) : TFlagsResource;
 
 begin
   Result:=TFlagsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4657,7 +4949,7 @@ Function TSqladminAPI.CreateInstancesResource(AOwner : TComponent) : TInstancesR
 
 begin
   Result:=TInstancesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4681,7 +4973,7 @@ Function TSqladminAPI.CreateOperationsResource(AOwner : TComponent) : TOperation
 
 begin
   Result:=TOperationsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4705,7 +4997,7 @@ Function TSqladminAPI.CreateSslCertsResource(AOwner : TComponent) : TSslCertsRes
 
 begin
   Result:=TSslCertsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4729,7 +5021,7 @@ Function TSqladminAPI.CreateTiersResource(AOwner : TComponent) : TTiersResource;
 
 begin
   Result:=TTiersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4753,7 +5045,7 @@ Function TSqladminAPI.CreateUsersResource(AOwner : TComponent) : TUsersResource;
 
 begin
   Result:=TUsersResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlestorage.pp

@@ -13,7 +13,7 @@ unit googlestorage;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:58
+//Generated on: 16-5-15 08:53:08
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TBucket = class;
-  TBucketAccessControl = class;
-  TBucketAccessControls = class;
-  TBuckets = class;
-  TChannel = class;
-  TComposeRequest = class;
-  TObject = class;
-  TObjectAccessControl = class;
-  TObjectAccessControls = class;
-  TObjects = class;
-  TRewriteResponse = class;
+  TBucket = Class;
+  TBucketAccessControl = Class;
+  TBucketAccessControls = Class;
+  TBuckets = Class;
+  TChannel = Class;
+  TComposeRequest = Class;
+  TObject = Class;
+  TObjectAccessControl = Class;
+  TObjectAccessControls = Class;
+  TObjects = Class;
+  TRewriteResponse = Class;
   TBucketArray = Array of TBucket;
   TBucketAccessControlArray = Array of TBucketAccessControl;
   TBucketAccessControlsArray = Array of TBucketAccessControls;
@@ -47,22 +47,22 @@ type
   TObjectsArray = Array of TObjects;
   TRewriteResponseArray = Array of TRewriteResponse;
   //Anonymous types, using auto-generated names
-  TBucketTypecorsItem = class;
-  TBucketTypelifecycleTyperuleItemTypeaction = class;
-  TBucketTypelifecycleTyperuleItemTypecondition = class;
-  TBucketTypelifecycleTyperuleItem = class;
-  TBucketTypelifecycle = class;
-  TBucketTypelogging = class;
-  TBucketTypeowner = class;
-  TBucketTypeversioning = class;
-  TBucketTypewebsite = class;
-  TBucketAccessControlTypeprojectTeam = class;
-  TChannelTypeparams = class;
-  TComposeRequestTypesourceObjectsItemTypeobjectPreconditions = class;
-  TComposeRequestTypesourceObjectsItem = class;
-  TObjectTypemetadata = class;
-  TObjectTypeowner = class;
-  TObjectAccessControlTypeprojectTeam = class;
+  TBucketTypecorsItem = Class;
+  TBucketTypelifecycleTyperuleItemTypeaction = Class;
+  TBucketTypelifecycleTyperuleItemTypecondition = Class;
+  TBucketTypelifecycleTyperuleItem = Class;
+  TBucketTypelifecycle = Class;
+  TBucketTypelogging = Class;
+  TBucketTypeowner = Class;
+  TBucketTypeversioning = Class;
+  TBucketTypewebsite = Class;
+  TBucketAccessControlTypeprojectTeam = Class;
+  TChannelTypeparams = Class;
+  TComposeRequestTypesourceObjectsItemTypeobjectPreconditions = Class;
+  TComposeRequestTypesourceObjectsItem = Class;
+  TObjectTypemetadata = Class;
+  TObjectTypeowner = Class;
+  TObjectAccessControlTypeprojectTeam = Class;
   TBucketTypeaclArray = Array of TBucketAccessControl;
   TBucketTypecorsArray = Array of TBucketTypecorsItem;
   TBucketTypedefaultObjectAclArray = Array of TObjectAccessControl;
@@ -89,6 +89,10 @@ type
     Procedure Setmethod(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setorigin(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetresponseHeader(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 maxAgeSeconds : integer Index 0 Read FmaxAgeSeconds Write SetmaxAgeSeconds;
@@ -169,6 +173,10 @@ type
   Protected
     //Property setters
     Procedure Setrule(AIndex : Integer; AValue : TBucketTypelifecycleTyperuleArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property rule : TBucketTypelifecycleTyperuleArray Index 0 Read Frule Write Setrule;
@@ -292,6 +300,10 @@ type
     Procedure SettimeCreated(AIndex : Integer; AValue : TDatetime); virtual;
     Procedure Setversioning(AIndex : Integer; AValue : TBucketTypeversioning); virtual;
     Procedure Setwebsite(AIndex : Integer; AValue : TBucketTypewebsite); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property acl : TBucketTypeaclArray Index 0 Read Facl Write Setacl;
@@ -392,6 +404,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TBucketAccessControlsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TBucketAccessControlsTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -413,6 +429,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TBucketsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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 : TBucketsTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -531,6 +551,10 @@ type
     Procedure Setdestination(AIndex : Integer; AValue : TObject); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetsourceObjects(AIndex : Integer; AValue : TComposeRequestTypesourceObjectsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property destination : TObject Index 0 Read Fdestination Write Setdestination;
@@ -628,6 +652,10 @@ type
     Procedure SetstorageClass(AIndex : Integer; AValue : String); virtual;
     Procedure SettimeDeleted(AIndex : Integer; AValue : TDatetime); 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 acl : TObjectTypeaclArray Index 0 Read Facl Write Setacl;
@@ -741,6 +769,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TTJSONSchemaArray Index 0 Read Fitems Write Setitems;
@@ -764,6 +796,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; AValue : String); virtual;
     Procedure Setprefixes(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 items : TObjectsTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -1279,6 +1315,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBucketTypecorsItem.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'method' : SetLength(Fmethod,ALength);
+  'origin' : SetLength(Forigin,ALength);
+  'responseheader' : SetLength(FresponseHeader,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1398,6 +1449,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBucketTypelifecycle.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'rule' : SetLength(Frule,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1683,6 +1747,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBucket.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'acl' : SetLength(Facl,ALength);
+  'cors' : SetLength(Fcors,ALength);
+  'defaultobjectacl' : SetLength(FdefaultObjectAcl,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1854,6 +1933,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBucketAccessControls.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1891,6 +1983,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBuckets.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2113,6 +2218,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TComposeRequest.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'sourceobjects' : SetLength(FsourceObjects,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2400,6 +2518,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TObject.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'acl' : SetLength(Facl,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2602,6 +2733,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TObjectAccessControls.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -2649,6 +2793,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TObjects.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  'prefixes' : SetLength(Fprefixes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -3722,7 +3880,7 @@ end;
 Class Function TStorageAPI.APIRevision : String;
 
 begin
-  Result:='20150305';
+  Result:='20150326';
 end;
 
 Class Function TStorageAPI.APIID : String;
@@ -3776,7 +3934,7 @@ end;
 Class Function TStorageAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TStorageAPI.APIbasePath : string;
@@ -3788,7 +3946,7 @@ end;
 Class Function TStorageAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/storage/v1/';
+  Result:='https://www.googleapis.com:443/storage/v1/';
 end;
 
 Class Function TStorageAPI.APIProtocol : string;
@@ -3882,7 +4040,7 @@ Function TStorageAPI.CreateBucketAccessControlsResource(AOwner : TComponent) : T
 
 begin
   Result:=TBucketAccessControlsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3906,7 +4064,7 @@ Function TStorageAPI.CreateBucketsResource(AOwner : TComponent) : TBucketsResour
 
 begin
   Result:=TBucketsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3930,7 +4088,7 @@ Function TStorageAPI.CreateChannelsResource(AOwner : TComponent) : TChannelsReso
 
 begin
   Result:=TChannelsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3954,7 +4112,7 @@ Function TStorageAPI.CreateDefaultObjectAccessControlsResource(AOwner : TCompone
 
 begin
   Result:=TDefaultObjectAccessControlsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -3978,7 +4136,7 @@ Function TStorageAPI.CreateObjectAccessControlsResource(AOwner : TComponent) : T
 
 begin
   Result:=TObjectAccessControlsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -4002,7 +4160,7 @@ Function TStorageAPI.CreateObjectsResource(AOwner : TComponent) : TObjectsResour
 
 begin
   Result:=TObjectsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googletaskqueue.pp

@@ -13,7 +13,7 @@ unit googletaskqueue;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:59
+//Generated on: 16-5-15 08:53:08
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TTask = class;
-  TTaskQueue = class;
-  TTasks = class;
-  TTasks2 = class;
+  TTask = Class;
+  TTaskQueue = Class;
+  TTasks = Class;
+  TTasks2 = Class;
   TTaskArray = Array of TTask;
   TTaskQueueArray = Array of TTaskQueue;
   TTasksArray = Array of TTasks;
   TTasks2Array = Array of TTasks2;
   //Anonymous types, using auto-generated names
-  TTaskQueueTypeacl = class;
-  TTaskQueueTypestats = class;
+  TTaskQueueTypeacl = Class;
+  TTaskQueueTypestats = Class;
   TTasksTypeitemsArray = Array of TTask;
   TTasks2TypeitemsArray = Array of TTask;
   
@@ -89,6 +89,10 @@ type
     Procedure SetadminEmails(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetconsumerEmails(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetproducerEmails(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 adminEmails : TStringArray Index 0 Read FadminEmails Write SetadminEmails;
@@ -162,6 +166,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TTasksTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -181,6 +189,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TTasks2TypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TTasks2TypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -419,6 +431,21 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTaskQueueTypeacl.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'adminemails' : SetLength(FadminEmails,ALength);
+  'consumeremails' : SetLength(FconsumerEmails,ALength);
+  'produceremails' : SetLength(FproducerEmails,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -550,6 +577,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTasks.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -577,6 +617,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTasks2.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -862,7 +915,7 @@ end;
 Class Function TTaskqueueAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TTaskqueueAPI.APIbasePath : string;
@@ -874,7 +927,7 @@ end;
 Class Function TTaskqueueAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/taskqueue/v1beta2/projects/';
+  Result:='https://www.googleapis.com:443/taskqueue/v1beta2/projects/';
 end;
 
 Class Function TTaskqueueAPI.APIProtocol : string;
@@ -943,7 +996,7 @@ Function TTaskqueueAPI.CreateTaskqueuesResource(AOwner : TComponent) : TTaskqueu
 
 begin
   Result:=TTaskqueuesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -967,7 +1020,7 @@ Function TTaskqueueAPI.CreateTasksResource(AOwner : TComponent) : TTasksResource
 
 begin
   Result:=TTasksResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googletasks.pp

@@ -13,7 +13,7 @@ unit googletasks;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:59
+//Generated on: 16-5-15 08:53:08
 {$MODE objfpc}
 {$H+}
 
@@ -24,16 +24,16 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TTask = class;
-  TTaskList = class;
-  TTaskLists = class;
-  TTasks = class;
+  TTask = Class;
+  TTaskList = Class;
+  TTaskLists = Class;
+  TTasks = Class;
   TTaskArray = Array of TTask;
   TTaskListArray = Array of TTaskList;
   TTaskListsArray = Array of TTaskLists;
   TTasksArray = Array of TTasks;
   //Anonymous types, using auto-generated names
-  TTaskTypelinksItem = class;
+  TTaskTypelinksItem = Class;
   TTaskTypelinksArray = Array of TTaskTypelinksItem;
   TTaskListsTypeitemsArray = Array of TTaskList;
   TTasksTypeitemsArray = Array of TTask;
@@ -99,6 +99,10 @@ type
     Procedure Setstatus(AIndex : Integer; AValue : String); virtual;
     Procedure Settitle(AIndex : Integer; 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 completed : TDatetime Index 0 Read Fcompleted Write Setcompleted;
@@ -166,6 +170,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TTaskListsTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -191,6 +199,10 @@ type
     Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
@@ -527,6 +539,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTask.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'links' : SetLength(Flinks,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -641,6 +666,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTaskLists.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -688,6 +726,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTasks.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1064,7 +1115,7 @@ end;
 Class Function TTasksAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TTasksAPI.APIbasePath : string;
@@ -1076,7 +1127,7 @@ end;
 Class Function TTasksAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/tasks/v1/';
+  Result:='https://www.googleapis.com:443/tasks/v1/';
 end;
 
 Class Function TTasksAPI.APIProtocol : string;
@@ -1144,7 +1195,7 @@ Function TTasksAPI.CreateTasklistsResource(AOwner : TComponent) : TTasklistsReso
 
 begin
   Result:=TTasklistsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1168,7 +1219,7 @@ Function TTasksAPI.CreateTasksResource(AOwner : TComponent) : TTasksResource;
 
 begin
   Result:=TTasksResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googletranslate.pp

@@ -13,7 +13,7 @@ unit googletranslate;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:59
+//Generated on: 16-5-15 08:53:08
 {$MODE objfpc}
 {$H+}
 
@@ -24,12 +24,12 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TDetectionsListResponse = class;
-  TDetectionsResourceItem = class;
-  TLanguagesListResponse = class;
-  TLanguagesResource = class;
-  TTranslationsListResponse = class;
-  TTranslationsResource = class;
+  TDetectionsListResponse = Class;
+  TDetectionsResourceItem = Class;
+  TLanguagesListResponse = Class;
+  TLanguagesResource = Class;
+  TTranslationsListResponse = Class;
+  TTranslationsResource = Class;
   TDetectionsListResponseArray = Array of TDetectionsListResponse;
   TDetectionsResourceItemArray = Array of TDetectionsResourceItem;
   TDetectionsResource = Array of TDetectionsResourceItem;
@@ -52,6 +52,10 @@ type
   Protected
     //Property setters
     Procedure Setdetections(AIndex : Integer; AValue : TDetectionsListResponseTypedetectionsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property detections : TDetectionsListResponseTypedetectionsArray Index 0 Read Fdetections Write Setdetections;
@@ -90,6 +94,10 @@ type
   Protected
     //Property setters
     Procedure Setlanguages(AIndex : Integer; AValue : TLanguagesListResponseTypelanguagesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property languages : TLanguagesListResponseTypelanguagesArray Index 0 Read Flanguages Write Setlanguages;
@@ -125,6 +133,10 @@ type
   Protected
     //Property setters
     Procedure Settranslations(AIndex : Integer; AValue : TTranslationsListResponseTypetranslationsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property translations : TTranslationsListResponseTypetranslationsArray Index 0 Read Ftranslations Write Settranslations;
@@ -278,6 +290,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDetectionsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'detections' : SetLength(Fdetections,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -332,6 +357,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLanguagesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'languages' : SetLength(Flanguages,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -376,6 +414,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTranslationsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'translations' : SetLength(Ftranslations,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -609,7 +660,7 @@ end;
 Class Function TTranslateAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TTranslateAPI.APIbasePath : string;
@@ -621,7 +672,7 @@ end;
 Class Function TTranslateAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/language/translate/';
+  Result:='https://www.googleapis.com:443/language/translate/';
 end;
 
 Class Function TTranslateAPI.APIProtocol : string;
@@ -686,7 +737,7 @@ Function TTranslateAPI.CreateDetectionsResource(AOwner : TComponent) : TDetectio
 
 begin
   Result:=TDetections_Resource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -710,7 +761,7 @@ Function TTranslateAPI.CreateLanguagesResource(AOwner : TComponent) : TLanguages
 
 begin
   Result:=TLanguages_Resource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -734,7 +785,7 @@ Function TTranslateAPI.CreateTranslationsResource(AOwner : TComponent) : TTransl
 
 begin
   Result:=TTranslations_Resource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleurlshortener.pp

@@ -13,7 +13,7 @@ unit googleurlshortener;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:59
+//Generated on: 16-5-15 08:53:09
 {$MODE objfpc}
 {$H+}
 
@@ -24,11 +24,11 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TAnalyticsSnapshot = class;
-  TAnalyticsSummary = class;
-  TStringCount = class;
-  TUrl = class;
-  TUrlHistory = class;
+  TAnalyticsSnapshot = Class;
+  TAnalyticsSummary = Class;
+  TStringCount = Class;
+  TUrl = Class;
+  TUrlHistory = Class;
   TAnalyticsSnapshotArray = Array of TAnalyticsSnapshot;
   TAnalyticsSummaryArray = Array of TAnalyticsSummary;
   TStringCountArray = Array of TStringCount;
@@ -61,6 +61,10 @@ type
     Procedure Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotTypeplatformsArray); virtual;
     Procedure Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotTypereferrersArray); virtual;
     Procedure SetshortUrlClicks(AIndex : Integer; 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 browsers : TAnalyticsSnapshotTypebrowsersArray Index 0 Read Fbrowsers Write Setbrowsers;
@@ -168,6 +172,10 @@ type
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure SetnextPageToken(AIndex : Integer; 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;
+    {$ENDIF VER2_6}
   Public
   Published
     Property items : TUrlHistoryTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -314,6 +322,22 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAnalyticsSnapshot.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'browsers' : SetLength(Fbrowsers,ALength);
+  'countries' : SetLength(Fcountries,ALength);
+  'platforms' : SetLength(Fplatforms,ALength);
+  'referrers' : SetLength(Freferrers,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -522,6 +546,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUrlHistory.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -676,7 +713,7 @@ end;
 Class Function TUrlshortenerAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TUrlshortenerAPI.APIbasePath : string;
@@ -688,7 +725,7 @@ end;
 Class Function TUrlshortenerAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/urlshortener/v1/';
+  Result:='https://www.googleapis.com:443/urlshortener/v1/';
 end;
 
 Class Function TUrlshortenerAPI.APIProtocol : string;
@@ -754,7 +791,7 @@ Function TUrlshortenerAPI.CreateUrlResource(AOwner : TComponent) : TUrlResource;
 
 begin
   Result:=TUrlResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlewebfonts.pp

@@ -13,7 +13,7 @@ unit googlewebfonts;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:59
+//Generated on: 16-5-15 08:53:09
 {$MODE objfpc}
 {$H+}
 
@@ -24,12 +24,12 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TWebfont = class;
-  TWebfontList = class;
+  TWebfont = Class;
+  TWebfontList = Class;
   TWebfontArray = Array of TWebfont;
   TWebfontListArray = Array of TWebfontList;
   //Anonymous types, using auto-generated names
-  TWebfontTypefiles = class;
+  TWebfontTypefiles = Class;
   TWebfontListTypeitemsArray = Array of TWebfont;
   
   { --------------------------------------------------------------------
@@ -70,6 +70,10 @@ type
     Procedure Setsubsets(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setvariants(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure Setversion(AIndex : Integer; 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 category : String Index 0 Read Fcategory Write Setcategory;
@@ -95,6 +99,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TWebfontListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TWebfontListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -259,6 +267,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWebfont.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'subsets' : SetLength(Fsubsets,ALength);
+  'variants' : SetLength(Fvariants,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -286,6 +308,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWebfontList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -404,7 +439,7 @@ end;
 Class Function TWebfontsAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TWebfontsAPI.APIbasePath : string;
@@ -416,7 +451,7 @@ end;
 Class Function TWebfontsAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/webfonts/v1/';
+  Result:='https://www.googleapis.com:443/webfonts/v1/';
 end;
 
 Class Function TWebfontsAPI.APIProtocol : string;
@@ -478,7 +513,7 @@ Function TWebfontsAPI.CreateWebfontsResource(AOwner : TComponent) : TWebfontsRes
 
 begin
   Result:=TWebfontsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googlewebmasters.pp

@@ -13,7 +13,7 @@ unit googlewebmasters;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:22:59
+//Generated on: 16-5-15 08:53:09
 {$MODE objfpc}
 {$H+}
 
@@ -24,17 +24,17 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TSitemapsListResponse = class;
-  TSitesListResponse = class;
-  TUrlCrawlErrorCount = class;
-  TUrlCrawlErrorCountsPerType = class;
-  TUrlCrawlErrorsCountsQueryResponse = class;
-  TUrlCrawlErrorsSample = class;
-  TUrlCrawlErrorsSamplesListResponse = class;
-  TUrlSampleDetails = class;
-  TWmxSite = class;
-  TWmxSitemap = class;
-  TWmxSitemapContent = class;
+  TSitemapsListResponse = Class;
+  TSitesListResponse = Class;
+  TUrlCrawlErrorCount = Class;
+  TUrlCrawlErrorCountsPerType = Class;
+  TUrlCrawlErrorsCountsQueryResponse = Class;
+  TUrlCrawlErrorsSample = Class;
+  TUrlCrawlErrorsSamplesListResponse = Class;
+  TUrlSampleDetails = Class;
+  TWmxSite = Class;
+  TWmxSitemap = Class;
+  TWmxSitemapContent = Class;
   TSitemapsListResponseArray = Array of TSitemapsListResponse;
   TSitesListResponseArray = Array of TSitesListResponse;
   TUrlCrawlErrorCountArray = Array of TUrlCrawlErrorCount;
@@ -64,6 +64,10 @@ type
   Protected
     //Property setters
     Procedure Setsitemap(AIndex : Integer; AValue : TSitemapsListResponseTypesitemapArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property sitemap : TSitemapsListResponseTypesitemapArray Index 0 Read Fsitemap Write Setsitemap;
@@ -80,6 +84,10 @@ type
   Protected
     //Property setters
     Procedure SetsiteEntry(AIndex : Integer; AValue : TSitesListResponseTypesiteEntryArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property siteEntry : TSitesListResponseTypesiteEntryArray Index 0 Read FsiteEntry Write SetsiteEntry;
@@ -119,6 +127,10 @@ type
     Procedure Setcategory(AIndex : Integer; AValue : String); virtual;
     Procedure Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray); virtual;
     Procedure Setplatform(AIndex : Integer; 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 category : String Index 0 Read Fcategory Write Setcategory;
@@ -137,6 +149,10 @@ type
   Protected
     //Property setters
     Procedure SetcountPerTypes(AIndex : Integer; AValue : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property countPerTypes : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray Index 0 Read FcountPerTypes Write SetcountPerTypes;
@@ -181,6 +197,10 @@ type
   Protected
     //Property setters
     Procedure SeturlCrawlErrorSample(AIndex : Integer; AValue : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property urlCrawlErrorSample : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray Index 0 Read FurlCrawlErrorSample Write SeturlCrawlErrorSample;
@@ -199,6 +219,10 @@ type
     //Property setters
     Procedure SetcontainingSitemaps(AIndex : Integer; AValue : TStringArray); virtual;
     Procedure SetlinkedFromUrls(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 containingSitemaps : TStringArray Index 0 Read FcontainingSitemaps Write SetcontainingSitemaps;
@@ -252,6 +276,10 @@ type
     Procedure Setpath(AIndex : Integer; AValue : String); virtual;
     Procedure Set_type(AIndex : Integer; AValue : String); virtual;
     Procedure Setwarnings(AIndex : Integer; 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 contents : TWmxSitemapTypecontentsArray Index 0 Read Fcontents Write Setcontents;
@@ -459,6 +487,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSitemapsListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'sitemap' : SetLength(Fsitemap,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -476,6 +517,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSitesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'siteentry' : SetLength(FsiteEntry,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -540,6 +594,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUrlCrawlErrorCountsPerType.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'entries' : SetLength(Fentries,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -557,6 +624,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUrlCrawlErrorsCountsQueryResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'countpertypes' : SetLength(FcountPerTypes,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -631,6 +711,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUrlCrawlErrorsSamplesListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'urlcrawlerrorsample' : SetLength(FurlCrawlErrorSample,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -658,6 +751,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUrlSampleDetails.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'containingsitemaps' : SetLength(FcontainingSitemaps,ALength);
+  'linkedfromurls' : SetLength(FlinkedFromUrls,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -793,6 +900,19 @@ begin
   end;
 end;
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWmxSitemap.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'contents' : SetLength(Fcontents,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1234,7 +1354,7 @@ end;
 Class Function TWebmastersAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TWebmastersAPI.APIbasePath : string;
@@ -1246,7 +1366,7 @@ end;
 Class Function TWebmastersAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/webmasters/v3/';
+  Result:='https://www.googleapis.com:443/webmasters/v3/';
 end;
 
 Class Function TWebmastersAPI.APIProtocol : string;
@@ -1320,7 +1440,7 @@ Function TWebmastersAPI.CreateSitemapsResource(AOwner : TComponent) : TSitemapsR
 
 begin
   Result:=TSitemapsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1344,7 +1464,7 @@ Function TWebmastersAPI.CreateSitesResource(AOwner : TComponent) : TSitesResourc
 
 begin
   Result:=TSitesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1368,7 +1488,7 @@ Function TWebmastersAPI.CreateUrlcrawlerrorscountsResource(AOwner : TComponent)
 
 begin
   Result:=TUrlcrawlerrorscountsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1392,7 +1512,7 @@ Function TWebmastersAPI.CreateUrlcrawlerrorssamplesResource(AOwner : TComponent)
 
 begin
   Result:=TUrlcrawlerrorssamplesResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 

packages/googleapi/src/googleyoutubeAnalytics.pp

@@ -13,7 +13,7 @@ unit googleyoutubeAnalytics;
   
    **********************************************************************
 }
-//Generated on: 9-5-15 13:23:00
+//Generated on: 16-5-15 08:53:09
 {$MODE objfpc}
 {$H+}
 
@@ -24,15 +24,15 @@ uses sysutils, classes, googleservice, restbase, googlebase;
 type
   
   //Top-level schema types
-  TBatchReport = class;
-  TBatchReportDefinition = class;
-  TBatchReportDefinitionList = class;
-  TBatchReportList = class;
-  TGroup = class;
-  TGroupItem = class;
-  TGroupItemListResponse = class;
-  TGroupListResponse = class;
-  TResultTable = class;
+  TBatchReport = Class;
+  TBatchReportDefinition = Class;
+  TBatchReportDefinitionList = Class;
+  TBatchReportList = Class;
+  TGroup = Class;
+  TGroupItem = Class;
+  TGroupItemListResponse = Class;
+  TGroupListResponse = Class;
+  TResultTable = Class;
   TBatchReportArray = Array of TBatchReport;
   TBatchReportDefinitionArray = Array of TBatchReportDefinition;
   TBatchReportDefinitionListArray = Array of TBatchReportDefinitionList;
@@ -43,12 +43,12 @@ type
   TGroupListResponseArray = Array of TGroupListResponse;
   TResultTableArray = Array of TResultTable;
   //Anonymous types, using auto-generated names
-  TBatchReportTypeoutputsItem = class;
-  TBatchReportTypetimeSpan = class;
-  TGroupTypecontentDetails = class;
-  TGroupTypesnippet = class;
-  TGroupItemTyperesource = class;
-  TResultTableTypecolumnHeadersItem = class;
+  TBatchReportTypeoutputsItem = Class;
+  TBatchReportTypetimeSpan = Class;
+  TGroupTypecontentDetails = Class;
+  TGroupTypesnippet = Class;
+  TGroupItemTyperesource = Class;
+  TResultTableTypecolumnHeadersItem = Class;
   TBatchReportTypeoutputsArray = Array of TBatchReportTypeoutputsItem;
   TBatchReportDefinitionListTypeitemsArray = Array of TBatchReportDefinition;
   TBatchReportListTypeitemsArray = Array of TBatchReport;
@@ -119,6 +119,10 @@ type
     Procedure SetreportId(AIndex : Integer; AValue : String); virtual;
     Procedure SettimeSpan(AIndex : Integer; AValue : TBatchReportTypetimeSpan); virtual;
     Procedure SettimeUpdated(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 id : String Index 0 Read Fid Write Setid;
@@ -171,6 +175,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TBatchReportDefinitionListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TBatchReportDefinitionListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -190,6 +198,10 @@ type
     //Property setters
     Procedure Setitems(AIndex : Integer; AValue : TBatchReportListTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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 : TBatchReportListTypeitemsArray Index 0 Read Fitems Write Setitems;
@@ -324,6 +336,10 @@ type
     Procedure Setetag(AIndex : Integer; AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TGroupItemListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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;
@@ -346,6 +362,10 @@ type
     Procedure Setetag(AIndex : Integer; AValue : String); virtual;
     Procedure Setitems(AIndex : Integer; AValue : TGroupListResponseTypeitemsArray); virtual;
     Procedure Setkind(AIndex : Integer; 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;
@@ -390,6 +410,10 @@ type
     Procedure SetcolumnHeaders(AIndex : Integer; AValue : TResultTableTypecolumnHeadersArray); virtual;
     Procedure Setkind(AIndex : Integer; AValue : String); virtual;
     Procedure Setrows(AIndex : Integer; AValue : TResultTableTyperowsArray); virtual;
+    //2.6.4. bug workaround
+    {$IFDEF VER2_6}
+    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+    {$ENDIF VER2_6}
   Public
   Published
     Property columnHeaders : TResultTableTypecolumnHeadersArray Index 0 Read FcolumnHeaders Write SetcolumnHeaders;
@@ -757,6 +781,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchReport.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'outputs' : SetLength(Foutputs,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -852,6 +889,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchReportDefinitionList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -879,6 +929,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchReportList.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1111,6 +1174,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroupItemListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1148,6 +1224,19 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroupListResponse.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'items' : SetLength(Fitems,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1222,6 +1311,20 @@ begin
 end;
 
 
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResultTable.SetArrayLength(Const AName : String; ALength : Longint); 
+
+begin
+  Case AName of
+  'columnheaders' : SetLength(FcolumnHeaders,ALength);
+  'rows' : SetLength(Frows,ALength);
+  else
+    Inherited SetArrayLength(AName,ALength);
+  end;
+end;
+{$ENDIF VER2_6}
+
 
 
 
@@ -1638,7 +1741,7 @@ end;
 Class Function TYoutubeAnalyticsAPI.APIrootUrl : string;
 
 begin
-  Result:='https://www.googleapis.com/';
+  Result:='https://www.googleapis.com:443/';
 end;
 
 Class Function TYoutubeAnalyticsAPI.APIbasePath : string;
@@ -1650,7 +1753,7 @@ end;
 Class Function TYoutubeAnalyticsAPI.APIbaseURL : String;
 
 begin
-  Result:='https://www.googleapis.com/youtube/analytics/v1/';
+  Result:='https://www.googleapis.com:443/youtube/analytics/v1/';
 end;
 
 Class Function TYoutubeAnalyticsAPI.APIProtocol : string;
@@ -1734,7 +1837,7 @@ Function TYoutubeAnalyticsAPI.CreateBatchReportDefinitionsResource(AOwner : TCom
 
 begin
   Result:=TBatchReportDefinitionsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1758,7 +1861,7 @@ Function TYoutubeAnalyticsAPI.CreateBatchReportsResource(AOwner : TComponent) :
 
 begin
   Result:=TBatchReportsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1782,7 +1885,7 @@ Function TYoutubeAnalyticsAPI.CreateGroupItemsResource(AOwner : TComponent) : TG
 
 begin
   Result:=TGroupItemsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1806,7 +1909,7 @@ Function TYoutubeAnalyticsAPI.CreateGroupsResource(AOwner : TComponent) : TGroup
 
 begin
   Result:=TGroupsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;
 
 
@@ -1830,7 +1933,7 @@ Function TYoutubeAnalyticsAPI.CreateReportsResource(AOwner : TComponent) : TRepo
 
 begin
   Result:=TReportsResource.Create(AOwner);
-  Result.API:=Self;
+  Result.API:=Self.API;
 end;