freepascal.compiler/packages/googleapi/src/googleblogger.pp

unit googleblogger;
{$MODE objfpc}
{$H+}

interface

uses sysutils, classes, googleservice, restbase, googlebase;

type
  
  //Top-level schema types
  TBlog = Class;
  TBlogList = Class;
  TBlogPerUserInfo = Class;
  TBlogUserInfo = Class;
  TComment = Class;
  TCommentList = Class;
  TPage = Class;
  TPageList = Class;
  TPageviews = Class;
  TPost = Class;
  TPostList = Class;
  TPostPerUserInfo = Class;
  TPostUserInfo = Class;
  TPostUserInfosList = Class;
  TUser = Class;
  TBlogArray = Array of TBlog;
  TBlogListArray = Array of TBlogList;
  TBlogPerUserInfoArray = Array of TBlogPerUserInfo;
  TBlogUserInfoArray = Array of TBlogUserInfo;
  TCommentArray = Array of TComment;
  TCommentListArray = Array of TCommentList;
  TPageArray = Array of TPage;
  TPageListArray = Array of TPageList;
  TPageviewsArray = Array of TPageviews;
  TPostArray = Array of TPost;
  TPostListArray = Array of TPostList;
  TPostPerUserInfoArray = Array of TPostPerUserInfo;
  TPostUserInfoArray = Array of TPostUserInfo;
  TPostUserInfosListArray = Array of TPostUserInfosList;
  TUserArray = Array of TUser;
  //Anonymous types, using auto-generated names
  TBlogTypelocale = Class;
  TBlogTypepages = Class;
  TBlogTypeposts = Class;
  TCommentTypeauthorTypeimage = Class;
  TCommentTypeauthor = Class;
  TCommentTypeblog = Class;
  TCommentTypeinReplyTo = Class;
  TCommentTypepost = Class;
  TPageTypeauthorTypeimage = Class;
  TPageTypeauthor = Class;
  TPageTypeblog = Class;
  TPageviewsTypecountsItem = Class;
  TPostTypeauthorTypeimage = Class;
  TPostTypeauthor = Class;
  TPostTypeblog = Class;
  TPostTypeimagesItem = Class;
  TPostTypelocation = Class;
  TPostTypereplies = Class;
  TUserTypeblogs = Class;
  TUserTypelocale = Class;
  TBlogTypepostsTypeitemsArray = Array of TPost;
  TBlogListTypeblogUserInfosArray = Array of TBlogUserInfo;
  TBlogListTypeitemsArray = Array of TBlog;
  TCommentListTypeitemsArray = Array of TComment;
  TPageListTypeitemsArray = Array of TPage;
  TPageviewsTypecountsArray = Array of TPageviewsTypecountsItem;
  TPostTypeimagesArray = Array of TPostTypeimagesItem;
  TPostTyperepliesTypeitemsArray = Array of TComment;
  TPostListTypeitemsArray = Array of TPost;
  TPostUserInfosListTypeitemsArray = Array of TPostUserInfo;
  
  { --------------------------------------------------------------------
    TBlogTypelocale
    --------------------------------------------------------------------}
  
  TBlogTypelocale = Class(TGoogleBaseObject)
  Private
    Fcountry : String;
    Flanguage : String;
    Fvariant : String;
  Protected
    //Property setters
    Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvariant(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property country : String Index 0 Read Fcountry Write Setcountry;
    Property language : String Index 8 Read Flanguage Write Setlanguage;
    Property variant : String Index 16 Read Fvariant Write Setvariant;
  end;
  TBlogTypelocaleClass = Class of TBlogTypelocale;
  
  { --------------------------------------------------------------------
    TBlogTypepages
    --------------------------------------------------------------------}
  
  TBlogTypepages = Class(TGoogleBaseObject)
  Private
    FselfLink : String;
    FtotalItems : integer;
  Protected
    //Property setters
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  Public
  Published
    Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
    Property totalItems : integer Index 8 Read FtotalItems Write SettotalItems;
  end;
  TBlogTypepagesClass = Class of TBlogTypepages;
  
  { --------------------------------------------------------------------
    TBlogTypeposts
    --------------------------------------------------------------------}
  
  TBlogTypeposts = Class(TGoogleBaseObject)
  Private
    Fitems : TBlogTypepostsTypeitemsArray;
    FselfLink : String;
    FtotalItems : integer;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TBlogTypepostsTypeitemsArray); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TBlogTypepostsTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property selfLink : String Index 8 Read FselfLink Write SetselfLink;
    Property totalItems : integer Index 16 Read FtotalItems Write SettotalItems;
  end;
  TBlogTypepostsClass = Class of TBlogTypeposts;
  
  { --------------------------------------------------------------------
    TBlog
    --------------------------------------------------------------------}
  
  TBlog = Class(TGoogleBaseObject)
  Private
    FcustomMetaData : String;
    Fdescription : String;
    Fid : String;
    Fkind : String;
    Flocale : TBlogTypelocale;
    Fname : String;
    Fpages : TBlogTypepages;
    Fposts : TBlogTypeposts;
    F_published : TDatetime;
    FselfLink : String;
    Fstatus : String;
    Fupdated : TDatetime;
    Furl : String;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure SetcustomMetaData(AIndex : Integer; const AValue : String); virtual;
    Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlocale(AIndex : Integer; const AValue : TBlogTypelocale); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpages(AIndex : Integer; const AValue : TBlogTypepages); virtual;
    Procedure Setposts(AIndex : Integer; const AValue : TBlogTypeposts); virtual;
    Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property customMetaData : String Index 0 Read FcustomMetaData Write SetcustomMetaData;
    Property description : String Index 8 Read Fdescription Write Setdescription;
    Property id : String Index 16 Read Fid Write Setid;
    Property kind : String Index 24 Read Fkind Write Setkind;
    Property locale : TBlogTypelocale Index 32 Read Flocale Write Setlocale;
    Property name : String Index 40 Read Fname Write Setname;
    Property pages : TBlogTypepages Index 48 Read Fpages Write Setpages;
    Property posts : TBlogTypeposts Index 56 Read Fposts Write Setposts;
    Property _published : TDatetime Index 64 Read F_published Write Set_published;
    Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
    Property status : String Index 80 Read Fstatus Write Setstatus;
    Property updated : TDatetime Index 88 Read Fupdated Write Setupdated;
    Property url : String Index 96 Read Furl Write Seturl;
  end;
  TBlogClass = Class of TBlog;
  
  { --------------------------------------------------------------------
    TBlogList
    --------------------------------------------------------------------}
  
  TBlogList = Class(TGoogleBaseObject)
  Private
    FblogUserInfos : TBlogListTypeblogUserInfosArray;
    Fitems : TBlogListTypeitemsArray;
    Fkind : String;
  Protected
    //Property setters
    Procedure SetblogUserInfos(AIndex : Integer; const AValue : TBlogListTypeblogUserInfosArray); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TBlogListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property blogUserInfos : TBlogListTypeblogUserInfosArray Index 0 Read FblogUserInfos Write SetblogUserInfos;
    Property items : TBlogListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TBlogListClass = Class of TBlogList;
  
  { --------------------------------------------------------------------
    TBlogPerUserInfo
    --------------------------------------------------------------------}
  
  TBlogPerUserInfo = Class(TGoogleBaseObject)
  Private
    FblogId : String;
    FhasAdminAccess : boolean;
    Fkind : String;
    FphotosAlbumKey : String;
    Frole : String;
    FuserId : String;
  Protected
    //Property setters
    Procedure SetblogId(AIndex : Integer; const AValue : String); virtual;
    Procedure SethasAdminAccess(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetphotosAlbumKey(AIndex : Integer; const AValue : String); virtual;
    Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
    Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property blogId : String Index 0 Read FblogId Write SetblogId;
    Property hasAdminAccess : boolean Index 8 Read FhasAdminAccess Write SethasAdminAccess;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property photosAlbumKey : String Index 24 Read FphotosAlbumKey Write SetphotosAlbumKey;
    Property role : String Index 32 Read Frole Write Setrole;
    Property userId : String Index 40 Read FuserId Write SetuserId;
  end;
  TBlogPerUserInfoClass = Class of TBlogPerUserInfo;
  
  { --------------------------------------------------------------------
    TBlogUserInfo
    --------------------------------------------------------------------}
  
  TBlogUserInfo = Class(TGoogleBaseObject)
  Private
    Fblog : TBlog;
    Fblog_user_info : TBlogPerUserInfo;
    Fkind : String;
  Protected
    //Property setters
    Procedure Setblog(AIndex : Integer; const AValue : TBlog); virtual;
    Procedure Setblog_user_info(AIndex : Integer; const AValue : TBlogPerUserInfo); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property blog : TBlog Index 0 Read Fblog Write Setblog;
    Property blog_user_info : TBlogPerUserInfo Index 8 Read Fblog_user_info Write Setblog_user_info;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TBlogUserInfoClass = Class of TBlogUserInfo;
  
  { --------------------------------------------------------------------
    TCommentTypeauthorTypeimage
    --------------------------------------------------------------------}
  
  TCommentTypeauthorTypeimage = Class(TGoogleBaseObject)
  Private
    Furl : String;
  Protected
    //Property setters
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property url : String Index 0 Read Furl Write Seturl;
  end;
  TCommentTypeauthorTypeimageClass = Class of TCommentTypeauthorTypeimage;
  
  { --------------------------------------------------------------------
    TCommentTypeauthor
    --------------------------------------------------------------------}
  
  TCommentTypeauthor = Class(TGoogleBaseObject)
  Private
    FdisplayName : String;
    Fid : String;
    Fimage : TCommentTypeauthorTypeimage;
    Furl : String;
  Protected
    //Property setters
    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setimage(AIndex : Integer; const AValue : TCommentTypeauthorTypeimage); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
    Property id : String Index 8 Read Fid Write Setid;
    Property image : TCommentTypeauthorTypeimage Index 16 Read Fimage Write Setimage;
    Property url : String Index 24 Read Furl Write Seturl;
  end;
  TCommentTypeauthorClass = Class of TCommentTypeauthor;
  
  { --------------------------------------------------------------------
    TCommentTypeblog
    --------------------------------------------------------------------}
  
  TCommentTypeblog = Class(TGoogleBaseObject)
  Private
    Fid : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
  end;
  TCommentTypeblogClass = Class of TCommentTypeblog;
  
  { --------------------------------------------------------------------
    TCommentTypeinReplyTo
    --------------------------------------------------------------------}
  
  TCommentTypeinReplyTo = Class(TGoogleBaseObject)
  Private
    Fid : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
  end;
  TCommentTypeinReplyToClass = Class of TCommentTypeinReplyTo;
  
  { --------------------------------------------------------------------
    TCommentTypepost
    --------------------------------------------------------------------}
  
  TCommentTypepost = Class(TGoogleBaseObject)
  Private
    Fid : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
  end;
  TCommentTypepostClass = Class of TCommentTypepost;
  
  { --------------------------------------------------------------------
    TComment
    --------------------------------------------------------------------}
  
  TComment = Class(TGoogleBaseObject)
  Private
    Fauthor : TCommentTypeauthor;
    Fblog : TCommentTypeblog;
    Fcontent : String;
    Fid : String;
    FinReplyTo : TCommentTypeinReplyTo;
    Fkind : String;
    Fpost : TCommentTypepost;
    F_published : TDatetime;
    FselfLink : String;
    Fstatus : String;
    Fupdated : TDatetime;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure Setauthor(AIndex : Integer; const AValue : TCommentTypeauthor); virtual;
    Procedure Setblog(AIndex : Integer; const AValue : TCommentTypeblog); virtual;
    Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyTo); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpost(AIndex : Integer; const AValue : TCommentTypepost); virtual;
    Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
  Public
  Published
    Property author : TCommentTypeauthor Index 0 Read Fauthor Write Setauthor;
    Property blog : TCommentTypeblog Index 8 Read Fblog Write Setblog;
    Property content : String Index 16 Read Fcontent Write Setcontent;
    Property id : String Index 24 Read Fid Write Setid;
    Property inReplyTo : TCommentTypeinReplyTo Index 32 Read FinReplyTo Write SetinReplyTo;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property post : TCommentTypepost Index 48 Read Fpost Write Setpost;
    Property _published : TDatetime Index 56 Read F_published Write Set_published;
    Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
    Property status : String Index 72 Read Fstatus Write Setstatus;
    Property updated : TDatetime Index 80 Read Fupdated Write Setupdated;
  end;
  TCommentClass = Class of TComment;
  
  { --------------------------------------------------------------------
    TCommentList
    --------------------------------------------------------------------}
  
  TCommentList = Class(TGoogleBaseObject)
  Private
    Fetag : String;
    Fitems : TCommentListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
    FprevPageToken : String;
  Protected
    //Property setters
    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TCommentListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
    //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 : TCommentListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
    Property prevPageToken : String Index 32 Read FprevPageToken Write SetprevPageToken;
  end;
  TCommentListClass = Class of TCommentList;
  
  { --------------------------------------------------------------------
    TPageTypeauthorTypeimage
    --------------------------------------------------------------------}
  
  TPageTypeauthorTypeimage = Class(TGoogleBaseObject)
  Private
    Furl : String;
  Protected
    //Property setters
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property url : String Index 0 Read Furl Write Seturl;
  end;
  TPageTypeauthorTypeimageClass = Class of TPageTypeauthorTypeimage;
  
  { --------------------------------------------------------------------
    TPageTypeauthor
    --------------------------------------------------------------------}
  
  TPageTypeauthor = Class(TGoogleBaseObject)
  Private
    FdisplayName : String;
    Fid : String;
    Fimage : TPageTypeauthorTypeimage;
    Furl : String;
  Protected
    //Property setters
    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setimage(AIndex : Integer; const AValue : TPageTypeauthorTypeimage); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
    Property id : String Index 8 Read Fid Write Setid;
    Property image : TPageTypeauthorTypeimage Index 16 Read Fimage Write Setimage;
    Property url : String Index 24 Read Furl Write Seturl;
  end;
  TPageTypeauthorClass = Class of TPageTypeauthor;
  
  { --------------------------------------------------------------------
    TPageTypeblog
    --------------------------------------------------------------------}
  
  TPageTypeblog = Class(TGoogleBaseObject)
  Private
    Fid : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
  end;
  TPageTypeblogClass = Class of TPageTypeblog;
  
  { --------------------------------------------------------------------
    TPage
    --------------------------------------------------------------------}
  
  TPage = Class(TGoogleBaseObject)
  Private
    Fauthor : TPageTypeauthor;
    Fblog : TPageTypeblog;
    Fcontent : String;
    Fetag : String;
    Fid : String;
    Fkind : String;
    F_published : TDatetime;
    FselfLink : String;
    Fstatus : String;
    Ftitle : String;
    Fupdated : TDatetime;
    Furl : String;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure Setauthor(AIndex : Integer; const AValue : TPageTypeauthor); virtual;
    Procedure Setblog(AIndex : Integer; const AValue : TPageTypeblog); virtual;
    Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
    Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property author : TPageTypeauthor Index 0 Read Fauthor Write Setauthor;
    Property blog : TPageTypeblog Index 8 Read Fblog Write Setblog;
    Property content : String Index 16 Read Fcontent Write Setcontent;
    Property etag : String Index 24 Read Fetag Write Setetag;
    Property id : String Index 32 Read Fid Write Setid;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property _published : TDatetime Index 48 Read F_published Write Set_published;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property status : String Index 64 Read Fstatus Write Setstatus;
    Property title : String Index 72 Read Ftitle Write Settitle;
    Property updated : TDatetime Index 80 Read Fupdated Write Setupdated;
    Property url : String Index 88 Read Furl Write Seturl;
  end;
  TPageClass = Class of TPage;
  
  { --------------------------------------------------------------------
    TPageList
    --------------------------------------------------------------------}
  
  TPageList = Class(TGoogleBaseObject)
  Private
    Fetag : String;
    Fitems : TPageListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TPageListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$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 : TPageListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
  end;
  TPageListClass = Class of TPageList;
  
  { --------------------------------------------------------------------
    TPageviewsTypecountsItem
    --------------------------------------------------------------------}
  
  TPageviewsTypecountsItem = Class(TGoogleBaseObject)
  Private
    Fcount : String;
    FtimeRange : String;
  Protected
    //Property setters
    Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
    Procedure SettimeRange(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property count : String Index 0 Read Fcount Write Setcount;
    Property timeRange : String Index 8 Read FtimeRange Write SettimeRange;
  end;
  TPageviewsTypecountsItemClass = Class of TPageviewsTypecountsItem;
  
  { --------------------------------------------------------------------
    TPageviews
    --------------------------------------------------------------------}
  
  TPageviews = Class(TGoogleBaseObject)
  Private
    FblogId : String;
    Fcounts : TPageviewsTypecountsArray;
    Fkind : String;
  Protected
    //Property setters
    Procedure SetblogId(AIndex : Integer; const AValue : String); virtual;
    Procedure Setcounts(AIndex : Integer; const AValue : TPageviewsTypecountsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property blogId : String Index 0 Read FblogId Write SetblogId;
    Property counts : TPageviewsTypecountsArray Index 8 Read Fcounts Write Setcounts;
    Property kind : String Index 16 Read Fkind Write Setkind;
  end;
  TPageviewsClass = Class of TPageviews;
  
  { --------------------------------------------------------------------
    TPostTypeauthorTypeimage
    --------------------------------------------------------------------}
  
  TPostTypeauthorTypeimage = Class(TGoogleBaseObject)
  Private
    Furl : String;
  Protected
    //Property setters
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property url : String Index 0 Read Furl Write Seturl;
  end;
  TPostTypeauthorTypeimageClass = Class of TPostTypeauthorTypeimage;
  
  { --------------------------------------------------------------------
    TPostTypeauthor
    --------------------------------------------------------------------}
  
  TPostTypeauthor = Class(TGoogleBaseObject)
  Private
    FdisplayName : String;
    Fid : String;
    Fimage : TPostTypeauthorTypeimage;
    Furl : String;
  Protected
    //Property setters
    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setimage(AIndex : Integer; const AValue : TPostTypeauthorTypeimage); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
    Property id : String Index 8 Read Fid Write Setid;
    Property image : TPostTypeauthorTypeimage Index 16 Read Fimage Write Setimage;
    Property url : String Index 24 Read Furl Write Seturl;
  end;
  TPostTypeauthorClass = Class of TPostTypeauthor;
  
  { --------------------------------------------------------------------
    TPostTypeblog
    --------------------------------------------------------------------}
  
  TPostTypeblog = Class(TGoogleBaseObject)
  Private
    Fid : String;
  Protected
    //Property setters
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property id : String Index 0 Read Fid Write Setid;
  end;
  TPostTypeblogClass = Class of TPostTypeblog;
  
  { --------------------------------------------------------------------
    TPostTypeimagesItem
    --------------------------------------------------------------------}
  
  TPostTypeimagesItem = Class(TGoogleBaseObject)
  Private
    Furl : String;
  Protected
    //Property setters
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property url : String Index 0 Read Furl Write Seturl;
  end;
  TPostTypeimagesItemClass = Class of TPostTypeimagesItem;
  
  { --------------------------------------------------------------------
    TPostTypelocation
    --------------------------------------------------------------------}
  
  TPostTypelocation = Class(TGoogleBaseObject)
  Private
    Flat : double;
    Flng : double;
    Fname : String;
    Fspan : String;
  Protected
    //Property setters
    Procedure Setlat(AIndex : Integer; const AValue : double); virtual;
    Procedure Setlng(AIndex : Integer; const AValue : double); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setspan(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property lat : double Index 0 Read Flat Write Setlat;
    Property lng : double Index 8 Read Flng Write Setlng;
    Property name : String Index 16 Read Fname Write Setname;
    Property span : String Index 24 Read Fspan Write Setspan;
  end;
  TPostTypelocationClass = Class of TPostTypelocation;
  
  { --------------------------------------------------------------------
    TPostTypereplies
    --------------------------------------------------------------------}
  
  TPostTypereplies = Class(TGoogleBaseObject)
  Private
    Fitems : TPostTyperepliesTypeitemsArray;
    FselfLink : String;
    FtotalItems : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TPostTyperepliesTypeitemsArray); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure SettotalItems(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TPostTyperepliesTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property selfLink : String Index 8 Read FselfLink Write SetselfLink;
    Property totalItems : String Index 16 Read FtotalItems Write SettotalItems;
  end;
  TPostTyperepliesClass = Class of TPostTypereplies;
  
  { --------------------------------------------------------------------
    TPost
    --------------------------------------------------------------------}
  
  TPost = Class(TGoogleBaseObject)
  Private
    Fauthor : TPostTypeauthor;
    Fblog : TPostTypeblog;
    Fcontent : String;
    FcustomMetaData : String;
    Fetag : String;
    Fid : String;
    Fimages : TPostTypeimagesArray;
    Fkind : String;
    Flabels : TStringArray;
    Flocation : TPostTypelocation;
    F_published : TDatetime;
    FreaderComments : String;
    Freplies : TPostTypereplies;
    FselfLink : String;
    Fstatus : String;
    Ftitle : String;
    FtitleLink : String;
    Fupdated : TDatetime;
    Furl : String;
  Protected
    Class Function ExportPropertyName(Const AName : String) : string; override;
    //Property setters
    Procedure Setauthor(AIndex : Integer; const AValue : TPostTypeauthor); virtual;
    Procedure Setblog(AIndex : Integer; const AValue : TPostTypeblog); virtual;
    Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
    Procedure SetcustomMetaData(AIndex : Integer; const AValue : String); virtual;
    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setimages(AIndex : Integer; const AValue : TPostTypeimagesArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlabels(AIndex : Integer; const AValue : TStringArray); virtual;
    Procedure Setlocation(AIndex : Integer; const AValue : TPostTypelocation); virtual;
    Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure SetreaderComments(AIndex : Integer; const AValue : String); virtual;
    Procedure Setreplies(AIndex : Integer; const AValue : TPostTypereplies); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
    Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
    Procedure SettitleLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure Seturl(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 author : TPostTypeauthor Index 0 Read Fauthor Write Setauthor;
    Property blog : TPostTypeblog Index 8 Read Fblog Write Setblog;
    Property content : String Index 16 Read Fcontent Write Setcontent;
    Property customMetaData : String Index 24 Read FcustomMetaData Write SetcustomMetaData;
    Property etag : String Index 32 Read Fetag Write Setetag;
    Property id : String Index 40 Read Fid Write Setid;
    Property images : TPostTypeimagesArray Index 48 Read Fimages Write Setimages;
    Property kind : String Index 56 Read Fkind Write Setkind;
    Property labels : TStringArray Index 64 Read Flabels Write Setlabels;
    Property location : TPostTypelocation Index 72 Read Flocation Write Setlocation;
    Property _published : TDatetime Index 80 Read F_published Write Set_published;
    Property readerComments : String Index 88 Read FreaderComments Write SetreaderComments;
    Property replies : TPostTypereplies Index 96 Read Freplies Write Setreplies;
    Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
    Property status : String Index 112 Read Fstatus Write Setstatus;
    Property title : String Index 120 Read Ftitle Write Settitle;
    Property titleLink : String Index 128 Read FtitleLink Write SettitleLink;
    Property updated : TDatetime Index 136 Read Fupdated Write Setupdated;
    Property url : String Index 144 Read Furl Write Seturl;
  end;
  TPostClass = Class of TPost;
  
  { --------------------------------------------------------------------
    TPostList
    --------------------------------------------------------------------}
  
  TPostList = Class(TGoogleBaseObject)
  Private
    Fetag : String;
    Fitems : TPostListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
    Procedure Setitems(AIndex : Integer; const AValue : TPostListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$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 : TPostListTypeitemsArray Index 8 Read Fitems Write Setitems;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
  end;
  TPostListClass = Class of TPostList;
  
  { --------------------------------------------------------------------
    TPostPerUserInfo
    --------------------------------------------------------------------}
  
  TPostPerUserInfo = Class(TGoogleBaseObject)
  Private
    FblogId : String;
    FhasEditAccess : boolean;
    Fkind : String;
    FpostId : String;
    FuserId : String;
  Protected
    //Property setters
    Procedure SetblogId(AIndex : Integer; const AValue : String); virtual;
    Procedure SethasEditAccess(AIndex : Integer; const AValue : boolean); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetpostId(AIndex : Integer; const AValue : String); virtual;
    Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property blogId : String Index 0 Read FblogId Write SetblogId;
    Property hasEditAccess : boolean Index 8 Read FhasEditAccess Write SethasEditAccess;
    Property kind : String Index 16 Read Fkind Write Setkind;
    Property postId : String Index 24 Read FpostId Write SetpostId;
    Property userId : String Index 32 Read FuserId Write SetuserId;
  end;
  TPostPerUserInfoClass = Class of TPostPerUserInfo;
  
  { --------------------------------------------------------------------
    TPostUserInfo
    --------------------------------------------------------------------}
  
  TPostUserInfo = Class(TGoogleBaseObject)
  Private
    Fkind : String;
    Fpost : TPost;
    Fpost_user_info : TPostPerUserInfo;
  Protected
    //Property setters
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpost(AIndex : Integer; const AValue : TPost); virtual;
    Procedure Setpost_user_info(AIndex : Integer; const AValue : TPostPerUserInfo); virtual;
  Public
  Published
    Property kind : String Index 0 Read Fkind Write Setkind;
    Property post : TPost Index 8 Read Fpost Write Setpost;
    Property post_user_info : TPostPerUserInfo Index 16 Read Fpost_user_info Write Setpost_user_info;
  end;
  TPostUserInfoClass = Class of TPostUserInfo;
  
  { --------------------------------------------------------------------
    TPostUserInfosList
    --------------------------------------------------------------------}
  
  TPostUserInfosList = Class(TGoogleBaseObject)
  Private
    Fitems : TPostUserInfosListTypeitemsArray;
    Fkind : String;
    FnextPageToken : String;
  Protected
    //Property setters
    Procedure Setitems(AIndex : Integer; const AValue : TPostUserInfosListTypeitemsArray); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property items : TPostUserInfosListTypeitemsArray Index 0 Read Fitems Write Setitems;
    Property kind : String Index 8 Read Fkind Write Setkind;
    Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  end;
  TPostUserInfosListClass = Class of TPostUserInfosList;
  
  { --------------------------------------------------------------------
    TUserTypeblogs
    --------------------------------------------------------------------}
  
  TUserTypeblogs = Class(TGoogleBaseObject)
  Private
    FselfLink : String;
  Protected
    //Property setters
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
  end;
  TUserTypeblogsClass = Class of TUserTypeblogs;
  
  { --------------------------------------------------------------------
    TUserTypelocale
    --------------------------------------------------------------------}
  
  TUserTypelocale = Class(TGoogleBaseObject)
  Private
    Fcountry : String;
    Flanguage : String;
    Fvariant : String;
  Protected
    //Property setters
    Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
    Procedure Setvariant(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property country : String Index 0 Read Fcountry Write Setcountry;
    Property language : String Index 8 Read Flanguage Write Setlanguage;
    Property variant : String Index 16 Read Fvariant Write Setvariant;
  end;
  TUserTypelocaleClass = Class of TUserTypelocale;
  
  { --------------------------------------------------------------------
    TUser
    --------------------------------------------------------------------}
  
  TUser = Class(TGoogleBaseObject)
  Private
    Fabout : String;
    Fblogs : TUserTypeblogs;
    Fcreated : TDatetime;
    FdisplayName : String;
    Fid : String;
    Fkind : String;
    Flocale : TUserTypelocale;
    FselfLink : String;
    Furl : String;
  Protected
    //Property setters
    Procedure Setabout(AIndex : Integer; const AValue : String); virtual;
    Procedure Setblogs(AIndex : Integer; const AValue : TUserTypeblogs); virtual;
    Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
    Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlocale(AIndex : Integer; const AValue : TUserTypelocale); virtual;
    Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
    Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property about : String Index 0 Read Fabout Write Setabout;
    Property blogs : TUserTypeblogs Index 8 Read Fblogs Write Setblogs;
    Property created : TDatetime Index 16 Read Fcreated Write Setcreated;
    Property displayName : String Index 24 Read FdisplayName Write SetdisplayName;
    Property id : String Index 32 Read Fid Write Setid;
    Property kind : String Index 40 Read Fkind Write Setkind;
    Property locale : TUserTypelocale Index 48 Read Flocale Write Setlocale;
    Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
    Property url : String Index 64 Read Furl Write Seturl;
  end;
  TUserClass = Class of TUser;
  
  { --------------------------------------------------------------------
    TBlogUserInfosResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TBlogUserInfosResource, method Get
  
  TBlogUserInfosGetOptions = Record
    maxPosts : integer;
  end;
  
  TBlogUserInfosResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(blogId: string; userId: string; AQuery : string  = '') : TBlogUserInfo;
    Function Get(blogId: string; userId: string; AQuery : TBlogUserInfosgetOptions) : TBlogUserInfo;
  end;
  
  
  { --------------------------------------------------------------------
    TBlogsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TBlogsResource, method Get
  
  TBlogsGetOptions = Record
    maxPosts : integer;
    view : String;
  end;
  
  
  //Optional query Options for TBlogsResource, method GetByUrl
  
  TBlogsGetByUrlOptions = Record
    url : String;
    view : String;
  end;
  
  
  //Optional query Options for TBlogsResource, method ListByUser
  
  TBlogsListByUserOptions = Record
    fetchUserInfo : boolean;
    role : String;
    status : String;
    view : String;
  end;
  
  TBlogsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(blogId: string; AQuery : string  = '') : TBlog;
    Function Get(blogId: string; AQuery : TBlogsgetOptions) : TBlog;
    Function GetByUrl(AQuery : string  = '') : TBlog;
    Function GetByUrl(AQuery : TBlogsgetByUrlOptions) : TBlog;
    Function ListByUser(userId: string; AQuery : string  = '') : TBlogList;
    Function ListByUser(userId: string; AQuery : TBlogslistByUserOptions) : TBlogList;
  end;
  
  
  { --------------------------------------------------------------------
    TCommentsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TCommentsResource, method Get
  
  TCommentsGetOptions = Record
    view : String;
  end;
  
  
  //Optional query Options for TCommentsResource, method List
  
  TCommentsListOptions = Record
    endDate : TDatetime;
    fetchBodies : boolean;
    maxResults : integer;
    pageToken : String;
    startDate : TDatetime;
    status : String;
    view : String;
  end;
  
  
  //Optional query Options for TCommentsResource, method ListByBlog
  
  TCommentsListByBlogOptions = Record
    endDate : TDatetime;
    fetchBodies : boolean;
    maxResults : integer;
    pageToken : String;
    startDate : TDatetime;
    status : String;
  end;
  
  TCommentsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Approve(blogId: string; commentId: string; postId: string) : TComment;
    Procedure Delete(blogId: string; commentId: string; postId: string);
    Function Get(blogId: string; commentId: string; postId: string; AQuery : string  = '') : TComment;
    Function Get(blogId: string; commentId: string; postId: string; AQuery : TCommentsgetOptions) : TComment;
    Function List(blogId: string; postId: string; AQuery : string  = '') : TCommentList;
    Function List(blogId: string; postId: string; AQuery : TCommentslistOptions) : TCommentList;
    Function ListByBlog(blogId: string; AQuery : string  = '') : TCommentList;
    Function ListByBlog(blogId: string; AQuery : TCommentslistByBlogOptions) : TCommentList;
    Function MarkAsSpam(blogId: string; commentId: string; postId: string) : TComment;
    Function RemoveContent(blogId: string; commentId: string; postId: string) : TComment;
  end;
  
  
  { --------------------------------------------------------------------
    TPageViewsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TPageViewsResource, method Get
  
  TPageViewsGetOptions = Record
    range : String;
  end;
  
  TPageViewsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(blogId: string; AQuery : string  = '') : TPageviews;
    Function Get(blogId: string; AQuery : TPageViewsgetOptions) : TPageviews;
  end;
  
  
  { --------------------------------------------------------------------
    TPagesResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TPagesResource, method Get
  
  TPagesGetOptions = Record
    view : String;
  end;
  
  
  //Optional query Options for TPagesResource, method Insert
  
  TPagesInsertOptions = Record
    isDraft : boolean;
  end;
  
  
  //Optional query Options for TPagesResource, method List
  
  TPagesListOptions = Record
    fetchBodies : boolean;
    maxResults : integer;
    pageToken : String;
    status : String;
    view : String;
  end;
  
  
  //Optional query Options for TPagesResource, method Patch
  
  TPagesPatchOptions = Record
    publish : boolean;
    revert : boolean;
  end;
  
  
  //Optional query Options for TPagesResource, method Update
  
  TPagesUpdateOptions = Record
    publish : boolean;
    revert : boolean;
  end;
  
  TPagesResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Procedure Delete(blogId: string; pageId: string);
    Function Get(blogId: string; pageId: string; AQuery : string  = '') : TPage;
    Function Get(blogId: string; pageId: string; AQuery : TPagesgetOptions) : TPage;
    Function Insert(blogId: string; aPage : TPage; AQuery : string  = '') : TPage;
    Function Insert(blogId: string; aPage : TPage; AQuery : TPagesinsertOptions) : TPage;
    Function List(blogId: string; AQuery : string  = '') : TPageList;
    Function List(blogId: string; AQuery : TPageslistOptions) : TPageList;
    Function Patch(blogId: string; pageId: string; aPage : TPage; AQuery : string  = '') : TPage;
    Function Patch(blogId: string; pageId: string; aPage : TPage; AQuery : TPagespatchOptions) : TPage;
    Function Publish(blogId: string; pageId: string) : TPage;
    Function Revert(blogId: string; pageId: string) : TPage;
    Function Update(blogId: string; pageId: string; aPage : TPage; AQuery : string  = '') : TPage;
    Function Update(blogId: string; pageId: string; aPage : TPage; AQuery : TPagesupdateOptions) : TPage;
  end;
  
  
  { --------------------------------------------------------------------
    TPostUserInfosResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TPostUserInfosResource, method Get
  
  TPostUserInfosGetOptions = Record
    maxComments : integer;
  end;
  
  
  //Optional query Options for TPostUserInfosResource, method List
  
  TPostUserInfosListOptions = Record
    endDate : TDatetime;
    fetchBodies : boolean;
    labels : String;
    maxResults : integer;
    orderBy : String;
    pageToken : String;
    startDate : TDatetime;
    status : String;
    view : String;
  end;
  
  TPostUserInfosResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(blogId: string; postId: string; userId: string; AQuery : string  = '') : TPostUserInfo;
    Function Get(blogId: string; postId: string; userId: string; AQuery : TPostUserInfosgetOptions) : TPostUserInfo;
    Function List(blogId: string; userId: string; AQuery : string  = '') : TPostUserInfosList;
    Function List(blogId: string; userId: string; AQuery : TPostUserInfoslistOptions) : TPostUserInfosList;
  end;
  
  
  { --------------------------------------------------------------------
    TPostsResource
    --------------------------------------------------------------------}
  
  
  //Optional query Options for TPostsResource, method Get
  
  TPostsGetOptions = Record
    fetchBody : boolean;
    fetchImages : boolean;
    maxComments : integer;
    view : String;
  end;
  
  
  //Optional query Options for TPostsResource, method GetByPath
  
  TPostsGetByPathOptions = Record
    maxComments : integer;
    path : String;
    view : String;
  end;
  
  
  //Optional query Options for TPostsResource, method Insert
  
  TPostsInsertOptions = Record
    fetchBody : boolean;
    fetchImages : boolean;
    isDraft : boolean;
  end;
  
  
  //Optional query Options for TPostsResource, method List
  
  TPostsListOptions = Record
    endDate : TDatetime;
    fetchBodies : boolean;
    fetchImages : boolean;
    labels : String;
    maxResults : integer;
    orderBy : String;
    pageToken : String;
    startDate : TDatetime;
    status : String;
    view : String;
  end;
  
  
  //Optional query Options for TPostsResource, method Patch
  
  TPostsPatchOptions = Record
    fetchBody : boolean;
    fetchImages : boolean;
    maxComments : integer;
    publish : boolean;
    revert : boolean;
  end;
  
  
  //Optional query Options for TPostsResource, method Publish
  
  TPostsPublishOptions = Record
    publishDate : TDatetime;
  end;
  
  
  //Optional query Options for TPostsResource, method Search
  
  TPostsSearchOptions = Record
    fetchBodies : boolean;
    orderBy : String;
    q : String;
  end;
  
  
  //Optional query Options for TPostsResource, method Update
  
  TPostsUpdateOptions = Record
    fetchBody : boolean;
    fetchImages : boolean;
    maxComments : integer;
    publish : boolean;
    revert : boolean;
  end;
  
  TPostsResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Procedure Delete(blogId: string; postId: string);
    Function Get(blogId: string; postId: string; AQuery : string  = '') : TPost;
    Function Get(blogId: string; postId: string; AQuery : TPostsgetOptions) : TPost;
    Function GetByPath(blogId: string; AQuery : string  = '') : TPost;
    Function GetByPath(blogId: string; AQuery : TPostsgetByPathOptions) : TPost;
    Function Insert(blogId: string; aPost : TPost; AQuery : string  = '') : TPost;
    Function Insert(blogId: string; aPost : TPost; AQuery : TPostsinsertOptions) : TPost;
    Function List(blogId: string; AQuery : string  = '') : TPostList;
    Function List(blogId: string; AQuery : TPostslistOptions) : TPostList;
    Function Patch(blogId: string; postId: string; aPost : TPost; AQuery : string  = '') : TPost;
    Function Patch(blogId: string; postId: string; aPost : TPost; AQuery : TPostspatchOptions) : TPost;
    Function Publish(blogId: string; postId: string; AQuery : string  = '') : TPost;
    Function Publish(blogId: string; postId: string; AQuery : TPostspublishOptions) : TPost;
    Function Revert(blogId: string; postId: string) : TPost;
    Function Search(blogId: string; AQuery : string  = '') : TPostList;
    Function Search(blogId: string; AQuery : TPostssearchOptions) : TPostList;
    Function Update(blogId: string; postId: string; aPost : TPost; AQuery : string  = '') : TPost;
    Function Update(blogId: string; postId: string; aPost : TPost; AQuery : TPostsupdateOptions) : TPost;
  end;
  
  
  { --------------------------------------------------------------------
    TUsersResource
    --------------------------------------------------------------------}
  
  TUsersResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get(userId: string) : TUser;
  end;
  
  
  { --------------------------------------------------------------------
    TBloggerAPI
    --------------------------------------------------------------------}
  
  TBloggerAPI = Class(TGoogleAPI)
  Private
    FBlogUserInfosInstance : TBlogUserInfosResource;
    FBlogsInstance : TBlogsResource;
    FCommentsInstance : TCommentsResource;
    FPageViewsInstance : TPageViewsResource;
    FPagesInstance : TPagesResource;
    FPostUserInfosInstance : TPostUserInfosResource;
    FPostsInstance : TPostsResource;
    FUsersInstance : TUsersResource;
    Function GetBlogUserInfosInstance : TBlogUserInfosResource;virtual;
    Function GetBlogsInstance : TBlogsResource;virtual;
    Function GetCommentsInstance : TCommentsResource;virtual;
    Function GetPageViewsInstance : TPageViewsResource;virtual;
    Function GetPagesInstance : TPagesResource;virtual;
    Function GetPostUserInfosInstance : TPostUserInfosResource;virtual;
    Function GetPostsInstance : TPostsResource;virtual;
    Function GetUsersInstance : TUsersResource;virtual;
  Public
    //Override class functions with API info
    Class Function APIName : String; override;
    Class Function APIVersion : String; override;
    Class Function APIRevision : String; override;
    Class Function APIID : String; override;
    Class Function APITitle : String; override;
    Class Function APIDescription : String; override;
    Class Function APIOwnerDomain : String; override;
    Class Function APIOwnerName : String; override;
    Class Function APIIcon16 : String; override;
    Class Function APIIcon32 : String; override;
    Class Function APIdocumentationLink : String; override;
    Class Function APIrootUrl : string; override;
    Class Function APIbasePath : string;override;
    Class Function APIbaseURL : String;override;
    Class Function APIProtocol : string;override;
    Class Function APIservicePath : string;override;
    Class Function APIbatchPath : String;override;
    Class Function APIAuthScopes : TScopeInfoArray;override;
    Class Function APINeedsAuth : Boolean;override;
    Class Procedure RegisterAPIResources; override;
    //Add create function for resources
    Function CreateBlogUserInfosResource(AOwner : TComponent) : TBlogUserInfosResource;virtual;overload;
    Function CreateBlogUserInfosResource : TBlogUserInfosResource;virtual;overload;
    Function CreateBlogsResource(AOwner : TComponent) : TBlogsResource;virtual;overload;
    Function CreateBlogsResource : TBlogsResource;virtual;overload;
    Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload;
    Function CreateCommentsResource : TCommentsResource;virtual;overload;
    Function CreatePageViewsResource(AOwner : TComponent) : TPageViewsResource;virtual;overload;
    Function CreatePageViewsResource : TPageViewsResource;virtual;overload;
    Function CreatePagesResource(AOwner : TComponent) : TPagesResource;virtual;overload;
    Function CreatePagesResource : TPagesResource;virtual;overload;
    Function CreatePostUserInfosResource(AOwner : TComponent) : TPostUserInfosResource;virtual;overload;
    Function CreatePostUserInfosResource : TPostUserInfosResource;virtual;overload;
    Function CreatePostsResource(AOwner : TComponent) : TPostsResource;virtual;overload;
    Function CreatePostsResource : TPostsResource;virtual;overload;
    Function CreateUsersResource(AOwner : TComponent) : TUsersResource;virtual;overload;
    Function CreateUsersResource : TUsersResource;virtual;overload;
    //Add default on-demand instances for resources
    Property BlogUserInfosResource : TBlogUserInfosResource Read GetBlogUserInfosInstance;
    Property BlogsResource : TBlogsResource Read GetBlogsInstance;
    Property CommentsResource : TCommentsResource Read GetCommentsInstance;
    Property PageViewsResource : TPageViewsResource Read GetPageViewsInstance;
    Property PagesResource : TPagesResource Read GetPagesInstance;
    Property PostUserInfosResource : TPostUserInfosResource Read GetPostUserInfosInstance;
    Property PostsResource : TPostsResource Read GetPostsInstance;
    Property UsersResource : TUsersResource Read GetUsersInstance;
  end;

implementation


{ --------------------------------------------------------------------
  TBlogTypelocale
  --------------------------------------------------------------------}


Procedure TBlogTypelocale.Setcountry(AIndex : Integer; const AValue : String); 

begin
  If (Fcountry=AValue) then exit;
  Fcountry:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogTypelocale.Setlanguage(AIndex : Integer; const AValue : String); 

begin
  If (Flanguage=AValue) then exit;
  Flanguage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogTypelocale.Setvariant(AIndex : Integer; const AValue : String); 

begin
  If (Fvariant=AValue) then exit;
  Fvariant:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TBlogTypepages
  --------------------------------------------------------------------}


Procedure TBlogTypepages.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogTypepages.SettotalItems(AIndex : Integer; const AValue : integer); 

begin
  If (FtotalItems=AValue) then exit;
  FtotalItems:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TBlogTypeposts
  --------------------------------------------------------------------}


Procedure TBlogTypeposts.Setitems(AIndex : Integer; const AValue : TBlogTypepostsTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogTypeposts.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogTypeposts.SettotalItems(AIndex : Integer; const AValue : integer); 

begin
  If (FtotalItems=AValue) then exit;
  FtotalItems:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBlogTypeposts.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TBlog
  --------------------------------------------------------------------}


Procedure TBlog.SetcustomMetaData(AIndex : Integer; const AValue : String); 

begin
  If (FcustomMetaData=AValue) then exit;
  FcustomMetaData:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setdescription(AIndex : Integer; const AValue : String); 

begin
  If (Fdescription=AValue) then exit;
  Fdescription:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setlocale(AIndex : Integer; const AValue : TBlogTypelocale); 

begin
  If (Flocale=AValue) then exit;
  Flocale:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setpages(AIndex : Integer; const AValue : TBlogTypepages); 

begin
  If (Fpages=AValue) then exit;
  Fpages:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setposts(AIndex : Integer; const AValue : TBlogTypeposts); 

begin
  If (Fposts=AValue) then exit;
  Fposts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Set_published(AIndex : Integer; const AValue : TDatetime); 

begin
  If (F_published=AValue) then exit;
  F_published:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Setupdated(AIndex : Integer; const AValue : TDatetime); 

begin
  If (Fupdated=AValue) then exit;
  Fupdated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlog.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TBlog.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_published' : Result:='published';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;




{ --------------------------------------------------------------------
  TBlogList
  --------------------------------------------------------------------}


Procedure TBlogList.SetblogUserInfos(AIndex : Integer; const AValue : TBlogListTypeblogUserInfosArray); 

begin
  If (FblogUserInfos=AValue) then exit;
  FblogUserInfos:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogList.Setitems(AIndex : Integer; const AValue : TBlogListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBlogList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'bloguserinfos' : SetLength(FblogUserInfos,ALength);
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TBlogPerUserInfo
  --------------------------------------------------------------------}


Procedure TBlogPerUserInfo.SetblogId(AIndex : Integer; const AValue : String); 

begin
  If (FblogId=AValue) then exit;
  FblogId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogPerUserInfo.SethasAdminAccess(AIndex : Integer; const AValue : boolean); 

begin
  If (FhasAdminAccess=AValue) then exit;
  FhasAdminAccess:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogPerUserInfo.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogPerUserInfo.SetphotosAlbumKey(AIndex : Integer; const AValue : String); 

begin
  If (FphotosAlbumKey=AValue) then exit;
  FphotosAlbumKey:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogPerUserInfo.Setrole(AIndex : Integer; const AValue : String); 

begin
  If (Frole=AValue) then exit;
  Frole:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogPerUserInfo.SetuserId(AIndex : Integer; const AValue : String); 

begin
  If (FuserId=AValue) then exit;
  FuserId:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TBlogUserInfo
  --------------------------------------------------------------------}


Procedure TBlogUserInfo.Setblog(AIndex : Integer; const AValue : TBlog); 

begin
  If (Fblog=AValue) then exit;
  Fblog:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogUserInfo.Setblog_user_info(AIndex : Integer; const AValue : TBlogPerUserInfo); 

begin
  If (Fblog_user_info=AValue) then exit;
  Fblog_user_info:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TBlogUserInfo.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TCommentTypeauthorTypeimage
  --------------------------------------------------------------------}


Procedure TCommentTypeauthorTypeimage.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TCommentTypeauthor
  --------------------------------------------------------------------}


Procedure TCommentTypeauthor.SetdisplayName(AIndex : Integer; const AValue : String); 

begin
  If (FdisplayName=AValue) then exit;
  FdisplayName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCommentTypeauthor.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCommentTypeauthor.Setimage(AIndex : Integer; const AValue : TCommentTypeauthorTypeimage); 

begin
  If (Fimage=AValue) then exit;
  Fimage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCommentTypeauthor.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TCommentTypeblog
  --------------------------------------------------------------------}


Procedure TCommentTypeblog.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TCommentTypeinReplyTo
  --------------------------------------------------------------------}


Procedure TCommentTypeinReplyTo.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TCommentTypepost
  --------------------------------------------------------------------}


Procedure TCommentTypepost.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TComment
  --------------------------------------------------------------------}


Procedure TComment.Setauthor(AIndex : Integer; const AValue : TCommentTypeauthor); 

begin
  If (Fauthor=AValue) then exit;
  Fauthor:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Setblog(AIndex : Integer; const AValue : TCommentTypeblog); 

begin
  If (Fblog=AValue) then exit;
  Fblog:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Setcontent(AIndex : Integer; const AValue : String); 

begin
  If (Fcontent=AValue) then exit;
  Fcontent:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyTo); 

begin
  If (FinReplyTo=AValue) then exit;
  FinReplyTo:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Setpost(AIndex : Integer; const AValue : TCommentTypepost); 

begin
  If (Fpost=AValue) then exit;
  Fpost:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Set_published(AIndex : Integer; const AValue : TDatetime); 

begin
  If (F_published=AValue) then exit;
  F_published:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TComment.Setupdated(AIndex : Integer; const AValue : TDatetime); 

begin
  If (Fupdated=AValue) then exit;
  Fupdated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TComment.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_published' : Result:='published';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;




{ --------------------------------------------------------------------
  TCommentList
  --------------------------------------------------------------------}


Procedure TCommentList.Setetag(AIndex : Integer; const AValue : String); 

begin
  If (Fetag=AValue) then exit;
  Fetag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCommentList.Setitems(AIndex : Integer; const AValue : TCommentListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCommentList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCommentList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TCommentList.SetprevPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FprevPageToken=AValue) then exit;
  FprevPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TCommentList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPageTypeauthorTypeimage
  --------------------------------------------------------------------}


Procedure TPageTypeauthorTypeimage.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPageTypeauthor
  --------------------------------------------------------------------}


Procedure TPageTypeauthor.SetdisplayName(AIndex : Integer; const AValue : String); 

begin
  If (FdisplayName=AValue) then exit;
  FdisplayName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageTypeauthor.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageTypeauthor.Setimage(AIndex : Integer; const AValue : TPageTypeauthorTypeimage); 

begin
  If (Fimage=AValue) then exit;
  Fimage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageTypeauthor.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPageTypeblog
  --------------------------------------------------------------------}


