diff options
Diffstat (limited to 'packages/googleapi/src/googleplus.pp')
| -rw-r--r-- | packages/googleapi/src/googleplus.pp | 1930 |
1 files changed, 553 insertions, 1377 deletions
diff --git a/packages/googleapi/src/googleplus.pp b/packages/googleapi/src/googleplus.pp index edec723286..b46a70d341 100644 --- a/packages/googleapi/src/googleplus.pp +++ b/packages/googleapi/src/googleplus.pp @@ -1,19 +1,4 @@ unit googleplus; -{ - ********************************************************************** - This file is part of the Free Component Library (FCL) - Copyright (c) 2015 The free pascal team. - - See the file COPYING.FPC, included in this distribution, - for details about the copyright. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. - - ********************************************************************** -} -//Generated on: 16-5-15 08:53:06 {$MODE objfpc} {$H+} @@ -29,9 +14,6 @@ type TActivityFeed = Class; TComment = Class; TCommentFeed = Class; - TItemScope = Class; - TMoment = Class; - TMomentsFeed = Class; TPeopleFeed = Class; TPerson = Class; TPlace = Class; @@ -41,18 +23,21 @@ type TActivityFeedArray = Array of TActivityFeed; TCommentArray = Array of TComment; TCommentFeedArray = Array of TCommentFeed; - TItemScopeArray = Array of TItemScope; - TMomentArray = Array of TMoment; - TMomentsFeedArray = Array of TMomentsFeed; TPeopleFeedArray = Array of TPeopleFeed; TPersonArray = Array of TPerson; TPlaceArray = Array of TPlace; TPlusAclentryResourceArray = Array of TPlusAclentryResource; //Anonymous types, using auto-generated names + TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class; + TActivityTypeactorTypeclientSpecificActorInfo = Class; TActivityTypeactorTypeimage = Class; TActivityTypeactorTypename = Class; + TActivityTypeactorTypeverification = Class; TActivityTypeactor = Class; + TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class; + TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class; TActivityTypeobjectTypeactorTypeimage = Class; + TActivityTypeobjectTypeactorTypeverification = Class; TActivityTypeobjectTypeactor = Class; TActivityTypeobjectTypeattachmentsItemTypeembed = Class; TActivityTypeobjectTypeattachmentsItemTypefullImage = Class; @@ -65,7 +50,10 @@ type TActivityTypeobjectTyperesharers = Class; TActivityTypeobject = Class; TActivityTypeprovider = Class; + TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class; + TCommentTypeactorTypeclientSpecificActorInfo = Class; TCommentTypeactorTypeimage = Class; + TCommentTypeactorTypeverification = Class; TCommentTypeactor = Class; TCommentTypeinReplyToItem = Class; TCommentTypeobject = Class; @@ -88,12 +76,6 @@ type TActivityFeedTypeitemsArray = Array of TActivity; TCommentTypeinReplyToArray = Array of TCommentTypeinReplyToItem; TCommentFeedTypeitemsArray = Array of TComment; - TItemScopeTypeassociated_mediaArray = Array of TItemScope; - TItemScopeTypeattendeesArray = Array of TItemScope; - TItemScopeTypeauthorArray = Array of TItemScope; - TItemScopeTypecontributorArray = Array of TItemScope; - TItemScopeTypeperformersArray = Array of TItemScope; - TMomentsFeedTypeitemsArray = Array of TMoment; TPeopleFeedTypeitemsArray = Array of TPerson; TPersonTypeemailsArray = Array of TPersonTypeemailsItem; TPersonTypeorganizationsArray = Array of TPersonTypeorganizationsItem; @@ -112,7 +94,7 @@ type Protected //Property setters Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; - Procedure Setitems(AIndex : Integer; AValue : TAclTypeitemsArray); virtual; + Procedure Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} @@ -127,6 +109,38 @@ type TAclClass = Class of TAcl; { -------------------------------------------------------------------- + TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo + --------------------------------------------------------------------} + + TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject) + Private + FchannelId : String; + Protected + //Property setters + Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property channelId : String Index 0 Read FchannelId Write SetchannelId; + end; + TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo; + + { -------------------------------------------------------------------- + TActivityTypeactorTypeclientSpecificActorInfo + --------------------------------------------------------------------} + + TActivityTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject) + Private + FyoutubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo; + Protected + //Property setters + Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual; + Public + Published + Property youtubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo; + end; + TActivityTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfo; + + { -------------------------------------------------------------------- TActivityTypeactorTypeimage --------------------------------------------------------------------} @@ -162,34 +176,88 @@ type TActivityTypeactorTypenameClass = Class of TActivityTypeactorTypename; { -------------------------------------------------------------------- + TActivityTypeactorTypeverification + --------------------------------------------------------------------} + + TActivityTypeactorTypeverification = Class(TGoogleBaseObject) + Private + FadHocVerified : String; + Protected + //Property setters + Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified; + end; + TActivityTypeactorTypeverificationClass = Class of TActivityTypeactorTypeverification; + + { -------------------------------------------------------------------- TActivityTypeactor --------------------------------------------------------------------} TActivityTypeactor = Class(TGoogleBaseObject) Private + FclientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo; FdisplayName : String; Fid : String; Fimage : TActivityTypeactorTypeimage; Fname : TActivityTypeactorTypename; Furl : String; + Fverification : TActivityTypeactorTypeverification; Protected //Property setters + Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo); virtual; Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setimage(AIndex : Integer; AValue : TActivityTypeactorTypeimage); virtual; - Procedure Setname(AIndex : Integer; AValue : TActivityTypeactorTypename); virtual; + Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage); virtual; + Procedure Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; + Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification); virtual; Public Published - Property displayName : String Index 0 Read FdisplayName Write SetdisplayName; - Property id : String Index 8 Read Fid Write Setid; - Property image : TActivityTypeactorTypeimage Index 16 Read Fimage Write Setimage; - Property name : TActivityTypeactorTypename Index 24 Read Fname Write Setname; - Property url : String Index 32 Read Furl Write Seturl; + Property clientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo; + Property displayName : String Index 8 Read FdisplayName Write SetdisplayName; + Property id : String Index 16 Read Fid Write Setid; + Property image : TActivityTypeactorTypeimage Index 24 Read Fimage Write Setimage; + Property name : TActivityTypeactorTypename Index 32 Read Fname Write Setname; + Property url : String Index 40 Read Furl Write Seturl; + Property verification : TActivityTypeactorTypeverification Index 48 Read Fverification Write Setverification; end; TActivityTypeactorClass = Class of TActivityTypeactor; { -------------------------------------------------------------------- + TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo + --------------------------------------------------------------------} + + TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject) + Private + FchannelId : String; + Protected + //Property setters + Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property channelId : String Index 0 Read FchannelId Write SetchannelId; + end; + TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo; + + { -------------------------------------------------------------------- + TActivityTypeobjectTypeactorTypeclientSpecificActorInfo + --------------------------------------------------------------------} + + TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject) + Private + FyoutubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo; + Protected + //Property setters + Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual; + Public + Published + Property youtubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo; + end; + TActivityTypeobjectTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfo; + + { -------------------------------------------------------------------- TActivityTypeobjectTypeactorTypeimage --------------------------------------------------------------------} @@ -206,27 +274,49 @@ type TActivityTypeobjectTypeactorTypeimageClass = Class of TActivityTypeobjectTypeactorTypeimage; { -------------------------------------------------------------------- + TActivityTypeobjectTypeactorTypeverification + --------------------------------------------------------------------} + + TActivityTypeobjectTypeactorTypeverification = Class(TGoogleBaseObject) + Private + FadHocVerified : String; + Protected + //Property setters + Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified; + end; + TActivityTypeobjectTypeactorTypeverificationClass = Class of TActivityTypeobjectTypeactorTypeverification; + + { -------------------------------------------------------------------- TActivityTypeobjectTypeactor --------------------------------------------------------------------} TActivityTypeobjectTypeactor = Class(TGoogleBaseObject) Private + FclientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo; FdisplayName : String; Fid : String; Fimage : TActivityTypeobjectTypeactorTypeimage; Furl : String; + Fverification : TActivityTypeobjectTypeactorTypeverification; Protected //Property setters + Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo); virtual; Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeactorTypeimage); virtual; + Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; + Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification); virtual; Public Published - Property displayName : String Index 0 Read FdisplayName Write SetdisplayName; - Property id : String Index 8 Read Fid Write Setid; - Property image : TActivityTypeobjectTypeactorTypeimage Index 16 Read Fimage Write Setimage; - Property url : String Index 24 Read Furl Write Seturl; + Property clientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo; + Property displayName : String Index 8 Read FdisplayName Write SetdisplayName; + Property id : String Index 16 Read Fid Write Setid; + Property image : TActivityTypeobjectTypeactorTypeimage Index 24 Read Fimage Write Setimage; + Property url : String Index 32 Read Furl Write Seturl; + Property verification : TActivityTypeobjectTypeactorTypeverification Index 40 Read Fverification Write Setverification; end; TActivityTypeobjectTypeactorClass = Class of TActivityTypeobjectTypeactor; @@ -263,10 +353,10 @@ type Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters - Procedure Setheight(AIndex : Integer; AValue : integer); virtual; + Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; - Procedure Setwidth(AIndex : Integer; AValue : integer); virtual; + Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; @@ -289,10 +379,10 @@ type Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters - Procedure Setheight(AIndex : Integer; AValue : integer); virtual; + Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; - Procedure Setwidth(AIndex : Integer; AValue : integer); virtual; + Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; @@ -315,10 +405,10 @@ type Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters - Procedure Setheight(AIndex : Integer; AValue : integer); virtual; + Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; - Procedure Setwidth(AIndex : Integer; AValue : integer); virtual; + Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; @@ -340,7 +430,7 @@ type Protected //Property setters Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; - Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual; + Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published @@ -369,12 +459,12 @@ type //Property setters Procedure Setcontent(AIndex : Integer; const AValue : String); virtual; Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; - Procedure Setembed(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual; - Procedure SetfullImage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual; + Procedure Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual; + Procedure SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual; + Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual; Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual; - Procedure Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual; + Procedure Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} @@ -405,7 +495,7 @@ type Protected //Property setters Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; - Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual; + Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual; Public Published Property selfLink : String Index 0 Read FselfLink Write SetselfLink; @@ -424,7 +514,7 @@ type Protected //Property setters Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; - Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual; + Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual; Public Published Property selfLink : String Index 0 Read FselfLink Write SetselfLink; @@ -443,7 +533,7 @@ type Protected //Property setters Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; - Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual; + Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual; Public Published Property selfLink : String Index 0 Read FselfLink Write SetselfLink; @@ -469,15 +559,15 @@ type Furl : String; Protected //Property setters - Procedure Setactor(AIndex : Integer; AValue : TActivityTypeobjectTypeactor); virtual; - Procedure Setattachments(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsArray); virtual; + Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor); virtual; + Procedure Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray); virtual; Procedure Setcontent(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual; Procedure SetoriginalContent(AIndex : Integer; const AValue : String); virtual; - Procedure Setplusoners(AIndex : Integer; AValue : TActivityTypeobjectTypeplusoners); virtual; - Procedure Setreplies(AIndex : Integer; AValue : TActivityTypeobjectTypereplies); virtual; - Procedure Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers); virtual; + Procedure Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners); virtual; + Procedure Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies); virtual; + Procedure Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} @@ -543,8 +633,8 @@ type Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters - Procedure Setaccess(AIndex : Integer; AValue : TAcl); virtual; - Procedure Setactor(AIndex : Integer; AValue : TActivityTypeactor); virtual; + Procedure Setaccess(AIndex : Integer; const AValue : TAcl); virtual; + Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeactor); virtual; Procedure Setaddress(AIndex : Integer; const AValue : String); virtual; Procedure Setannotation(AIndex : Integer; const AValue : String); virtual; Procedure SetcrosspostSource(AIndex : Integer; const AValue : String); virtual; @@ -552,15 +642,15 @@ type Procedure Setgeocode(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; - Procedure Setlocation(AIndex : Integer; AValue : TPlace); virtual; - Procedure Set_object(AIndex : Integer; AValue : TActivityTypeobject); virtual; + Procedure Setlocation(AIndex : Integer; const AValue : TPlace); virtual; + Procedure Set_object(AIndex : Integer; const AValue : TActivityTypeobject); virtual; Procedure SetplaceId(AIndex : Integer; const AValue : String); virtual; Procedure SetplaceName(AIndex : Integer; const AValue : String); virtual; - Procedure Setprovider(AIndex : Integer; AValue : TActivityTypeprovider); virtual; - Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual; + Procedure Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider); virtual; + Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setradius(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; - Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; + Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Procedure Setverb(AIndex : Integer; const AValue : String); virtual; Public @@ -607,13 +697,13 @@ type //Property setters Procedure Setetag(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setitems(AIndex : Integer; AValue : TActivityFeedTypeitemsArray); virtual; + Procedure Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; - Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; + Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; @@ -633,6 +723,38 @@ type TActivityFeedClass = Class of TActivityFeed; { -------------------------------------------------------------------- + TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo + --------------------------------------------------------------------} + + TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject) + Private + FchannelId : String; + Protected + //Property setters + Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property channelId : String Index 0 Read FchannelId Write SetchannelId; + end; + TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo; + + { -------------------------------------------------------------------- + TCommentTypeactorTypeclientSpecificActorInfo + --------------------------------------------------------------------} + + TCommentTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject) + Private + FyoutubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo; + Protected + //Property setters + Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual; + Public + Published + Property youtubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo; + end; + TCommentTypeactorTypeclientSpecificActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfo; + + { -------------------------------------------------------------------- TCommentTypeactorTypeimage --------------------------------------------------------------------} @@ -649,27 +771,49 @@ type TCommentTypeactorTypeimageClass = Class of TCommentTypeactorTypeimage; { -------------------------------------------------------------------- + TCommentTypeactorTypeverification + --------------------------------------------------------------------} + + TCommentTypeactorTypeverification = Class(TGoogleBaseObject) + Private + FadHocVerified : String; + Protected + //Property setters + Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified; + end; + TCommentTypeactorTypeverificationClass = Class of TCommentTypeactorTypeverification; + + { -------------------------------------------------------------------- TCommentTypeactor --------------------------------------------------------------------} TCommentTypeactor = Class(TGoogleBaseObject) Private + FclientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo; FdisplayName : String; Fid : String; Fimage : TCommentTypeactorTypeimage; Furl : String; + Fverification : TCommentTypeactorTypeverification; Protected //Property setters + Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo); virtual; Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setimage(AIndex : Integer; AValue : TCommentTypeactorTypeimage); virtual; + Procedure Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; + Procedure Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification); virtual; Public Published - Property displayName : String Index 0 Read FdisplayName Write SetdisplayName; - Property id : String Index 8 Read Fid Write Setid; - Property image : TCommentTypeactorTypeimage Index 16 Read Fimage Write Setimage; - Property url : String Index 24 Read Furl Write Seturl; + Property clientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo; + Property displayName : String Index 8 Read FdisplayName Write SetdisplayName; + Property id : String Index 16 Read Fid Write Setid; + Property image : TCommentTypeactorTypeimage Index 24 Read Fimage Write Setimage; + Property url : String Index 32 Read Furl Write Seturl; + Property verification : TCommentTypeactorTypeverification Index 40 Read Fverification Write Setverification; end; TCommentTypeactorClass = Class of TCommentTypeactor; @@ -723,7 +867,7 @@ type FtotalItems : integer; Protected //Property setters - Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual; + Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual; Public Published Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems; @@ -750,16 +894,16 @@ type Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters - Procedure Setactor(AIndex : Integer; AValue : TCommentTypeactor); virtual; + Procedure Setactor(AIndex : Integer; const AValue : TCommentTypeactor); virtual; Procedure Setetag(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyToArray); virtual; + Procedure SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; - Procedure Set_object(AIndex : Integer; AValue : TCommentTypeobject); virtual; - Procedure Setplusoners(AIndex : Integer; AValue : TCommentTypeplusoners); virtual; - Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual; + Procedure Set_object(AIndex : Integer; const AValue : TCommentTypeobject); virtual; + Procedure Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners); virtual; + Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; - Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; + Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setverb(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} @@ -799,12 +943,12 @@ type //Property setters Procedure Setetag(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setitems(AIndex : Integer; AValue : TCommentFeedTypeitemsArray); virtual; + Procedure Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; - Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; + Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; @@ -823,265 +967,6 @@ type TCommentFeedClass = Class of TCommentFeed; { -------------------------------------------------------------------- - TItemScope - --------------------------------------------------------------------} - - TItemScope = Class(TGoogleBaseObject) - Private - Fabout : TItemScope; - FadditionalName : TStringArray; - Faddress : TItemScope; - FaddressCountry : String; - FaddressLocality : String; - FaddressRegion : String; - Fassociated_media : TItemScopeTypeassociated_mediaArray; - FattendeeCount : integer; - Fattendees : TItemScopeTypeattendeesArray; - Faudio : TItemScope; - Fauthor : TItemScopeTypeauthorArray; - FbestRating : String; - FbirthDate : String; - FbyArtist : TItemScope; - Fcaption : String; - FcontentSize : String; - FcontentUrl : String; - Fcontributor : TItemScopeTypecontributorArray; - FdateCreated : String; - FdateModified : String; - FdatePublished : String; - Fdescription : String; - Fduration : String; - FembedUrl : String; - FendDate : String; - FfamilyName : String; - Fgender : String; - Fgeo : TItemScope; - FgivenName : String; - Fheight : String; - Fid : String; - Fimage : String; - FinAlbum : TItemScope; - Fkind : String; - Flatitude : double; - Flocation : TItemScope; - Flongitude : double; - Fname : String; - FpartOfTVSeries : TItemScope; - Fperformers : TItemScopeTypeperformersArray; - FplayerType : String; - FpostOfficeBoxNumber : String; - FpostalCode : String; - FratingValue : String; - FreviewRating : TItemScope; - FstartDate : String; - FstreetAddress : String; - Ftext : String; - Fthumbnail : TItemScope; - FthumbnailUrl : String; - FtickerSymbol : String; - F_type : String; - Furl : String; - Fwidth : String; - FworstRating : String; - Protected - Class Function ExportPropertyName(Const AName : String) : string; override; - //Property setters - Procedure Setabout(AIndex : Integer; AValue : TItemScope); virtual; - Procedure SetadditionalName(AIndex : Integer; AValue : TStringArray); virtual; - Procedure Setaddress(AIndex : Integer; AValue : TItemScope); virtual; - Procedure SetaddressCountry(AIndex : Integer; const AValue : String); virtual; - Procedure SetaddressLocality(AIndex : Integer; const AValue : String); virtual; - Procedure SetaddressRegion(AIndex : Integer; const AValue : String); virtual; - Procedure Setassociated_media(AIndex : Integer; AValue : TItemScopeTypeassociated_mediaArray); virtual; - Procedure SetattendeeCount(AIndex : Integer; AValue : integer); virtual; - Procedure Setattendees(AIndex : Integer; AValue : TItemScopeTypeattendeesArray); virtual; - Procedure Setaudio(AIndex : Integer; AValue : TItemScope); virtual; - Procedure Setauthor(AIndex : Integer; AValue : TItemScopeTypeauthorArray); virtual; - Procedure SetbestRating(AIndex : Integer; const AValue : String); virtual; - Procedure SetbirthDate(AIndex : Integer; const AValue : String); virtual; - Procedure SetbyArtist(AIndex : Integer; AValue : TItemScope); virtual; - Procedure Setcaption(AIndex : Integer; const AValue : String); virtual; - Procedure SetcontentSize(AIndex : Integer; const AValue : String); virtual; - Procedure SetcontentUrl(AIndex : Integer; const AValue : String); virtual; - Procedure Setcontributor(AIndex : Integer; AValue : TItemScopeTypecontributorArray); virtual; - Procedure SetdateCreated(AIndex : Integer; const AValue : String); virtual; - Procedure SetdateModified(AIndex : Integer; const AValue : String); virtual; - Procedure SetdatePublished(AIndex : Integer; const AValue : String); virtual; - Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; - Procedure Setduration(AIndex : Integer; const AValue : String); virtual; - Procedure SetembedUrl(AIndex : Integer; const AValue : String); virtual; - Procedure SetendDate(AIndex : Integer; const AValue : String); virtual; - Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual; - Procedure Setgender(AIndex : Integer; const AValue : String); virtual; - Procedure Setgeo(AIndex : Integer; AValue : TItemScope); virtual; - Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual; - Procedure Setheight(AIndex : Integer; const AValue : String); virtual; - Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setimage(AIndex : Integer; const AValue : String); virtual; - Procedure SetinAlbum(AIndex : Integer; AValue : TItemScope); virtual; - Procedure Setkind(AIndex : Integer; const AValue : String); virtual; - Procedure Setlatitude(AIndex : Integer; AValue : double); virtual; - Procedure Setlocation(AIndex : Integer; AValue : TItemScope); virtual; - Procedure Setlongitude(AIndex : Integer; AValue : double); virtual; - Procedure Setname(AIndex : Integer; const AValue : String); virtual; - Procedure SetpartOfTVSeries(AIndex : Integer; AValue : TItemScope); virtual; - Procedure Setperformers(AIndex : Integer; AValue : TItemScopeTypeperformersArray); virtual; - Procedure SetplayerType(AIndex : Integer; const AValue : String); virtual; - Procedure SetpostOfficeBoxNumber(AIndex : Integer; const AValue : String); virtual; - Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual; - Procedure SetratingValue(AIndex : Integer; const AValue : String); virtual; - Procedure SetreviewRating(AIndex : Integer; AValue : TItemScope); virtual; - Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual; - Procedure SetstreetAddress(AIndex : Integer; const AValue : String); virtual; - Procedure Settext(AIndex : Integer; const AValue : String); virtual; - Procedure Setthumbnail(AIndex : Integer; AValue : TItemScope); virtual; - Procedure SetthumbnailUrl(AIndex : Integer; const AValue : String); virtual; - Procedure SettickerSymbol(AIndex : Integer; const AValue : String); virtual; - Procedure Set_type(AIndex : Integer; const AValue : String); virtual; - Procedure Seturl(AIndex : Integer; const AValue : String); virtual; - Procedure Setwidth(AIndex : Integer; const AValue : String); virtual; - Procedure SetworstRating(AIndex : Integer; const AValue : String); virtual; - //2.6.4. bug workaround - {$IFDEF VER2_6} - Procedure SetArrayLength(Const AName : String; ALength : Longint); override; - {$ENDIF VER2_6} - Public - Published - Property about : TItemScope Index 0 Read Fabout Write Setabout; - Property additionalName : TStringArray Index 8 Read FadditionalName Write SetadditionalName; - Property address : TItemScope Index 16 Read Faddress Write Setaddress; - Property addressCountry : String Index 24 Read FaddressCountry Write SetaddressCountry; - Property addressLocality : String Index 32 Read FaddressLocality Write SetaddressLocality; - Property addressRegion : String Index 40 Read FaddressRegion Write SetaddressRegion; - Property associated_media : TItemScopeTypeassociated_mediaArray Index 48 Read Fassociated_media Write Setassociated_media; - Property attendeeCount : integer Index 56 Read FattendeeCount Write SetattendeeCount; - Property attendees : TItemScopeTypeattendeesArray Index 64 Read Fattendees Write Setattendees; - Property audio : TItemScope Index 72 Read Faudio Write Setaudio; - Property author : TItemScopeTypeauthorArray Index 80 Read Fauthor Write Setauthor; - Property bestRating : String Index 88 Read FbestRating Write SetbestRating; - Property birthDate : String Index 96 Read FbirthDate Write SetbirthDate; - Property byArtist : TItemScope Index 104 Read FbyArtist Write SetbyArtist; - Property caption : String Index 112 Read Fcaption Write Setcaption; - Property contentSize : String Index 120 Read FcontentSize Write SetcontentSize; - Property contentUrl : String Index 128 Read FcontentUrl Write SetcontentUrl; - Property contributor : TItemScopeTypecontributorArray Index 136 Read Fcontributor Write Setcontributor; - Property dateCreated : String Index 144 Read FdateCreated Write SetdateCreated; - Property dateModified : String Index 152 Read FdateModified Write SetdateModified; - Property datePublished : String Index 160 Read FdatePublished Write SetdatePublished; - Property description : String Index 168 Read Fdescription Write Setdescription; - Property duration : String Index 176 Read Fduration Write Setduration; - Property embedUrl : String Index 184 Read FembedUrl Write SetembedUrl; - Property endDate : String Index 192 Read FendDate Write SetendDate; - Property familyName : String Index 200 Read FfamilyName Write SetfamilyName; - Property gender : String Index 208 Read Fgender Write Setgender; - Property geo : TItemScope Index 216 Read Fgeo Write Setgeo; - Property givenName : String Index 224 Read FgivenName Write SetgivenName; - Property height : String Index 232 Read Fheight Write Setheight; - Property id : String Index 240 Read Fid Write Setid; - Property image : String Index 248 Read Fimage Write Setimage; - Property inAlbum : TItemScope Index 256 Read FinAlbum Write SetinAlbum; - Property kind : String Index 264 Read Fkind Write Setkind; - Property latitude : double Index 272 Read Flatitude Write Setlatitude; - Property location : TItemScope Index 280 Read Flocation Write Setlocation; - Property longitude : double Index 288 Read Flongitude Write Setlongitude; - Property name : String Index 296 Read Fname Write Setname; - Property partOfTVSeries : TItemScope Index 304 Read FpartOfTVSeries Write SetpartOfTVSeries; - Property performers : TItemScopeTypeperformersArray Index 312 Read Fperformers Write Setperformers; - Property playerType : String Index 320 Read FplayerType Write SetplayerType; - Property postOfficeBoxNumber : String Index 328 Read FpostOfficeBoxNumber Write SetpostOfficeBoxNumber; - Property postalCode : String Index 336 Read FpostalCode Write SetpostalCode; - Property ratingValue : String Index 344 Read FratingValue Write SetratingValue; - Property reviewRating : TItemScope Index 352 Read FreviewRating Write SetreviewRating; - Property startDate : String Index 360 Read FstartDate Write SetstartDate; - Property streetAddress : String Index 368 Read FstreetAddress Write SetstreetAddress; - Property text : String Index 376 Read Ftext Write Settext; - Property thumbnail : TItemScope Index 384 Read Fthumbnail Write Setthumbnail; - Property thumbnailUrl : String Index 392 Read FthumbnailUrl Write SetthumbnailUrl; - Property tickerSymbol : String Index 400 Read FtickerSymbol Write SettickerSymbol; - Property _type : String Index 408 Read F_type Write Set_type; - Property url : String Index 416 Read Furl Write Seturl; - Property width : String Index 424 Read Fwidth Write Setwidth; - Property worstRating : String Index 432 Read FworstRating Write SetworstRating; - end; - TItemScopeClass = Class of TItemScope; - - { -------------------------------------------------------------------- - TMoment - --------------------------------------------------------------------} - - TMoment = Class(TGoogleBaseObject) - Private - Fid : String; - Fkind : String; - F_object : TItemScope; - Fresult : TItemScope; - FstartDate : TDatetime; - Ftarget : TItemScope; - F_type : String; - Protected - Class Function ExportPropertyName(Const AName : String) : string; override; - //Property setters - Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setkind(AIndex : Integer; const AValue : String); virtual; - Procedure Set_object(AIndex : Integer; AValue : TItemScope); virtual; - Procedure Setresult(AIndex : Integer; AValue : TItemScope); virtual; - Procedure SetstartDate(AIndex : Integer; AValue : TDatetime); virtual; - Procedure Settarget(AIndex : Integer; AValue : TItemScope); virtual; - Procedure Set_type(AIndex : Integer; const AValue : String); virtual; - Public - Published - Property id : String Index 0 Read Fid Write Setid; - Property kind : String Index 8 Read Fkind Write Setkind; - Property _object : TItemScope Index 16 Read F_object Write Set_object; - Property result : TItemScope Index 24 Read Fresult Write Setresult; - Property startDate : TDatetime Index 32 Read FstartDate Write SetstartDate; - Property target : TItemScope Index 40 Read Ftarget Write Settarget; - Property _type : String Index 48 Read F_type Write Set_type; - end; - TMomentClass = Class of TMoment; - - { -------------------------------------------------------------------- - TMomentsFeed - --------------------------------------------------------------------} - - TMomentsFeed = Class(TGoogleBaseObject) - Private - Fetag : String; - Fitems : TMomentsFeedTypeitemsArray; - Fkind : String; - FnextLink : String; - FnextPageToken : String; - FselfLink : String; - Ftitle : String; - Fupdated : TDatetime; - Protected - //Property setters - Procedure Setetag(AIndex : Integer; const AValue : String); virtual; - Procedure Setitems(AIndex : Integer; AValue : TMomentsFeedTypeitemsArray); virtual; - Procedure Setkind(AIndex : Integer; const AValue : String); virtual; - Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; - Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; - Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; - Procedure Settitle(AIndex : Integer; const AValue : String); virtual; - Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; - //2.6.4. bug workaround - {$IFDEF VER2_6} - Procedure SetArrayLength(Const AName : String; ALength : Longint); override; - {$ENDIF VER2_6} - Public - Published - Property etag : String Index 0 Read Fetag Write Setetag; - Property items : TMomentsFeedTypeitemsArray Index 8 Read Fitems Write Setitems; - Property kind : String Index 16 Read Fkind Write Setkind; - Property nextLink : String Index 24 Read FnextLink Write SetnextLink; - Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken; - Property selfLink : String Index 40 Read FselfLink Write SetselfLink; - Property title : String Index 48 Read Ftitle Write Settitle; - Property updated : TDatetime Index 56 Read Fupdated Write Setupdated; - end; - TMomentsFeedClass = Class of TMomentsFeed; - - { -------------------------------------------------------------------- TPeopleFeed --------------------------------------------------------------------} @@ -1097,12 +982,12 @@ type Protected //Property setters Procedure Setetag(AIndex : Integer; const AValue : String); virtual; - Procedure Setitems(AIndex : Integer; AValue : TPeopleFeedTypeitemsArray); virtual; + Procedure Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; - Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual; + Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; @@ -1129,8 +1014,8 @@ type Fmin : integer; Protected //Property setters - Procedure Setmax(AIndex : Integer; AValue : integer); virtual; - Procedure Setmin(AIndex : Integer; AValue : integer); virtual; + Procedure Setmax(AIndex : Integer; const AValue : integer); virtual; + Procedure Setmin(AIndex : Integer; const AValue : integer); virtual; Public Published Property max : integer Index 0 Read Fmax Write Setmax; @@ -1148,8 +1033,8 @@ type FtopImageOffset : integer; Protected //Property setters - Procedure SetleftImageOffset(AIndex : Integer; AValue : integer); virtual; - Procedure SettopImageOffset(AIndex : Integer; AValue : integer); virtual; + Procedure SetleftImageOffset(AIndex : Integer; const AValue : integer); virtual; + Procedure SettopImageOffset(AIndex : Integer; const AValue : integer); virtual; Public Published Property leftImageOffset : integer Index 0 Read FleftImageOffset Write SetleftImageOffset; @@ -1168,9 +1053,9 @@ type Fwidth : integer; Protected //Property setters - Procedure Setheight(AIndex : Integer; AValue : integer); virtual; + Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; - Procedure Setwidth(AIndex : Integer; AValue : integer); virtual; + Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; @@ -1190,8 +1075,8 @@ type Flayout : String; Protected //Property setters - Procedure SetcoverInfo(AIndex : Integer; AValue : TPersonTypecoverTypecoverInfo); virtual; - Procedure SetcoverPhoto(AIndex : Integer; AValue : TPersonTypecoverTypecoverPhoto); virtual; + Procedure SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo); virtual; + Procedure SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto); virtual; Procedure Setlayout(AIndex : Integer; const AValue : String); virtual; Public Published @@ -1231,7 +1116,7 @@ type Furl : String; Protected //Property setters - Procedure SetisDefault(AIndex : Integer; AValue : boolean); virtual; + Procedure SetisDefault(AIndex : Integer; const AValue : boolean); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published @@ -1294,7 +1179,7 @@ type Procedure SetendDate(AIndex : Integer; const AValue : String); virtual; Procedure Setlocation(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; - Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual; + Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual; Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; @@ -1322,7 +1207,7 @@ type Fvalue : String; Protected //Property setters - Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual; + Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published @@ -1393,35 +1278,35 @@ type Protected //Property setters Procedure SetaboutMe(AIndex : Integer; const AValue : String); virtual; - Procedure SetageRange(AIndex : Integer; AValue : TPersonTypeageRange); virtual; + Procedure SetageRange(AIndex : Integer; const AValue : TPersonTypeageRange); virtual; Procedure Setbirthday(AIndex : Integer; const AValue : String); virtual; Procedure SetbraggingRights(AIndex : Integer; const AValue : String); virtual; - Procedure SetcircledByCount(AIndex : Integer; AValue : integer); virtual; - Procedure Setcover(AIndex : Integer; AValue : TPersonTypecover); virtual; + Procedure SetcircledByCount(AIndex : Integer; const AValue : integer); virtual; + Procedure Setcover(AIndex : Integer; const AValue : TPersonTypecover); virtual; Procedure SetcurrentLocation(AIndex : Integer; const AValue : String); virtual; Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; Procedure Setdomain(AIndex : Integer; const AValue : String); virtual; - Procedure Setemails(AIndex : Integer; AValue : TPersonTypeemailsArray); virtual; + Procedure Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray); virtual; Procedure Setetag(AIndex : Integer; const AValue : String); virtual; Procedure Setgender(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; - Procedure Setimage(AIndex : Integer; AValue : TPersonTypeimage); virtual; - Procedure SetisPlusUser(AIndex : Integer; AValue : boolean); virtual; + Procedure Setimage(AIndex : Integer; const AValue : TPersonTypeimage); virtual; + Procedure SetisPlusUser(AIndex : Integer; const AValue : boolean); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual; - Procedure Setname(AIndex : Integer; AValue : TPersonTypename); virtual; + Procedure Setname(AIndex : Integer; const AValue : TPersonTypename); virtual; Procedure Setnickname(AIndex : Integer; const AValue : String); virtual; Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual; Procedure Setoccupation(AIndex : Integer; const AValue : String); virtual; - Procedure Setorganizations(AIndex : Integer; AValue : TPersonTypeorganizationsArray); virtual; - Procedure SetplacesLived(AIndex : Integer; AValue : TPersonTypeplacesLivedArray); virtual; - Procedure SetplusOneCount(AIndex : Integer; AValue : integer); virtual; + Procedure Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray); virtual; + Procedure SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray); virtual; + Procedure SetplusOneCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetrelationshipStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setskills(AIndex : Integer; const AValue : String); virtual; Procedure Settagline(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; - Procedure Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray); virtual; - Procedure Setverified(AIndex : Integer; AValue : boolean); virtual; + Procedure Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray); virtual; + Procedure Setverified(AIndex : Integer; const AValue : boolean); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; @@ -1487,8 +1372,8 @@ type Flongitude : double; Protected //Property setters - Procedure Setlatitude(AIndex : Integer; AValue : double); virtual; - Procedure Setlongitude(AIndex : Integer; AValue : double); virtual; + Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual; + Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual; Public Published Property latitude : double Index 0 Read Flatitude Write Setlatitude; @@ -1509,11 +1394,11 @@ type Fposition : TPlaceTypeposition; Protected //Property setters - Procedure Setaddress(AIndex : Integer; AValue : TPlaceTypeaddress); virtual; + Procedure Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress); virtual; Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; - Procedure Setposition(AIndex : Integer; AValue : TPlaceTypeposition); virtual; + Procedure Setposition(AIndex : Integer; const AValue : TPlaceTypeposition); virtual; Public Published Property address : TPlaceTypeaddress Index 0 Read Faddress Write Setaddress; @@ -1606,39 +1491,6 @@ type { -------------------------------------------------------------------- - TMomentsResource - --------------------------------------------------------------------} - - - //Optional query Options for TMomentsResource, method Insert - - TMomentsInsertOptions = Record - debug : boolean; - end; - - - //Optional query Options for TMomentsResource, method List - - TMomentsListOptions = Record - maxResults : integer; - pageToken : String; - targetUrl : String; - _type : String; - end; - - TMomentsResource = Class(TGoogleResource) - Public - Class Function ResourceName : String; override; - Class Function DefaultAPI : TGoogleAPIClass; override; - Function Insert(collection: string; userId: string; aMoment : TMoment; AQuery : string = '') : TMoment; - Function Insert(collection: string; userId: string; aMoment : TMoment; AQuery : TMomentsinsertOptions) : TMoment; - Function List(collection: string; userId: string; AQuery : string = '') : TMomentsFeed; - Function List(collection: string; userId: string; AQuery : TMomentslistOptions) : TMomentsFeed; - Procedure Remove(id: string); - end; - - - { -------------------------------------------------------------------- TPeopleResource --------------------------------------------------------------------} @@ -1691,11 +1543,9 @@ type Private FActivitiesInstance : TActivitiesResource; FCommentsInstance : TCommentsResource; - FMomentsInstance : TMomentsResource; FPeopleInstance : TPeopleResource; Function GetActivitiesInstance : TActivitiesResource;virtual; Function GetCommentsInstance : TCommentsResource;virtual; - Function GetMomentsInstance : TMomentsResource;virtual; Function GetPeopleInstance : TPeopleResource;virtual; Public //Override class functions with API info @@ -1724,14 +1574,11 @@ type Function CreateActivitiesResource : TActivitiesResource;virtual;overload; Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload; Function CreateCommentsResource : TCommentsResource;virtual;overload; - Function CreateMomentsResource(AOwner : TComponent) : TMomentsResource;virtual;overload; - Function CreateMomentsResource : TMomentsResource;virtual;overload; Function CreatePeopleResource(AOwner : TComponent) : TPeopleResource;virtual;overload; Function CreatePeopleResource : TPeopleResource;virtual;overload; //Add default on-demand instances for resources Property ActivitiesResource : TActivitiesResource Read GetActivitiesInstance; Property CommentsResource : TCommentsResource Read GetCommentsInstance; - Property MomentsResource : TMomentsResource Read GetMomentsInstance; Property PeopleResource : TPeopleResource Read GetPeopleInstance; end; @@ -1753,7 +1600,7 @@ end; -Procedure TAcl.Setitems(AIndex : Integer; AValue : TAclTypeitemsArray); +Procedure TAcl.Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray); begin If (Fitems=AValue) then exit; @@ -1789,6 +1636,40 @@ end; { -------------------------------------------------------------------- + TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo + --------------------------------------------------------------------} + + +Procedure TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String); + +begin + If (FchannelId=AValue) then exit; + FchannelId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TActivityTypeactorTypeclientSpecificActorInfo + --------------------------------------------------------------------} + + +Procedure TActivityTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); + +begin + If (FyoutubeActorInfo=AValue) then exit; + FyoutubeActorInfo:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- TActivityTypeactorTypeimage --------------------------------------------------------------------} @@ -1833,10 +1714,37 @@ end; { -------------------------------------------------------------------- + TActivityTypeactorTypeverification + --------------------------------------------------------------------} + + +Procedure TActivityTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String); + +begin + If (FadHocVerified=AValue) then exit; + FadHocVerified:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- TActivityTypeactor --------------------------------------------------------------------} +Procedure TActivityTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo); + +begin + If (FclientSpecificActorInfo=AValue) then exit; + FclientSpecificActorInfo:=AValue; + MarkPropertyChanged(AIndex); +end; + + + Procedure TActivityTypeactor.SetdisplayName(AIndex : Integer; const AValue : String); begin @@ -1857,7 +1765,7 @@ end; -Procedure TActivityTypeactor.Setimage(AIndex : Integer; AValue : TActivityTypeactorTypeimage); +Procedure TActivityTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage); begin If (Fimage=AValue) then exit; @@ -1867,7 +1775,7 @@ end; -Procedure TActivityTypeactor.Setname(AIndex : Integer; AValue : TActivityTypeactorTypename); +Procedure TActivityTypeactor.Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename); begin If (Fname=AValue) then exit; @@ -1887,6 +1795,50 @@ end; +Procedure TActivityTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification); + +begin + If (Fverification=AValue) then exit; + Fverification:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo + --------------------------------------------------------------------} + + +Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String); + +begin + If (FchannelId=AValue) then exit; + FchannelId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TActivityTypeobjectTypeactorTypeclientSpecificActorInfo + --------------------------------------------------------------------} + + +Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); + +begin + If (FyoutubeActorInfo=AValue) then exit; + FyoutubeActorInfo:=AValue; + MarkPropertyChanged(AIndex); +end; + + + { -------------------------------------------------------------------- @@ -1907,10 +1859,37 @@ end; { -------------------------------------------------------------------- + TActivityTypeobjectTypeactorTypeverification + --------------------------------------------------------------------} + + +Procedure TActivityTypeobjectTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String); + +begin + If (FadHocVerified=AValue) then exit; + FadHocVerified:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- TActivityTypeobjectTypeactor --------------------------------------------------------------------} +Procedure TActivityTypeobjectTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo); + +begin + If (FclientSpecificActorInfo=AValue) then exit; + FclientSpecificActorInfo:=AValue; + MarkPropertyChanged(AIndex); +end; + + + Procedure TActivityTypeobjectTypeactor.SetdisplayName(AIndex : Integer; const AValue : String); begin @@ -1931,7 +1910,7 @@ end; -Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeactorTypeimage); +Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage); begin If (Fimage=AValue) then exit; @@ -1951,6 +1930,16 @@ end; +Procedure TActivityTypeobjectTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification); + +begin + If (Fverification=AValue) then exit; + Fverification:=AValue; + MarkPropertyChanged(AIndex); +end; + + + { -------------------------------------------------------------------- @@ -1996,7 +1985,7 @@ end; --------------------------------------------------------------------} -Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; @@ -2026,7 +2015,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; @@ -2054,7 +2043,7 @@ end; --------------------------------------------------------------------} -Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; @@ -2084,7 +2073,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; @@ -2112,7 +2101,7 @@ end; --------------------------------------------------------------------} -Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; @@ -2142,7 +2131,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; @@ -2180,7 +2169,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); +Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); begin If (Fimage=AValue) then exit; @@ -2227,7 +2216,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); +Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); begin If (Fembed=AValue) then exit; @@ -2237,7 +2226,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); +Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); begin If (FfullImage=AValue) then exit; @@ -2257,7 +2246,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); +Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); begin If (Fimage=AValue) then exit; @@ -2277,7 +2266,7 @@ end; -Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); +Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); begin If (Fthumbnails=AValue) then exit; @@ -2327,7 +2316,7 @@ end; -Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer); begin If (FtotalItems=AValue) then exit; @@ -2354,7 +2343,7 @@ end; -Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; const AValue : integer); begin If (FtotalItems=AValue) then exit; @@ -2381,7 +2370,7 @@ end; -Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; AValue : integer); +Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; const AValue : integer); begin If (FtotalItems=AValue) then exit; @@ -2398,7 +2387,7 @@ end; --------------------------------------------------------------------} -Procedure TActivityTypeobject.Setactor(AIndex : Integer; AValue : TActivityTypeobjectTypeactor); +Procedure TActivityTypeobject.Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor); begin If (Factor=AValue) then exit; @@ -2408,7 +2397,7 @@ end; -Procedure TActivityTypeobject.Setattachments(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsArray); +Procedure TActivityTypeobject.Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray); begin If (Fattachments=AValue) then exit; @@ -2458,7 +2447,7 @@ end; -Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; AValue : TActivityTypeobjectTypeplusoners); +Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners); begin If (Fplusoners=AValue) then exit; @@ -2468,7 +2457,7 @@ end; -Procedure TActivityTypeobject.Setreplies(AIndex : Integer; AValue : TActivityTypeobjectTypereplies); +Procedure TActivityTypeobject.Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies); begin If (Freplies=AValue) then exit; @@ -2478,7 +2467,7 @@ end; -Procedure TActivityTypeobject.Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers); +Procedure TActivityTypeobject.Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers); begin If (Fresharers=AValue) then exit; @@ -2535,7 +2524,7 @@ end; --------------------------------------------------------------------} -Procedure TActivity.Setaccess(AIndex : Integer; AValue : TAcl); +Procedure TActivity.Setaccess(AIndex : Integer; const AValue : TAcl); begin If (Faccess=AValue) then exit; @@ -2545,7 +2534,7 @@ end; -Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityTypeactor); +Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor); begin If (Factor=AValue) then exit; @@ -2625,7 +2614,7 @@ end; -Procedure TActivity.Setlocation(AIndex : Integer; AValue : TPlace); +Procedure TActivity.Setlocation(AIndex : Integer; const AValue : TPlace); begin If (Flocation=AValue) then exit; @@ -2635,7 +2624,7 @@ end; -Procedure TActivity.Set_object(AIndex : Integer; AValue : TActivityTypeobject); +Procedure TActivity.Set_object(AIndex : Integer; const AValue : TActivityTypeobject); begin If (F_object=AValue) then exit; @@ -2665,7 +2654,7 @@ end; -Procedure TActivity.Setprovider(AIndex : Integer; AValue : TActivityTypeprovider); +Procedure TActivity.Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider); begin If (Fprovider=AValue) then exit; @@ -2675,7 +2664,7 @@ end; -Procedure TActivity.Set_published(AIndex : Integer; AValue : TDatetime); +Procedure TActivity.Set_published(AIndex : Integer; const AValue : TDatetime); begin If (F_published=AValue) then exit; @@ -2705,7 +2694,7 @@ end; -Procedure TActivity.Setupdated(AIndex : Integer; AValue : TDatetime); +Procedure TActivity.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; @@ -2774,7 +2763,7 @@ end; -Procedure TActivityFeed.Setitems(AIndex : Integer; AValue : TActivityFeedTypeitemsArray); +Procedure TActivityFeed.Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray); begin If (Fitems=AValue) then exit; @@ -2834,7 +2823,7 @@ end; -Procedure TActivityFeed.Setupdated(AIndex : Integer; AValue : TDatetime); +Procedure TActivityFeed.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; @@ -2860,6 +2849,40 @@ end; { -------------------------------------------------------------------- + TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo + --------------------------------------------------------------------} + + +Procedure TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String); + +begin + If (FchannelId=AValue) then exit; + FchannelId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TCommentTypeactorTypeclientSpecificActorInfo + --------------------------------------------------------------------} + + +Procedure TCommentTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); + +begin + If (FyoutubeActorInfo=AValue) then exit; + FyoutubeActorInfo:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- TCommentTypeactorTypeimage --------------------------------------------------------------------} @@ -2877,10 +2900,37 @@ end; { -------------------------------------------------------------------- + TCommentTypeactorTypeverification + --------------------------------------------------------------------} + + +Procedure TCommentTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String); + +begin + If (FadHocVerified=AValue) then exit; + FadHocVerified:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- TCommentTypeactor --------------------------------------------------------------------} +Procedure TCommentTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo); + +begin + If (FclientSpecificActorInfo=AValue) then exit; + FclientSpecificActorInfo:=AValue; + MarkPropertyChanged(AIndex); +end; + + + Procedure TCommentTypeactor.SetdisplayName(AIndex : Integer; const AValue : String); begin @@ -2901,7 +2951,7 @@ end; -Procedure TCommentTypeactor.Setimage(AIndex : Integer; AValue : TCommentTypeactorTypeimage); +Procedure TCommentTypeactor.Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage); begin If (Fimage=AValue) then exit; @@ -2921,6 +2971,16 @@ end; +Procedure TCommentTypeactor.Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification); + +begin + If (Fverification=AValue) then exit; + Fverification:=AValue; + MarkPropertyChanged(AIndex); +end; + + + { -------------------------------------------------------------------- @@ -2992,7 +3052,7 @@ end; --------------------------------------------------------------------} -Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; AValue : integer); +Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer); begin If (FtotalItems=AValue) then exit; @@ -3009,7 +3069,7 @@ end; --------------------------------------------------------------------} -Procedure TComment.Setactor(AIndex : Integer; AValue : TCommentTypeactor); +Procedure TComment.Setactor(AIndex : Integer; const AValue : TCommentTypeactor); begin If (Factor=AValue) then exit; @@ -3039,7 +3099,7 @@ end; -Procedure TComment.SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyToArray); +Procedure TComment.SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray); begin If (FinReplyTo=AValue) then exit; @@ -3059,7 +3119,7 @@ end; -Procedure TComment.Set_object(AIndex : Integer; AValue : TCommentTypeobject); +Procedure TComment.Set_object(AIndex : Integer; const AValue : TCommentTypeobject); begin If (F_object=AValue) then exit; @@ -3069,7 +3129,7 @@ end; -Procedure TComment.Setplusoners(AIndex : Integer; AValue : TCommentTypeplusoners); +Procedure TComment.Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners); begin If (Fplusoners=AValue) then exit; @@ -3079,7 +3139,7 @@ end; -Procedure TComment.Set_published(AIndex : Integer; AValue : TDatetime); +Procedure TComment.Set_published(AIndex : Integer; const AValue : TDatetime); begin If (F_published=AValue) then exit; @@ -3099,7 +3159,7 @@ end; -Procedure TComment.Setupdated(AIndex : Integer; AValue : TDatetime); +Procedure TComment.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; @@ -3171,7 +3231,7 @@ end; -Procedure TCommentFeed.Setitems(AIndex : Integer; AValue : TCommentFeedTypeitemsArray); +Procedure TCommentFeed.Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray); begin If (Fitems=AValue) then exit; @@ -3221,7 +3281,7 @@ end; -Procedure TCommentFeed.Setupdated(AIndex : Integer; AValue : TDatetime); +Procedure TCommentFeed.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; @@ -3247,781 +3307,6 @@ end; { -------------------------------------------------------------------- - TItemScope - --------------------------------------------------------------------} - - -Procedure TItemScope.Setabout(AIndex : Integer; AValue : TItemScope); - -begin - If (Fabout=AValue) then exit; - Fabout:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetadditionalName(AIndex : Integer; AValue : TStringArray); - -begin - If (FadditionalName=AValue) then exit; - FadditionalName:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setaddress(AIndex : Integer; AValue : TItemScope); - -begin - If (Faddress=AValue) then exit; - Faddress:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetaddressCountry(AIndex : Integer; const AValue : String); - -begin - If (FaddressCountry=AValue) then exit; - FaddressCountry:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetaddressLocality(AIndex : Integer; const AValue : String); - -begin - If (FaddressLocality=AValue) then exit; - FaddressLocality:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetaddressRegion(AIndex : Integer; const AValue : String); - -begin - If (FaddressRegion=AValue) then exit; - FaddressRegion:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setassociated_media(AIndex : Integer; AValue : TItemScopeTypeassociated_mediaArray); - -begin - If (Fassociated_media=AValue) then exit; - Fassociated_media:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetattendeeCount(AIndex : Integer; AValue : integer); - -begin - If (FattendeeCount=AValue) then exit; - FattendeeCount:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setattendees(AIndex : Integer; AValue : TItemScopeTypeattendeesArray); - -begin - If (Fattendees=AValue) then exit; - Fattendees:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setaudio(AIndex : Integer; AValue : TItemScope); - -begin - If (Faudio=AValue) then exit; - Faudio:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setauthor(AIndex : Integer; AValue : TItemScopeTypeauthorArray); - -begin - If (Fauthor=AValue) then exit; - Fauthor:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetbestRating(AIndex : Integer; const AValue : String); - -begin - If (FbestRating=AValue) then exit; - FbestRating:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetbirthDate(AIndex : Integer; const AValue : String); - -begin - If (FbirthDate=AValue) then exit; - FbirthDate:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetbyArtist(AIndex : Integer; AValue : TItemScope); - -begin - If (FbyArtist=AValue) then exit; - FbyArtist:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setcaption(AIndex : Integer; const AValue : String); - -begin - If (Fcaption=AValue) then exit; - Fcaption:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetcontentSize(AIndex : Integer; const AValue : String); - -begin - If (FcontentSize=AValue) then exit; - FcontentSize:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetcontentUrl(AIndex : Integer; const AValue : String); - -begin - If (FcontentUrl=AValue) then exit; - FcontentUrl:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setcontributor(AIndex : Integer; AValue : TItemScopeTypecontributorArray); - -begin - If (Fcontributor=AValue) then exit; - Fcontributor:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetdateCreated(AIndex : Integer; const AValue : String); - -begin - If (FdateCreated=AValue) then exit; - FdateCreated:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetdateModified(AIndex : Integer; const AValue : String); - -begin - If (FdateModified=AValue) then exit; - FdateModified:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetdatePublished(AIndex : Integer; const AValue : String); - -begin - If (FdatePublished=AValue) then exit; - FdatePublished:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setdescription(AIndex : Integer; const AValue : String); - -begin - If (Fdescription=AValue) then exit; - Fdescription:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setduration(AIndex : Integer; const AValue : String); - -begin - If (Fduration=AValue) then exit; - Fduration:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetembedUrl(AIndex : Integer; const AValue : String); - -begin - If (FembedUrl=AValue) then exit; - FembedUrl:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetendDate(AIndex : Integer; const AValue : String); - -begin - If (FendDate=AValue) then exit; - FendDate:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetfamilyName(AIndex : Integer; const AValue : String); - -begin - If (FfamilyName=AValue) then exit; - FfamilyName:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setgender(AIndex : Integer; const AValue : String); - -begin - If (Fgender=AValue) then exit; - Fgender:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setgeo(AIndex : Integer; AValue : TItemScope); - -begin - If (Fgeo=AValue) then exit; - Fgeo:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetgivenName(AIndex : Integer; const AValue : String); - -begin - If (FgivenName=AValue) then exit; - FgivenName:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setheight(AIndex : Integer; const AValue : String); - -begin - If (Fheight=AValue) then exit; - Fheight:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setid(AIndex : Integer; const AValue : String); - -begin - If (Fid=AValue) then exit; - Fid:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setimage(AIndex : Integer; const AValue : String); - -begin - If (Fimage=AValue) then exit; - Fimage:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetinAlbum(AIndex : Integer; AValue : TItemScope); - -begin - If (FinAlbum=AValue) then exit; - FinAlbum:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setkind(AIndex : Integer; const AValue : String); - -begin - If (Fkind=AValue) then exit; - Fkind:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setlatitude(AIndex : Integer; AValue : double); - -begin - If (Flatitude=AValue) then exit; - Flatitude:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setlocation(AIndex : Integer; AValue : TItemScope); - -begin - If (Flocation=AValue) then exit; - Flocation:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setlongitude(AIndex : Integer; AValue : double); - -begin - If (Flongitude=AValue) then exit; - Flongitude:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setname(AIndex : Integer; const AValue : String); - -begin - If (Fname=AValue) then exit; - Fname:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetpartOfTVSeries(AIndex : Integer; AValue : TItemScope); - -begin - If (FpartOfTVSeries=AValue) then exit; - FpartOfTVSeries:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setperformers(AIndex : Integer; AValue : TItemScopeTypeperformersArray); - -begin - If (Fperformers=AValue) then exit; - Fperformers:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetplayerType(AIndex : Integer; const AValue : String); - -begin - If (FplayerType=AValue) then exit; - FplayerType:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetpostOfficeBoxNumber(AIndex : Integer; const AValue : String); - -begin - If (FpostOfficeBoxNumber=AValue) then exit; - FpostOfficeBoxNumber:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetpostalCode(AIndex : Integer; const AValue : String); - -begin - If (FpostalCode=AValue) then exit; - FpostalCode:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetratingValue(AIndex : Integer; const AValue : String); - -begin - If (FratingValue=AValue) then exit; - FratingValue:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetreviewRating(AIndex : Integer; AValue : TItemScope); - -begin - If (FreviewRating=AValue) then exit; - FreviewRating:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetstartDate(AIndex : Integer; const AValue : String); - -begin - If (FstartDate=AValue) then exit; - FstartDate:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetstreetAddress(AIndex : Integer; const AValue : String); - -begin - If (FstreetAddress=AValue) then exit; - FstreetAddress:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Settext(AIndex : Integer; const AValue : String); - -begin - If (Ftext=AValue) then exit; - Ftext:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setthumbnail(AIndex : Integer; AValue : TItemScope); - -begin - If (Fthumbnail=AValue) then exit; - Fthumbnail:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetthumbnailUrl(AIndex : Integer; const AValue : String); - -begin - If (FthumbnailUrl=AValue) then exit; - FthumbnailUrl:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SettickerSymbol(AIndex : Integer; const AValue : String); - -begin - If (FtickerSymbol=AValue) then exit; - FtickerSymbol:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Set_type(AIndex : Integer; const AValue : String); - -begin - If (F_type=AValue) then exit; - F_type:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Seturl(AIndex : Integer; const AValue : String); - -begin - If (Furl=AValue) then exit; - Furl:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.Setwidth(AIndex : Integer; const AValue : String); - -begin - If (Fwidth=AValue) then exit; - Fwidth:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TItemScope.SetworstRating(AIndex : Integer; const AValue : String); - -begin - If (FworstRating=AValue) then exit; - FworstRating:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Class Function TItemScope.ExportPropertyName(Const AName : String) :String; - -begin - Case AName of - '_type' : Result:='type'; - else - Result:=Inherited ExportPropertyName(AName); - end; -end; - -//2.6.4. bug workaround -{$IFDEF VER2_6} -Procedure TItemScope.SetArrayLength(Const AName : String; ALength : Longint); - -begin - Case AName of - 'additionalname' : SetLength(FadditionalName,ALength); - 'associated_media' : SetLength(Fassociated_media,ALength); - 'attendees' : SetLength(Fattendees,ALength); - 'author' : SetLength(Fauthor,ALength); - 'contributor' : SetLength(Fcontributor,ALength); - 'performers' : SetLength(Fperformers,ALength); - else - Inherited SetArrayLength(AName,ALength); - end; -end; -{$ENDIF VER2_6} - - - - -{ -------------------------------------------------------------------- - TMoment - --------------------------------------------------------------------} - - -Procedure TMoment.Setid(AIndex : Integer; const AValue : String); - -begin - If (Fid=AValue) then exit; - Fid:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMoment.Setkind(AIndex : Integer; const AValue : String); - -begin - If (Fkind=AValue) then exit; - Fkind:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMoment.Set_object(AIndex : Integer; AValue : TItemScope); - -begin - If (F_object=AValue) then exit; - F_object:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMoment.Setresult(AIndex : Integer; AValue : TItemScope); - -begin - If (Fresult=AValue) then exit; - Fresult:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMoment.SetstartDate(AIndex : Integer; AValue : TDatetime); - -begin - If (FstartDate=AValue) then exit; - FstartDate:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMoment.Settarget(AIndex : Integer; AValue : TItemScope); - -begin - If (Ftarget=AValue) then exit; - Ftarget:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMoment.Set_type(AIndex : Integer; const AValue : String); - -begin - If (F_type=AValue) then exit; - F_type:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Class Function TMoment.ExportPropertyName(Const AName : String) :String; - -begin - Case AName of - '_object' : Result:='object'; - '_type' : Result:='type'; - else - Result:=Inherited ExportPropertyName(AName); - end; -end; - - - - -{ -------------------------------------------------------------------- - TMomentsFeed - --------------------------------------------------------------------} - - -Procedure TMomentsFeed.Setetag(AIndex : Integer; const AValue : String); - -begin - If (Fetag=AValue) then exit; - Fetag:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMomentsFeed.Setitems(AIndex : Integer; AValue : TMomentsFeedTypeitemsArray); - -begin - If (Fitems=AValue) then exit; - Fitems:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMomentsFeed.Setkind(AIndex : Integer; const AValue : String); - -begin - If (Fkind=AValue) then exit; - Fkind:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMomentsFeed.SetnextLink(AIndex : Integer; const AValue : String); - -begin - If (FnextLink=AValue) then exit; - FnextLink:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMomentsFeed.SetnextPageToken(AIndex : Integer; const AValue : String); - -begin - If (FnextPageToken=AValue) then exit; - FnextPageToken:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMomentsFeed.SetselfLink(AIndex : Integer; const AValue : String); - -begin - If (FselfLink=AValue) then exit; - FselfLink:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMomentsFeed.Settitle(AIndex : Integer; const AValue : String); - -begin - If (Ftitle=AValue) then exit; - Ftitle:=AValue; - MarkPropertyChanged(AIndex); -end; - - - -Procedure TMomentsFeed.Setupdated(AIndex : Integer; AValue : TDatetime); - -begin - If (Fupdated=AValue) then exit; - Fupdated:=AValue; - MarkPropertyChanged(AIndex); -end; - - -//2.6.4. bug workaround -{$IFDEF VER2_6} -Procedure TMomentsFeed.SetArrayLength(Const AName : String; ALength : Longint); - -begin - Case AName of - 'items' : SetLength(Fitems,ALength); - else - Inherited SetArrayLength(AName,ALength); - end; -end; -{$ENDIF VER2_6} - - - - -{ -------------------------------------------------------------------- TPeopleFeed --------------------------------------------------------------------} @@ -4036,7 +3321,7 @@ end; -Procedure TPeopleFeed.Setitems(AIndex : Integer; AValue : TPeopleFeedTypeitemsArray); +Procedure TPeopleFeed.Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray); begin If (Fitems=AValue) then exit; @@ -4086,7 +3371,7 @@ end; -Procedure TPeopleFeed.SettotalItems(AIndex : Integer; AValue : integer); +Procedure TPeopleFeed.SettotalItems(AIndex : Integer; const AValue : integer); begin If (FtotalItems=AValue) then exit; @@ -4116,7 +3401,7 @@ end; --------------------------------------------------------------------} -Procedure TPersonTypeageRange.Setmax(AIndex : Integer; AValue : integer); +Procedure TPersonTypeageRange.Setmax(AIndex : Integer; const AValue : integer); begin If (Fmax=AValue) then exit; @@ -4126,7 +3411,7 @@ end; -Procedure TPersonTypeageRange.Setmin(AIndex : Integer; AValue : integer); +Procedure TPersonTypeageRange.Setmin(AIndex : Integer; const AValue : integer); begin If (Fmin=AValue) then exit; @@ -4143,7 +3428,7 @@ end; --------------------------------------------------------------------} -Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; AValue : integer); +Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; const AValue : integer); begin If (FleftImageOffset=AValue) then exit; @@ -4153,7 +3438,7 @@ end; -Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; AValue : integer); +Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; const AValue : integer); begin If (FtopImageOffset=AValue) then exit; @@ -4170,7 +3455,7 @@ end; --------------------------------------------------------------------} -Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; AValue : integer); +Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; @@ -4190,7 +3475,7 @@ end; -Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; AValue : integer); +Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; @@ -4207,7 +3492,7 @@ end; --------------------------------------------------------------------} -Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; AValue : TPersonTypecoverTypecoverInfo); +Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo); begin If (FcoverInfo=AValue) then exit; @@ -4217,7 +3502,7 @@ end; -Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; AValue : TPersonTypecoverTypecoverPhoto); +Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto); begin If (FcoverPhoto=AValue) then exit; @@ -4282,7 +3567,7 @@ end; --------------------------------------------------------------------} -Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; AValue : boolean); +Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; const AValue : boolean); begin If (FisDefault=AValue) then exit; @@ -4426,7 +3711,7 @@ end; -Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; AValue : boolean); +Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; const AValue : boolean); begin If (Fprimary=AValue) then exit; @@ -4484,7 +3769,7 @@ end; --------------------------------------------------------------------} -Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; AValue : boolean); +Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; const AValue : boolean); begin If (Fprimary=AValue) then exit; @@ -4570,7 +3855,7 @@ end; -Procedure TPerson.SetageRange(AIndex : Integer; AValue : TPersonTypeageRange); +Procedure TPerson.SetageRange(AIndex : Integer; const AValue : TPersonTypeageRange); begin If (FageRange=AValue) then exit; @@ -4600,7 +3885,7 @@ end; -Procedure TPerson.SetcircledByCount(AIndex : Integer; AValue : integer); +Procedure TPerson.SetcircledByCount(AIndex : Integer; const AValue : integer); begin If (FcircledByCount=AValue) then exit; @@ -4610,7 +3895,7 @@ end; -Procedure TPerson.Setcover(AIndex : Integer; AValue : TPersonTypecover); +Procedure TPerson.Setcover(AIndex : Integer; const AValue : TPersonTypecover); begin If (Fcover=AValue) then exit; @@ -4650,7 +3935,7 @@ end; -Procedure TPerson.Setemails(AIndex : Integer; AValue : TPersonTypeemailsArray); +Procedure TPerson.Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray); begin If (Femails=AValue) then exit; @@ -4690,7 +3975,7 @@ end; -Procedure TPerson.Setimage(AIndex : Integer; AValue : TPersonTypeimage); +Procedure TPerson.Setimage(AIndex : Integer; const AValue : TPersonTypeimage); begin If (Fimage=AValue) then exit; @@ -4700,7 +3985,7 @@ end; -Procedure TPerson.SetisPlusUser(AIndex : Integer; AValue : boolean); +Procedure TPerson.SetisPlusUser(AIndex : Integer; const AValue : boolean); begin If (FisPlusUser=AValue) then exit; @@ -4730,7 +4015,7 @@ end; -Procedure TPerson.Setname(AIndex : Integer; AValue : TPersonTypename); +Procedure TPerson.Setname(AIndex : Integer; const AValue : TPersonTypename); begin If (Fname=AValue) then exit; @@ -4770,7 +4055,7 @@ end; -Procedure TPerson.Setorganizations(AIndex : Integer; AValue : TPersonTypeorganizationsArray); +Procedure TPerson.Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray); begin If (Forganizations=AValue) then exit; @@ -4780,7 +4065,7 @@ end; -Procedure TPerson.SetplacesLived(AIndex : Integer; AValue : TPersonTypeplacesLivedArray); +Procedure TPerson.SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray); begin If (FplacesLived=AValue) then exit; @@ -4790,7 +4075,7 @@ end; -Procedure TPerson.SetplusOneCount(AIndex : Integer; AValue : integer); +Procedure TPerson.SetplusOneCount(AIndex : Integer; const AValue : integer); begin If (FplusOneCount=AValue) then exit; @@ -4840,7 +4125,7 @@ end; -Procedure TPerson.Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray); +Procedure TPerson.Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray); begin If (Furls=AValue) then exit; @@ -4850,7 +4135,7 @@ end; -Procedure TPerson.Setverified(AIndex : Integer; AValue : boolean); +Procedure TPerson.Setverified(AIndex : Integer; const AValue : boolean); begin If (Fverified=AValue) then exit; @@ -4900,7 +4185,7 @@ end; --------------------------------------------------------------------} -Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; AValue : double); +Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; const AValue : double); begin If (Flatitude=AValue) then exit; @@ -4910,7 +4195,7 @@ end; -Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; AValue : double); +Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; const AValue : double); begin If (Flongitude=AValue) then exit; @@ -4927,7 +4212,7 @@ end; --------------------------------------------------------------------} -Procedure TPlace.Setaddress(AIndex : Integer; AValue : TPlaceTypeaddress); +Procedure TPlace.Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress); begin If (Faddress=AValue) then exit; @@ -4967,7 +4252,7 @@ end; -Procedure TPlace.Setposition(AIndex : Integer; AValue : TPlaceTypeposition); +Procedure TPlace.Setposition(AIndex : Integer; const AValue : TPlaceTypeposition); begin If (Fposition=AValue) then exit; @@ -5180,97 +4465,6 @@ end; { -------------------------------------------------------------------- - TMomentsResource - --------------------------------------------------------------------} - - -Class Function TMomentsResource.ResourceName : String; - -begin - Result:='moments'; -end; - -Class Function TMomentsResource.DefaultAPI : TGoogleAPIClass; - -begin - Result:=TplusAPI; -end; - -Function TMomentsResource.Insert(collection: string; userId: string; aMoment : TMoment; AQuery : string = '') : TMoment; - -Const - _HTTPMethod = 'POST'; - _Path = 'people/{userId}/moments/{collection}'; - _Methodid = 'plus.moments.insert'; - -Var - _P : String; - -begin - _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]); - Result:=ServiceCall(_HTTPMethod,_P,AQuery,aMoment,TMoment) as TMoment; -end; - - -Function TMomentsResource.Insert(collection: string; userId: string; aMoment : TMoment; AQuery : TMomentsinsertOptions) : TMoment; - -Var - _Q : String; - -begin - _Q:=''; - AddToQuery(_Q,'debug',AQuery.debug); - Result:=Insert(collection,userId,aMoment,_Q); -end; - -Function TMomentsResource.List(collection: string; userId: string; AQuery : string = '') : TMomentsFeed; - -Const - _HTTPMethod = 'GET'; - _Path = 'people/{userId}/moments/{collection}'; - _Methodid = 'plus.moments.list'; - -Var - _P : String; - -begin - _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]); - Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMomentsFeed) as TMomentsFeed; -end; - - -Function TMomentsResource.List(collection: string; userId: string; AQuery : TMomentslistOptions) : TMomentsFeed; - -Var - _Q : String; - -begin - _Q:=''; - AddToQuery(_Q,'maxResults',AQuery.maxResults); - AddToQuery(_Q,'pageToken',AQuery.pageToken); - AddToQuery(_Q,'targetUrl',AQuery.targetUrl); - AddToQuery(_Q,'type',AQuery._type); - Result:=List(collection,userId,_Q); -end; - -Procedure TMomentsResource.Remove(id: string); - -Const - _HTTPMethod = 'DELETE'; - _Path = 'moments/{id}'; - _Methodid = 'plus.moments.remove'; - -Var - _P : String; - -begin - _P:=SubstitutePath(_Path,['id',id]); - ServiceCall(_HTTPMethod,_P,'',Nil,Nil); -end; - - - -{ -------------------------------------------------------------------- TPeopleResource --------------------------------------------------------------------} @@ -5406,7 +4600,7 @@ end; Class Function TPlusAPI.APIRevision : String; begin - Result:='20150302'; + Result:='20160521'; end; Class Function TPlusAPI.APIID : String; @@ -5424,7 +4618,7 @@ end; Class Function TPlusAPI.APIDescription : String; begin - Result:='The Google+ API enables developers to build on top of the Google+ platform.'; + Result:='Builds on top of the Google+ platform.'; end; Class Function TPlusAPI.APIOwnerDomain : String; @@ -5460,7 +4654,7 @@ end; Class Function TPlusAPI.APIrootUrl : string; begin - Result:='https://www.googleapis.com:443/'; + Result:='https://www.googleapis.com/'; end; Class Function TPlusAPI.APIbasePath : string; @@ -5472,7 +4666,7 @@ end; Class Function TPlusAPI.APIbaseURL : String; begin - Result:='https://www.googleapis.com:443/plus/v1/'; + Result:='https://www.googleapis.com/plus/v1/'; end; Class Function TPlusAPI.APIProtocol : string; @@ -5498,7 +4692,7 @@ Class Function TPlusAPI.APIAuthScopes : TScopeInfoArray; begin SetLength(Result,4); Result[0].Name:='https://www.googleapis.com/auth/plus.login'; - Result[0].Description:='Know your basic profile info and list of people in your circles.'; + Result[0].Description:='Know the list of people in your circles, your age range, and language'; Result[1].Name:='https://www.googleapis.com/auth/plus.me'; Result[1].Description:='Know who you are on Google'; Result[2].Name:='https://www.googleapis.com/auth/userinfo.email'; @@ -5518,10 +4712,16 @@ Class Procedure TPlusAPI.RegisterAPIResources; begin TAcl.RegisterObject; + TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject; + TActivityTypeactorTypeclientSpecificActorInfo.RegisterObject; TActivityTypeactorTypeimage.RegisterObject; TActivityTypeactorTypename.RegisterObject; + TActivityTypeactorTypeverification.RegisterObject; TActivityTypeactor.RegisterObject; + TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject; + TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.RegisterObject; TActivityTypeobjectTypeactorTypeimage.RegisterObject; + TActivityTypeobjectTypeactorTypeverification.RegisterObject; TActivityTypeobjectTypeactor.RegisterObject; TActivityTypeobjectTypeattachmentsItemTypeembed.RegisterObject; TActivityTypeobjectTypeattachmentsItemTypefullImage.RegisterObject; @@ -5536,16 +4736,16 @@ begin TActivityTypeprovider.RegisterObject; TActivity.RegisterObject; TActivityFeed.RegisterObject; + TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject; + TCommentTypeactorTypeclientSpecificActorInfo.RegisterObject; TCommentTypeactorTypeimage.RegisterObject; + TCommentTypeactorTypeverification.RegisterObject; TCommentTypeactor.RegisterObject; TCommentTypeinReplyToItem.RegisterObject; TCommentTypeobject.RegisterObject; TCommentTypeplusoners.RegisterObject; TComment.RegisterObject; TCommentFeed.RegisterObject; - TItemScope.RegisterObject; - TMoment.RegisterObject; - TMomentsFeed.RegisterObject; TPeopleFeed.RegisterObject; TPersonTypeageRange.RegisterObject; TPersonTypecoverTypecoverInfo.RegisterObject; @@ -5613,30 +4813,6 @@ end; -Function TPlusAPI.GetMomentsInstance : TMomentsResource; - -begin - if (FMomentsInstance=Nil) then - FMomentsInstance:=CreateMomentsResource; - Result:=FMomentsInstance; -end; - -Function TPlusAPI.CreateMomentsResource : TMomentsResource; - -begin - Result:=CreateMomentsResource(Self); -end; - - -Function TPlusAPI.CreateMomentsResource(AOwner : TComponent) : TMomentsResource; - -begin - Result:=TMomentsResource.Create(AOwner); - Result.API:=Self.API; -end; - - - Function TPlusAPI.GetPeopleInstance : TPeopleResource; begin |