Procedure TPageTypeblog.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPage
  --------------------------------------------------------------------}


Procedure TPage.Setauthor(AIndex : Integer; const AValue : TPageTypeauthor); 

begin
  If (Fauthor=AValue) then exit;
  Fauthor:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Setblog(AIndex : Integer; const AValue : TPageTypeblog); 

begin
  If (Fblog=AValue) then exit;
  Fblog:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Setcontent(AIndex : Integer; const AValue : String); 

begin
  If (Fcontent=AValue) then exit;
  Fcontent:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Setetag(AIndex : Integer; const AValue : String); 

begin
  If (Fetag=AValue) then exit;
  Fetag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Set_published(AIndex : Integer; const AValue : TDatetime); 

begin
  If (F_published=AValue) then exit;
  F_published:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Settitle(AIndex : Integer; const AValue : String); 

begin
  If (Ftitle=AValue) then exit;
  Ftitle:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Setupdated(AIndex : Integer; const AValue : TDatetime); 

begin
  If (Fupdated=AValue) then exit;
  Fupdated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPage.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TPage.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_published' : Result:='published';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;




{ --------------------------------------------------------------------
  TPageList
  --------------------------------------------------------------------}


Procedure TPageList.Setetag(AIndex : Integer; const AValue : String); 

begin
  If (Fetag=AValue) then exit;
  Fetag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageList.Setitems(AIndex : Integer; const AValue : TPageListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPageList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPageviewsTypecountsItem
  --------------------------------------------------------------------}


Procedure TPageviewsTypecountsItem.Setcount(AIndex : Integer; const AValue : String); 

begin
  If (Fcount=AValue) then exit;
  Fcount:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageviewsTypecountsItem.SettimeRange(AIndex : Integer; const AValue : String); 

begin
  If (FtimeRange=AValue) then exit;
  FtimeRange:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPageviews
  --------------------------------------------------------------------}


Procedure TPageviews.SetblogId(AIndex : Integer; const AValue : String); 

begin
  If (FblogId=AValue) then exit;
  FblogId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageviews.Setcounts(AIndex : Integer; const AValue : TPageviewsTypecountsArray); 

begin
  If (Fcounts=AValue) then exit;
  Fcounts:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPageviews.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPageviews.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'counts' : SetLength(Fcounts,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPostTypeauthorTypeimage
  --------------------------------------------------------------------}


Procedure TPostTypeauthorTypeimage.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPostTypeauthor
  --------------------------------------------------------------------}


Procedure TPostTypeauthor.SetdisplayName(AIndex : Integer; const AValue : String); 

begin
  If (FdisplayName=AValue) then exit;
  FdisplayName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypeauthor.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypeauthor.Setimage(AIndex : Integer; const AValue : TPostTypeauthorTypeimage); 

begin
  If (Fimage=AValue) then exit;
  Fimage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypeauthor.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPostTypeblog
  --------------------------------------------------------------------}


Procedure TPostTypeblog.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPostTypeimagesItem
  --------------------------------------------------------------------}


Procedure TPostTypeimagesItem.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPostTypelocation
  --------------------------------------------------------------------}


Procedure TPostTypelocation.Setlat(AIndex : Integer; const AValue : double); 

begin
  If (Flat=AValue) then exit;
  Flat:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypelocation.Setlng(AIndex : Integer; const AValue : double); 

begin
  If (Flng=AValue) then exit;
  Flng:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypelocation.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypelocation.Setspan(AIndex : Integer; const AValue : String); 

begin
  If (Fspan=AValue) then exit;
  Fspan:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPostTypereplies
  --------------------------------------------------------------------}


Procedure TPostTypereplies.Setitems(AIndex : Integer; const AValue : TPostTyperepliesTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypereplies.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostTypereplies.SettotalItems(AIndex : Integer; const AValue : String); 

begin
  If (FtotalItems=AValue) then exit;
  FtotalItems:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPostTypereplies.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPost
  --------------------------------------------------------------------}


Procedure TPost.Setauthor(AIndex : Integer; const AValue : TPostTypeauthor); 

begin
  If (Fauthor=AValue) then exit;
  Fauthor:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setblog(AIndex : Integer; const AValue : TPostTypeblog); 

begin
  If (Fblog=AValue) then exit;
  Fblog:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setcontent(AIndex : Integer; const AValue : String); 

begin
  If (Fcontent=AValue) then exit;
  Fcontent:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.SetcustomMetaData(AIndex : Integer; const AValue : String); 

begin
  If (FcustomMetaData=AValue) then exit;
  FcustomMetaData:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setetag(AIndex : Integer; const AValue : String); 

begin
  If (Fetag=AValue) then exit;
  Fetag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setimages(AIndex : Integer; const AValue : TPostTypeimagesArray); 

begin
  If (Fimages=AValue) then exit;
  Fimages:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setlabels(AIndex : Integer; const AValue : TStringArray); 

begin
  If (Flabels=AValue) then exit;
  Flabels:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setlocation(AIndex : Integer; const AValue : TPostTypelocation); 

begin
  If (Flocation=AValue) then exit;
  Flocation:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Set_published(AIndex : Integer; const AValue : TDatetime); 

begin
  If (F_published=AValue) then exit;
  F_published:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.SetreaderComments(AIndex : Integer; const AValue : String); 

begin
  If (FreaderComments=AValue) then exit;
  FreaderComments:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setreplies(AIndex : Integer; const AValue : TPostTypereplies); 

begin
  If (Freplies=AValue) then exit;
  Freplies:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setstatus(AIndex : Integer; const AValue : String); 

begin
  If (Fstatus=AValue) then exit;
  Fstatus:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Settitle(AIndex : Integer; const AValue : String); 

begin
  If (Ftitle=AValue) then exit;
  Ftitle:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.SettitleLink(AIndex : Integer; const AValue : String); 

begin
  If (FtitleLink=AValue) then exit;
  FtitleLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Setupdated(AIndex : Integer; const AValue : TDatetime); 

begin
  If (Fupdated=AValue) then exit;
  Fupdated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPost.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;



Class Function TPost.ExportPropertyName(Const AName : String) :String;

begin
  Case AName of
  '_published' : Result:='published';
  else
    Result:=Inherited ExportPropertyName(AName);
  end;
end;

//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPost.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'images' : SetLength(Fimages,ALength);
  'labels' : SetLength(Flabels,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPostList
  --------------------------------------------------------------------}


Procedure TPostList.Setetag(AIndex : Integer; const AValue : String); 

begin
  If (Fetag=AValue) then exit;
  Fetag:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostList.Setitems(AIndex : Integer; const AValue : TPostListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPostList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TPostPerUserInfo
  --------------------------------------------------------------------}


Procedure TPostPerUserInfo.SetblogId(AIndex : Integer; const AValue : String); 

begin
  If (FblogId=AValue) then exit;
  FblogId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostPerUserInfo.SethasEditAccess(AIndex : Integer; const AValue : boolean); 

begin
  If (FhasEditAccess=AValue) then exit;
  FhasEditAccess:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostPerUserInfo.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostPerUserInfo.SetpostId(AIndex : Integer; const AValue : String); 

begin
  If (FpostId=AValue) then exit;
  FpostId:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostPerUserInfo.SetuserId(AIndex : Integer; const AValue : String); 

begin
  If (FuserId=AValue) then exit;
  FuserId:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPostUserInfo
  --------------------------------------------------------------------}


Procedure TPostUserInfo.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostUserInfo.Setpost(AIndex : Integer; const AValue : TPost); 

begin
  If (Fpost=AValue) then exit;
  Fpost:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostUserInfo.Setpost_user_info(AIndex : Integer; const AValue : TPostPerUserInfo); 

begin
  If (Fpost_user_info=AValue) then exit;
  Fpost_user_info:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TPostUserInfosList
  --------------------------------------------------------------------}


Procedure TPostUserInfosList.Setitems(AIndex : Integer; const AValue : TPostUserInfosListTypeitemsArray); 

begin
  If (Fitems=AValue) then exit;
  Fitems:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostUserInfosList.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TPostUserInfosList.SetnextPageToken(AIndex : Integer; const AValue : String); 

begin
  If (FnextPageToken=AValue) then exit;
  FnextPageToken:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPostUserInfosList.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'items' : SetLength(Fitems,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TUserTypeblogs
  --------------------------------------------------------------------}


Procedure TUserTypeblogs.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUserTypelocale
  --------------------------------------------------------------------}


Procedure TUserTypelocale.Setcountry(AIndex : Integer; const AValue : String); 

begin
  If (Fcountry=AValue) then exit;
  Fcountry:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserTypelocale.Setlanguage(AIndex : Integer; const AValue : String); 

begin
  If (Flanguage=AValue) then exit;
  Flanguage:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserTypelocale.Setvariant(AIndex : Integer; const AValue : String); 

begin
  If (Fvariant=AValue) then exit;
  Fvariant:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUser
  --------------------------------------------------------------------}


Procedure TUser.Setabout(AIndex : Integer; const AValue : String); 

begin
  If (Fabout=AValue) then exit;
  Fabout:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.Setblogs(AIndex : Integer; const AValue : TUserTypeblogs); 

begin
  If (Fblogs=AValue) then exit;
  Fblogs:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.Setcreated(AIndex : Integer; const AValue : TDatetime); 

begin
  If (Fcreated=AValue) then exit;
  Fcreated:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.SetdisplayName(AIndex : Integer; const AValue : String); 

begin
  If (FdisplayName=AValue) then exit;
  FdisplayName:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.Setkind(AIndex : Integer; const AValue : String); 

begin
  If (Fkind=AValue) then exit;
  Fkind:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.Setlocale(AIndex : Integer; const AValue : TUserTypelocale); 

begin
  If (Flocale=AValue) then exit;
  Flocale:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.SetselfLink(AIndex : Integer; const AValue : String); 

begin
  If (FselfLink=AValue) then exit;
  FselfLink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUser.Seturl(AIndex : Integer; const AValue : String); 

begin
  If (Furl=AValue) then exit;
  Furl:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TBlogUserInfosResource
  --------------------------------------------------------------------}


Class Function TBlogUserInfosResource.ResourceName : String;

begin
  Result:='blogUserInfos';
end;

Class Function TBlogUserInfosResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Function TBlogUserInfosResource.Get(blogId: string; userId: string; AQuery : string = '') : TBlogUserInfo;

Const
  _HTTPMethod = 'GET';
  _Path       = 'users/{userId}/blogs/{blogId}';
  _Methodid   = 'blogger.blogUserInfos.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'userId',userId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBlogUserInfo) as TBlogUserInfo;
end;


Function TBlogUserInfosResource.Get(blogId: string; userId: string; AQuery : TBlogUserInfosgetOptions) : TBlogUserInfo;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'maxPosts',AQuery.maxPosts);
  Result:=Get(blogId,userId,_Q);
end;



{ --------------------------------------------------------------------
  TBlogsResource
  --------------------------------------------------------------------}


Class Function TBlogsResource.ResourceName : String;

begin
  Result:='blogs';
end;

Class Function TBlogsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Function TBlogsResource.Get(blogId: string; AQuery : string = '') : TBlog;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}';
  _Methodid   = 'blogger.blogs.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBlog) as TBlog;
end;


Function TBlogsResource.Get(blogId: string; AQuery : TBlogsgetOptions) : TBlog;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'maxPosts',AQuery.maxPosts);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=Get(blogId,_Q);
end;

Function TBlogsResource.GetByUrl(AQuery : string = '') : TBlog;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/byurl';
  _Methodid   = 'blogger.blogs.getByUrl';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TBlog) as TBlog;
end;


Function TBlogsResource.GetByUrl(AQuery : TBlogsgetByUrlOptions) : TBlog;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'url',AQuery.url);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=GetByUrl(_Q);
end;

Function TBlogsResource.ListByUser(userId: string; AQuery : string = '') : TBlogList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'users/{userId}/blogs';
  _Methodid   = 'blogger.blogs.listByUser';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['userId',userId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBlogList) as TBlogList;
end;


Function TBlogsResource.ListByUser(userId: string; AQuery : TBlogslistByUserOptions) : TBlogList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'fetchUserInfo',AQuery.fetchUserInfo);
  AddToQuery(_Q,'role',AQuery.role);
  AddToQuery(_Q,'status',AQuery.status);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=ListByUser(userId,_Q);
end;



{ --------------------------------------------------------------------
  TCommentsResource
  --------------------------------------------------------------------}


Class Function TCommentsResource.ResourceName : String;

begin
  Result:='comments';
end;

Class Function TCommentsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Function TCommentsResource.Approve(blogId: string; commentId: string; postId: string) : TComment;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/posts/{postId}/comments/{commentId}/approve';
  _Methodid   = 'blogger.comments.approve';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'commentId',commentId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TComment) as TComment;
end;

Procedure TCommentsResource.Delete(blogId: string; commentId: string; postId: string);

Const
  _HTTPMethod = 'DELETE';
  _Path       = 'blogs/{blogId}/posts/{postId}/comments/{commentId}';
  _Methodid   = 'blogger.comments.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'commentId',commentId,'postId',postId]);
  ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;

Function TCommentsResource.Get(blogId: string; commentId: string; postId: string; AQuery : string = '') : TComment;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/posts/{postId}/comments/{commentId}';
  _Methodid   = 'blogger.comments.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'commentId',commentId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TComment) as TComment;
end;


Function TCommentsResource.Get(blogId: string; commentId: string; postId: string; AQuery : TCommentsgetOptions) : TComment;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'view',AQuery.view);
  Result:=Get(blogId,commentId,postId,_Q);
end;

Function TCommentsResource.List(blogId: string; postId: string; AQuery : string = '') : TCommentList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/posts/{postId}/comments';
  _Methodid   = 'blogger.comments.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCommentList) as TCommentList;
end;


Function TCommentsResource.List(blogId: string; postId: string; AQuery : TCommentslistOptions) : TCommentList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'endDate',AQuery.endDate);
  AddToQuery(_Q,'fetchBodies',AQuery.fetchBodies);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'startDate',AQuery.startDate);
  AddToQuery(_Q,'status',AQuery.status);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=List(blogId,postId,_Q);
end;

Function TCommentsResource.ListByBlog(blogId: string; AQuery : string = '') : TCommentList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/comments';
  _Methodid   = 'blogger.comments.listByBlog';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCommentList) as TCommentList;
end;


Function TCommentsResource.ListByBlog(blogId: string; AQuery : TCommentslistByBlogOptions) : TCommentList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'endDate',AQuery.endDate);
  AddToQuery(_Q,'fetchBodies',AQuery.fetchBodies);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'startDate',AQuery.startDate);
  AddToQuery(_Q,'status',AQuery.status);
  Result:=ListByBlog(blogId,_Q);
end;

Function TCommentsResource.MarkAsSpam(blogId: string; commentId: string; postId: string) : TComment;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/posts/{postId}/comments/{commentId}/spam';
  _Methodid   = 'blogger.comments.markAsSpam';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'commentId',commentId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TComment) as TComment;
end;

Function TCommentsResource.RemoveContent(blogId: string; commentId: string; postId: string) : TComment;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/posts/{postId}/comments/{commentId}/removecontent';
  _Methodid   = 'blogger.comments.removeContent';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'commentId',commentId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TComment) as TComment;
end;



{ --------------------------------------------------------------------
  TPageViewsResource
  --------------------------------------------------------------------}


Class Function TPageViewsResource.ResourceName : String;

begin
  Result:='pageViews';
end;

Class Function TPageViewsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Function TPageViewsResource.Get(blogId: string; AQuery : string = '') : TPageviews;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/pageviews';
  _Methodid   = 'blogger.pageViews.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPageviews) as TPageviews;
end;


Function TPageViewsResource.Get(blogId: string; AQuery : TPageViewsgetOptions) : TPageviews;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'range',AQuery.range);
  Result:=Get(blogId,_Q);
end;



{ --------------------------------------------------------------------
  TPagesResource
  --------------------------------------------------------------------}


Class Function TPagesResource.ResourceName : String;

begin
  Result:='pages';
end;

Class Function TPagesResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Procedure TPagesResource.Delete(blogId: string; pageId: string);

Const
  _HTTPMethod = 'DELETE';
  _Path       = 'blogs/{blogId}/pages/{pageId}';
  _Methodid   = 'blogger.pages.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'pageId',pageId]);
  ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;

Function TPagesResource.Get(blogId: string; pageId: string; AQuery : string = '') : TPage;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/pages/{pageId}';
  _Methodid   = 'blogger.pages.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'pageId',pageId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPage) as TPage;
end;


Function TPagesResource.Get(blogId: string; pageId: string; AQuery : TPagesgetOptions) : TPage;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'view',AQuery.view);
  Result:=Get(blogId,pageId,_Q);
end;

Function TPagesResource.Insert(blogId: string; aPage : TPage; AQuery : string = '') : TPage;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/pages';
  _Methodid   = 'blogger.pages.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPage,TPage) as TPage;
end;


Function TPagesResource.Insert(blogId: string; aPage : TPage; AQuery : TPagesinsertOptions) : TPage;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'isDraft',AQuery.isDraft);
  Result:=Insert(blogId,aPage,_Q);
end;

Function TPagesResource.List(blogId: string; AQuery : string = '') : TPageList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/pages';
  _Methodid   = 'blogger.pages.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPageList) as TPageList;
end;


Function TPagesResource.List(blogId: string; AQuery : TPageslistOptions) : TPageList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'fetchBodies',AQuery.fetchBodies);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'status',AQuery.status);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=List(blogId,_Q);
end;

Function TPagesResource.Patch(blogId: string; pageId: string; aPage : TPage; AQuery : string = '') : TPage;

Const
  _HTTPMethod = 'PATCH';
  _Path       = 'blogs/{blogId}/pages/{pageId}';
  _Methodid   = 'blogger.pages.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'pageId',pageId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPage,TPage) as TPage;
end;


Function TPagesResource.Patch(blogId: string; pageId: string; aPage : TPage; AQuery : TPagespatchOptions) : TPage;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'publish',AQuery.publish);
  AddToQuery(_Q,'revert',AQuery.revert);
  Result:=Patch(blogId,pageId,aPage,_Q);
end;

Function TPagesResource.Publish(blogId: string; pageId: string) : TPage;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/pages/{pageId}/publish';
  _Methodid   = 'blogger.pages.publish';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'pageId',pageId]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPage) as TPage;
end;

Function TPagesResource.Revert(blogId: string; pageId: string) : TPage;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/pages/{pageId}/revert';
  _Methodid   = 'blogger.pages.revert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'pageId',pageId]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPage) as TPage;
end;

Function TPagesResource.Update(blogId: string; pageId: string; aPage : TPage; AQuery : string = '') : TPage;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'blogs/{blogId}/pages/{pageId}';
  _Methodid   = 'blogger.pages.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'pageId',pageId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPage,TPage) as TPage;
end;


Function TPagesResource.Update(blogId: string; pageId: string; aPage : TPage; AQuery : TPagesupdateOptions) : TPage;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'publish',AQuery.publish);
  AddToQuery(_Q,'revert',AQuery.revert);
  Result:=Update(blogId,pageId,aPage,_Q);
end;



{ --------------------------------------------------------------------
  TPostUserInfosResource
  --------------------------------------------------------------------}


Class Function TPostUserInfosResource.ResourceName : String;

begin
  Result:='postUserInfos';
end;

Class Function TPostUserInfosResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Function TPostUserInfosResource.Get(blogId: string; postId: string; userId: string; AQuery : string = '') : TPostUserInfo;

Const
  _HTTPMethod = 'GET';
  _Path       = 'users/{userId}/blogs/{blogId}/posts/{postId}';
  _Methodid   = 'blogger.postUserInfos.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId,'userId',userId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPostUserInfo) as TPostUserInfo;
end;


Function TPostUserInfosResource.Get(blogId: string; postId: string; userId: string; AQuery : TPostUserInfosgetOptions) : TPostUserInfo;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'maxComments',AQuery.maxComments);
  Result:=Get(blogId,postId,userId,_Q);
end;

Function TPostUserInfosResource.List(blogId: string; userId: string; AQuery : string = '') : TPostUserInfosList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'users/{userId}/blogs/{blogId}/posts';
  _Methodid   = 'blogger.postUserInfos.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'userId',userId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPostUserInfosList) as TPostUserInfosList;
end;


Function TPostUserInfosResource.List(blogId: string; userId: string; AQuery : TPostUserInfoslistOptions) : TPostUserInfosList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'endDate',AQuery.endDate);
  AddToQuery(_Q,'fetchBodies',AQuery.fetchBodies);
  AddToQuery(_Q,'labels',AQuery.labels);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'orderBy',AQuery.orderBy);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'startDate',AQuery.startDate);
  AddToQuery(_Q,'status',AQuery.status);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=List(blogId,userId,_Q);
end;



{ --------------------------------------------------------------------
  TPostsResource
  --------------------------------------------------------------------}


Class Function TPostsResource.ResourceName : String;

begin
  Result:='posts';
end;

Class Function TPostsResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Procedure TPostsResource.Delete(blogId: string; postId: string);

Const
  _HTTPMethod = 'DELETE';
  _Path       = 'blogs/{blogId}/posts/{postId}';
  _Methodid   = 'blogger.posts.delete';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId]);
  ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;

Function TPostsResource.Get(blogId: string; postId: string; AQuery : string = '') : TPost;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/posts/{postId}';
  _Methodid   = 'blogger.posts.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPost) as TPost;
end;


Function TPostsResource.Get(blogId: string; postId: string; AQuery : TPostsgetOptions) : TPost;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'fetchBody',AQuery.fetchBody);
  AddToQuery(_Q,'fetchImages',AQuery.fetchImages);
  AddToQuery(_Q,'maxComments',AQuery.maxComments);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=Get(blogId,postId,_Q);
end;

Function TPostsResource.GetByPath(blogId: string; AQuery : string = '') : TPost;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/posts/bypath';
  _Methodid   = 'blogger.posts.getByPath';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPost) as TPost;
end;


Function TPostsResource.GetByPath(blogId: string; AQuery : TPostsgetByPathOptions) : TPost;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'maxComments',AQuery.maxComments);
  AddToQuery(_Q,'path',AQuery.path);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=GetByPath(blogId,_Q);
end;

Function TPostsResource.Insert(blogId: string; aPost : TPost; AQuery : string = '') : TPost;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/posts';
  _Methodid   = 'blogger.posts.insert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPost,TPost) as TPost;
end;


Function TPostsResource.Insert(blogId: string; aPost : TPost; AQuery : TPostsinsertOptions) : TPost;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'fetchBody',AQuery.fetchBody);
  AddToQuery(_Q,'fetchImages',AQuery.fetchImages);
  AddToQuery(_Q,'isDraft',AQuery.isDraft);
  Result:=Insert(blogId,aPost,_Q);
end;

Function TPostsResource.List(blogId: string; AQuery : string = '') : TPostList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/posts';
  _Methodid   = 'blogger.posts.list';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPostList) as TPostList;
end;


Function TPostsResource.List(blogId: string; AQuery : TPostslistOptions) : TPostList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'endDate',AQuery.endDate);
  AddToQuery(_Q,'fetchBodies',AQuery.fetchBodies);
  AddToQuery(_Q,'fetchImages',AQuery.fetchImages);
  AddToQuery(_Q,'labels',AQuery.labels);
  AddToQuery(_Q,'maxResults',AQuery.maxResults);
  AddToQuery(_Q,'orderBy',AQuery.orderBy);
  AddToQuery(_Q,'pageToken',AQuery.pageToken);
  AddToQuery(_Q,'startDate',AQuery.startDate);
  AddToQuery(_Q,'status',AQuery.status);
  AddToQuery(_Q,'view',AQuery.view);
  Result:=List(blogId,_Q);
end;

Function TPostsResource.Patch(blogId: string; postId: string; aPost : TPost; AQuery : string = '') : TPost;

Const
  _HTTPMethod = 'PATCH';
  _Path       = 'blogs/{blogId}/posts/{postId}';
  _Methodid   = 'blogger.posts.patch';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPost,TPost) as TPost;
end;


Function TPostsResource.Patch(blogId: string; postId: string; aPost : TPost; AQuery : TPostspatchOptions) : TPost;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'fetchBody',AQuery.fetchBody);
  AddToQuery(_Q,'fetchImages',AQuery.fetchImages);
  AddToQuery(_Q,'maxComments',AQuery.maxComments);
  AddToQuery(_Q,'publish',AQuery.publish);
  AddToQuery(_Q,'revert',AQuery.revert);
  Result:=Patch(blogId,postId,aPost,_Q);
end;

Function TPostsResource.Publish(blogId: string; postId: string; AQuery : string = '') : TPost;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/posts/{postId}/publish';
  _Methodid   = 'blogger.posts.publish';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPost) as TPost;
end;


Function TPostsResource.Publish(blogId: string; postId: string; AQuery : TPostspublishOptions) : TPost;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'publishDate',AQuery.publishDate);
  Result:=Publish(blogId,postId,_Q);
end;

Function TPostsResource.Revert(blogId: string; postId: string) : TPost;

Const
  _HTTPMethod = 'POST';
  _Path       = 'blogs/{blogId}/posts/{postId}/revert';
  _Methodid   = 'blogger.posts.revert';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPost) as TPost;
end;

Function TPostsResource.Search(blogId: string; AQuery : string = '') : TPostList;

Const
  _HTTPMethod = 'GET';
  _Path       = 'blogs/{blogId}/posts/search';
  _Methodid   = 'blogger.posts.search';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPostList) as TPostList;
end;


Function TPostsResource.Search(blogId: string; AQuery : TPostssearchOptions) : TPostList;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'fetchBodies',AQuery.fetchBodies);
  AddToQuery(_Q,'orderBy',AQuery.orderBy);
  AddToQuery(_Q,'q',AQuery.q);
  Result:=Search(blogId,_Q);
end;

Function TPostsResource.Update(blogId: string; postId: string; aPost : TPost; AQuery : string = '') : TPost;

Const
  _HTTPMethod = 'PUT';
  _Path       = 'blogs/{blogId}/posts/{postId}';
  _Methodid   = 'blogger.posts.update';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['blogId',blogId,'postId',postId]);
  Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPost,TPost) as TPost;
end;


Function TPostsResource.Update(blogId: string; postId: string; aPost : TPost; AQuery : TPostsupdateOptions) : TPost;

Var
  _Q : String;

begin
  _Q:='';
  AddToQuery(_Q,'fetchBody',AQuery.fetchBody);
  AddToQuery(_Q,'fetchImages',AQuery.fetchImages);
  AddToQuery(_Q,'maxComments',AQuery.maxComments);
  AddToQuery(_Q,'publish',AQuery.publish);
  AddToQuery(_Q,'revert',AQuery.revert);
  Result:=Update(blogId,postId,aPost,_Q);
end;



{ --------------------------------------------------------------------
  TUsersResource
  --------------------------------------------------------------------}


Class Function TUsersResource.ResourceName : String;

begin
  Result:='users';
end;

Class Function TUsersResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=TbloggerAPI;
end;

Function TUsersResource.Get(userId: string) : TUser;

Const
  _HTTPMethod = 'GET';
  _Path       = 'users/{userId}';
  _Methodid   = 'blogger.users.get';

Var
  _P : String;

begin
  _P:=SubstitutePath(_Path,['userId',userId]);
  Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUser) as TUser;
end;



{ --------------------------------------------------------------------
  TBloggerAPI
  --------------------------------------------------------------------}

Class Function TBloggerAPI.APIName : String;

begin
  Result:='blogger';
end;

Class Function TBloggerAPI.APIVersion : String;

begin
  Result:='v3';
end;

Class Function TBloggerAPI.APIRevision : String;

begin
  Result:='20150422';
end;

Class Function TBloggerAPI.APIID : String;

begin
  Result:='blogger:v3';
end;

Class Function TBloggerAPI.APITitle : String;

begin
  Result:='Blogger API';
end;

Class Function TBloggerAPI.APIDescription : String;

begin
  Result:='API for access to the data within Blogger.';
end;

Class Function TBloggerAPI.APIOwnerDomain : String;

begin
  Result:='google.com';
end;

Class Function TBloggerAPI.APIOwnerName : String;

begin
  Result:='Google';
end;

Class Function TBloggerAPI.APIIcon16 : String;

begin
  Result:='https://www.google.com/images/icons/product/blogger-16.png';
end;

Class Function TBloggerAPI.APIIcon32 : String;

begin
  Result:='https://www.google.com/images/icons/product/blogger-32.png';
end;

Class Function TBloggerAPI.APIdocumentationLink : String;

begin
  Result:='https://developers.google.com/blogger/docs/3.0/getting_started';
end;

Class Function TBloggerAPI.APIrootUrl : string;

begin
  Result:='https://www.googleapis.com/';
end;

Class Function TBloggerAPI.APIbasePath : string;

begin
  Result:='/blogger/v3/';
end;

Class Function TBloggerAPI.APIbaseURL : String;

begin
  Result:='https://www.googleapis.com/blogger/v3/';
end;

Class Function TBloggerAPI.APIProtocol : string;

begin
  Result:='rest';
end;

Class Function TBloggerAPI.APIservicePath : string;

begin
  Result:='blogger/v3/';
end;

Class Function TBloggerAPI.APIbatchPath : String;

begin
  Result:='batch';
end;

Class Function TBloggerAPI.APIAuthScopes : TScopeInfoArray;

begin
  SetLength(Result,2);
  Result[0].Name:='https://www.googleapis.com/auth/blogger';
  Result[0].Description:='Manage your Blogger account';
  Result[1].Name:='https://www.googleapis.com/auth/blogger.readonly';
  Result[1].Description:='View your Blogger account';
  
end;

Class Function TBloggerAPI.APINeedsAuth : Boolean;

begin
  Result:=True;
end;

Class Procedure TBloggerAPI.RegisterAPIResources;

begin
  TBlogTypelocale.RegisterObject;
  TBlogTypepages.RegisterObject;
  TBlogTypeposts.RegisterObject;
  TBlog.RegisterObject;
  TBlogList.RegisterObject;
  TBlogPerUserInfo.RegisterObject;
  TBlogUserInfo.RegisterObject;
  TCommentTypeauthorTypeimage.RegisterObject;
  TCommentTypeauthor.RegisterObject;
  TCommentTypeblog.RegisterObject;
  TCommentTypeinReplyTo.RegisterObject;
  TCommentTypepost.RegisterObject;
  TComment.RegisterObject;
  TCommentList.RegisterObject;
  TPageTypeauthorTypeimage.RegisterObject;
  TPageTypeauthor.RegisterObject;
  TPageTypeblog.RegisterObject;
  TPage.RegisterObject;
  TPageList.RegisterObject;
  TPageviewsTypecountsItem.RegisterObject;
  TPageviews.RegisterObject;
  TPostTypeauthorTypeimage.RegisterObject;
  TPostTypeauthor.RegisterObject;
  TPostTypeblog.RegisterObject;
  TPostTypeimagesItem.RegisterObject;
  TPostTypelocation.RegisterObject;
  TPostTypereplies.RegisterObject;
  TPost.RegisterObject;
  TPostList.RegisterObject;
  TPostPerUserInfo.RegisterObject;
  TPostUserInfo.RegisterObject;
  TPostUserInfosList.RegisterObject;
  TUserTypeblogs.RegisterObject;
  TUserTypelocale.RegisterObject;
  TUser.RegisterObject;
end;


Function TBloggerAPI.GetBlogUserInfosInstance : TBlogUserInfosResource;

begin
  if (FBlogUserInfosInstance=Nil) then
    FBlogUserInfosInstance:=CreateBlogUserInfosResource;
  Result:=FBlogUserInfosInstance;
end;

Function TBloggerAPI.CreateBlogUserInfosResource : TBlogUserInfosResource;

begin
  Result:=CreateBlogUserInfosResource(Self);
end;


Function TBloggerAPI.CreateBlogUserInfosResource(AOwner : TComponent) : TBlogUserInfosResource;

begin
  Result:=TBlogUserInfosResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TBloggerAPI.GetBlogsInstance : TBlogsResource;

begin
  if (FBlogsInstance=Nil) then
    FBlogsInstance:=CreateBlogsResource;
  Result:=FBlogsInstance;
end;

Function TBloggerAPI.CreateBlogsResource : TBlogsResource;

begin
  Result:=CreateBlogsResource(Self);
end;


Function TBloggerAPI.CreateBlogsResource(AOwner : TComponent) : TBlogsResource;

begin
  Result:=TBlogsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TBloggerAPI.GetCommentsInstance : TCommentsResource;

begin
  if (FCommentsInstance=Nil) then
    FCommentsInstance:=CreateCommentsResource;
  Result:=FCommentsInstance;
end;

Function TBloggerAPI.CreateCommentsResource : TCommentsResource;

begin
  Result:=CreateCommentsResource(Self);
end;


Function TBloggerAPI.CreateCommentsResource(AOwner : TComponent) : TCommentsResource;

begin
  Result:=TCommentsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TBloggerAPI.GetPageViewsInstance : TPageViewsResource;

begin
  if (FPageViewsInstance=Nil) then
    FPageViewsInstance:=CreatePageViewsResource;
  Result:=FPageViewsInstance;
end;

Function TBloggerAPI.CreatePageViewsResource : TPageViewsResource;

begin
  Result:=CreatePageViewsResource(Self);
end;


Function TBloggerAPI.CreatePageViewsResource(AOwner : TComponent) : TPageViewsResource;

begin
  Result:=TPageViewsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TBloggerAPI.GetPagesInstance : TPagesResource;

begin
  if (FPagesInstance=Nil) then
    FPagesInstance:=CreatePagesResource;
  Result:=FPagesInstance;
end;

Function TBloggerAPI.CreatePagesResource : TPagesResource;

begin
  Result:=CreatePagesResource(Self);
end;


Function TBloggerAPI.CreatePagesResource(AOwner : TComponent) : TPagesResource;

begin
  Result:=TPagesResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TBloggerAPI.GetPostUserInfosInstance : TPostUserInfosResource;

begin
  if (FPostUserInfosInstance=Nil) then
    FPostUserInfosInstance:=CreatePostUserInfosResource;
  Result:=FPostUserInfosInstance;
end;

Function TBloggerAPI.CreatePostUserInfosResource : TPostUserInfosResource;

begin
  Result:=CreatePostUserInfosResource(Self);
end;


Function TBloggerAPI.CreatePostUserInfosResource(AOwner : TComponent) : TPostUserInfosResource;

begin
  Result:=TPostUserInfosResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TBloggerAPI.GetPostsInstance : TPostsResource;

begin
  if (FPostsInstance=Nil) then
    FPostsInstance:=CreatePostsResource;
  Result:=FPostsInstance;
end;

Function TBloggerAPI.CreatePostsResource : TPostsResource;

begin
  Result:=CreatePostsResource(Self);
end;


Function TBloggerAPI.CreatePostsResource(AOwner : TComponent) : TPostsResource;

begin
  Result:=TPostsResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TBloggerAPI.GetUsersInstance : TUsersResource;

begin
  if (FUsersInstance=Nil) then
    FUsersInstance:=CreateUsersResource;
  Result:=FUsersInstance;
end;

Function TBloggerAPI.CreateUsersResource : TUsersResource;

begin
  Result:=CreateUsersResource(Self);
end;


Function TBloggerAPI.CreateUsersResource(AOwner : TComponent) : TUsersResource;

begin
  Result:=TUsersResource.Create(AOwner);
  Result.API:=Self.API;
end;



initialization
  TBloggerAPI.RegisterAPI;
end.