unit googlebooks; {$MODE objfpc} {$H+} interface uses sysutils, classes, googleservice, restbase, googlebase; type //Top-level schema types TAnnotation = Class; TAnnotationdata = Class; TAnnotations = Class; TAnnotationsSummary = Class; TAnnotationsdata = Class; TBooksAnnotationsRange = Class; TBooksCloudloadingResource = Class; TBooksVolumesRecommendedRateResponse = Class; TBookshelf = Class; TBookshelves = Class; TCategory = Class; TConcurrentAccessRestriction = Class; TDictlayerdata = Class; TDiscoveryclusters = Class; TDownloadAccessRestriction = Class; TDownloadAccesses = Class; TGeolayerdata = Class; TLayersummaries = Class; TLayersummary = Class; TMetadata = Class; TNotification = Class; TOffers = Class; TReadingPosition = Class; TRequestAccess = Class; TReview = Class; TSeries = Class; TSeriesmembership = Class; TUsersettings = Class; TVolume = Class; TVolume2 = Class; TVolumeannotation = Class; TVolumeannotations = Class; TVolumes = Class; TVolumeseriesinfo = Class; TAnnotationArray = Array of TAnnotation; TAnnotationdataArray = Array of TAnnotationdata; TAnnotationsArray = Array of TAnnotations; TAnnotationsSummaryArray = Array of TAnnotationsSummary; TAnnotationsdataArray = Array of TAnnotationsdata; TBooksAnnotationsRangeArray = Array of TBooksAnnotationsRange; TBooksCloudloadingResourceArray = Array of TBooksCloudloadingResource; TBooksVolumesRecommendedRateResponseArray = Array of TBooksVolumesRecommendedRateResponse; TBookshelfArray = Array of TBookshelf; TBookshelvesArray = Array of TBookshelves; TCategoryArray = Array of TCategory; TConcurrentAccessRestrictionArray = Array of TConcurrentAccessRestriction; TDictlayerdataArray = Array of TDictlayerdata; TDiscoveryclustersArray = Array of TDiscoveryclusters; TDownloadAccessRestrictionArray = Array of TDownloadAccessRestriction; TDownloadAccessesArray = Array of TDownloadAccesses; TGeolayerdataArray = Array of TGeolayerdata; TLayersummariesArray = Array of TLayersummaries; TLayersummaryArray = Array of TLayersummary; TMetadataArray = Array of TMetadata; TNotificationArray = Array of TNotification; TOffersArray = Array of TOffers; TReadingPositionArray = Array of TReadingPosition; TRequestAccessArray = Array of TRequestAccess; TReviewArray = Array of TReview; TSeriesArray = Array of TSeries; TSeriesmembershipArray = Array of TSeriesmembership; TUsersettingsArray = Array of TUsersettings; TVolumeArray = Array of TVolume; TVolume2Array = Array of TVolume2; TVolumeannotationArray = Array of TVolumeannotation; TVolumeannotationsArray = Array of TVolumeannotations; TVolumesArray = Array of TVolumes; TVolumeseriesinfoArray = Array of TVolumeseriesinfo; //Anonymous types, using auto-generated names TAnnotationTypeclientVersionRanges = Class; TAnnotationTypecurrentVersionRanges = Class; TAnnotationTypelayerSummary = Class; TAnnotationsSummaryTypelayersItem = Class; TCategoryTypeitemsItem = Class; TDictlayerdataTypecommon = Class; TDictlayerdataTypedictTypesource = Class; TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource = Class; TDictlayerdataTypedictTypewordsItemTypederivativesItem = Class; TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource = Class; TDictlayerdataTypedictTypewordsItemTypeexamplesItem = Class; TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem = Class; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource = Class; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem = Class; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem = Class; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource = Class; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource = Class; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem = Class; TDictlayerdataTypedictTypewordsItemTypesensesItem = Class; TDictlayerdataTypedictTypewordsItemTypesource = Class; TDictlayerdataTypedictTypewordsItem = Class; TDictlayerdataTypedict = Class; TDiscoveryclustersTypeclustersItemTypebanner_with_content_container = Class; TDiscoveryclustersTypeclustersItem = Class; TGeolayerdataTypecommon = Class; TGeolayerdataTypegeoTypeboundaryItemItem = Class; TGeolayerdataTypegeoTypeviewportTypehi = Class; TGeolayerdataTypegeoTypeviewportTypelo = Class; TGeolayerdataTypegeoTypeviewport = Class; TGeolayerdataTypegeo = Class; TMetadataTypeitemsItem = Class; TOffersTypeitemsItemTypeitemsItem = Class; TOffersTypeitemsItem = Class; TReviewTypeauthor = Class; TReviewTypesource = Class; TSeriesTypeseriesItem = Class; TUsersettingsTypenotesExport = Class; TUsersettingsTypenotificationTypemoreFromAuthors = Class; TUsersettingsTypenotification = Class; TVolumeTypeaccessInfoTypeepub = Class; TVolumeTypeaccessInfoTypepdf = Class; TVolumeTypeaccessInfo = Class; TVolumeTypelayerInfoTypelayersItem = Class; TVolumeTypelayerInfo = Class; TVolumeTyperecommendedInfo = Class; TVolumeTypesaleInfoTypelistPrice = Class; TVolumeTypesaleInfoTypeoffersItemTypelistPrice = Class; TVolumeTypesaleInfoTypeoffersItemTyperentalDuration = Class; TVolumeTypesaleInfoTypeoffersItemTyperetailPrice = Class; TVolumeTypesaleInfoTypeoffersItem = Class; TVolumeTypesaleInfoTyperetailPrice = Class; TVolumeTypesaleInfo = Class; TVolumeTypesearchInfo = Class; TVolumeTypeuserInfoTypecopy = Class; TVolumeTypeuserInfoTypefamilySharing = Class; TVolumeTypeuserInfoTyperentalPeriod = Class; TVolumeTypeuserInfoTypeuserUploadedVolumeInfo = Class; TVolumeTypeuserInfo = Class; TVolumeTypevolumeInfoTypedimensions = Class; TVolumeTypevolumeInfoTypeimageLinks = Class; TVolumeTypevolumeInfoTypeindustryIdentifiersItem = Class; TVolumeTypevolumeInfo = Class; TVolumeannotationTypecontentRanges = Class; TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem = Class; TVolumeseriesinfoTypevolumeSeriesItem = Class; TAnnotationsTypeitemsArray = Array of TAnnotation; TAnnotationsSummaryTypelayersArray = Array of TAnnotationsSummaryTypelayersItem; TAnnotationsdataTypeitemsArray = Array of TAnnotationdata; TBookshelvesTypeitemsArray = Array of TBookshelf; TCategoryTypeitemsArray = Array of TCategoryTypeitemsItem; TDictlayerdataTypedictTypewordsItemTypederivativesArray = Array of TDictlayerdataTypedictTypewordsItemTypederivativesItem; TDictlayerdataTypedictTypewordsItemTypeexamplesArray = Array of TDictlayerdataTypedictTypewordsItemTypeexamplesItem; TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray = Array of TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray = Array of TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray = Array of TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray = Array of TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem; TDictlayerdataTypedictTypewordsItemTypesensesArray = Array of TDictlayerdataTypedictTypewordsItemTypesensesItem; TDictlayerdataTypedictTypewordsArray = Array of TDictlayerdataTypedictTypewordsItem; TDiscoveryclustersTypeclustersItemTypevolumesArray = Array of TVolume; TDiscoveryclustersTypeclustersArray = Array of TDiscoveryclustersTypeclustersItem; TDownloadAccessesTypedownloadAccessListArray = Array of TDownloadAccessRestriction; TGeolayerdataTypegeoTypeboundaryItemArray = Array of TGeolayerdataTypegeoTypeboundaryItemItem; TGeolayerdataTypegeoTypeboundaryArray = Array of TGeolayerdataTypegeoTypeboundaryItemArray; TLayersummariesTypeitemsArray = Array of TLayersummary; TMetadataTypeitemsArray = Array of TMetadataTypeitemsItem; TOffersTypeitemsItemTypeitemsArray = Array of TOffersTypeitemsItemTypeitemsItem; TOffersTypeitemsArray = Array of TOffersTypeitemsItem; TSeriesTypeseriesArray = Array of TSeriesTypeseriesItem; TSeriesmembershipTypememberArray = Array of TVolume; TVolumeTypelayerInfoTypelayersArray = Array of TVolumeTypelayerInfoTypelayersItem; TVolumeTypesaleInfoTypeoffersArray = Array of TVolumeTypesaleInfoTypeoffersItem; TVolumeTypevolumeInfoTypeindustryIdentifiersArray = Array of TVolumeTypevolumeInfoTypeindustryIdentifiersItem; TVolume2TypeitemsArray = Array of TVolume; TVolumeannotationsTypeitemsArray = Array of TVolumeannotation; TVolumesTypeitemsArray = Array of TVolume; TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray = Array of TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem; TVolumeseriesinfoTypevolumeSeriesArray = Array of TVolumeseriesinfoTypevolumeSeriesItem; { -------------------------------------------------------------------- TAnnotationTypeclientVersionRanges --------------------------------------------------------------------} TAnnotationTypeclientVersionRanges = Class(TGoogleBaseObject) Private FcfiRange : TBooksAnnotationsRange; FcontentVersion : String; FgbImageRange : TBooksAnnotationsRange; FgbTextRange : TBooksAnnotationsRange; FimageCfiRange : TBooksAnnotationsRange; Protected //Property setters Procedure SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual; Procedure SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Public Published Property cfiRange : TBooksAnnotationsRange Index 0 Read FcfiRange Write SetcfiRange; Property contentVersion : String Index 8 Read FcontentVersion Write SetcontentVersion; Property gbImageRange : TBooksAnnotationsRange Index 16 Read FgbImageRange Write SetgbImageRange; Property gbTextRange : TBooksAnnotationsRange Index 24 Read FgbTextRange Write SetgbTextRange; Property imageCfiRange : TBooksAnnotationsRange Index 32 Read FimageCfiRange Write SetimageCfiRange; end; TAnnotationTypeclientVersionRangesClass = Class of TAnnotationTypeclientVersionRanges; { -------------------------------------------------------------------- TAnnotationTypecurrentVersionRanges --------------------------------------------------------------------} TAnnotationTypecurrentVersionRanges = Class(TGoogleBaseObject) Private FcfiRange : TBooksAnnotationsRange; FcontentVersion : String; FgbImageRange : TBooksAnnotationsRange; FgbTextRange : TBooksAnnotationsRange; FimageCfiRange : TBooksAnnotationsRange; Protected //Property setters Procedure SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual; Procedure SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Public Published Property cfiRange : TBooksAnnotationsRange Index 0 Read FcfiRange Write SetcfiRange; Property contentVersion : String Index 8 Read FcontentVersion Write SetcontentVersion; Property gbImageRange : TBooksAnnotationsRange Index 16 Read FgbImageRange Write SetgbImageRange; Property gbTextRange : TBooksAnnotationsRange Index 24 Read FgbTextRange Write SetgbTextRange; Property imageCfiRange : TBooksAnnotationsRange Index 32 Read FimageCfiRange Write SetimageCfiRange; end; TAnnotationTypecurrentVersionRangesClass = Class of TAnnotationTypecurrentVersionRanges; { -------------------------------------------------------------------- TAnnotationTypelayerSummary --------------------------------------------------------------------} TAnnotationTypelayerSummary = Class(TGoogleBaseObject) Private FallowedCharacterCount : integer; FlimitType : String; FremainingCharacterCount : integer; Protected //Property setters Procedure SetallowedCharacterCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetlimitType(AIndex : Integer; const AValue : String); virtual; Procedure SetremainingCharacterCount(AIndex : Integer; const AValue : integer); virtual; Public Published Property allowedCharacterCount : integer Index 0 Read FallowedCharacterCount Write SetallowedCharacterCount; Property limitType : String Index 8 Read FlimitType Write SetlimitType; Property remainingCharacterCount : integer Index 16 Read FremainingCharacterCount Write SetremainingCharacterCount; end; TAnnotationTypelayerSummaryClass = Class of TAnnotationTypelayerSummary; { -------------------------------------------------------------------- TAnnotation --------------------------------------------------------------------} TAnnotation = Class(TGoogleBaseObject) Private FafterSelectedText : String; FbeforeSelectedText : String; FclientVersionRanges : TAnnotationTypeclientVersionRanges; Fcreated : TDatetime; FcurrentVersionRanges : TAnnotationTypecurrentVersionRanges; Fdata : String; Fdeleted : boolean; FhighlightStyle : String; Fid : String; Fkind : String; FlayerId : String; FlayerSummary : TAnnotationTypelayerSummary; FpageIds : TStringArray; FselectedText : String; FselfLink : String; Fupdated : TDatetime; FvolumeId : String; Protected //Property setters Procedure SetafterSelectedText(AIndex : Integer; const AValue : String); virtual; Procedure SetbeforeSelectedText(AIndex : Integer; const AValue : String); virtual; Procedure SetclientVersionRanges(AIndex : Integer; const AValue : TAnnotationTypeclientVersionRanges); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetcurrentVersionRanges(AIndex : Integer; const AValue : TAnnotationTypecurrentVersionRanges); virtual; Procedure Setdata(AIndex : Integer; const AValue : String); virtual; Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual; Procedure SethighlightStyle(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual; Procedure SetlayerSummary(AIndex : Integer; const AValue : TAnnotationTypelayerSummary); virtual; Procedure SetpageIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetselectedText(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetvolumeId(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 afterSelectedText : String Index 0 Read FafterSelectedText Write SetafterSelectedText; Property beforeSelectedText : String Index 8 Read FbeforeSelectedText Write SetbeforeSelectedText; Property clientVersionRanges : TAnnotationTypeclientVersionRanges Index 16 Read FclientVersionRanges Write SetclientVersionRanges; Property created : TDatetime Index 24 Read Fcreated Write Setcreated; Property currentVersionRanges : TAnnotationTypecurrentVersionRanges Index 32 Read FcurrentVersionRanges Write SetcurrentVersionRanges; Property data : String Index 40 Read Fdata Write Setdata; Property deleted : boolean Index 48 Read Fdeleted Write Setdeleted; Property highlightStyle : String Index 56 Read FhighlightStyle Write SethighlightStyle; Property id : String Index 64 Read Fid Write Setid; Property kind : String Index 72 Read Fkind Write Setkind; Property layerId : String Index 80 Read FlayerId Write SetlayerId; Property layerSummary : TAnnotationTypelayerSummary Index 88 Read FlayerSummary Write SetlayerSummary; Property pageIds : TStringArray Index 96 Read FpageIds Write SetpageIds; Property selectedText : String Index 104 Read FselectedText Write SetselectedText; Property selfLink : String Index 112 Read FselfLink Write SetselfLink; Property updated : TDatetime Index 120 Read Fupdated Write Setupdated; Property volumeId : String Index 128 Read FvolumeId Write SetvolumeId; end; TAnnotationClass = Class of TAnnotation; { -------------------------------------------------------------------- TAnnotationdata --------------------------------------------------------------------} TAnnotationdata = Class(TGoogleBaseObject) Private FannotationType : String; Fdata : TJSONSchema; Fencoded_data : String; Fid : String; Fkind : String; FlayerId : String; FselfLink : String; Fupdated : TDatetime; FvolumeId : String; Protected //Property setters Procedure SetannotationType(AIndex : Integer; const AValue : String); virtual; Procedure Setdata(AIndex : Integer; const AValue : TJSONSchema); virtual; Procedure Setencoded_data(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; Public Published Property annotationType : String Index 0 Read FannotationType Write SetannotationType; Property data : TJSONSchema Index 8 Read Fdata Write Setdata; Property encoded_data : String Index 16 Read Fencoded_data Write Setencoded_data; Property id : String Index 24 Read Fid Write Setid; Property kind : String Index 32 Read Fkind Write Setkind; Property layerId : String Index 40 Read FlayerId Write SetlayerId; Property selfLink : String Index 48 Read FselfLink Write SetselfLink; Property updated : TDatetime Index 56 Read Fupdated Write Setupdated; Property volumeId : String Index 64 Read FvolumeId Write SetvolumeId; end; TAnnotationdataClass = Class of TAnnotationdata; { -------------------------------------------------------------------- TAnnotations --------------------------------------------------------------------} TAnnotations = Class(TGoogleBaseObject) Private Fitems : TAnnotationsTypeitemsArray; Fkind : String; FnextPageToken : String; FtotalItems : integer; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TAnnotationsTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure SettotalItems(AIndex : Integer; 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 : TAnnotationsTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken; Property totalItems : integer Index 24 Read FtotalItems Write SettotalItems; end; TAnnotationsClass = Class of TAnnotations; { -------------------------------------------------------------------- TAnnotationsSummaryTypelayersItem --------------------------------------------------------------------} TAnnotationsSummaryTypelayersItem = Class(TGoogleBaseObject) Private FallowedCharacterCount : integer; FlayerId : String; FlimitType : String; FremainingCharacterCount : integer; Fupdated : TDatetime; Protected //Property setters Procedure SetallowedCharacterCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual; Procedure SetlimitType(AIndex : Integer; const AValue : String); virtual; Procedure SetremainingCharacterCount(AIndex : Integer; const AValue : integer); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Public Published Property allowedCharacterCount : integer Index 0 Read FallowedCharacterCount Write SetallowedCharacterCount; Property layerId : String Index 8 Read FlayerId Write SetlayerId; Property limitType : String Index 16 Read FlimitType Write SetlimitType; Property remainingCharacterCount : integer Index 24 Read FremainingCharacterCount Write SetremainingCharacterCount; Property updated : TDatetime Index 32 Read Fupdated Write Setupdated; end; TAnnotationsSummaryTypelayersItemClass = Class of TAnnotationsSummaryTypelayersItem; { -------------------------------------------------------------------- TAnnotationsSummary --------------------------------------------------------------------} TAnnotationsSummary = Class(TGoogleBaseObject) Private Fkind : String; Flayers : TAnnotationsSummaryTypelayersArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlayers(AIndex : Integer; const AValue : TAnnotationsSummaryTypelayersArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property layers : TAnnotationsSummaryTypelayersArray Index 8 Read Flayers Write Setlayers; end; TAnnotationsSummaryClass = Class of TAnnotationsSummary; { -------------------------------------------------------------------- TAnnotationsdata --------------------------------------------------------------------} TAnnotationsdata = Class(TGoogleBaseObject) Private Fitems : TAnnotationsdataTypeitemsArray; Fkind : String; FnextPageToken : String; FtotalItems : integer; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TAnnotationsdataTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure SettotalItems(AIndex : Integer; 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 : TAnnotationsdataTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken; Property totalItems : integer Index 24 Read FtotalItems Write SettotalItems; end; TAnnotationsdataClass = Class of TAnnotationsdata; { -------------------------------------------------------------------- TBooksAnnotationsRange --------------------------------------------------------------------} TBooksAnnotationsRange = Class(TGoogleBaseObject) Private FendOffset : String; FendPosition : String; FstartOffset : String; FstartPosition : String; Protected //Property setters Procedure SetendOffset(AIndex : Integer; const AValue : String); virtual; Procedure SetendPosition(AIndex : Integer; const AValue : String); virtual; Procedure SetstartOffset(AIndex : Integer; const AValue : String); virtual; Procedure SetstartPosition(AIndex : Integer; const AValue : String); virtual; Public Published Property endOffset : String Index 0 Read FendOffset Write SetendOffset; Property endPosition : String Index 8 Read FendPosition Write SetendPosition; Property startOffset : String Index 16 Read FstartOffset Write SetstartOffset; Property startPosition : String Index 24 Read FstartPosition Write SetstartPosition; end; TBooksAnnotationsRangeClass = Class of TBooksAnnotationsRange; { -------------------------------------------------------------------- TBooksCloudloadingResource --------------------------------------------------------------------} TBooksCloudloadingResource = Class(TGoogleBaseObject) Private Fauthor : String; FprocessingState : String; Ftitle : String; FvolumeId : String; Protected //Property setters Procedure Setauthor(AIndex : Integer; const AValue : String); virtual; Procedure SetprocessingState(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; Public Published Property author : String Index 0 Read Fauthor Write Setauthor; Property processingState : String Index 8 Read FprocessingState Write SetprocessingState; Property title : String Index 16 Read Ftitle Write Settitle; Property volumeId : String Index 24 Read FvolumeId Write SetvolumeId; end; TBooksCloudloadingResourceClass = Class of TBooksCloudloadingResource; { -------------------------------------------------------------------- TBooksVolumesRecommendedRateResponse --------------------------------------------------------------------} TBooksVolumesRecommendedRateResponse = Class(TGoogleBaseObject) Private Fconsistency_token : String; Protected //Property setters Procedure Setconsistency_token(AIndex : Integer; const AValue : String); virtual; Public Published Property consistency_token : String Index 0 Read Fconsistency_token Write Setconsistency_token; end; TBooksVolumesRecommendedRateResponseClass = Class of TBooksVolumesRecommendedRateResponse; { -------------------------------------------------------------------- TBookshelf --------------------------------------------------------------------} TBookshelf = Class(TGoogleBaseObject) Private Faccess : String; Fcreated : TDatetime; Fdescription : String; Fid : integer; Fkind : String; FselfLink : String; Ftitle : String; Fupdated : TDatetime; FvolumeCount : integer; FvolumesLastUpdated : TDatetime; Protected //Property setters Procedure Setaccess(AIndex : Integer; const AValue : String); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetvolumeCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetvolumesLastUpdated(AIndex : Integer; const AValue : TDatetime); virtual; Public Published Property access : String Index 0 Read Faccess Write Setaccess; Property created : TDatetime Index 8 Read Fcreated Write Setcreated; Property description : String Index 16 Read Fdescription Write Setdescription; Property id : integer Index 24 Read Fid Write Setid; Property kind : String Index 32 Read Fkind Write Setkind; Property selfLink : String Index 40 Read FselfLink Write SetselfLink; Property title : String Index 48 Read Ftitle Write Settitle; Property updated : TDatetime Index 56 Read Fupdated Write Setupdated; Property volumeCount : integer Index 64 Read FvolumeCount Write SetvolumeCount; Property volumesLastUpdated : TDatetime Index 72 Read FvolumesLastUpdated Write SetvolumesLastUpdated; end; TBookshelfClass = Class of TBookshelf; { -------------------------------------------------------------------- TBookshelves --------------------------------------------------------------------} TBookshelves = Class(TGoogleBaseObject) Private Fitems : TBookshelvesTypeitemsArray; Fkind : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TBookshelvesTypeitemsArray); 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 items : TBookshelvesTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; end; TBookshelvesClass = Class of TBookshelves; { -------------------------------------------------------------------- TCategoryTypeitemsItem --------------------------------------------------------------------} TCategoryTypeitemsItem = Class(TGoogleBaseObject) Private FbadgeUrl : String; FcategoryId : String; Fname : String; Protected //Property setters Procedure SetbadgeUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetcategoryId(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property badgeUrl : String Index 0 Read FbadgeUrl Write SetbadgeUrl; Property categoryId : String Index 8 Read FcategoryId Write SetcategoryId; Property name : String Index 16 Read Fname Write Setname; end; TCategoryTypeitemsItemClass = Class of TCategoryTypeitemsItem; { -------------------------------------------------------------------- TCategory --------------------------------------------------------------------} TCategory = Class(TGoogleBaseObject) Private Fitems : TCategoryTypeitemsArray; Fkind : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TCategoryTypeitemsArray); 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 items : TCategoryTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; end; TCategoryClass = Class of TCategory; { -------------------------------------------------------------------- TConcurrentAccessRestriction --------------------------------------------------------------------} TConcurrentAccessRestriction = Class(TGoogleBaseObject) Private FdeviceAllowed : boolean; Fkind : String; FmaxConcurrentDevices : integer; Fmessage : String; Fnonce : String; FreasonCode : String; Frestricted : boolean; Fsignature : String; Fsource : String; FtimeWindowSeconds : integer; FvolumeId : String; Protected //Property setters Procedure SetdeviceAllowed(AIndex : Integer; const AValue : boolean); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetmaxConcurrentDevices(AIndex : Integer; const AValue : integer); virtual; Procedure Setmessage(AIndex : Integer; const AValue : String); virtual; Procedure Setnonce(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonCode(AIndex : Integer; const AValue : String); virtual; Procedure Setrestricted(AIndex : Integer; const AValue : boolean); virtual; Procedure Setsignature(AIndex : Integer; const AValue : String); virtual; Procedure Setsource(AIndex : Integer; const AValue : String); virtual; Procedure SettimeWindowSeconds(AIndex : Integer; const AValue : integer); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; Public Published Property deviceAllowed : boolean Index 0 Read FdeviceAllowed Write SetdeviceAllowed; Property kind : String Index 8 Read Fkind Write Setkind; Property maxConcurrentDevices : integer Index 16 Read FmaxConcurrentDevices Write SetmaxConcurrentDevices; Property message : String Index 24 Read Fmessage Write Setmessage; Property nonce : String Index 32 Read Fnonce Write Setnonce; Property reasonCode : String Index 40 Read FreasonCode Write SetreasonCode; Property restricted : boolean Index 48 Read Frestricted Write Setrestricted; Property signature : String Index 56 Read Fsignature Write Setsignature; Property source : String Index 64 Read Fsource Write Setsource; Property timeWindowSeconds : integer Index 72 Read FtimeWindowSeconds Write SettimeWindowSeconds; Property volumeId : String Index 80 Read FvolumeId Write SetvolumeId; end; TConcurrentAccessRestrictionClass = Class of TConcurrentAccessRestriction; { -------------------------------------------------------------------- TDictlayerdataTypecommon --------------------------------------------------------------------} TDictlayerdataTypecommon = Class(TGoogleBaseObject) Private Ftitle : String; Protected //Property setters Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Public Published Property title : String Index 0 Read Ftitle Write Settitle; end; TDictlayerdataTypecommonClass = Class of TDictlayerdataTypecommon; { -------------------------------------------------------------------- TDictlayerdataTypedictTypesource --------------------------------------------------------------------} TDictlayerdataTypedictTypesource = Class(TGoogleBaseObject) Private Fattribution : String; Furl : String; Protected //Property setters Procedure Setattribution(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property attribution : String Index 0 Read Fattribution Write Setattribution; Property url : String Index 8 Read Furl Write Seturl; end; TDictlayerdataTypedictTypesourceClass = Class of TDictlayerdataTypedictTypesource; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource = Class(TGoogleBaseObject) Private Fattribution : String; Furl : String; Protected //Property setters Procedure Setattribution(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property attribution : String Index 0 Read Fattribution Write Setattribution; Property url : String Index 8 Read Furl Write Seturl; end; TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesourceClass = Class of TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypederivativesItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypederivativesItem = Class(TGoogleBaseObject) Private Fsource : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource; Ftext : String; Protected //Property setters Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource); virtual; Procedure Settext(AIndex : Integer; const AValue : String); virtual; Public Published Property source : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource Index 0 Read Fsource Write Setsource; Property text : String Index 8 Read Ftext Write Settext; end; TDictlayerdataTypedictTypewordsItemTypederivativesItemClass = Class of TDictlayerdataTypedictTypewordsItemTypederivativesItem; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource = Class(TGoogleBaseObject) Private Fattribution : String; Furl : String; Protected //Property setters Procedure Setattribution(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property attribution : String Index 0 Read Fattribution Write Setattribution; Property url : String Index 8 Read Furl Write Seturl; end; TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesourceClass = Class of TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypeexamplesItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypeexamplesItem = Class(TGoogleBaseObject) Private Fsource : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource; Ftext : String; Protected //Property setters Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource); virtual; Procedure Settext(AIndex : Integer; const AValue : String); virtual; Public Published Property source : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource Index 0 Read Fsource Write Setsource; Property text : String Index 8 Read Ftext Write Settext; end; TDictlayerdataTypedictTypewordsItemTypeexamplesItemClass = Class of TDictlayerdataTypedictTypewordsItemTypeexamplesItem; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem = Class(TGoogleBaseObject) Private F_type : String; Fvalue : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setvalue(AIndex : Integer; const AValue : String); virtual; Public Published Property _type : String Index 0 Read F_type Write Set_type; Property value : String Index 8 Read Fvalue Write Setvalue; end; TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItemClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource = Class(TGoogleBaseObject) Private Fattribution : String; Furl : String; Protected //Property setters Procedure Setattribution(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property attribution : String Index 0 Read Fattribution Write Setattribution; Property url : String Index 8 Read Furl Write Seturl; end; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesourceClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem = Class(TGoogleBaseObject) Private Fsource : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource; Ftext : String; Protected //Property setters Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource); virtual; Procedure Settext(AIndex : Integer; const AValue : String); virtual; Public Published Property source : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource Index 0 Read Fsource Write Setsource; Property text : String Index 8 Read Ftext Write Settext; end; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem = Class(TGoogleBaseObject) Private Fdefinition : String; Fexamples : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray; Protected //Property setters Procedure Setdefinition(AIndex : Integer; const AValue : String); virtual; Procedure Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property definition : String Index 0 Read Fdefinition Write Setdefinition; Property examples : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray Index 8 Read Fexamples Write Setexamples; end; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource = Class(TGoogleBaseObject) Private Fattribution : String; Furl : String; Protected //Property setters Procedure Setattribution(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property attribution : String Index 0 Read Fattribution Write Setattribution; Property url : String Index 8 Read Furl Write Seturl; end; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesourceClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource = Class(TGoogleBaseObject) Private Fattribution : String; Furl : String; Protected //Property setters Procedure Setattribution(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property attribution : String Index 0 Read Fattribution Write Setattribution; Property url : String Index 8 Read Furl Write Seturl; end; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesourceClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem = Class(TGoogleBaseObject) Private Fsource : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource; Ftext : String; Protected //Property setters Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource); virtual; Procedure Settext(AIndex : Integer; const AValue : String); virtual; Public Published Property source : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource Index 0 Read Fsource Write Setsource; Property text : String Index 8 Read Ftext Write Settext; end; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesensesItem = Class(TGoogleBaseObject) Private Fconjugations : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray; Fdefinitions : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray; FpartOfSpeech : String; Fpronunciation : String; FpronunciationUrl : String; Fsource : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource; Fsyllabification : String; Fsynonyms : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray; Protected //Property setters Procedure Setconjugations(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray); virtual; Procedure Setdefinitions(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray); virtual; Procedure SetpartOfSpeech(AIndex : Integer; const AValue : String); virtual; Procedure Setpronunciation(AIndex : Integer; const AValue : String); virtual; Procedure SetpronunciationUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource); virtual; Procedure Setsyllabification(AIndex : Integer; const AValue : String); virtual; Procedure Setsynonyms(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property conjugations : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray Index 0 Read Fconjugations Write Setconjugations; Property definitions : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray Index 8 Read Fdefinitions Write Setdefinitions; Property partOfSpeech : String Index 16 Read FpartOfSpeech Write SetpartOfSpeech; Property pronunciation : String Index 24 Read Fpronunciation Write Setpronunciation; Property pronunciationUrl : String Index 32 Read FpronunciationUrl Write SetpronunciationUrl; Property source : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource Index 40 Read Fsource Write Setsource; Property syllabification : String Index 48 Read Fsyllabification Write Setsyllabification; Property synonyms : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray Index 56 Read Fsynonyms Write Setsynonyms; end; TDictlayerdataTypedictTypewordsItemTypesensesItemClass = Class of TDictlayerdataTypedictTypewordsItemTypesensesItem; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesource --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItemTypesource = Class(TGoogleBaseObject) Private Fattribution : String; Furl : String; Protected //Property setters Procedure Setattribution(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property attribution : String Index 0 Read Fattribution Write Setattribution; Property url : String Index 8 Read Furl Write Seturl; end; TDictlayerdataTypedictTypewordsItemTypesourceClass = Class of TDictlayerdataTypedictTypewordsItemTypesource; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItem --------------------------------------------------------------------} TDictlayerdataTypedictTypewordsItem = Class(TGoogleBaseObject) Private Fderivatives : TDictlayerdataTypedictTypewordsItemTypederivativesArray; Fexamples : TDictlayerdataTypedictTypewordsItemTypeexamplesArray; Fsenses : TDictlayerdataTypedictTypewordsItemTypesensesArray; Fsource : TDictlayerdataTypedictTypewordsItemTypesource; Protected //Property setters Procedure Setderivatives(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesArray); virtual; Procedure Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesArray); virtual; Procedure Setsenses(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesArray); virtual; Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesource); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property derivatives : TDictlayerdataTypedictTypewordsItemTypederivativesArray Index 0 Read Fderivatives Write Setderivatives; Property examples : TDictlayerdataTypedictTypewordsItemTypeexamplesArray Index 8 Read Fexamples Write Setexamples; Property senses : TDictlayerdataTypedictTypewordsItemTypesensesArray Index 16 Read Fsenses Write Setsenses; Property source : TDictlayerdataTypedictTypewordsItemTypesource Index 24 Read Fsource Write Setsource; end; TDictlayerdataTypedictTypewordsItemClass = Class of TDictlayerdataTypedictTypewordsItem; { -------------------------------------------------------------------- TDictlayerdataTypedict --------------------------------------------------------------------} TDictlayerdataTypedict = Class(TGoogleBaseObject) Private Fsource : TDictlayerdataTypedictTypesource; Fwords : TDictlayerdataTypedictTypewordsArray; Protected //Property setters Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypesource); virtual; Procedure Setwords(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property source : TDictlayerdataTypedictTypesource Index 0 Read Fsource Write Setsource; Property words : TDictlayerdataTypedictTypewordsArray Index 8 Read Fwords Write Setwords; end; TDictlayerdataTypedictClass = Class of TDictlayerdataTypedict; { -------------------------------------------------------------------- TDictlayerdata --------------------------------------------------------------------} TDictlayerdata = Class(TGoogleBaseObject) Private Fcommon : TDictlayerdataTypecommon; Fdict : TDictlayerdataTypedict; Fkind : String; Protected //Property setters Procedure Setcommon(AIndex : Integer; const AValue : TDictlayerdataTypecommon); virtual; Procedure Setdict(AIndex : Integer; const AValue : TDictlayerdataTypedict); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property common : TDictlayerdataTypecommon Index 0 Read Fcommon Write Setcommon; Property dict : TDictlayerdataTypedict Index 8 Read Fdict Write Setdict; Property kind : String Index 16 Read Fkind Write Setkind; end; TDictlayerdataClass = Class of TDictlayerdata; { -------------------------------------------------------------------- TDiscoveryclustersTypeclustersItemTypebanner_with_content_container --------------------------------------------------------------------} TDiscoveryclustersTypeclustersItemTypebanner_with_content_container = Class(TGoogleBaseObject) Private FfillColorArgb : String; FimageUrl : String; FmaskColorArgb : String; FmoreButtonText : String; FmoreButtonUrl : String; FtextColorArgb : String; Protected //Property setters Procedure SetfillColorArgb(AIndex : Integer; const AValue : String); virtual; Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetmaskColorArgb(AIndex : Integer; const AValue : String); virtual; Procedure SetmoreButtonText(AIndex : Integer; const AValue : String); virtual; Procedure SetmoreButtonUrl(AIndex : Integer; const AValue : String); virtual; Procedure SettextColorArgb(AIndex : Integer; const AValue : String); virtual; Public Published Property fillColorArgb : String Index 0 Read FfillColorArgb Write SetfillColorArgb; Property imageUrl : String Index 8 Read FimageUrl Write SetimageUrl; Property maskColorArgb : String Index 16 Read FmaskColorArgb Write SetmaskColorArgb; Property moreButtonText : String Index 24 Read FmoreButtonText Write SetmoreButtonText; Property moreButtonUrl : String Index 32 Read FmoreButtonUrl Write SetmoreButtonUrl; Property textColorArgb : String Index 40 Read FtextColorArgb Write SettextColorArgb; end; TDiscoveryclustersTypeclustersItemTypebanner_with_content_containerClass = Class of TDiscoveryclustersTypeclustersItemTypebanner_with_content_container; { -------------------------------------------------------------------- TDiscoveryclustersTypeclustersItem --------------------------------------------------------------------} TDiscoveryclustersTypeclustersItem = Class(TGoogleBaseObject) Private Fbanner_with_content_container : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container; FsubTitle : String; Ftitle : String; FtotalVolumes : integer; Fuid : String; Fvolumes : TDiscoveryclustersTypeclustersItemTypevolumesArray; Protected //Property setters Procedure Setbanner_with_content_container(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container); virtual; Procedure SetsubTitle(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure SettotalVolumes(AIndex : Integer; const AValue : integer); virtual; Procedure Setuid(AIndex : Integer; const AValue : String); virtual; Procedure Setvolumes(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypevolumesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property banner_with_content_container : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container Index 0 Read Fbanner_with_content_container Write Setbanner_with_content_container; Property subTitle : String Index 8 Read FsubTitle Write SetsubTitle; Property title : String Index 16 Read Ftitle Write Settitle; Property totalVolumes : integer Index 24 Read FtotalVolumes Write SettotalVolumes; Property uid : String Index 32 Read Fuid Write Setuid; Property volumes : TDiscoveryclustersTypeclustersItemTypevolumesArray Index 40 Read Fvolumes Write Setvolumes; end; TDiscoveryclustersTypeclustersItemClass = Class of TDiscoveryclustersTypeclustersItem; { -------------------------------------------------------------------- TDiscoveryclusters --------------------------------------------------------------------} TDiscoveryclusters = Class(TGoogleBaseObject) Private Fclusters : TDiscoveryclustersTypeclustersArray; Fkind : String; FtotalClusters : integer; Protected //Property setters Procedure Setclusters(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SettotalClusters(AIndex : Integer; const AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property clusters : TDiscoveryclustersTypeclustersArray Index 0 Read Fclusters Write Setclusters; Property kind : String Index 8 Read Fkind Write Setkind; Property totalClusters : integer Index 16 Read FtotalClusters Write SettotalClusters; end; TDiscoveryclustersClass = Class of TDiscoveryclusters; { -------------------------------------------------------------------- TDownloadAccessRestriction --------------------------------------------------------------------} TDownloadAccessRestriction = Class(TGoogleBaseObject) Private FdeviceAllowed : boolean; FdownloadsAcquired : integer; FjustAcquired : boolean; Fkind : String; FmaxDownloadDevices : integer; Fmessage : String; Fnonce : String; FreasonCode : String; Frestricted : boolean; Fsignature : String; Fsource : String; FvolumeId : String; Protected //Property setters Procedure SetdeviceAllowed(AIndex : Integer; const AValue : boolean); virtual; Procedure SetdownloadsAcquired(AIndex : Integer; const AValue : integer); virtual; Procedure SetjustAcquired(AIndex : Integer; const AValue : boolean); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetmaxDownloadDevices(AIndex : Integer; const AValue : integer); virtual; Procedure Setmessage(AIndex : Integer; const AValue : String); virtual; Procedure Setnonce(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonCode(AIndex : Integer; const AValue : String); virtual; Procedure Setrestricted(AIndex : Integer; const AValue : boolean); virtual; Procedure Setsignature(AIndex : Integer; const AValue : String); virtual; Procedure Setsource(AIndex : Integer; const AValue : String); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; Public Published Property deviceAllowed : boolean Index 0 Read FdeviceAllowed Write SetdeviceAllowed; Property downloadsAcquired : integer Index 8 Read FdownloadsAcquired Write SetdownloadsAcquired; Property justAcquired : boolean Index 16 Read FjustAcquired Write SetjustAcquired; Property kind : String Index 24 Read Fkind Write Setkind; Property maxDownloadDevices : integer Index 32 Read FmaxDownloadDevices Write SetmaxDownloadDevices; Property message : String Index 40 Read Fmessage Write Setmessage; Property nonce : String Index 48 Read Fnonce Write Setnonce; Property reasonCode : String Index 56 Read FreasonCode Write SetreasonCode; Property restricted : boolean Index 64 Read Frestricted Write Setrestricted; Property signature : String Index 72 Read Fsignature Write Setsignature; Property source : String Index 80 Read Fsource Write Setsource; Property volumeId : String Index 88 Read FvolumeId Write SetvolumeId; end; TDownloadAccessRestrictionClass = Class of TDownloadAccessRestriction; { -------------------------------------------------------------------- TDownloadAccesses --------------------------------------------------------------------} TDownloadAccesses = Class(TGoogleBaseObject) Private FdownloadAccessList : TDownloadAccessesTypedownloadAccessListArray; Fkind : String; Protected //Property setters Procedure SetdownloadAccessList(AIndex : Integer; const AValue : TDownloadAccessesTypedownloadAccessListArray); 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 downloadAccessList : TDownloadAccessesTypedownloadAccessListArray Index 0 Read FdownloadAccessList Write SetdownloadAccessList; Property kind : String Index 8 Read Fkind Write Setkind; end; TDownloadAccessesClass = Class of TDownloadAccesses; { -------------------------------------------------------------------- TGeolayerdataTypecommon --------------------------------------------------------------------} TGeolayerdataTypecommon = Class(TGoogleBaseObject) Private Flang : String; FpreviewImageUrl : String; Fsnippet : String; FsnippetUrl : String; Ftitle : String; Protected //Property setters Procedure Setlang(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviewImageUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual; Procedure SetsnippetUrl(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Public Published Property lang : String Index 0 Read Flang Write Setlang; Property previewImageUrl : String Index 8 Read FpreviewImageUrl Write SetpreviewImageUrl; Property snippet : String Index 16 Read Fsnippet Write Setsnippet; Property snippetUrl : String Index 24 Read FsnippetUrl Write SetsnippetUrl; Property title : String Index 32 Read Ftitle Write Settitle; end; TGeolayerdataTypecommonClass = Class of TGeolayerdataTypecommon; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeboundaryItemItem --------------------------------------------------------------------} TGeolayerdataTypegeoTypeboundaryItemItem = Class(TGoogleBaseObject) Private Flatitude : integer; Flongitude : integer; Protected //Property setters Procedure Setlatitude(AIndex : Integer; const AValue : integer); virtual; Procedure Setlongitude(AIndex : Integer; const AValue : integer); virtual; Public Published Property latitude : integer Index 0 Read Flatitude Write Setlatitude; Property longitude : integer Index 8 Read Flongitude Write Setlongitude; end; TGeolayerdataTypegeoTypeboundaryItemItemClass = Class of TGeolayerdataTypegeoTypeboundaryItemItem; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeviewportTypehi --------------------------------------------------------------------} TGeolayerdataTypegeoTypeviewportTypehi = Class(TGoogleBaseObject) Private Flatitude : double; Flongitude : double; Protected //Property setters Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual; Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual; Public Published Property latitude : double Index 0 Read Flatitude Write Setlatitude; Property longitude : double Index 8 Read Flongitude Write Setlongitude; end; TGeolayerdataTypegeoTypeviewportTypehiClass = Class of TGeolayerdataTypegeoTypeviewportTypehi; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeviewportTypelo --------------------------------------------------------------------} TGeolayerdataTypegeoTypeviewportTypelo = Class(TGoogleBaseObject) Private Flatitude : double; Flongitude : double; Protected //Property setters Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual; Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual; Public Published Property latitude : double Index 0 Read Flatitude Write Setlatitude; Property longitude : double Index 8 Read Flongitude Write Setlongitude; end; TGeolayerdataTypegeoTypeviewportTypeloClass = Class of TGeolayerdataTypegeoTypeviewportTypelo; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeviewport --------------------------------------------------------------------} TGeolayerdataTypegeoTypeviewport = Class(TGoogleBaseObject) Private Fhi : TGeolayerdataTypegeoTypeviewportTypehi; Flo : TGeolayerdataTypegeoTypeviewportTypelo; Protected //Property setters Procedure Sethi(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypehi); virtual; Procedure Setlo(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypelo); virtual; Public Published Property hi : TGeolayerdataTypegeoTypeviewportTypehi Index 0 Read Fhi Write Sethi; Property lo : TGeolayerdataTypegeoTypeviewportTypelo Index 8 Read Flo Write Setlo; end; TGeolayerdataTypegeoTypeviewportClass = Class of TGeolayerdataTypegeoTypeviewport; { -------------------------------------------------------------------- TGeolayerdataTypegeo --------------------------------------------------------------------} TGeolayerdataTypegeo = Class(TGoogleBaseObject) Private Fboundary : TGeolayerdataTypegeoTypeboundaryArray; FcachePolicy : String; FcountryCode : String; Flatitude : double; Flongitude : double; FmapType : String; Fviewport : TGeolayerdataTypegeoTypeviewport; Fzoom : integer; Protected //Property setters Procedure Setboundary(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeboundaryArray); virtual; Procedure SetcachePolicy(AIndex : Integer; const AValue : String); virtual; Procedure SetcountryCode(AIndex : Integer; const AValue : String); virtual; Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual; Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual; Procedure SetmapType(AIndex : Integer; const AValue : String); virtual; Procedure Setviewport(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewport); virtual; Procedure Setzoom(AIndex : Integer; const AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property boundary : TGeolayerdataTypegeoTypeboundaryArray Index 0 Read Fboundary Write Setboundary; Property cachePolicy : String Index 8 Read FcachePolicy Write SetcachePolicy; Property countryCode : String Index 16 Read FcountryCode Write SetcountryCode; Property latitude : double Index 24 Read Flatitude Write Setlatitude; Property longitude : double Index 32 Read Flongitude Write Setlongitude; Property mapType : String Index 40 Read FmapType Write SetmapType; Property viewport : TGeolayerdataTypegeoTypeviewport Index 48 Read Fviewport Write Setviewport; Property zoom : integer Index 56 Read Fzoom Write Setzoom; end; TGeolayerdataTypegeoClass = Class of TGeolayerdataTypegeo; { -------------------------------------------------------------------- TGeolayerdata --------------------------------------------------------------------} TGeolayerdata = Class(TGoogleBaseObject) Private Fcommon : TGeolayerdataTypecommon; Fgeo : TGeolayerdataTypegeo; Fkind : String; Protected //Property setters Procedure Setcommon(AIndex : Integer; const AValue : TGeolayerdataTypecommon); virtual; Procedure Setgeo(AIndex : Integer; const AValue : TGeolayerdataTypegeo); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property common : TGeolayerdataTypecommon Index 0 Read Fcommon Write Setcommon; Property geo : TGeolayerdataTypegeo Index 8 Read Fgeo Write Setgeo; Property kind : String Index 16 Read Fkind Write Setkind; end; TGeolayerdataClass = Class of TGeolayerdata; { -------------------------------------------------------------------- TLayersummaries --------------------------------------------------------------------} TLayersummaries = Class(TGoogleBaseObject) Private Fitems : TLayersummariesTypeitemsArray; Fkind : String; FtotalItems : integer; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TLayersummariesTypeitemsArray); virtual; Procedure Setkind(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 : TLayersummariesTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; Property totalItems : integer Index 16 Read FtotalItems Write SettotalItems; end; TLayersummariesClass = Class of TLayersummaries; { -------------------------------------------------------------------- TLayersummary --------------------------------------------------------------------} TLayersummary = Class(TGoogleBaseObject) Private FannotationCount : integer; FannotationTypes : TStringArray; FannotationsDataLink : String; FannotationsLink : String; FcontentVersion : String; FdataCount : integer; Fid : String; Fkind : String; FlayerId : String; FselfLink : String; Fupdated : TDatetime; FvolumeAnnotationsVersion : String; FvolumeId : String; Protected //Property setters Procedure SetannotationCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetannotationTypes(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetannotationsDataLink(AIndex : Integer; const AValue : String); virtual; Procedure SetannotationsLink(AIndex : Integer; const AValue : String); virtual; Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual; Procedure SetdataCount(AIndex : Integer; const AValue : integer); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetvolumeAnnotationsVersion(AIndex : Integer; const AValue : String); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property annotationCount : integer Index 0 Read FannotationCount Write SetannotationCount; Property annotationTypes : TStringArray Index 8 Read FannotationTypes Write SetannotationTypes; Property annotationsDataLink : String Index 16 Read FannotationsDataLink Write SetannotationsDataLink; Property annotationsLink : String Index 24 Read FannotationsLink Write SetannotationsLink; Property contentVersion : String Index 32 Read FcontentVersion Write SetcontentVersion; Property dataCount : integer Index 40 Read FdataCount Write SetdataCount; Property id : String Index 48 Read Fid Write Setid; Property kind : String Index 56 Read Fkind Write Setkind; Property layerId : String Index 64 Read FlayerId Write SetlayerId; Property selfLink : String Index 72 Read FselfLink Write SetselfLink; Property updated : TDatetime Index 80 Read Fupdated Write Setupdated; Property volumeAnnotationsVersion : String Index 88 Read FvolumeAnnotationsVersion Write SetvolumeAnnotationsVersion; Property volumeId : String Index 96 Read FvolumeId Write SetvolumeId; end; TLayersummaryClass = Class of TLayersummary; { -------------------------------------------------------------------- TMetadataTypeitemsItem --------------------------------------------------------------------} TMetadataTypeitemsItem = Class(TGoogleBaseObject) Private Fdownload_url : String; Fencrypted_key : String; Flanguage : String; Fsize : String; Fversion : String; Protected //Property setters Procedure Setdownload_url(AIndex : Integer; const AValue : String); virtual; Procedure Setencrypted_key(AIndex : Integer; const AValue : String); virtual; Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual; Procedure Setsize(AIndex : Integer; const AValue : String); virtual; Procedure Setversion(AIndex : Integer; const AValue : String); virtual; Public Published Property download_url : String Index 0 Read Fdownload_url Write Setdownload_url; Property encrypted_key : String Index 8 Read Fencrypted_key Write Setencrypted_key; Property language : String Index 16 Read Flanguage Write Setlanguage; Property size : String Index 24 Read Fsize Write Setsize; Property version : String Index 32 Read Fversion Write Setversion; end; TMetadataTypeitemsItemClass = Class of TMetadataTypeitemsItem; { -------------------------------------------------------------------- TMetadata --------------------------------------------------------------------} TMetadata = Class(TGoogleBaseObject) Private Fitems : TMetadataTypeitemsArray; Fkind : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); 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 items : TMetadataTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; end; TMetadataClass = Class of TMetadata; { -------------------------------------------------------------------- TNotification --------------------------------------------------------------------} TNotification = Class(TGoogleBaseObject) Private Fbody : String; FcrmExperimentIds : TStringArray; Fdoc_id : String; Fdoc_type : String; Fdont_show_notification : boolean; FiconUrl : String; Fkind : String; Fnotification_type : String; Fpcampaign_id : String; Freason : String; Fshow_notification_settings_action : boolean; FtargetUrl : String; Ftitle : String; Protected //Property setters Procedure Setbody(AIndex : Integer; const AValue : String); virtual; Procedure SetcrmExperimentIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setdoc_id(AIndex : Integer; const AValue : String); virtual; Procedure Setdoc_type(AIndex : Integer; const AValue : String); virtual; Procedure Setdont_show_notification(AIndex : Integer; const AValue : boolean); virtual; Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setnotification_type(AIndex : Integer; const AValue : String); virtual; Procedure Setpcampaign_id(AIndex : Integer; const AValue : String); virtual; Procedure Setreason(AIndex : Integer; const AValue : String); virtual; Procedure Setshow_notification_settings_action(AIndex : Integer; const AValue : boolean); virtual; Procedure SettargetUrl(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property body : String Index 0 Read Fbody Write Setbody; Property crmExperimentIds : TStringArray Index 8 Read FcrmExperimentIds Write SetcrmExperimentIds; Property doc_id : String Index 16 Read Fdoc_id Write Setdoc_id; Property doc_type : String Index 24 Read Fdoc_type Write Setdoc_type; Property dont_show_notification : boolean Index 32 Read Fdont_show_notification Write Setdont_show_notification; Property iconUrl : String Index 40 Read FiconUrl Write SeticonUrl; Property kind : String Index 48 Read Fkind Write Setkind; Property notification_type : String Index 56 Read Fnotification_type Write Setnotification_type; Property pcampaign_id : String Index 64 Read Fpcampaign_id Write Setpcampaign_id; Property reason : String Index 72 Read Freason Write Setreason; Property show_notification_settings_action : boolean Index 80 Read Fshow_notification_settings_action Write Setshow_notification_settings_action; Property targetUrl : String Index 88 Read FtargetUrl Write SettargetUrl; Property title : String Index 96 Read Ftitle Write Settitle; end; TNotificationClass = Class of TNotification; { -------------------------------------------------------------------- TOffersTypeitemsItemTypeitemsItem --------------------------------------------------------------------} TOffersTypeitemsItemTypeitemsItem = Class(TGoogleBaseObject) Private Fauthor : String; FcanonicalVolumeLink : String; FcoverUrl : String; Fdescription : String; Ftitle : String; FvolumeId : String; Protected //Property setters Procedure Setauthor(AIndex : Integer; const AValue : String); virtual; Procedure SetcanonicalVolumeLink(AIndex : Integer; const AValue : String); virtual; Procedure SetcoverUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; Public Published Property author : String Index 0 Read Fauthor Write Setauthor; Property canonicalVolumeLink : String Index 8 Read FcanonicalVolumeLink Write SetcanonicalVolumeLink; Property coverUrl : String Index 16 Read FcoverUrl Write SetcoverUrl; Property description : String Index 24 Read Fdescription Write Setdescription; Property title : String Index 32 Read Ftitle Write Settitle; Property volumeId : String Index 40 Read FvolumeId Write SetvolumeId; end; TOffersTypeitemsItemTypeitemsItemClass = Class of TOffersTypeitemsItemTypeitemsItem; { -------------------------------------------------------------------- TOffersTypeitemsItem --------------------------------------------------------------------} TOffersTypeitemsItem = Class(TGoogleBaseObject) Private FartUrl : String; FgservicesKey : String; Fid : String; Fitems : TOffersTypeitemsItemTypeitemsArray; Protected //Property setters Procedure SetartUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetgservicesKey(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setitems(AIndex : Integer; const AValue : TOffersTypeitemsItemTypeitemsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property artUrl : String Index 0 Read FartUrl Write SetartUrl; Property gservicesKey : String Index 8 Read FgservicesKey Write SetgservicesKey; Property id : String Index 16 Read Fid Write Setid; Property items : TOffersTypeitemsItemTypeitemsArray Index 24 Read Fitems Write Setitems; end; TOffersTypeitemsItemClass = Class of TOffersTypeitemsItem; { -------------------------------------------------------------------- TOffers --------------------------------------------------------------------} TOffers = Class(TGoogleBaseObject) Private Fitems : TOffersTypeitemsArray; Fkind : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TOffersTypeitemsArray); 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 items : TOffersTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; end; TOffersClass = Class of TOffers; { -------------------------------------------------------------------- TReadingPosition --------------------------------------------------------------------} TReadingPosition = Class(TGoogleBaseObject) Private FepubCfiPosition : String; FgbImagePosition : String; FgbTextPosition : String; Fkind : String; FpdfPosition : String; Fupdated : TDatetime; FvolumeId : String; Protected //Property setters Procedure SetepubCfiPosition(AIndex : Integer; const AValue : String); virtual; Procedure SetgbImagePosition(AIndex : Integer; const AValue : String); virtual; Procedure SetgbTextPosition(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetpdfPosition(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; Public Published Property epubCfiPosition : String Index 0 Read FepubCfiPosition Write SetepubCfiPosition; Property gbImagePosition : String Index 8 Read FgbImagePosition Write SetgbImagePosition; Property gbTextPosition : String Index 16 Read FgbTextPosition Write SetgbTextPosition; Property kind : String Index 24 Read Fkind Write Setkind; Property pdfPosition : String Index 32 Read FpdfPosition Write SetpdfPosition; Property updated : TDatetime Index 40 Read Fupdated Write Setupdated; Property volumeId : String Index 48 Read FvolumeId Write SetvolumeId; end; TReadingPositionClass = Class of TReadingPosition; { -------------------------------------------------------------------- TRequestAccess --------------------------------------------------------------------} TRequestAccess = Class(TGoogleBaseObject) Private FconcurrentAccess : TConcurrentAccessRestriction; FdownloadAccess : TDownloadAccessRestriction; Fkind : String; Protected //Property setters Procedure SetconcurrentAccess(AIndex : Integer; const AValue : TConcurrentAccessRestriction); virtual; Procedure SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property concurrentAccess : TConcurrentAccessRestriction Index 0 Read FconcurrentAccess Write SetconcurrentAccess; Property downloadAccess : TDownloadAccessRestriction Index 8 Read FdownloadAccess Write SetdownloadAccess; Property kind : String Index 16 Read Fkind Write Setkind; end; TRequestAccessClass = Class of TRequestAccess; { -------------------------------------------------------------------- TReviewTypeauthor --------------------------------------------------------------------} TReviewTypeauthor = Class(TGoogleBaseObject) Private FdisplayName : String; Protected //Property setters Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; Public Published Property displayName : String Index 0 Read FdisplayName Write SetdisplayName; end; TReviewTypeauthorClass = Class of TReviewTypeauthor; { -------------------------------------------------------------------- TReviewTypesource --------------------------------------------------------------------} TReviewTypesource = Class(TGoogleBaseObject) Private Fdescription : String; FextraDescription : String; Furl : String; Protected //Property setters Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure SetextraDescription(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property description : String Index 0 Read Fdescription Write Setdescription; Property extraDescription : String Index 8 Read FextraDescription Write SetextraDescription; Property url : String Index 16 Read Furl Write Seturl; end; TReviewTypesourceClass = Class of TReviewTypesource; { -------------------------------------------------------------------- TReview --------------------------------------------------------------------} TReview = Class(TGoogleBaseObject) Private Fauthor : TReviewTypeauthor; Fcontent : String; Fdate : String; FfullTextUrl : String; Fkind : String; Frating : String; Fsource : TReviewTypesource; Ftitle : String; F_type : String; FvolumeId : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setauthor(AIndex : Integer; const AValue : TReviewTypeauthor); virtual; Procedure Setcontent(AIndex : Integer; const AValue : String); virtual; Procedure Setdate(AIndex : Integer; const AValue : String); virtual; Procedure SetfullTextUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setrating(AIndex : Integer; const AValue : String); virtual; Procedure Setsource(AIndex : Integer; const AValue : TReviewTypesource); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; Public Published Property author : TReviewTypeauthor Index 0 Read Fauthor Write Setauthor; Property content : String Index 8 Read Fcontent Write Setcontent; Property date : String Index 16 Read Fdate Write Setdate; Property fullTextUrl : String Index 24 Read FfullTextUrl Write SetfullTextUrl; Property kind : String Index 32 Read Fkind Write Setkind; Property rating : String Index 40 Read Frating Write Setrating; Property source : TReviewTypesource Index 48 Read Fsource Write Setsource; Property title : String Index 56 Read Ftitle Write Settitle; Property _type : String Index 64 Read F_type Write Set_type; Property volumeId : String Index 72 Read FvolumeId Write SetvolumeId; end; TReviewClass = Class of TReview; { -------------------------------------------------------------------- TSeriesTypeseriesItem --------------------------------------------------------------------} TSeriesTypeseriesItem = Class(TGoogleBaseObject) Private FbannerImageUrl : String; FimageUrl : String; FseriesId : String; FseriesType : String; Ftitle : String; Protected //Property setters Procedure SetbannerImageUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetseriesId(AIndex : Integer; const AValue : String); virtual; Procedure SetseriesType(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Public Published Property bannerImageUrl : String Index 0 Read FbannerImageUrl Write SetbannerImageUrl; Property imageUrl : String Index 8 Read FimageUrl Write SetimageUrl; Property seriesId : String Index 16 Read FseriesId Write SetseriesId; Property seriesType : String Index 24 Read FseriesType Write SetseriesType; Property title : String Index 32 Read Ftitle Write Settitle; end; TSeriesTypeseriesItemClass = Class of TSeriesTypeseriesItem; { -------------------------------------------------------------------- TSeries --------------------------------------------------------------------} TSeries = Class(TGoogleBaseObject) Private Fkind : String; Fseries : TSeriesTypeseriesArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setseries(AIndex : Integer; const AValue : TSeriesTypeseriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property series : TSeriesTypeseriesArray Index 8 Read Fseries Write Setseries; end; TSeriesClass = Class of TSeries; { -------------------------------------------------------------------- TSeriesmembership --------------------------------------------------------------------} TSeriesmembership = Class(TGoogleBaseObject) Private Fkind : String; Fmember : TSeriesmembershipTypememberArray; FnextPageToken : String; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setmember(AIndex : Integer; const AValue : TSeriesmembershipTypememberArray); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property member : TSeriesmembershipTypememberArray Index 8 Read Fmember Write Setmember; Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken; end; TSeriesmembershipClass = Class of TSeriesmembership; { -------------------------------------------------------------------- TUsersettingsTypenotesExport --------------------------------------------------------------------} TUsersettingsTypenotesExport = Class(TGoogleBaseObject) Private FfolderName : String; FisEnabled : boolean; Protected //Property setters Procedure SetfolderName(AIndex : Integer; const AValue : String); virtual; Procedure SetisEnabled(AIndex : Integer; const AValue : boolean); virtual; Public Published Property folderName : String Index 0 Read FfolderName Write SetfolderName; Property isEnabled : boolean Index 8 Read FisEnabled Write SetisEnabled; end; TUsersettingsTypenotesExportClass = Class of TUsersettingsTypenotesExport; { -------------------------------------------------------------------- TUsersettingsTypenotificationTypemoreFromAuthors --------------------------------------------------------------------} TUsersettingsTypenotificationTypemoreFromAuthors = Class(TGoogleBaseObject) Private Fopted_state : String; Protected //Property setters Procedure Setopted_state(AIndex : Integer; const AValue : String); virtual; Public Published Property opted_state : String Index 0 Read Fopted_state Write Setopted_state; end; TUsersettingsTypenotificationTypemoreFromAuthorsClass = Class of TUsersettingsTypenotificationTypemoreFromAuthors; { -------------------------------------------------------------------- TUsersettingsTypenotification --------------------------------------------------------------------} TUsersettingsTypenotification = Class(TGoogleBaseObject) Private FmoreFromAuthors : TUsersettingsTypenotificationTypemoreFromAuthors; Protected //Property setters Procedure SetmoreFromAuthors(AIndex : Integer; const AValue : TUsersettingsTypenotificationTypemoreFromAuthors); virtual; Public Published Property moreFromAuthors : TUsersettingsTypenotificationTypemoreFromAuthors Index 0 Read FmoreFromAuthors Write SetmoreFromAuthors; end; TUsersettingsTypenotificationClass = Class of TUsersettingsTypenotification; { -------------------------------------------------------------------- TUsersettings --------------------------------------------------------------------} TUsersettings = Class(TGoogleBaseObject) Private Fkind : String; FnotesExport : TUsersettingsTypenotesExport; Fnotification : TUsersettingsTypenotification; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnotesExport(AIndex : Integer; const AValue : TUsersettingsTypenotesExport); virtual; Procedure Setnotification(AIndex : Integer; const AValue : TUsersettingsTypenotification); virtual; Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property notesExport : TUsersettingsTypenotesExport Index 8 Read FnotesExport Write SetnotesExport; Property notification : TUsersettingsTypenotification Index 16 Read Fnotification Write Setnotification; end; TUsersettingsClass = Class of TUsersettings; { -------------------------------------------------------------------- TVolumeTypeaccessInfoTypeepub --------------------------------------------------------------------} TVolumeTypeaccessInfoTypeepub = Class(TGoogleBaseObject) Private FacsTokenLink : String; FdownloadLink : String; FisAvailable : boolean; Protected //Property setters Procedure SetacsTokenLink(AIndex : Integer; const AValue : String); virtual; Procedure SetdownloadLink(AIndex : Integer; const AValue : String); virtual; Procedure SetisAvailable(AIndex : Integer; const AValue : boolean); virtual; Public Published Property acsTokenLink : String Index 0 Read FacsTokenLink Write SetacsTokenLink; Property downloadLink : String Index 8 Read FdownloadLink Write SetdownloadLink; Property isAvailable : boolean Index 16 Read FisAvailable Write SetisAvailable; end; TVolumeTypeaccessInfoTypeepubClass = Class of TVolumeTypeaccessInfoTypeepub; { -------------------------------------------------------------------- TVolumeTypeaccessInfoTypepdf --------------------------------------------------------------------} TVolumeTypeaccessInfoTypepdf = Class(TGoogleBaseObject) Private FacsTokenLink : String; FdownloadLink : String; FisAvailable : boolean; Protected //Property setters Procedure SetacsTokenLink(AIndex : Integer; const AValue : String); virtual; Procedure SetdownloadLink(AIndex : Integer; const AValue : String); virtual; Procedure SetisAvailable(AIndex : Integer; const AValue : boolean); virtual; Public Published Property acsTokenLink : String Index 0 Read FacsTokenLink Write SetacsTokenLink; Property downloadLink : String Index 8 Read FdownloadLink Write SetdownloadLink; Property isAvailable : boolean Index 16 Read FisAvailable Write SetisAvailable; end; TVolumeTypeaccessInfoTypepdfClass = Class of TVolumeTypeaccessInfoTypepdf; { -------------------------------------------------------------------- TVolumeTypeaccessInfo --------------------------------------------------------------------} TVolumeTypeaccessInfo = Class(TGoogleBaseObject) Private FaccessViewStatus : String; Fcountry : String; FdownloadAccess : TDownloadAccessRestriction; FdriveImportedContentLink : String; Fembeddable : boolean; Fepub : TVolumeTypeaccessInfoTypeepub; FexplicitOfflineLicenseManagement : boolean; Fpdf : TVolumeTypeaccessInfoTypepdf; FpublicDomain : boolean; FquoteSharingAllowed : boolean; FtextToSpeechPermission : String; FviewOrderUrl : String; Fviewability : String; FwebReaderLink : String; Protected //Property setters Procedure SetaccessViewStatus(AIndex : Integer; const AValue : String); virtual; Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction); virtual; Procedure SetdriveImportedContentLink(AIndex : Integer; const AValue : String); virtual; Procedure Setembeddable(AIndex : Integer; const AValue : boolean); virtual; Procedure Setepub(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypeepub); virtual; Procedure SetexplicitOfflineLicenseManagement(AIndex : Integer; const AValue : boolean); virtual; Procedure Setpdf(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypepdf); virtual; Procedure SetpublicDomain(AIndex : Integer; const AValue : boolean); virtual; Procedure SetquoteSharingAllowed(AIndex : Integer; const AValue : boolean); virtual; Procedure SettextToSpeechPermission(AIndex : Integer; const AValue : String); virtual; Procedure SetviewOrderUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setviewability(AIndex : Integer; const AValue : String); virtual; Procedure SetwebReaderLink(AIndex : Integer; const AValue : String); virtual; Public Published Property accessViewStatus : String Index 0 Read FaccessViewStatus Write SetaccessViewStatus; Property country : String Index 8 Read Fcountry Write Setcountry; Property downloadAccess : TDownloadAccessRestriction Index 16 Read FdownloadAccess Write SetdownloadAccess; Property driveImportedContentLink : String Index 24 Read FdriveImportedContentLink Write SetdriveImportedContentLink; Property embeddable : boolean Index 32 Read Fembeddable Write Setembeddable; Property epub : TVolumeTypeaccessInfoTypeepub Index 40 Read Fepub Write Setepub; Property explicitOfflineLicenseManagement : boolean Index 48 Read FexplicitOfflineLicenseManagement Write SetexplicitOfflineLicenseManagement; Property pdf : TVolumeTypeaccessInfoTypepdf Index 56 Read Fpdf Write Setpdf; Property publicDomain : boolean Index 64 Read FpublicDomain Write SetpublicDomain; Property quoteSharingAllowed : boolean Index 72 Read FquoteSharingAllowed Write SetquoteSharingAllowed; Property textToSpeechPermission : String Index 80 Read FtextToSpeechPermission Write SettextToSpeechPermission; Property viewOrderUrl : String Index 88 Read FviewOrderUrl Write SetviewOrderUrl; Property viewability : String Index 96 Read Fviewability Write Setviewability; Property webReaderLink : String Index 104 Read FwebReaderLink Write SetwebReaderLink; end; TVolumeTypeaccessInfoClass = Class of TVolumeTypeaccessInfo; { -------------------------------------------------------------------- TVolumeTypelayerInfoTypelayersItem --------------------------------------------------------------------} TVolumeTypelayerInfoTypelayersItem = Class(TGoogleBaseObject) Private FlayerId : String; FvolumeAnnotationsVersion : String; Protected //Property setters Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual; Procedure SetvolumeAnnotationsVersion(AIndex : Integer; const AValue : String); virtual; Public Published Property layerId : String Index 0 Read FlayerId Write SetlayerId; Property volumeAnnotationsVersion : String Index 8 Read FvolumeAnnotationsVersion Write SetvolumeAnnotationsVersion; end; TVolumeTypelayerInfoTypelayersItemClass = Class of TVolumeTypelayerInfoTypelayersItem; { -------------------------------------------------------------------- TVolumeTypelayerInfo --------------------------------------------------------------------} TVolumeTypelayerInfo = Class(TGoogleBaseObject) Private Flayers : TVolumeTypelayerInfoTypelayersArray; Protected //Property setters Procedure Setlayers(AIndex : Integer; const AValue : TVolumeTypelayerInfoTypelayersArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property layers : TVolumeTypelayerInfoTypelayersArray Index 0 Read Flayers Write Setlayers; end; TVolumeTypelayerInfoClass = Class of TVolumeTypelayerInfo; { -------------------------------------------------------------------- TVolumeTyperecommendedInfo --------------------------------------------------------------------} TVolumeTyperecommendedInfo = Class(TGoogleBaseObject) Private Fexplanation : String; Protected //Property setters Procedure Setexplanation(AIndex : Integer; const AValue : String); virtual; Public Published Property explanation : String Index 0 Read Fexplanation Write Setexplanation; end; TVolumeTyperecommendedInfoClass = Class of TVolumeTyperecommendedInfo; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypelistPrice --------------------------------------------------------------------} TVolumeTypesaleInfoTypelistPrice = Class(TGoogleBaseObject) Private Famount : double; FcurrencyCode : String; Protected //Property setters Procedure Setamount(AIndex : Integer; const AValue : double); virtual; Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual; Public Published Property amount : double Index 0 Read Famount Write Setamount; Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode; end; TVolumeTypesaleInfoTypelistPriceClass = Class of TVolumeTypesaleInfoTypelistPrice; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItemTypelistPrice --------------------------------------------------------------------} TVolumeTypesaleInfoTypeoffersItemTypelistPrice = Class(TGoogleBaseObject) Private FamountInMicros : double; FcurrencyCode : String; Protected //Property setters Procedure SetamountInMicros(AIndex : Integer; const AValue : double); virtual; Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual; Public Published Property amountInMicros : double Index 0 Read FamountInMicros Write SetamountInMicros; Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode; end; TVolumeTypesaleInfoTypeoffersItemTypelistPriceClass = Class of TVolumeTypesaleInfoTypeoffersItemTypelistPrice; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItemTyperentalDuration --------------------------------------------------------------------} TVolumeTypesaleInfoTypeoffersItemTyperentalDuration = Class(TGoogleBaseObject) Private Fcount : double; F_unit : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setcount(AIndex : Integer; const AValue : double); virtual; Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; Public Published Property count : double Index 0 Read Fcount Write Setcount; Property _unit : String Index 8 Read F_unit Write Set_unit; end; TVolumeTypesaleInfoTypeoffersItemTyperentalDurationClass = Class of TVolumeTypesaleInfoTypeoffersItemTyperentalDuration; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItemTyperetailPrice --------------------------------------------------------------------} TVolumeTypesaleInfoTypeoffersItemTyperetailPrice = Class(TGoogleBaseObject) Private FamountInMicros : double; FcurrencyCode : String; Protected //Property setters Procedure SetamountInMicros(AIndex : Integer; const AValue : double); virtual; Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual; Public Published Property amountInMicros : double Index 0 Read FamountInMicros Write SetamountInMicros; Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode; end; TVolumeTypesaleInfoTypeoffersItemTyperetailPriceClass = Class of TVolumeTypesaleInfoTypeoffersItemTyperetailPrice; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItem --------------------------------------------------------------------} TVolumeTypesaleInfoTypeoffersItem = Class(TGoogleBaseObject) Private FfinskyOfferType : integer; FlistPrice : TVolumeTypesaleInfoTypeoffersItemTypelistPrice; FrentalDuration : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration; FretailPrice : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice; Protected //Property setters Procedure SetfinskyOfferType(AIndex : Integer; const AValue : integer); virtual; Procedure SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTypelistPrice); virtual; Procedure SetrentalDuration(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration); virtual; Procedure SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice); virtual; Public Published Property finskyOfferType : integer Index 0 Read FfinskyOfferType Write SetfinskyOfferType; Property listPrice : TVolumeTypesaleInfoTypeoffersItemTypelistPrice Index 8 Read FlistPrice Write SetlistPrice; Property rentalDuration : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration Index 16 Read FrentalDuration Write SetrentalDuration; Property retailPrice : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice Index 24 Read FretailPrice Write SetretailPrice; end; TVolumeTypesaleInfoTypeoffersItemClass = Class of TVolumeTypesaleInfoTypeoffersItem; { -------------------------------------------------------------------- TVolumeTypesaleInfoTyperetailPrice --------------------------------------------------------------------} TVolumeTypesaleInfoTyperetailPrice = Class(TGoogleBaseObject) Private Famount : double; FcurrencyCode : String; Protected //Property setters Procedure Setamount(AIndex : Integer; const AValue : double); virtual; Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual; Public Published Property amount : double Index 0 Read Famount Write Setamount; Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode; end; TVolumeTypesaleInfoTyperetailPriceClass = Class of TVolumeTypesaleInfoTyperetailPrice; { -------------------------------------------------------------------- TVolumeTypesaleInfo --------------------------------------------------------------------} TVolumeTypesaleInfo = Class(TGoogleBaseObject) Private FbuyLink : String; Fcountry : String; FisEbook : boolean; FlistPrice : TVolumeTypesaleInfoTypelistPrice; Foffers : TVolumeTypesaleInfoTypeoffersArray; FonSaleDate : TDatetime; FretailPrice : TVolumeTypesaleInfoTyperetailPrice; Fsaleability : String; Protected //Property setters Procedure SetbuyLink(AIndex : Integer; const AValue : String); virtual; Procedure Setcountry(AIndex : Integer; const AValue : String); virtual; Procedure SetisEbook(AIndex : Integer; const AValue : boolean); virtual; Procedure SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypelistPrice); virtual; Procedure Setoffers(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersArray); virtual; Procedure SetonSaleDate(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTyperetailPrice); virtual; Procedure Setsaleability(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property buyLink : String Index 0 Read FbuyLink Write SetbuyLink; Property country : String Index 8 Read Fcountry Write Setcountry; Property isEbook : boolean Index 16 Read FisEbook Write SetisEbook; Property listPrice : TVolumeTypesaleInfoTypelistPrice Index 24 Read FlistPrice Write SetlistPrice; Property offers : TVolumeTypesaleInfoTypeoffersArray Index 32 Read Foffers Write Setoffers; Property onSaleDate : TDatetime Index 40 Read FonSaleDate Write SetonSaleDate; Property retailPrice : TVolumeTypesaleInfoTyperetailPrice Index 48 Read FretailPrice Write SetretailPrice; Property saleability : String Index 56 Read Fsaleability Write Setsaleability; end; TVolumeTypesaleInfoClass = Class of TVolumeTypesaleInfo; { -------------------------------------------------------------------- TVolumeTypesearchInfo --------------------------------------------------------------------} TVolumeTypesearchInfo = Class(TGoogleBaseObject) Private FtextSnippet : String; Protected //Property setters Procedure SettextSnippet(AIndex : Integer; const AValue : String); virtual; Public Published Property textSnippet : String Index 0 Read FtextSnippet Write SettextSnippet; end; TVolumeTypesearchInfoClass = Class of TVolumeTypesearchInfo; { -------------------------------------------------------------------- TVolumeTypeuserInfoTypecopy --------------------------------------------------------------------} TVolumeTypeuserInfoTypecopy = Class(TGoogleBaseObject) Private FallowedCharacterCount : integer; FlimitType : String; FremainingCharacterCount : integer; Fupdated : TDatetime; Protected //Property setters Procedure SetallowedCharacterCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetlimitType(AIndex : Integer; const AValue : String); virtual; Procedure SetremainingCharacterCount(AIndex : Integer; const AValue : integer); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Public Published Property allowedCharacterCount : integer Index 0 Read FallowedCharacterCount Write SetallowedCharacterCount; Property limitType : String Index 8 Read FlimitType Write SetlimitType; Property remainingCharacterCount : integer Index 16 Read FremainingCharacterCount Write SetremainingCharacterCount; Property updated : TDatetime Index 24 Read Fupdated Write Setupdated; end; TVolumeTypeuserInfoTypecopyClass = Class of TVolumeTypeuserInfoTypecopy; { -------------------------------------------------------------------- TVolumeTypeuserInfoTypefamilySharing --------------------------------------------------------------------} TVolumeTypeuserInfoTypefamilySharing = Class(TGoogleBaseObject) Private FfamilyRole : String; FisSharingAllowed : boolean; FisSharingDisabledByFop : boolean; Protected //Property setters Procedure SetfamilyRole(AIndex : Integer; const AValue : String); virtual; Procedure SetisSharingAllowed(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisSharingDisabledByFop(AIndex : Integer; const AValue : boolean); virtual; Public Published Property familyRole : String Index 0 Read FfamilyRole Write SetfamilyRole; Property isSharingAllowed : boolean Index 8 Read FisSharingAllowed Write SetisSharingAllowed; Property isSharingDisabledByFop : boolean Index 16 Read FisSharingDisabledByFop Write SetisSharingDisabledByFop; end; TVolumeTypeuserInfoTypefamilySharingClass = Class of TVolumeTypeuserInfoTypefamilySharing; { -------------------------------------------------------------------- TVolumeTypeuserInfoTyperentalPeriod --------------------------------------------------------------------} TVolumeTypeuserInfoTyperentalPeriod = Class(TGoogleBaseObject) Private FendUtcSec : String; FstartUtcSec : String; Protected //Property setters Procedure SetendUtcSec(AIndex : Integer; const AValue : String); virtual; Procedure SetstartUtcSec(AIndex : Integer; const AValue : String); virtual; Public Published Property endUtcSec : String Index 0 Read FendUtcSec Write SetendUtcSec; Property startUtcSec : String Index 8 Read FstartUtcSec Write SetstartUtcSec; end; TVolumeTypeuserInfoTyperentalPeriodClass = Class of TVolumeTypeuserInfoTyperentalPeriod; { -------------------------------------------------------------------- TVolumeTypeuserInfoTypeuserUploadedVolumeInfo --------------------------------------------------------------------} TVolumeTypeuserInfoTypeuserUploadedVolumeInfo = Class(TGoogleBaseObject) Private FprocessingState : String; Protected //Property setters Procedure SetprocessingState(AIndex : Integer; const AValue : String); virtual; Public Published Property processingState : String Index 0 Read FprocessingState Write SetprocessingState; end; TVolumeTypeuserInfoTypeuserUploadedVolumeInfoClass = Class of TVolumeTypeuserInfoTypeuserUploadedVolumeInfo; { -------------------------------------------------------------------- TVolumeTypeuserInfo --------------------------------------------------------------------} TVolumeTypeuserInfo = Class(TGoogleBaseObject) Private FacquiredTime : TDatetime; FacquisitionType : integer; Fcopy : TVolumeTypeuserInfoTypecopy; FentitlementType : integer; FfamilySharing : TVolumeTypeuserInfoTypefamilySharing; FisFamilySharedFromUser : boolean; FisFamilySharedToUser : boolean; FisFamilySharingAllowed : boolean; FisFamilySharingDisabledByFop : boolean; FisInMyBooks : boolean; FisPreordered : boolean; FisPurchased : boolean; FisUploaded : boolean; FreadingPosition : TReadingPosition; FrentalPeriod : TVolumeTypeuserInfoTyperentalPeriod; FrentalState : String; Freview : TReview; Fupdated : TDatetime; FuserUploadedVolumeInfo : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo; Protected //Property setters Procedure SetacquiredTime(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetacquisitionType(AIndex : Integer; const AValue : integer); virtual; Procedure Setcopy(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypecopy); virtual; Procedure SetentitlementType(AIndex : Integer; const AValue : integer); virtual; Procedure SetfamilySharing(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypefamilySharing); virtual; Procedure SetisFamilySharedFromUser(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisFamilySharedToUser(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisFamilySharingAllowed(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisFamilySharingDisabledByFop(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisInMyBooks(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisPreordered(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisPurchased(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisUploaded(AIndex : Integer; const AValue : boolean); virtual; Procedure SetreadingPosition(AIndex : Integer; const AValue : TReadingPosition); virtual; Procedure SetrentalPeriod(AIndex : Integer; const AValue : TVolumeTypeuserInfoTyperentalPeriod); virtual; Procedure SetrentalState(AIndex : Integer; const AValue : String); virtual; Procedure Setreview(AIndex : Integer; const AValue : TReview); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetuserUploadedVolumeInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo); virtual; Public Published Property acquiredTime : TDatetime Index 0 Read FacquiredTime Write SetacquiredTime; Property acquisitionType : integer Index 8 Read FacquisitionType Write SetacquisitionType; Property copy : TVolumeTypeuserInfoTypecopy Index 16 Read Fcopy Write Setcopy; Property entitlementType : integer Index 24 Read FentitlementType Write SetentitlementType; Property familySharing : TVolumeTypeuserInfoTypefamilySharing Index 32 Read FfamilySharing Write SetfamilySharing; Property isFamilySharedFromUser : boolean Index 40 Read FisFamilySharedFromUser Write SetisFamilySharedFromUser; Property isFamilySharedToUser : boolean Index 48 Read FisFamilySharedToUser Write SetisFamilySharedToUser; Property isFamilySharingAllowed : boolean Index 56 Read FisFamilySharingAllowed Write SetisFamilySharingAllowed; Property isFamilySharingDisabledByFop : boolean Index 64 Read FisFamilySharingDisabledByFop Write SetisFamilySharingDisabledByFop; Property isInMyBooks : boolean Index 72 Read FisInMyBooks Write SetisInMyBooks; Property isPreordered : boolean Index 80 Read FisPreordered Write SetisPreordered; Property isPurchased : boolean Index 88 Read FisPurchased Write SetisPurchased; Property isUploaded : boolean Index 96 Read FisUploaded Write SetisUploaded; Property readingPosition : TReadingPosition Index 104 Read FreadingPosition Write SetreadingPosition; Property rentalPeriod : TVolumeTypeuserInfoTyperentalPeriod Index 112 Read FrentalPeriod Write SetrentalPeriod; Property rentalState : String Index 120 Read FrentalState Write SetrentalState; Property review : TReview Index 128 Read Freview Write Setreview; Property updated : TDatetime Index 136 Read Fupdated Write Setupdated; Property userUploadedVolumeInfo : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo Index 144 Read FuserUploadedVolumeInfo Write SetuserUploadedVolumeInfo; end; TVolumeTypeuserInfoClass = Class of TVolumeTypeuserInfo; { -------------------------------------------------------------------- TVolumeTypevolumeInfoTypedimensions --------------------------------------------------------------------} TVolumeTypevolumeInfoTypedimensions = Class(TGoogleBaseObject) Private Fheight : String; Fthickness : String; Fwidth : String; Protected //Property setters Procedure Setheight(AIndex : Integer; const AValue : String); virtual; Procedure Setthickness(AIndex : Integer; const AValue : String); virtual; Procedure Setwidth(AIndex : Integer; const AValue : String); virtual; Public Published Property height : String Index 0 Read Fheight Write Setheight; Property thickness : String Index 8 Read Fthickness Write Setthickness; Property width : String Index 16 Read Fwidth Write Setwidth; end; TVolumeTypevolumeInfoTypedimensionsClass = Class of TVolumeTypevolumeInfoTypedimensions; { -------------------------------------------------------------------- TVolumeTypevolumeInfoTypeimageLinks --------------------------------------------------------------------} TVolumeTypevolumeInfoTypeimageLinks = Class(TGoogleBaseObject) Private FextraLarge : String; Flarge : String; Fmedium : String; Fsmall : String; FsmallThumbnail : String; Fthumbnail : String; Protected //Property setters Procedure SetextraLarge(AIndex : Integer; const AValue : String); virtual; Procedure Setlarge(AIndex : Integer; const AValue : String); virtual; Procedure Setmedium(AIndex : Integer; const AValue : String); virtual; Procedure Setsmall(AIndex : Integer; const AValue : String); virtual; Procedure SetsmallThumbnail(AIndex : Integer; const AValue : String); virtual; Procedure Setthumbnail(AIndex : Integer; const AValue : String); virtual; Public Published Property extraLarge : String Index 0 Read FextraLarge Write SetextraLarge; Property large : String Index 8 Read Flarge Write Setlarge; Property medium : String Index 16 Read Fmedium Write Setmedium; Property small : String Index 24 Read Fsmall Write Setsmall; Property smallThumbnail : String Index 32 Read FsmallThumbnail Write SetsmallThumbnail; Property thumbnail : String Index 40 Read Fthumbnail Write Setthumbnail; end; TVolumeTypevolumeInfoTypeimageLinksClass = Class of TVolumeTypevolumeInfoTypeimageLinks; { -------------------------------------------------------------------- TVolumeTypevolumeInfoTypeindustryIdentifiersItem --------------------------------------------------------------------} TVolumeTypevolumeInfoTypeindustryIdentifiersItem = Class(TGoogleBaseObject) Private Fidentifier : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setidentifier(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property identifier : String Index 0 Read Fidentifier Write Setidentifier; Property _type : String Index 8 Read F_type Write Set_type; end; TVolumeTypevolumeInfoTypeindustryIdentifiersItemClass = Class of TVolumeTypevolumeInfoTypeindustryIdentifiersItem; { -------------------------------------------------------------------- TVolumeTypevolumeInfo --------------------------------------------------------------------} TVolumeTypevolumeInfo = Class(TGoogleBaseObject) Private FallowAnonLogging : boolean; Fauthors : TStringArray; FaverageRating : double; FcanonicalVolumeLink : String; Fcategories : TStringArray; FcontentVersion : String; Fdescription : String; Fdimensions : TVolumeTypevolumeInfoTypedimensions; FimageLinks : TVolumeTypevolumeInfoTypeimageLinks; FindustryIdentifiers : TVolumeTypevolumeInfoTypeindustryIdentifiersArray; FinfoLink : String; Flanguage : String; FmainCategory : String; FmaturityRating : String; FpageCount : integer; FpreviewLink : String; FprintType : String; FprintedPageCount : integer; FpublishedDate : String; Fpublisher : String; FratingsCount : integer; FreadingModes : TJSONSchema; FsamplePageCount : integer; FseriesInfo : TVolumeseriesinfo; Fsubtitle : String; Ftitle : String; Protected //Property setters Procedure SetallowAnonLogging(AIndex : Integer; const AValue : boolean); virtual; Procedure Setauthors(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetaverageRating(AIndex : Integer; const AValue : double); virtual; Procedure SetcanonicalVolumeLink(AIndex : Integer; const AValue : String); virtual; Procedure Setcategories(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure Setdimensions(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypedimensions); virtual; Procedure SetimageLinks(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeimageLinks); virtual; Procedure SetindustryIdentifiers(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeindustryIdentifiersArray); virtual; Procedure SetinfoLink(AIndex : Integer; const AValue : String); virtual; Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual; Procedure SetmainCategory(AIndex : Integer; const AValue : String); virtual; Procedure SetmaturityRating(AIndex : Integer; const AValue : String); virtual; Procedure SetpageCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetpreviewLink(AIndex : Integer; const AValue : String); virtual; Procedure SetprintType(AIndex : Integer; const AValue : String); virtual; Procedure SetprintedPageCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetpublishedDate(AIndex : Integer; const AValue : String); virtual; Procedure Setpublisher(AIndex : Integer; const AValue : String); virtual; Procedure SetratingsCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetreadingModes(AIndex : Integer; const AValue : TJSONSchema); virtual; Procedure SetsamplePageCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetseriesInfo(AIndex : Integer; const AValue : TVolumeseriesinfo); virtual; Procedure Setsubtitle(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property allowAnonLogging : boolean Index 0 Read FallowAnonLogging Write SetallowAnonLogging; Property authors : TStringArray Index 8 Read Fauthors Write Setauthors; Property averageRating : double Index 16 Read FaverageRating Write SetaverageRating; Property canonicalVolumeLink : String Index 24 Read FcanonicalVolumeLink Write SetcanonicalVolumeLink; Property categories : TStringArray Index 32 Read Fcategories Write Setcategories; Property contentVersion : String Index 40 Read FcontentVersion Write SetcontentVersion; Property description : String Index 48 Read Fdescription Write Setdescription; Property dimensions : TVolumeTypevolumeInfoTypedimensions Index 56 Read Fdimensions Write Setdimensions; Property imageLinks : TVolumeTypevolumeInfoTypeimageLinks Index 64 Read FimageLinks Write SetimageLinks; Property industryIdentifiers : TVolumeTypevolumeInfoTypeindustryIdentifiersArray Index 72 Read FindustryIdentifiers Write SetindustryIdentifiers; Property infoLink : String Index 80 Read FinfoLink Write SetinfoLink; Property language : String Index 88 Read Flanguage Write Setlanguage; Property mainCategory : String Index 96 Read FmainCategory Write SetmainCategory; Property maturityRating : String Index 104 Read FmaturityRating Write SetmaturityRating; Property pageCount : integer Index 112 Read FpageCount Write SetpageCount; Property previewLink : String Index 120 Read FpreviewLink Write SetpreviewLink; Property printType : String Index 128 Read FprintType Write SetprintType; Property printedPageCount : integer Index 136 Read FprintedPageCount Write SetprintedPageCount; Property publishedDate : String Index 144 Read FpublishedDate Write SetpublishedDate; Property publisher : String Index 152 Read Fpublisher Write Setpublisher; Property ratingsCount : integer Index 160 Read FratingsCount Write SetratingsCount; Property readingModes : TJSONSchema Index 168 Read FreadingModes Write SetreadingModes; Property samplePageCount : integer Index 176 Read FsamplePageCount Write SetsamplePageCount; Property seriesInfo : TVolumeseriesinfo Index 184 Read FseriesInfo Write SetseriesInfo; Property subtitle : String Index 192 Read Fsubtitle Write Setsubtitle; Property title : String Index 200 Read Ftitle Write Settitle; end; TVolumeTypevolumeInfoClass = Class of TVolumeTypevolumeInfo; { -------------------------------------------------------------------- TVolume --------------------------------------------------------------------} TVolume = Class(TGoogleBaseObject) Private FaccessInfo : TVolumeTypeaccessInfo; Fetag : String; Fid : String; Fkind : String; FlayerInfo : TVolumeTypelayerInfo; FrecommendedInfo : TVolumeTyperecommendedInfo; FsaleInfo : TVolumeTypesaleInfo; FsearchInfo : TVolumeTypesearchInfo; FselfLink : String; FuserInfo : TVolumeTypeuserInfo; FvolumeInfo : TVolumeTypevolumeInfo; Protected //Property setters Procedure SetaccessInfo(AIndex : Integer; const AValue : TVolumeTypeaccessInfo); virtual; Procedure Setetag(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlayerInfo(AIndex : Integer; const AValue : TVolumeTypelayerInfo); virtual; Procedure SetrecommendedInfo(AIndex : Integer; const AValue : TVolumeTyperecommendedInfo); virtual; Procedure SetsaleInfo(AIndex : Integer; const AValue : TVolumeTypesaleInfo); virtual; Procedure SetsearchInfo(AIndex : Integer; const AValue : TVolumeTypesearchInfo); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SetuserInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfo); virtual; Procedure SetvolumeInfo(AIndex : Integer; const AValue : TVolumeTypevolumeInfo); virtual; Public Published Property accessInfo : TVolumeTypeaccessInfo Index 0 Read FaccessInfo Write SetaccessInfo; Property etag : String Index 8 Read Fetag Write Setetag; Property id : String Index 16 Read Fid Write Setid; Property kind : String Index 24 Read Fkind Write Setkind; Property layerInfo : TVolumeTypelayerInfo Index 32 Read FlayerInfo Write SetlayerInfo; Property recommendedInfo : TVolumeTyperecommendedInfo Index 40 Read FrecommendedInfo Write SetrecommendedInfo; Property saleInfo : TVolumeTypesaleInfo Index 48 Read FsaleInfo Write SetsaleInfo; Property searchInfo : TVolumeTypesearchInfo Index 56 Read FsearchInfo Write SetsearchInfo; Property selfLink : String Index 64 Read FselfLink Write SetselfLink; Property userInfo : TVolumeTypeuserInfo Index 72 Read FuserInfo Write SetuserInfo; Property volumeInfo : TVolumeTypevolumeInfo Index 80 Read FvolumeInfo Write SetvolumeInfo; end; TVolumeClass = Class of TVolume; { -------------------------------------------------------------------- TVolume2 --------------------------------------------------------------------} TVolume2 = Class(TGoogleBaseObject) Private Fitems : TVolume2TypeitemsArray; Fkind : String; FnextPageToken : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TVolume2TypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TVolume2TypeitemsArray 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; TVolume2Class = Class of TVolume2; { -------------------------------------------------------------------- TVolumeannotationTypecontentRanges --------------------------------------------------------------------} TVolumeannotationTypecontentRanges = Class(TGoogleBaseObject) Private FcfiRange : TBooksAnnotationsRange; FcontentVersion : String; FgbImageRange : TBooksAnnotationsRange; FgbTextRange : TBooksAnnotationsRange; Protected //Property setters Procedure SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual; Procedure SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Procedure SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual; Public Published Property cfiRange : TBooksAnnotationsRange Index 0 Read FcfiRange Write SetcfiRange; Property contentVersion : String Index 8 Read FcontentVersion Write SetcontentVersion; Property gbImageRange : TBooksAnnotationsRange Index 16 Read FgbImageRange Write SetgbImageRange; Property gbTextRange : TBooksAnnotationsRange Index 24 Read FgbTextRange Write SetgbTextRange; end; TVolumeannotationTypecontentRangesClass = Class of TVolumeannotationTypecontentRanges; { -------------------------------------------------------------------- TVolumeannotation --------------------------------------------------------------------} TVolumeannotation = Class(TGoogleBaseObject) Private FannotationDataId : String; FannotationDataLink : String; FannotationType : String; FcontentRanges : TVolumeannotationTypecontentRanges; Fdata : String; Fdeleted : boolean; Fid : String; Fkind : String; FlayerId : String; FpageIds : TStringArray; FselectedText : String; FselfLink : String; Fupdated : TDatetime; FvolumeId : String; Protected //Property setters Procedure SetannotationDataId(AIndex : Integer; const AValue : String); virtual; Procedure SetannotationDataLink(AIndex : Integer; const AValue : String); virtual; Procedure SetannotationType(AIndex : Integer; const AValue : String); virtual; Procedure SetcontentRanges(AIndex : Integer; const AValue : TVolumeannotationTypecontentRanges); virtual; Procedure Setdata(AIndex : Integer; const AValue : String); virtual; Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual; Procedure SetpageIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetselectedText(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property annotationDataId : String Index 0 Read FannotationDataId Write SetannotationDataId; Property annotationDataLink : String Index 8 Read FannotationDataLink Write SetannotationDataLink; Property annotationType : String Index 16 Read FannotationType Write SetannotationType; Property contentRanges : TVolumeannotationTypecontentRanges Index 24 Read FcontentRanges Write SetcontentRanges; Property data : String Index 32 Read Fdata Write Setdata; Property deleted : boolean Index 40 Read Fdeleted Write Setdeleted; Property id : String Index 48 Read Fid Write Setid; Property kind : String Index 56 Read Fkind Write Setkind; Property layerId : String Index 64 Read FlayerId Write SetlayerId; Property pageIds : TStringArray Index 72 Read FpageIds Write SetpageIds; Property selectedText : String Index 80 Read FselectedText Write SetselectedText; Property selfLink : String Index 88 Read FselfLink Write SetselfLink; Property updated : TDatetime Index 96 Read Fupdated Write Setupdated; Property volumeId : String Index 104 Read FvolumeId Write SetvolumeId; end; TVolumeannotationClass = Class of TVolumeannotation; { -------------------------------------------------------------------- TVolumeannotations --------------------------------------------------------------------} TVolumeannotations = Class(TGoogleBaseObject) Private Fitems : TVolumeannotationsTypeitemsArray; Fkind : String; FnextPageToken : String; FtotalItems : integer; Fversion : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TVolumeannotationsTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual; Procedure Setversion(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 : TVolumeannotationsTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken; Property totalItems : integer Index 24 Read FtotalItems Write SettotalItems; Property version : String Index 32 Read Fversion Write Setversion; end; TVolumeannotationsClass = Class of TVolumeannotations; { -------------------------------------------------------------------- TVolumes --------------------------------------------------------------------} TVolumes = Class(TGoogleBaseObject) Private Fitems : TVolumesTypeitemsArray; Fkind : String; FtotalItems : integer; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TVolumesTypeitemsArray); virtual; Procedure Setkind(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 : TVolumesTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; Property totalItems : integer Index 16 Read FtotalItems Write SettotalItems; end; TVolumesClass = Class of TVolumes; { -------------------------------------------------------------------- TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem --------------------------------------------------------------------} TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem = Class(TGoogleBaseObject) Private FissueDisplayNumber : String; FissueOrderNumber : integer; Protected //Property setters Procedure SetissueDisplayNumber(AIndex : Integer; const AValue : String); virtual; Procedure SetissueOrderNumber(AIndex : Integer; const AValue : integer); virtual; Public Published Property issueDisplayNumber : String Index 0 Read FissueDisplayNumber Write SetissueDisplayNumber; Property issueOrderNumber : integer Index 8 Read FissueOrderNumber Write SetissueOrderNumber; end; TVolumeseriesinfoTypevolumeSeriesItemTypeissueItemClass = Class of TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem; { -------------------------------------------------------------------- TVolumeseriesinfoTypevolumeSeriesItem --------------------------------------------------------------------} TVolumeseriesinfoTypevolumeSeriesItem = Class(TGoogleBaseObject) Private Fissue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray; ForderNumber : integer; FseriesBookType : String; FseriesId : String; Protected //Property setters Procedure Setissue(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray); virtual; Procedure SetorderNumber(AIndex : Integer; const AValue : integer); virtual; Procedure SetseriesBookType(AIndex : Integer; const AValue : String); virtual; Procedure SetseriesId(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property issue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray Index 0 Read Fissue Write Setissue; Property orderNumber : integer Index 8 Read ForderNumber Write SetorderNumber; Property seriesBookType : String Index 16 Read FseriesBookType Write SetseriesBookType; Property seriesId : String Index 24 Read FseriesId Write SetseriesId; end; TVolumeseriesinfoTypevolumeSeriesItemClass = Class of TVolumeseriesinfoTypevolumeSeriesItem; { -------------------------------------------------------------------- TVolumeseriesinfo --------------------------------------------------------------------} TVolumeseriesinfo = Class(TGoogleBaseObject) Private FbookDisplayNumber : String; Fkind : String; FshortSeriesBookTitle : String; FvolumeSeries : TVolumeseriesinfoTypevolumeSeriesArray; Protected //Property setters Procedure SetbookDisplayNumber(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetshortSeriesBookTitle(AIndex : Integer; const AValue : String); virtual; Procedure SetvolumeSeries(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property bookDisplayNumber : String Index 0 Read FbookDisplayNumber Write SetbookDisplayNumber; Property kind : String Index 8 Read Fkind Write Setkind; Property shortSeriesBookTitle : String Index 16 Read FshortSeriesBookTitle Write SetshortSeriesBookTitle; Property volumeSeries : TVolumeseriesinfoTypevolumeSeriesArray Index 24 Read FvolumeSeries Write SetvolumeSeries; end; TVolumeseriesinfoClass = Class of TVolumeseriesinfo; { -------------------------------------------------------------------- TBookshelvesVolumesResource --------------------------------------------------------------------} //Optional query Options for TBookshelvesVolumesResource, method List TBookshelvesVolumesListOptions = Record maxResults : integer; showPreorders : boolean; source : String; startIndex : integer; end; TBookshelvesVolumesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(shelf: string; userId: string; AQuery : string = '') : TVolumes; Function List(shelf: string; userId: string; AQuery : TBookshelvesVolumeslistOptions) : TVolumes; end; { -------------------------------------------------------------------- TBookshelvesResource --------------------------------------------------------------------} //Optional query Options for TBookshelvesResource, method Get TBookshelvesGetOptions = Record source : String; end; //Optional query Options for TBookshelvesResource, method List TBookshelvesListOptions = Record source : String; end; TBookshelvesResource = Class(TGoogleResource) Private FVolumesInstance : TBookshelvesVolumesResource; Function GetVolumesInstance : TBookshelvesVolumesResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(shelf: string; userId: string; AQuery : string = '') : TBookshelf; Function Get(shelf: string; userId: string; AQuery : TBookshelvesgetOptions) : TBookshelf; Function List(userId: string; AQuery : string = '') : TBookshelves; Function List(userId: string; AQuery : TBookshelveslistOptions) : TBookshelves; Function CreateVolumesResource(AOwner : TComponent) : TBookshelvesVolumesResource;virtual;overload; Function CreateVolumesResource : TBookshelvesVolumesResource;virtual;overload; Property VolumesResource : TBookshelvesVolumesResource Read GetVolumesInstance; end; { -------------------------------------------------------------------- TCloudloadingResource --------------------------------------------------------------------} //Optional query Options for TCloudloadingResource, method AddBook TCloudloadingAddBookOptions = Record drive_document_id : String; mime_type : String; _name : String; upload_client_token : String; end; //Optional query Options for TCloudloadingResource, method DeleteBook TCloudloadingDeleteBookOptions = Record volumeId : String; end; TCloudloadingResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function AddBook(AQuery : string = '') : TBooksCloudloadingResource; Function AddBook(AQuery : TCloudloadingaddBookOptions) : TBooksCloudloadingResource; Procedure DeleteBook(AQuery : string = ''); Procedure DeleteBook(AQuery : TCloudloadingdeleteBookOptions); Function UpdateBook(aBooksCloudloadingResource : TBooksCloudloadingResource) : TBooksCloudloadingResource; end; { -------------------------------------------------------------------- TDictionaryResource --------------------------------------------------------------------} //Optional query Options for TDictionaryResource, method ListOfflineMetadata TDictionaryListOfflineMetadataOptions = Record cpksver : String; end; TDictionaryResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function ListOfflineMetadata(AQuery : string = '') : TMetadata; Function ListOfflineMetadata(AQuery : TDictionarylistOfflineMetadataOptions) : TMetadata; end; { -------------------------------------------------------------------- TLayersAnnotationDataResource --------------------------------------------------------------------} //Optional query Options for TLayersAnnotationDataResource, method Get TLayersAnnotationDataGetOptions = Record allowWebDefinitions : boolean; contentVersion : String; h : integer; locale : String; scale : integer; source : String; w : integer; end; //Optional query Options for TLayersAnnotationDataResource, method List TLayersAnnotationDataListOptions = Record annotationDataId : String; contentVersion : String; h : integer; locale : String; maxResults : integer; pageToken : String; scale : integer; source : String; updatedMax : String; updatedMin : String; w : integer; end; TLayersAnnotationDataResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(annotationDataId: string; layerId: string; volumeId: string; AQuery : string = '') : TAnnotationdata; Function Get(annotationDataId: string; layerId: string; volumeId: string; AQuery : TLayersAnnotationDatagetOptions) : TAnnotationdata; Function List(layerId: string; volumeId: string; AQuery : string = '') : TAnnotationsdata; Function List(layerId: string; volumeId: string; AQuery : TLayersAnnotationDatalistOptions) : TAnnotationsdata; end; { -------------------------------------------------------------------- TLayersVolumeAnnotationsResource --------------------------------------------------------------------} //Optional query Options for TLayersVolumeAnnotationsResource, method Get TLayersVolumeAnnotationsGetOptions = Record locale : String; source : String; end; //Optional query Options for TLayersVolumeAnnotationsResource, method List TLayersVolumeAnnotationsListOptions = Record contentVersion : String; endOffset : String; endPosition : String; locale : String; maxResults : integer; pageToken : String; showDeleted : boolean; source : String; startOffset : String; startPosition : String; updatedMax : String; updatedMin : String; volumeAnnotationsVersion : String; end; TLayersVolumeAnnotationsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(annotationId: string; layerId: string; volumeId: string; AQuery : string = '') : TVolumeannotation; Function Get(annotationId: string; layerId: string; volumeId: string; AQuery : TLayersVolumeAnnotationsgetOptions) : TVolumeannotation; Function List(layerId: string; volumeId: string; AQuery : string = '') : TVolumeannotations; Function List(layerId: string; volumeId: string; AQuery : TLayersVolumeAnnotationslistOptions) : TVolumeannotations; end; { -------------------------------------------------------------------- TLayersResource --------------------------------------------------------------------} //Optional query Options for TLayersResource, method Get TLayersGetOptions = Record contentVersion : String; source : String; end; //Optional query Options for TLayersResource, method List TLayersListOptions = Record contentVersion : String; maxResults : integer; pageToken : String; source : String; end; TLayersResource = Class(TGoogleResource) Private FAnnotationDataInstance : TLayersAnnotationDataResource; FVolumeAnnotationsInstance : TLayersVolumeAnnotationsResource; Function GetAnnotationDataInstance : TLayersAnnotationDataResource;virtual; Function GetVolumeAnnotationsInstance : TLayersVolumeAnnotationsResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(summaryId: string; volumeId: string; AQuery : string = '') : TLayersummary; Function Get(summaryId: string; volumeId: string; AQuery : TLayersgetOptions) : TLayersummary; Function List(volumeId: string; AQuery : string = '') : TLayersummaries; Function List(volumeId: string; AQuery : TLayerslistOptions) : TLayersummaries; Function CreateAnnotationDataResource(AOwner : TComponent) : TLayersAnnotationDataResource;virtual;overload; Function CreateAnnotationDataResource : TLayersAnnotationDataResource;virtual;overload; Function CreateVolumeAnnotationsResource(AOwner : TComponent) : TLayersVolumeAnnotationsResource;virtual;overload; Function CreateVolumeAnnotationsResource : TLayersVolumeAnnotationsResource;virtual;overload; Property AnnotationDataResource : TLayersAnnotationDataResource Read GetAnnotationDataInstance; Property VolumeAnnotationsResource : TLayersVolumeAnnotationsResource Read GetVolumeAnnotationsInstance; end; { -------------------------------------------------------------------- TMyconfigResource --------------------------------------------------------------------} //Optional query Options for TMyconfigResource, method ReleaseDownloadAccess TMyconfigReleaseDownloadAccessOptions = Record cpksver : String; locale : String; source : String; volumeIds : String; end; //Optional query Options for TMyconfigResource, method RequestAccess TMyconfigRequestAccessOptions = Record cpksver : String; licenseTypes : String; locale : String; nonce : String; source : String; volumeId : String; end; //Optional query Options for TMyconfigResource, method SyncVolumeLicenses TMyconfigSyncVolumeLicensesOptions = Record cpksver : String; features : String; includeNonComicsSeries : boolean; locale : String; nonce : String; showPreorders : boolean; source : String; volumeIds : String; end; TMyconfigResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function GetUserSettings : TUsersettings; Function ReleaseDownloadAccess(AQuery : string = '') : TDownloadAccesses; Function ReleaseDownloadAccess(AQuery : TMyconfigreleaseDownloadAccessOptions) : TDownloadAccesses; Function RequestAccess(AQuery : string = '') : TRequestAccess; Function RequestAccess(AQuery : TMyconfigrequestAccessOptions) : TRequestAccess; Function SyncVolumeLicenses(AQuery : string = '') : TVolumes; Function SyncVolumeLicenses(AQuery : TMyconfigsyncVolumeLicensesOptions) : TVolumes; Function UpdateUserSettings(aUsersettings : TUsersettings) : TUsersettings; end; { -------------------------------------------------------------------- TMylibraryAnnotationsResource --------------------------------------------------------------------} //Optional query Options for TMylibraryAnnotationsResource, method Delete TMylibraryAnnotationsDeleteOptions = Record source : String; end; //Optional query Options for TMylibraryAnnotationsResource, method Insert TMylibraryAnnotationsInsertOptions = Record country : String; showOnlySummaryInResponse : boolean; source : String; end; //Optional query Options for TMylibraryAnnotationsResource, method List TMylibraryAnnotationsListOptions = Record contentVersion : String; layerId : String; layerIds : String; maxResults : integer; pageToken : String; showDeleted : boolean; source : String; updatedMax : String; updatedMin : String; volumeId : String; end; //Optional query Options for TMylibraryAnnotationsResource, method Summary TMylibraryAnnotationsSummaryOptions = Record layerIds : String; volumeId : String; end; //Optional query Options for TMylibraryAnnotationsResource, method Update TMylibraryAnnotationsUpdateOptions = Record source : String; end; TMylibraryAnnotationsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(annotationId: string; AQuery : string = ''); Procedure Delete(annotationId: string; AQuery : TMylibraryAnnotationsdeleteOptions); Function Insert(aAnnotation : TAnnotation; AQuery : string = '') : TAnnotation; Function Insert(aAnnotation : TAnnotation; AQuery : TMylibraryAnnotationsinsertOptions) : TAnnotation; Function List(AQuery : string = '') : TAnnotations; Function List(AQuery : TMylibraryAnnotationslistOptions) : TAnnotations; Function Summary(AQuery : string = '') : TAnnotationsSummary; Function Summary(AQuery : TMylibraryAnnotationssummaryOptions) : TAnnotationsSummary; Function Update(annotationId: string; aAnnotation : TAnnotation; AQuery : string = '') : TAnnotation; Function Update(annotationId: string; aAnnotation : TAnnotation; AQuery : TMylibraryAnnotationsupdateOptions) : TAnnotation; end; { -------------------------------------------------------------------- TMylibraryBookshelvesVolumesResource --------------------------------------------------------------------} //Optional query Options for TMylibraryBookshelvesVolumesResource, method List TMylibraryBookshelvesVolumesListOptions = Record country : String; maxResults : integer; projection : String; q : String; showPreorders : boolean; source : String; startIndex : integer; end; TMylibraryBookshelvesVolumesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(shelf: string; AQuery : string = '') : TVolumes; Function List(shelf: string; AQuery : TMylibraryBookshelvesVolumeslistOptions) : TVolumes; end; { -------------------------------------------------------------------- TMylibraryBookshelvesResource --------------------------------------------------------------------} //Optional query Options for TMylibraryBookshelvesResource, method AddVolume TMylibraryBookshelvesAddVolumeOptions = Record reason : String; source : String; volumeId : String; end; //Optional query Options for TMylibraryBookshelvesResource, method ClearVolumes TMylibraryBookshelvesClearVolumesOptions = Record source : String; end; //Optional query Options for TMylibraryBookshelvesResource, method Get TMylibraryBookshelvesGetOptions = Record source : String; end; //Optional query Options for TMylibraryBookshelvesResource, method List TMylibraryBookshelvesListOptions = Record source : String; end; //Optional query Options for TMylibraryBookshelvesResource, method MoveVolume TMylibraryBookshelvesMoveVolumeOptions = Record source : String; volumeId : String; volumePosition : integer; end; //Optional query Options for TMylibraryBookshelvesResource, method RemoveVolume TMylibraryBookshelvesRemoveVolumeOptions = Record reason : String; source : String; volumeId : String; end; TMylibraryBookshelvesResource = Class(TGoogleResource) Private FVolumesInstance : TMylibraryBookshelvesVolumesResource; Function GetVolumesInstance : TMylibraryBookshelvesVolumesResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure AddVolume(shelf: string; AQuery : string = ''); Procedure AddVolume(shelf: string; AQuery : TMylibraryBookshelvesaddVolumeOptions); Procedure ClearVolumes(shelf: string; AQuery : string = ''); Procedure ClearVolumes(shelf: string; AQuery : TMylibraryBookshelvesclearVolumesOptions); Function Get(shelf: string; AQuery : string = '') : TBookshelf; Function Get(shelf: string; AQuery : TMylibraryBookshelvesgetOptions) : TBookshelf; Function List(AQuery : string = '') : TBookshelves; Function List(AQuery : TMylibraryBookshelveslistOptions) : TBookshelves; Procedure MoveVolume(shelf: string; AQuery : string = ''); Procedure MoveVolume(shelf: string; AQuery : TMylibraryBookshelvesmoveVolumeOptions); Procedure RemoveVolume(shelf: string; AQuery : string = ''); Procedure RemoveVolume(shelf: string; AQuery : TMylibraryBookshelvesremoveVolumeOptions); Function CreateVolumesResource(AOwner : TComponent) : TMylibraryBookshelvesVolumesResource;virtual;overload; Function CreateVolumesResource : TMylibraryBookshelvesVolumesResource;virtual;overload; Property VolumesResource : TMylibraryBookshelvesVolumesResource Read GetVolumesInstance; end; { -------------------------------------------------------------------- TMylibraryReadingpositionsResource --------------------------------------------------------------------} //Optional query Options for TMylibraryReadingpositionsResource, method Get TMylibraryReadingpositionsGetOptions = Record contentVersion : String; source : String; end; //Optional query Options for TMylibraryReadingpositionsResource, method SetPosition TMylibraryReadingpositionsSetPositionOptions = Record action : String; contentVersion : String; deviceCookie : String; position : String; source : String; timestamp : String; end; TMylibraryReadingpositionsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(volumeId: string; AQuery : string = '') : TReadingPosition; Function Get(volumeId: string; AQuery : TMylibraryReadingpositionsgetOptions) : TReadingPosition; Procedure SetPosition(volumeId: string; AQuery : string = ''); Procedure SetPosition(volumeId: string; AQuery : TMylibraryReadingpositionssetPositionOptions); end; { -------------------------------------------------------------------- TMylibraryResource --------------------------------------------------------------------} TMylibraryResource = Class(TGoogleResource) Private FAnnotationsInstance : TMylibraryAnnotationsResource; FBookshelvesVolumesInstance : TMylibraryBookshelvesVolumesResource; FBookshelvesInstance : TMylibraryBookshelvesResource; FReadingpositionsInstance : TMylibraryReadingpositionsResource; Function GetAnnotationsInstance : TMylibraryAnnotationsResource;virtual; Function GetBookshelvesVolumesInstance : TMylibraryBookshelvesVolumesResource;virtual; Function GetBookshelvesInstance : TMylibraryBookshelvesResource;virtual; Function GetReadingpositionsInstance : TMylibraryReadingpositionsResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function CreateAnnotationsResource(AOwner : TComponent) : TMylibraryAnnotationsResource;virtual;overload; Function CreateAnnotationsResource : TMylibraryAnnotationsResource;virtual;overload; Function CreateBookshelvesVolumesResource(AOwner : TComponent) : TMylibraryBookshelvesVolumesResource;virtual;overload; Function CreateBookshelvesVolumesResource : TMylibraryBookshelvesVolumesResource;virtual;overload; Function CreateBookshelvesResource(AOwner : TComponent) : TMylibraryBookshelvesResource;virtual;overload; Function CreateBookshelvesResource : TMylibraryBookshelvesResource;virtual;overload; Function CreateReadingpositionsResource(AOwner : TComponent) : TMylibraryReadingpositionsResource;virtual;overload; Function CreateReadingpositionsResource : TMylibraryReadingpositionsResource;virtual;overload; Property AnnotationsResource : TMylibraryAnnotationsResource Read GetAnnotationsInstance; Property BookshelvesVolumesResource : TMylibraryBookshelvesVolumesResource Read GetBookshelvesVolumesInstance; Property BookshelvesResource : TMylibraryBookshelvesResource Read GetBookshelvesInstance; Property ReadingpositionsResource : TMylibraryReadingpositionsResource Read GetReadingpositionsInstance; end; { -------------------------------------------------------------------- TNotificationResource --------------------------------------------------------------------} //Optional query Options for TNotificationResource, method Get TNotificationGetOptions = Record locale : String; notification_id : String; source : String; end; TNotificationResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(AQuery : string = '') : TNotification; Function Get(AQuery : TNotificationgetOptions) : TNotification; end; { -------------------------------------------------------------------- TOnboardingResource --------------------------------------------------------------------} //Optional query Options for TOnboardingResource, method ListCategories TOnboardingListCategoriesOptions = Record locale : String; end; //Optional query Options for TOnboardingResource, method ListCategoryVolumes TOnboardingListCategoryVolumesOptions = Record categoryId : String; locale : String; maxAllowedMaturityRating : String; pageSize : integer; pageToken : String; end; TOnboardingResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function ListCategories(AQuery : string = '') : TCategory; Function ListCategories(AQuery : TOnboardinglistCategoriesOptions) : TCategory; Function ListCategoryVolumes(AQuery : string = '') : TVolume2; Function ListCategoryVolumes(AQuery : TOnboardinglistCategoryVolumesOptions) : TVolume2; end; { -------------------------------------------------------------------- TPersonalizedstreamResource --------------------------------------------------------------------} //Optional query Options for TPersonalizedstreamResource, method Get TPersonalizedstreamGetOptions = Record locale : String; maxAllowedMaturityRating : String; source : String; end; TPersonalizedstreamResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(AQuery : string = '') : TDiscoveryclusters; Function Get(AQuery : TPersonalizedstreamgetOptions) : TDiscoveryclusters; end; { -------------------------------------------------------------------- TPromoofferResource --------------------------------------------------------------------} //Optional query Options for TPromoofferResource, method Accept TPromoofferAcceptOptions = Record androidId : String; device : String; manufacturer : String; model : String; offerId : String; product : String; serial : String; volumeId : String; end; //Optional query Options for TPromoofferResource, method Dismiss TPromoofferDismissOptions = Record androidId : String; device : String; manufacturer : String; model : String; offerId : String; product : String; serial : String; end; //Optional query Options for TPromoofferResource, method Get TPromoofferGetOptions = Record androidId : String; device : String; manufacturer : String; model : String; product : String; serial : String; end; TPromoofferResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Accept(AQuery : string = ''); Procedure Accept(AQuery : TPromoofferacceptOptions); Procedure Dismiss(AQuery : string = ''); Procedure Dismiss(AQuery : TPromoofferdismissOptions); Function Get(AQuery : string = '') : TOffers; Function Get(AQuery : TPromooffergetOptions) : TOffers; end; { -------------------------------------------------------------------- TSeriesMembershipResource --------------------------------------------------------------------} //Optional query Options for TSeriesMembershipResource, method Get TSeriesMembershipGetOptions = Record page_size : integer; page_token : String; series_id : String; end; TSeriesMembershipResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(AQuery : string = '') : TSeriesmembership; Function Get(AQuery : TSeriesMembershipgetOptions) : TSeriesmembership; end; { -------------------------------------------------------------------- TSeriesResource --------------------------------------------------------------------} //Optional query Options for TSeriesResource, method Get TSeriesGetOptions = Record series_id : String; end; TSeriesResource = Class(TGoogleResource) Private FMembershipInstance : TSeriesMembershipResource; Function GetMembershipInstance : TSeriesMembershipResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(AQuery : string = '') : TSeries; Function Get(AQuery : TSeriesgetOptions) : TSeries; Function CreateMembershipResource(AOwner : TComponent) : TSeriesMembershipResource;virtual;overload; Function CreateMembershipResource : TSeriesMembershipResource;virtual;overload; Property MembershipResource : TSeriesMembershipResource Read GetMembershipInstance; end; { -------------------------------------------------------------------- TVolumesAssociatedResource --------------------------------------------------------------------} //Optional query Options for TVolumesAssociatedResource, method List TVolumesAssociatedListOptions = Record association : String; locale : String; maxAllowedMaturityRating : String; source : String; end; TVolumesAssociatedResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(volumeId: string; AQuery : string = '') : TVolumes; Function List(volumeId: string; AQuery : TVolumesAssociatedlistOptions) : TVolumes; end; { -------------------------------------------------------------------- TVolumesMybooksResource --------------------------------------------------------------------} //Optional query Options for TVolumesMybooksResource, method List TVolumesMybooksListOptions = Record acquireMethod : String; country : String; locale : String; maxResults : integer; processingState : String; source : String; startIndex : integer; end; TVolumesMybooksResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TVolumes; Function List(AQuery : TVolumesMybookslistOptions) : TVolumes; end; { -------------------------------------------------------------------- TVolumesRecommendedResource --------------------------------------------------------------------} //Optional query Options for TVolumesRecommendedResource, method List TVolumesRecommendedListOptions = Record locale : String; maxAllowedMaturityRating : String; source : String; end; //Optional query Options for TVolumesRecommendedResource, method Rate TVolumesRecommendedRateOptions = Record locale : String; rating : String; source : String; volumeId : String; end; TVolumesRecommendedResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TVolumes; Function List(AQuery : TVolumesRecommendedlistOptions) : TVolumes; Function Rate(AQuery : string = '') : TBooksVolumesRecommendedRateResponse; Function Rate(AQuery : TVolumesRecommendedrateOptions) : TBooksVolumesRecommendedRateResponse; end; { -------------------------------------------------------------------- TVolumesUseruploadedResource --------------------------------------------------------------------} //Optional query Options for TVolumesUseruploadedResource, method List TVolumesUseruploadedListOptions = Record locale : String; maxResults : integer; processingState : String; source : String; startIndex : integer; volumeId : String; end; TVolumesUseruploadedResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TVolumes; Function List(AQuery : TVolumesUseruploadedlistOptions) : TVolumes; end; { -------------------------------------------------------------------- TVolumesResource --------------------------------------------------------------------} //Optional query Options for TVolumesResource, method Get TVolumesGetOptions = Record country : String; includeNonComicsSeries : boolean; partner : String; projection : String; source : String; user_library_consistent_read : boolean; end; //Optional query Options for TVolumesResource, method List TVolumesListOptions = Record download : String; filter : String; langRestrict : String; libraryRestrict : String; maxResults : integer; orderBy : String; partner : String; printType : String; projection : String; q : String; showPreorders : boolean; source : String; startIndex : integer; end; TVolumesResource = Class(TGoogleResource) Private FAssociatedInstance : TVolumesAssociatedResource; FMybooksInstance : TVolumesMybooksResource; FRecommendedInstance : TVolumesRecommendedResource; FUseruploadedInstance : TVolumesUseruploadedResource; Function GetAssociatedInstance : TVolumesAssociatedResource;virtual; Function GetMybooksInstance : TVolumesMybooksResource;virtual; Function GetRecommendedInstance : TVolumesRecommendedResource;virtual; Function GetUseruploadedInstance : TVolumesUseruploadedResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(volumeId: string; AQuery : string = '') : TVolume; Function Get(volumeId: string; AQuery : TVolumesgetOptions) : TVolume; Function List(AQuery : string = '') : TVolumes; Function List(AQuery : TVolumeslistOptions) : TVolumes; Function CreateAssociatedResource(AOwner : TComponent) : TVolumesAssociatedResource;virtual;overload; Function CreateAssociatedResource : TVolumesAssociatedResource;virtual;overload; Function CreateMybooksResource(AOwner : TComponent) : TVolumesMybooksResource;virtual;overload; Function CreateMybooksResource : TVolumesMybooksResource;virtual;overload; Function CreateRecommendedResource(AOwner : TComponent) : TVolumesRecommendedResource;virtual;overload; Function CreateRecommendedResource : TVolumesRecommendedResource;virtual;overload; Function CreateUseruploadedResource(AOwner : TComponent) : TVolumesUseruploadedResource;virtual;overload; Function CreateUseruploadedResource : TVolumesUseruploadedResource;virtual;overload; Property AssociatedResource : TVolumesAssociatedResource Read GetAssociatedInstance; Property MybooksResource : TVolumesMybooksResource Read GetMybooksInstance; Property RecommendedResource : TVolumesRecommendedResource Read GetRecommendedInstance; Property UseruploadedResource : TVolumesUseruploadedResource Read GetUseruploadedInstance; end; { -------------------------------------------------------------------- TBooksAPI --------------------------------------------------------------------} TBooksAPI = Class(TGoogleAPI) Private FBookshelvesVolumesInstance : TBookshelvesVolumesResource; FBookshelvesInstance : TBookshelvesResource; FCloudloadingInstance : TCloudloadingResource; FDictionaryInstance : TDictionaryResource; FLayersAnnotationDataInstance : TLayersAnnotationDataResource; FLayersVolumeAnnotationsInstance : TLayersVolumeAnnotationsResource; FLayersInstance : TLayersResource; FMyconfigInstance : TMyconfigResource; FMylibraryAnnotationsInstance : TMylibraryAnnotationsResource; FMylibraryBookshelvesVolumesInstance : TMylibraryBookshelvesVolumesResource; FMylibraryBookshelvesInstance : TMylibraryBookshelvesResource; FMylibraryReadingpositionsInstance : TMylibraryReadingpositionsResource; FMylibraryInstance : TMylibraryResource; FNotificationInstance : TNotificationResource; FOnboardingInstance : TOnboardingResource; FPersonalizedstreamInstance : TPersonalizedstreamResource; FPromoofferInstance : TPromoofferResource; FSeriesMembershipInstance : TSeriesMembershipResource; FSeriesInstance : TSeriesResource; FVolumesAssociatedInstance : TVolumesAssociatedResource; FVolumesMybooksInstance : TVolumesMybooksResource; FVolumesRecommendedInstance : TVolumesRecommendedResource; FVolumesUseruploadedInstance : TVolumesUseruploadedResource; FVolumesInstance : TVolumesResource; Function GetBookshelvesVolumesInstance : TBookshelvesVolumesResource;virtual; Function GetBookshelvesInstance : TBookshelvesResource;virtual; Function GetCloudloadingInstance : TCloudloadingResource;virtual; Function GetDictionaryInstance : TDictionaryResource;virtual; Function GetLayersAnnotationDataInstance : TLayersAnnotationDataResource;virtual; Function GetLayersVolumeAnnotationsInstance : TLayersVolumeAnnotationsResource;virtual; Function GetLayersInstance : TLayersResource;virtual; Function GetMyconfigInstance : TMyconfigResource;virtual; Function GetMylibraryAnnotationsInstance : TMylibraryAnnotationsResource;virtual; Function GetMylibraryBookshelvesVolumesInstance : TMylibraryBookshelvesVolumesResource;virtual; Function GetMylibraryBookshelvesInstance : TMylibraryBookshelvesResource;virtual; Function GetMylibraryReadingpositionsInstance : TMylibraryReadingpositionsResource;virtual; Function GetMylibraryInstance : TMylibraryResource;virtual; Function GetNotificationInstance : TNotificationResource;virtual; Function GetOnboardingInstance : TOnboardingResource;virtual; Function GetPersonalizedstreamInstance : TPersonalizedstreamResource;virtual; Function GetPromoofferInstance : TPromoofferResource;virtual; Function GetSeriesMembershipInstance : TSeriesMembershipResource;virtual; Function GetSeriesInstance : TSeriesResource;virtual; Function GetVolumesAssociatedInstance : TVolumesAssociatedResource;virtual; Function GetVolumesMybooksInstance : TVolumesMybooksResource;virtual; Function GetVolumesRecommendedInstance : TVolumesRecommendedResource;virtual; Function GetVolumesUseruploadedInstance : TVolumesUseruploadedResource;virtual; Function GetVolumesInstance : TVolumesResource;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 CreateBookshelvesVolumesResource(AOwner : TComponent) : TBookshelvesVolumesResource;virtual;overload; Function CreateBookshelvesVolumesResource : TBookshelvesVolumesResource;virtual;overload; Function CreateBookshelvesResource(AOwner : TComponent) : TBookshelvesResource;virtual;overload; Function CreateBookshelvesResource : TBookshelvesResource;virtual;overload; Function CreateCloudloadingResource(AOwner : TComponent) : TCloudloadingResource;virtual;overload; Function CreateCloudloadingResource : TCloudloadingResource;virtual;overload; Function CreateDictionaryResource(AOwner : TComponent) : TDictionaryResource;virtual;overload; Function CreateDictionaryResource : TDictionaryResource;virtual;overload; Function CreateLayersAnnotationDataResource(AOwner : TComponent) : TLayersAnnotationDataResource;virtual;overload; Function CreateLayersAnnotationDataResource : TLayersAnnotationDataResource;virtual;overload; Function CreateLayersVolumeAnnotationsResource(AOwner : TComponent) : TLayersVolumeAnnotationsResource;virtual;overload; Function CreateLayersVolumeAnnotationsResource : TLayersVolumeAnnotationsResource;virtual;overload; Function CreateLayersResource(AOwner : TComponent) : TLayersResource;virtual;overload; Function CreateLayersResource : TLayersResource;virtual;overload; Function CreateMyconfigResource(AOwner : TComponent) : TMyconfigResource;virtual;overload; Function CreateMyconfigResource : TMyconfigResource;virtual;overload; Function CreateMylibraryAnnotationsResource(AOwner : TComponent) : TMylibraryAnnotationsResource;virtual;overload; Function CreateMylibraryAnnotationsResource : TMylibraryAnnotationsResource;virtual;overload; Function CreateMylibraryBookshelvesVolumesResource(AOwner : TComponent) : TMylibraryBookshelvesVolumesResource;virtual;overload; Function CreateMylibraryBookshelvesVolumesResource : TMylibraryBookshelvesVolumesResource;virtual;overload; Function CreateMylibraryBookshelvesResource(AOwner : TComponent) : TMylibraryBookshelvesResource;virtual;overload; Function CreateMylibraryBookshelvesResource : TMylibraryBookshelvesResource;virtual;overload; Function CreateMylibraryReadingpositionsResource(AOwner : TComponent) : TMylibraryReadingpositionsResource;virtual;overload; Function CreateMylibraryReadingpositionsResource : TMylibraryReadingpositionsResource;virtual;overload; Function CreateMylibraryResource(AOwner : TComponent) : TMylibraryResource;virtual;overload; Function CreateMylibraryResource : TMylibraryResource;virtual;overload; Function CreateNotificationResource(AOwner : TComponent) : TNotificationResource;virtual;overload; Function CreateNotificationResource : TNotificationResource;virtual;overload; Function CreateOnboardingResource(AOwner : TComponent) : TOnboardingResource;virtual;overload; Function CreateOnboardingResource : TOnboardingResource;virtual;overload; Function CreatePersonalizedstreamResource(AOwner : TComponent) : TPersonalizedstreamResource;virtual;overload; Function CreatePersonalizedstreamResource : TPersonalizedstreamResource;virtual;overload; Function CreatePromoofferResource(AOwner : TComponent) : TPromoofferResource;virtual;overload; Function CreatePromoofferResource : TPromoofferResource;virtual;overload; Function CreateSeriesMembershipResource(AOwner : TComponent) : TSeriesMembershipResource;virtual;overload; Function CreateSeriesMembershipResource : TSeriesMembershipResource;virtual;overload; Function CreateSeriesResource(AOwner : TComponent) : TSeriesResource;virtual;overload; Function CreateSeriesResource : TSeriesResource;virtual;overload; Function CreateVolumesAssociatedResource(AOwner : TComponent) : TVolumesAssociatedResource;virtual;overload; Function CreateVolumesAssociatedResource : TVolumesAssociatedResource;virtual;overload; Function CreateVolumesMybooksResource(AOwner : TComponent) : TVolumesMybooksResource;virtual;overload; Function CreateVolumesMybooksResource : TVolumesMybooksResource;virtual;overload; Function CreateVolumesRecommendedResource(AOwner : TComponent) : TVolumesRecommendedResource;virtual;overload; Function CreateVolumesRecommendedResource : TVolumesRecommendedResource;virtual;overload; Function CreateVolumesUseruploadedResource(AOwner : TComponent) : TVolumesUseruploadedResource;virtual;overload; Function CreateVolumesUseruploadedResource : TVolumesUseruploadedResource;virtual;overload; Function CreateVolumesResource(AOwner : TComponent) : TVolumesResource;virtual;overload; Function CreateVolumesResource : TVolumesResource;virtual;overload; //Add default on-demand instances for resources Property BookshelvesVolumesResource : TBookshelvesVolumesResource Read GetBookshelvesVolumesInstance; Property BookshelvesResource : TBookshelvesResource Read GetBookshelvesInstance; Property CloudloadingResource : TCloudloadingResource Read GetCloudloadingInstance; Property DictionaryResource : TDictionaryResource Read GetDictionaryInstance; Property LayersAnnotationDataResource : TLayersAnnotationDataResource Read GetLayersAnnotationDataInstance; Property LayersVolumeAnnotationsResource : TLayersVolumeAnnotationsResource Read GetLayersVolumeAnnotationsInstance; Property LayersResource : TLayersResource Read GetLayersInstance; Property MyconfigResource : TMyconfigResource Read GetMyconfigInstance; Property MylibraryAnnotationsResource : TMylibraryAnnotationsResource Read GetMylibraryAnnotationsInstance; Property MylibraryBookshelvesVolumesResource : TMylibraryBookshelvesVolumesResource Read GetMylibraryBookshelvesVolumesInstance; Property MylibraryBookshelvesResource : TMylibraryBookshelvesResource Read GetMylibraryBookshelvesInstance; Property MylibraryReadingpositionsResource : TMylibraryReadingpositionsResource Read GetMylibraryReadingpositionsInstance; Property MylibraryResource : TMylibraryResource Read GetMylibraryInstance; Property NotificationResource : TNotificationResource Read GetNotificationInstance; Property OnboardingResource : TOnboardingResource Read GetOnboardingInstance; Property PersonalizedstreamResource : TPersonalizedstreamResource Read GetPersonalizedstreamInstance; Property PromoofferResource : TPromoofferResource Read GetPromoofferInstance; Property SeriesMembershipResource : TSeriesMembershipResource Read GetSeriesMembershipInstance; Property SeriesResource : TSeriesResource Read GetSeriesInstance; Property VolumesAssociatedResource : TVolumesAssociatedResource Read GetVolumesAssociatedInstance; Property VolumesMybooksResource : TVolumesMybooksResource Read GetVolumesMybooksInstance; Property VolumesRecommendedResource : TVolumesRecommendedResource Read GetVolumesRecommendedInstance; Property VolumesUseruploadedResource : TVolumesUseruploadedResource Read GetVolumesUseruploadedInstance; Property VolumesResource : TVolumesResource Read GetVolumesInstance; end; implementation { -------------------------------------------------------------------- TAnnotationTypeclientVersionRanges --------------------------------------------------------------------} Procedure TAnnotationTypeclientVersionRanges.SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FcfiRange=AValue) then exit; FcfiRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypeclientVersionRanges.SetcontentVersion(AIndex : Integer; const AValue : String); begin If (FcontentVersion=AValue) then exit; FcontentVersion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypeclientVersionRanges.SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FgbImageRange=AValue) then exit; FgbImageRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypeclientVersionRanges.SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FgbTextRange=AValue) then exit; FgbTextRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypeclientVersionRanges.SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FimageCfiRange=AValue) then exit; FimageCfiRange:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAnnotationTypecurrentVersionRanges --------------------------------------------------------------------} Procedure TAnnotationTypecurrentVersionRanges.SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FcfiRange=AValue) then exit; FcfiRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypecurrentVersionRanges.SetcontentVersion(AIndex : Integer; const AValue : String); begin If (FcontentVersion=AValue) then exit; FcontentVersion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypecurrentVersionRanges.SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FgbImageRange=AValue) then exit; FgbImageRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypecurrentVersionRanges.SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FgbTextRange=AValue) then exit; FgbTextRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypecurrentVersionRanges.SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FimageCfiRange=AValue) then exit; FimageCfiRange:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAnnotationTypelayerSummary --------------------------------------------------------------------} Procedure TAnnotationTypelayerSummary.SetallowedCharacterCount(AIndex : Integer; const AValue : integer); begin If (FallowedCharacterCount=AValue) then exit; FallowedCharacterCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypelayerSummary.SetlimitType(AIndex : Integer; const AValue : String); begin If (FlimitType=AValue) then exit; FlimitType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationTypelayerSummary.SetremainingCharacterCount(AIndex : Integer; const AValue : integer); begin If (FremainingCharacterCount=AValue) then exit; FremainingCharacterCount:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAnnotation --------------------------------------------------------------------} Procedure TAnnotation.SetafterSelectedText(AIndex : Integer; const AValue : String); begin If (FafterSelectedText=AValue) then exit; FafterSelectedText:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetbeforeSelectedText(AIndex : Integer; const AValue : String); begin If (FbeforeSelectedText=AValue) then exit; FbeforeSelectedText:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetclientVersionRanges(AIndex : Integer; const AValue : TAnnotationTypeclientVersionRanges); begin If (FclientVersionRanges=AValue) then exit; FclientVersionRanges:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.Setcreated(AIndex : Integer; const AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetcurrentVersionRanges(AIndex : Integer; const AValue : TAnnotationTypecurrentVersionRanges); begin If (FcurrentVersionRanges=AValue) then exit; FcurrentVersionRanges:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.Setdata(AIndex : Integer; const AValue : String); begin If (Fdata=AValue) then exit; Fdata:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.Setdeleted(AIndex : Integer; const AValue : boolean); begin If (Fdeleted=AValue) then exit; Fdeleted:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SethighlightStyle(AIndex : Integer; const AValue : String); begin If (FhighlightStyle=AValue) then exit; FhighlightStyle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetlayerId(AIndex : Integer; const AValue : String); begin If (FlayerId=AValue) then exit; FlayerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetlayerSummary(AIndex : Integer; const AValue : TAnnotationTypelayerSummary); begin If (FlayerSummary=AValue) then exit; FlayerSummary:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetpageIds(AIndex : Integer; const AValue : TStringArray); begin If (FpageIds=AValue) then exit; FpageIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetselectedText(AIndex : Integer; const AValue : String); begin If (FselectedText=AValue) then exit; FselectedText:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotation.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAnnotation.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'pageids' : SetLength(FpageIds,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAnnotationdata --------------------------------------------------------------------} Procedure TAnnotationdata.SetannotationType(AIndex : Integer; const AValue : String); begin If (FannotationType=AValue) then exit; FannotationType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.Setdata(AIndex : Integer; const AValue : TJSONSchema); begin If (Fdata=AValue) then exit; Fdata:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.Setencoded_data(AIndex : Integer; const AValue : String); begin If (Fencoded_data=AValue) then exit; Fencoded_data:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.SetlayerId(AIndex : Integer; const AValue : String); begin If (FlayerId=AValue) then exit; FlayerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationdata.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAnnotations --------------------------------------------------------------------} Procedure TAnnotations.Setitems(AIndex : Integer; const AValue : TAnnotationsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotations.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotations.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotations.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 TAnnotations.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAnnotationsSummaryTypelayersItem --------------------------------------------------------------------} Procedure TAnnotationsSummaryTypelayersItem.SetallowedCharacterCount(AIndex : Integer; const AValue : integer); begin If (FallowedCharacterCount=AValue) then exit; FallowedCharacterCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsSummaryTypelayersItem.SetlayerId(AIndex : Integer; const AValue : String); begin If (FlayerId=AValue) then exit; FlayerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsSummaryTypelayersItem.SetlimitType(AIndex : Integer; const AValue : String); begin If (FlimitType=AValue) then exit; FlimitType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsSummaryTypelayersItem.SetremainingCharacterCount(AIndex : Integer; const AValue : integer); begin If (FremainingCharacterCount=AValue) then exit; FremainingCharacterCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsSummaryTypelayersItem.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAnnotationsSummary --------------------------------------------------------------------} Procedure TAnnotationsSummary.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsSummary.Setlayers(AIndex : Integer; const AValue : TAnnotationsSummaryTypelayersArray); begin If (Flayers=AValue) then exit; Flayers:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAnnotationsSummary.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'layers' : SetLength(Flayers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAnnotationsdata --------------------------------------------------------------------} Procedure TAnnotationsdata.Setitems(AIndex : Integer; const AValue : TAnnotationsdataTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsdata.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsdata.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAnnotationsdata.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 TAnnotationsdata.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TBooksAnnotationsRange --------------------------------------------------------------------} Procedure TBooksAnnotationsRange.SetendOffset(AIndex : Integer; const AValue : String); begin If (FendOffset=AValue) then exit; FendOffset:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBooksAnnotationsRange.SetendPosition(AIndex : Integer; const AValue : String); begin If (FendPosition=AValue) then exit; FendPosition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBooksAnnotationsRange.SetstartOffset(AIndex : Integer; const AValue : String); begin If (FstartOffset=AValue) then exit; FstartOffset:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBooksAnnotationsRange.SetstartPosition(AIndex : Integer; const AValue : String); begin If (FstartPosition=AValue) then exit; FstartPosition:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TBooksCloudloadingResource --------------------------------------------------------------------} Procedure TBooksCloudloadingResource.Setauthor(AIndex : Integer; const AValue : String); begin If (Fauthor=AValue) then exit; Fauthor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBooksCloudloadingResource.SetprocessingState(AIndex : Integer; const AValue : String); begin If (FprocessingState=AValue) then exit; FprocessingState:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBooksCloudloadingResource.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBooksCloudloadingResource.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TBooksVolumesRecommendedRateResponse --------------------------------------------------------------------} Procedure TBooksVolumesRecommendedRateResponse.Setconsistency_token(AIndex : Integer; const AValue : String); begin If (Fconsistency_token=AValue) then exit; Fconsistency_token:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TBookshelf --------------------------------------------------------------------} Procedure TBookshelf.Setaccess(AIndex : Integer; const AValue : String); begin If (Faccess=AValue) then exit; Faccess:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.Setcreated(AIndex : Integer; const AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.Setid(AIndex : Integer; const AValue : integer); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.SetvolumeCount(AIndex : Integer; const AValue : integer); begin If (FvolumeCount=AValue) then exit; FvolumeCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelf.SetvolumesLastUpdated(AIndex : Integer; const AValue : TDatetime); begin If (FvolumesLastUpdated=AValue) then exit; FvolumesLastUpdated:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TBookshelves --------------------------------------------------------------------} Procedure TBookshelves.Setitems(AIndex : Integer; const AValue : TBookshelvesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBookshelves.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 TBookshelves.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCategoryTypeitemsItem --------------------------------------------------------------------} Procedure TCategoryTypeitemsItem.SetbadgeUrl(AIndex : Integer; const AValue : String); begin If (FbadgeUrl=AValue) then exit; FbadgeUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCategoryTypeitemsItem.SetcategoryId(AIndex : Integer; const AValue : String); begin If (FcategoryId=AValue) then exit; FcategoryId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCategoryTypeitemsItem.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCategory --------------------------------------------------------------------} Procedure TCategory.Setitems(AIndex : Integer; const AValue : TCategoryTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCategory.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 TCategory.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TConcurrentAccessRestriction --------------------------------------------------------------------} Procedure TConcurrentAccessRestriction.SetdeviceAllowed(AIndex : Integer; const AValue : boolean); begin If (FdeviceAllowed=AValue) then exit; FdeviceAllowed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.SetmaxConcurrentDevices(AIndex : Integer; const AValue : integer); begin If (FmaxConcurrentDevices=AValue) then exit; FmaxConcurrentDevices:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.Setmessage(AIndex : Integer; const AValue : String); begin If (Fmessage=AValue) then exit; Fmessage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.Setnonce(AIndex : Integer; const AValue : String); begin If (Fnonce=AValue) then exit; Fnonce:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.SetreasonCode(AIndex : Integer; const AValue : String); begin If (FreasonCode=AValue) then exit; FreasonCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.Setrestricted(AIndex : Integer; const AValue : boolean); begin If (Frestricted=AValue) then exit; Frestricted:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.Setsignature(AIndex : Integer; const AValue : String); begin If (Fsignature=AValue) then exit; Fsignature:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.Setsource(AIndex : Integer; const AValue : String); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.SettimeWindowSeconds(AIndex : Integer; const AValue : integer); begin If (FtimeWindowSeconds=AValue) then exit; FtimeWindowSeconds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TConcurrentAccessRestriction.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypecommon --------------------------------------------------------------------} Procedure TDictlayerdataTypecommon.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypesource --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypesource.Setattribution(AIndex : Integer; const AValue : String); begin If (Fattribution=AValue) then exit; Fattribution:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource.Setattribution(AIndex : Integer; const AValue : String); begin If (Fattribution=AValue) then exit; Fattribution:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypederivativesItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypederivativesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypederivativesItem.Settext(AIndex : Integer; const AValue : String); begin If (Ftext=AValue) then exit; Ftext:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource.Setattribution(AIndex : Integer; const AValue : String); begin If (Fattribution=AValue) then exit; Fattribution:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypeexamplesItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypeexamplesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypeexamplesItem.Settext(AIndex : Integer; const AValue : String); begin If (Ftext=AValue) then exit; Ftext:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem.Setvalue(AIndex : Integer; const AValue : String); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Class Function TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource.Setattribution(AIndex : Integer; const AValue : String); begin If (Fattribution=AValue) then exit; Fattribution:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem.Settext(AIndex : Integer; const AValue : String); begin If (Ftext=AValue) then exit; Ftext:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem.Setdefinition(AIndex : Integer; const AValue : String); begin If (Fdefinition=AValue) then exit; Fdefinition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem.Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray); begin If (Fexamples=AValue) then exit; Fexamples:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'examples' : SetLength(Fexamples,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource.Setattribution(AIndex : Integer; const AValue : String); begin If (Fattribution=AValue) then exit; Fattribution:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource.Setattribution(AIndex : Integer; const AValue : String); begin If (Fattribution=AValue) then exit; Fattribution:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem.Settext(AIndex : Integer; const AValue : String); begin If (Ftext=AValue) then exit; Ftext:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesensesItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setconjugations(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray); begin If (Fconjugations=AValue) then exit; Fconjugations:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setdefinitions(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray); begin If (Fdefinitions=AValue) then exit; Fdefinitions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.SetpartOfSpeech(AIndex : Integer; const AValue : String); begin If (FpartOfSpeech=AValue) then exit; FpartOfSpeech:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setpronunciation(AIndex : Integer; const AValue : String); begin If (Fpronunciation=AValue) then exit; Fpronunciation:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.SetpronunciationUrl(AIndex : Integer; const AValue : String); begin If (FpronunciationUrl=AValue) then exit; FpronunciationUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setsyllabification(AIndex : Integer; const AValue : String); begin If (Fsyllabification=AValue) then exit; Fsyllabification:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setsynonyms(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray); begin If (Fsynonyms=AValue) then exit; Fsynonyms:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'conjugations' : SetLength(Fconjugations,ALength); 'definitions' : SetLength(Fdefinitions,ALength); 'synonyms' : SetLength(Fsynonyms,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItemTypesource --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItemTypesource.Setattribution(AIndex : Integer; const AValue : String); begin If (Fattribution=AValue) then exit; Fattribution:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItemTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDictlayerdataTypedictTypewordsItem --------------------------------------------------------------------} Procedure TDictlayerdataTypedictTypewordsItem.Setderivatives(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesArray); begin If (Fderivatives=AValue) then exit; Fderivatives:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItem.Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesArray); begin If (Fexamples=AValue) then exit; Fexamples:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItem.Setsenses(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesArray); begin If (Fsenses=AValue) then exit; Fsenses:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedictTypewordsItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDictlayerdataTypedictTypewordsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'derivatives' : SetLength(Fderivatives,ALength); 'examples' : SetLength(Fexamples,ALength); 'senses' : SetLength(Fsenses,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDictlayerdataTypedict --------------------------------------------------------------------} Procedure TDictlayerdataTypedict.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdataTypedict.Setwords(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsArray); begin If (Fwords=AValue) then exit; Fwords:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDictlayerdataTypedict.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'words' : SetLength(Fwords,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDictlayerdata --------------------------------------------------------------------} Procedure TDictlayerdata.Setcommon(AIndex : Integer; const AValue : TDictlayerdataTypecommon); begin If (Fcommon=AValue) then exit; Fcommon:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdata.Setdict(AIndex : Integer; const AValue : TDictlayerdataTypedict); begin If (Fdict=AValue) then exit; Fdict:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDictlayerdata.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDiscoveryclustersTypeclustersItemTypebanner_with_content_container --------------------------------------------------------------------} Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetfillColorArgb(AIndex : Integer; const AValue : String); begin If (FfillColorArgb=AValue) then exit; FfillColorArgb:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetimageUrl(AIndex : Integer; const AValue : String); begin If (FimageUrl=AValue) then exit; FimageUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetmaskColorArgb(AIndex : Integer; const AValue : String); begin If (FmaskColorArgb=AValue) then exit; FmaskColorArgb:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetmoreButtonText(AIndex : Integer; const AValue : String); begin If (FmoreButtonText=AValue) then exit; FmoreButtonText:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetmoreButtonUrl(AIndex : Integer; const AValue : String); begin If (FmoreButtonUrl=AValue) then exit; FmoreButtonUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SettextColorArgb(AIndex : Integer; const AValue : String); begin If (FtextColorArgb=AValue) then exit; FtextColorArgb:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDiscoveryclustersTypeclustersItem --------------------------------------------------------------------} Procedure TDiscoveryclustersTypeclustersItem.Setbanner_with_content_container(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container); begin If (Fbanner_with_content_container=AValue) then exit; Fbanner_with_content_container:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItem.SetsubTitle(AIndex : Integer; const AValue : String); begin If (FsubTitle=AValue) then exit; FsubTitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItem.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItem.SettotalVolumes(AIndex : Integer; const AValue : integer); begin If (FtotalVolumes=AValue) then exit; FtotalVolumes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItem.Setuid(AIndex : Integer; const AValue : String); begin If (Fuid=AValue) then exit; Fuid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclustersTypeclustersItem.Setvolumes(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypevolumesArray); begin If (Fvolumes=AValue) then exit; Fvolumes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDiscoveryclustersTypeclustersItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'volumes' : SetLength(Fvolumes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDiscoveryclusters --------------------------------------------------------------------} Procedure TDiscoveryclusters.Setclusters(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersArray); begin If (Fclusters=AValue) then exit; Fclusters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclusters.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDiscoveryclusters.SettotalClusters(AIndex : Integer; const AValue : integer); begin If (FtotalClusters=AValue) then exit; FtotalClusters:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDiscoveryclusters.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'clusters' : SetLength(Fclusters,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDownloadAccessRestriction --------------------------------------------------------------------} Procedure TDownloadAccessRestriction.SetdeviceAllowed(AIndex : Integer; const AValue : boolean); begin If (FdeviceAllowed=AValue) then exit; FdeviceAllowed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.SetdownloadsAcquired(AIndex : Integer; const AValue : integer); begin If (FdownloadsAcquired=AValue) then exit; FdownloadsAcquired:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.SetjustAcquired(AIndex : Integer; const AValue : boolean); begin If (FjustAcquired=AValue) then exit; FjustAcquired:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.SetmaxDownloadDevices(AIndex : Integer; const AValue : integer); begin If (FmaxDownloadDevices=AValue) then exit; FmaxDownloadDevices:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.Setmessage(AIndex : Integer; const AValue : String); begin If (Fmessage=AValue) then exit; Fmessage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.Setnonce(AIndex : Integer; const AValue : String); begin If (Fnonce=AValue) then exit; Fnonce:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.SetreasonCode(AIndex : Integer; const AValue : String); begin If (FreasonCode=AValue) then exit; FreasonCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.Setrestricted(AIndex : Integer; const AValue : boolean); begin If (Frestricted=AValue) then exit; Frestricted:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.Setsignature(AIndex : Integer; const AValue : String); begin If (Fsignature=AValue) then exit; Fsignature:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.Setsource(AIndex : Integer; const AValue : String); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccessRestriction.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDownloadAccesses --------------------------------------------------------------------} Procedure TDownloadAccesses.SetdownloadAccessList(AIndex : Integer; const AValue : TDownloadAccessesTypedownloadAccessListArray); begin If (FdownloadAccessList=AValue) then exit; FdownloadAccessList:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDownloadAccesses.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 TDownloadAccesses.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'downloadaccesslist' : SetLength(FdownloadAccessList,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGeolayerdataTypecommon --------------------------------------------------------------------} Procedure TGeolayerdataTypecommon.Setlang(AIndex : Integer; const AValue : String); begin If (Flang=AValue) then exit; Flang:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypecommon.SetpreviewImageUrl(AIndex : Integer; const AValue : String); begin If (FpreviewImageUrl=AValue) then exit; FpreviewImageUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypecommon.Setsnippet(AIndex : Integer; const AValue : String); begin If (Fsnippet=AValue) then exit; Fsnippet:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypecommon.SetsnippetUrl(AIndex : Integer; const AValue : String); begin If (FsnippetUrl=AValue) then exit; FsnippetUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypecommon.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeboundaryItemItem --------------------------------------------------------------------} Procedure TGeolayerdataTypegeoTypeboundaryItemItem.Setlatitude(AIndex : Integer; const AValue : integer); begin If (Flatitude=AValue) then exit; Flatitude:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeoTypeboundaryItemItem.Setlongitude(AIndex : Integer; const AValue : integer); begin If (Flongitude=AValue) then exit; Flongitude:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeviewportTypehi --------------------------------------------------------------------} Procedure TGeolayerdataTypegeoTypeviewportTypehi.Setlatitude(AIndex : Integer; const AValue : double); begin If (Flatitude=AValue) then exit; Flatitude:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeoTypeviewportTypehi.Setlongitude(AIndex : Integer; const AValue : double); begin If (Flongitude=AValue) then exit; Flongitude:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeviewportTypelo --------------------------------------------------------------------} Procedure TGeolayerdataTypegeoTypeviewportTypelo.Setlatitude(AIndex : Integer; const AValue : double); begin If (Flatitude=AValue) then exit; Flatitude:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeoTypeviewportTypelo.Setlongitude(AIndex : Integer; const AValue : double); begin If (Flongitude=AValue) then exit; Flongitude:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGeolayerdataTypegeoTypeviewport --------------------------------------------------------------------} Procedure TGeolayerdataTypegeoTypeviewport.Sethi(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypehi); begin If (Fhi=AValue) then exit; Fhi:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeoTypeviewport.Setlo(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypelo); begin If (Flo=AValue) then exit; Flo:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGeolayerdataTypegeo --------------------------------------------------------------------} Procedure TGeolayerdataTypegeo.Setboundary(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeboundaryArray); begin If (Fboundary=AValue) then exit; Fboundary:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeo.SetcachePolicy(AIndex : Integer; const AValue : String); begin If (FcachePolicy=AValue) then exit; FcachePolicy:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeo.SetcountryCode(AIndex : Integer; const AValue : String); begin If (FcountryCode=AValue) then exit; FcountryCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeo.Setlatitude(AIndex : Integer; const AValue : double); begin If (Flatitude=AValue) then exit; Flatitude:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeo.Setlongitude(AIndex : Integer; const AValue : double); begin If (Flongitude=AValue) then exit; Flongitude:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeo.SetmapType(AIndex : Integer; const AValue : String); begin If (FmapType=AValue) then exit; FmapType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeo.Setviewport(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewport); begin If (Fviewport=AValue) then exit; Fviewport:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdataTypegeo.Setzoom(AIndex : Integer; const AValue : integer); begin If (Fzoom=AValue) then exit; Fzoom:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGeolayerdataTypegeo.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'boundary' : SetLength(Fboundary,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGeolayerdata --------------------------------------------------------------------} Procedure TGeolayerdata.Setcommon(AIndex : Integer; const AValue : TGeolayerdataTypecommon); begin If (Fcommon=AValue) then exit; Fcommon:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdata.Setgeo(AIndex : Integer; const AValue : TGeolayerdataTypegeo); begin If (Fgeo=AValue) then exit; Fgeo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGeolayerdata.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TLayersummaries --------------------------------------------------------------------} Procedure TLayersummaries.Setitems(AIndex : Integer; const AValue : TLayersummariesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummaries.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummaries.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 TLayersummaries.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TLayersummary --------------------------------------------------------------------} Procedure TLayersummary.SetannotationCount(AIndex : Integer; const AValue : integer); begin If (FannotationCount=AValue) then exit; FannotationCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetannotationTypes(AIndex : Integer; const AValue : TStringArray); begin If (FannotationTypes=AValue) then exit; FannotationTypes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetannotationsDataLink(AIndex : Integer; const AValue : String); begin If (FannotationsDataLink=AValue) then exit; FannotationsDataLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetannotationsLink(AIndex : Integer; const AValue : String); begin If (FannotationsLink=AValue) then exit; FannotationsLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetcontentVersion(AIndex : Integer; const AValue : String); begin If (FcontentVersion=AValue) then exit; FcontentVersion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetdataCount(AIndex : Integer; const AValue : integer); begin If (FdataCount=AValue) then exit; FdataCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetlayerId(AIndex : Integer; const AValue : String); begin If (FlayerId=AValue) then exit; FlayerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetvolumeAnnotationsVersion(AIndex : Integer; const AValue : String); begin If (FvolumeAnnotationsVersion=AValue) then exit; FvolumeAnnotationsVersion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TLayersummary.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TLayersummary.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'annotationtypes' : SetLength(FannotationTypes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TMetadataTypeitemsItem --------------------------------------------------------------------} Procedure TMetadataTypeitemsItem.Setdownload_url(AIndex : Integer; const AValue : String); begin If (Fdownload_url=AValue) then exit; Fdownload_url:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMetadataTypeitemsItem.Setencrypted_key(AIndex : Integer; const AValue : String); begin If (Fencrypted_key=AValue) then exit; Fencrypted_key:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMetadataTypeitemsItem.Setlanguage(AIndex : Integer; const AValue : String); begin If (Flanguage=AValue) then exit; Flanguage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMetadataTypeitemsItem.Setsize(AIndex : Integer; const AValue : String); begin If (Fsize=AValue) then exit; Fsize:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMetadataTypeitemsItem.Setversion(AIndex : Integer; const AValue : String); begin If (Fversion=AValue) then exit; Fversion:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TMetadata --------------------------------------------------------------------} Procedure TMetadata.Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMetadata.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 TMetadata.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TNotification --------------------------------------------------------------------} Procedure TNotification.Setbody(AIndex : Integer; const AValue : String); begin If (Fbody=AValue) then exit; Fbody:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.SetcrmExperimentIds(AIndex : Integer; const AValue : TStringArray); begin If (FcrmExperimentIds=AValue) then exit; FcrmExperimentIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setdoc_id(AIndex : Integer; const AValue : String); begin If (Fdoc_id=AValue) then exit; Fdoc_id:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setdoc_type(AIndex : Integer; const AValue : String); begin If (Fdoc_type=AValue) then exit; Fdoc_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setdont_show_notification(AIndex : Integer; const AValue : boolean); begin If (Fdont_show_notification=AValue) then exit; Fdont_show_notification:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.SeticonUrl(AIndex : Integer; const AValue : String); begin If (FiconUrl=AValue) then exit; FiconUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setnotification_type(AIndex : Integer; const AValue : String); begin If (Fnotification_type=AValue) then exit; Fnotification_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setpcampaign_id(AIndex : Integer; const AValue : String); begin If (Fpcampaign_id=AValue) then exit; Fpcampaign_id:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Setshow_notification_settings_action(AIndex : Integer; const AValue : boolean); begin If (Fshow_notification_settings_action=AValue) then exit; Fshow_notification_settings_action:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.SettargetUrl(AIndex : Integer; const AValue : String); begin If (FtargetUrl=AValue) then exit; FtargetUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TNotification.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TNotification.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'crmexperimentids' : SetLength(FcrmExperimentIds,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOffersTypeitemsItemTypeitemsItem --------------------------------------------------------------------} Procedure TOffersTypeitemsItemTypeitemsItem.Setauthor(AIndex : Integer; const AValue : String); begin If (Fauthor=AValue) then exit; Fauthor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItemTypeitemsItem.SetcanonicalVolumeLink(AIndex : Integer; const AValue : String); begin If (FcanonicalVolumeLink=AValue) then exit; FcanonicalVolumeLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItemTypeitemsItem.SetcoverUrl(AIndex : Integer; const AValue : String); begin If (FcoverUrl=AValue) then exit; FcoverUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItemTypeitemsItem.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItemTypeitemsItem.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItemTypeitemsItem.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TOffersTypeitemsItem --------------------------------------------------------------------} Procedure TOffersTypeitemsItem.SetartUrl(AIndex : Integer; const AValue : String); begin If (FartUrl=AValue) then exit; FartUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItem.SetgservicesKey(AIndex : Integer; const AValue : String); begin If (FgservicesKey=AValue) then exit; FgservicesKey:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItem.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffersTypeitemsItem.Setitems(AIndex : Integer; const AValue : TOffersTypeitemsItemTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TOffersTypeitemsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TOffers --------------------------------------------------------------------} Procedure TOffers.Setitems(AIndex : Integer; const AValue : TOffersTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TOffers.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 TOffers.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TReadingPosition --------------------------------------------------------------------} Procedure TReadingPosition.SetepubCfiPosition(AIndex : Integer; const AValue : String); begin If (FepubCfiPosition=AValue) then exit; FepubCfiPosition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReadingPosition.SetgbImagePosition(AIndex : Integer; const AValue : String); begin If (FgbImagePosition=AValue) then exit; FgbImagePosition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReadingPosition.SetgbTextPosition(AIndex : Integer; const AValue : String); begin If (FgbTextPosition=AValue) then exit; FgbTextPosition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReadingPosition.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReadingPosition.SetpdfPosition(AIndex : Integer; const AValue : String); begin If (FpdfPosition=AValue) then exit; FpdfPosition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReadingPosition.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReadingPosition.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TRequestAccess --------------------------------------------------------------------} Procedure TRequestAccess.SetconcurrentAccess(AIndex : Integer; const AValue : TConcurrentAccessRestriction); begin If (FconcurrentAccess=AValue) then exit; FconcurrentAccess:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRequestAccess.SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction); begin If (FdownloadAccess=AValue) then exit; FdownloadAccess:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRequestAccess.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TReviewTypeauthor --------------------------------------------------------------------} Procedure TReviewTypeauthor.SetdisplayName(AIndex : Integer; const AValue : String); begin If (FdisplayName=AValue) then exit; FdisplayName:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TReviewTypesource --------------------------------------------------------------------} Procedure TReviewTypesource.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReviewTypesource.SetextraDescription(AIndex : Integer; const AValue : String); begin If (FextraDescription=AValue) then exit; FextraDescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReviewTypesource.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TReview --------------------------------------------------------------------} Procedure TReview.Setauthor(AIndex : Integer; const AValue : TReviewTypeauthor); begin If (Fauthor=AValue) then exit; Fauthor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.Setcontent(AIndex : Integer; const AValue : String); begin If (Fcontent=AValue) then exit; Fcontent:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.Setdate(AIndex : Integer; const AValue : String); begin If (Fdate=AValue) then exit; Fdate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.SetfullTextUrl(AIndex : Integer; const AValue : String); begin If (FfullTextUrl=AValue) then exit; FfullTextUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.Setrating(AIndex : Integer; const AValue : String); begin If (Frating=AValue) then exit; Frating:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.Setsource(AIndex : Integer; const AValue : TReviewTypesource); begin If (Fsource=AValue) then exit; Fsource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TReview.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; Class Function TReview.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TSeriesTypeseriesItem --------------------------------------------------------------------} Procedure TSeriesTypeseriesItem.SetbannerImageUrl(AIndex : Integer; const AValue : String); begin If (FbannerImageUrl=AValue) then exit; FbannerImageUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeriesTypeseriesItem.SetimageUrl(AIndex : Integer; const AValue : String); begin If (FimageUrl=AValue) then exit; FimageUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeriesTypeseriesItem.SetseriesId(AIndex : Integer; const AValue : String); begin If (FseriesId=AValue) then exit; FseriesId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeriesTypeseriesItem.SetseriesType(AIndex : Integer; const AValue : String); begin If (FseriesType=AValue) then exit; FseriesType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeriesTypeseriesItem.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TSeries --------------------------------------------------------------------} Procedure TSeries.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeries.Setseries(AIndex : Integer; const AValue : TSeriesTypeseriesArray); begin If (Fseries=AValue) then exit; Fseries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TSeries.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'series' : SetLength(Fseries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TSeriesmembership --------------------------------------------------------------------} Procedure TSeriesmembership.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeriesmembership.Setmember(AIndex : Integer; const AValue : TSeriesmembershipTypememberArray); begin If (Fmember=AValue) then exit; Fmember:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeriesmembership.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TSeriesmembership.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'member' : SetLength(Fmember,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TUsersettingsTypenotesExport --------------------------------------------------------------------} Procedure TUsersettingsTypenotesExport.SetfolderName(AIndex : Integer; const AValue : String); begin If (FfolderName=AValue) then exit; FfolderName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUsersettingsTypenotesExport.SetisEnabled(AIndex : Integer; const AValue : boolean); begin If (FisEnabled=AValue) then exit; FisEnabled:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TUsersettingsTypenotificationTypemoreFromAuthors --------------------------------------------------------------------} Procedure TUsersettingsTypenotificationTypemoreFromAuthors.Setopted_state(AIndex : Integer; const AValue : String); begin If (Fopted_state=AValue) then exit; Fopted_state:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TUsersettingsTypenotification --------------------------------------------------------------------} Procedure TUsersettingsTypenotification.SetmoreFromAuthors(AIndex : Integer; const AValue : TUsersettingsTypenotificationTypemoreFromAuthors); begin If (FmoreFromAuthors=AValue) then exit; FmoreFromAuthors:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TUsersettings --------------------------------------------------------------------} Procedure TUsersettings.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUsersettings.SetnotesExport(AIndex : Integer; const AValue : TUsersettingsTypenotesExport); begin If (FnotesExport=AValue) then exit; FnotesExport:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUsersettings.Setnotification(AIndex : Integer; const AValue : TUsersettingsTypenotification); begin If (Fnotification=AValue) then exit; Fnotification:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeaccessInfoTypeepub --------------------------------------------------------------------} Procedure TVolumeTypeaccessInfoTypeepub.SetacsTokenLink(AIndex : Integer; const AValue : String); begin If (FacsTokenLink=AValue) then exit; FacsTokenLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfoTypeepub.SetdownloadLink(AIndex : Integer; const AValue : String); begin If (FdownloadLink=AValue) then exit; FdownloadLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfoTypeepub.SetisAvailable(AIndex : Integer; const AValue : boolean); begin If (FisAvailable=AValue) then exit; FisAvailable:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeaccessInfoTypepdf --------------------------------------------------------------------} Procedure TVolumeTypeaccessInfoTypepdf.SetacsTokenLink(AIndex : Integer; const AValue : String); begin If (FacsTokenLink=AValue) then exit; FacsTokenLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfoTypepdf.SetdownloadLink(AIndex : Integer; const AValue : String); begin If (FdownloadLink=AValue) then exit; FdownloadLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfoTypepdf.SetisAvailable(AIndex : Integer; const AValue : boolean); begin If (FisAvailable=AValue) then exit; FisAvailable:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeaccessInfo --------------------------------------------------------------------} Procedure TVolumeTypeaccessInfo.SetaccessViewStatus(AIndex : Integer; const AValue : String); begin If (FaccessViewStatus=AValue) then exit; FaccessViewStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction); begin If (FdownloadAccess=AValue) then exit; FdownloadAccess:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SetdriveImportedContentLink(AIndex : Integer; const AValue : String); begin If (FdriveImportedContentLink=AValue) then exit; FdriveImportedContentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.Setembeddable(AIndex : Integer; const AValue : boolean); begin If (Fembeddable=AValue) then exit; Fembeddable:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.Setepub(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypeepub); begin If (Fepub=AValue) then exit; Fepub:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SetexplicitOfflineLicenseManagement(AIndex : Integer; const AValue : boolean); begin If (FexplicitOfflineLicenseManagement=AValue) then exit; FexplicitOfflineLicenseManagement:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.Setpdf(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypepdf); begin If (Fpdf=AValue) then exit; Fpdf:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SetpublicDomain(AIndex : Integer; const AValue : boolean); begin If (FpublicDomain=AValue) then exit; FpublicDomain:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SetquoteSharingAllowed(AIndex : Integer; const AValue : boolean); begin If (FquoteSharingAllowed=AValue) then exit; FquoteSharingAllowed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SettextToSpeechPermission(AIndex : Integer; const AValue : String); begin If (FtextToSpeechPermission=AValue) then exit; FtextToSpeechPermission:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SetviewOrderUrl(AIndex : Integer; const AValue : String); begin If (FviewOrderUrl=AValue) then exit; FviewOrderUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.Setviewability(AIndex : Integer; const AValue : String); begin If (Fviewability=AValue) then exit; Fviewability:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeaccessInfo.SetwebReaderLink(AIndex : Integer; const AValue : String); begin If (FwebReaderLink=AValue) then exit; FwebReaderLink:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypelayerInfoTypelayersItem --------------------------------------------------------------------} Procedure TVolumeTypelayerInfoTypelayersItem.SetlayerId(AIndex : Integer; const AValue : String); begin If (FlayerId=AValue) then exit; FlayerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypelayerInfoTypelayersItem.SetvolumeAnnotationsVersion(AIndex : Integer; const AValue : String); begin If (FvolumeAnnotationsVersion=AValue) then exit; FvolumeAnnotationsVersion:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypelayerInfo --------------------------------------------------------------------} Procedure TVolumeTypelayerInfo.Setlayers(AIndex : Integer; const AValue : TVolumeTypelayerInfoTypelayersArray); begin If (Flayers=AValue) then exit; Flayers:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVolumeTypelayerInfo.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'layers' : SetLength(Flayers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolumeTyperecommendedInfo --------------------------------------------------------------------} Procedure TVolumeTyperecommendedInfo.Setexplanation(AIndex : Integer; const AValue : String); begin If (Fexplanation=AValue) then exit; Fexplanation:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypelistPrice --------------------------------------------------------------------} Procedure TVolumeTypesaleInfoTypelistPrice.Setamount(AIndex : Integer; const AValue : double); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTypelistPrice.SetcurrencyCode(AIndex : Integer; const AValue : String); begin If (FcurrencyCode=AValue) then exit; FcurrencyCode:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItemTypelistPrice --------------------------------------------------------------------} Procedure TVolumeTypesaleInfoTypeoffersItemTypelistPrice.SetamountInMicros(AIndex : Integer; const AValue : double); begin If (FamountInMicros=AValue) then exit; FamountInMicros:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTypeoffersItemTypelistPrice.SetcurrencyCode(AIndex : Integer; const AValue : String); begin If (FcurrencyCode=AValue) then exit; FcurrencyCode:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItemTyperentalDuration --------------------------------------------------------------------} Procedure TVolumeTypesaleInfoTypeoffersItemTyperentalDuration.Setcount(AIndex : Integer; const AValue : double); begin If (Fcount=AValue) then exit; Fcount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTypeoffersItemTyperentalDuration.Set_unit(AIndex : Integer; const AValue : String); begin If (F_unit=AValue) then exit; F_unit:=AValue; MarkPropertyChanged(AIndex); end; Class Function TVolumeTypesaleInfoTypeoffersItemTyperentalDuration.ExportPropertyName(Const AName : String) :String; begin Case AName of '_unit' : Result:='unit'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItemTyperetailPrice --------------------------------------------------------------------} Procedure TVolumeTypesaleInfoTypeoffersItemTyperetailPrice.SetamountInMicros(AIndex : Integer; const AValue : double); begin If (FamountInMicros=AValue) then exit; FamountInMicros:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTypeoffersItemTyperetailPrice.SetcurrencyCode(AIndex : Integer; const AValue : String); begin If (FcurrencyCode=AValue) then exit; FcurrencyCode:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypesaleInfoTypeoffersItem --------------------------------------------------------------------} Procedure TVolumeTypesaleInfoTypeoffersItem.SetfinskyOfferType(AIndex : Integer; const AValue : integer); begin If (FfinskyOfferType=AValue) then exit; FfinskyOfferType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTypeoffersItem.SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTypelistPrice); begin If (FlistPrice=AValue) then exit; FlistPrice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTypeoffersItem.SetrentalDuration(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration); begin If (FrentalDuration=AValue) then exit; FrentalDuration:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTypeoffersItem.SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice); begin If (FretailPrice=AValue) then exit; FretailPrice:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypesaleInfoTyperetailPrice --------------------------------------------------------------------} Procedure TVolumeTypesaleInfoTyperetailPrice.Setamount(AIndex : Integer; const AValue : double); begin If (Famount=AValue) then exit; Famount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfoTyperetailPrice.SetcurrencyCode(AIndex : Integer; const AValue : String); begin If (FcurrencyCode=AValue) then exit; FcurrencyCode:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypesaleInfo --------------------------------------------------------------------} Procedure TVolumeTypesaleInfo.SetbuyLink(AIndex : Integer; const AValue : String); begin If (FbuyLink=AValue) then exit; FbuyLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfo.Setcountry(AIndex : Integer; const AValue : String); begin If (Fcountry=AValue) then exit; Fcountry:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfo.SetisEbook(AIndex : Integer; const AValue : boolean); begin If (FisEbook=AValue) then exit; FisEbook:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfo.SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypelistPrice); begin If (FlistPrice=AValue) then exit; FlistPrice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfo.Setoffers(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersArray); begin If (Foffers=AValue) then exit; Foffers:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfo.SetonSaleDate(AIndex : Integer; const AValue : TDatetime); begin If (FonSaleDate=AValue) then exit; FonSaleDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfo.SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTyperetailPrice); begin If (FretailPrice=AValue) then exit; FretailPrice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypesaleInfo.Setsaleability(AIndex : Integer; const AValue : String); begin If (Fsaleability=AValue) then exit; Fsaleability:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVolumeTypesaleInfo.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'offers' : SetLength(Foffers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolumeTypesearchInfo --------------------------------------------------------------------} Procedure TVolumeTypesearchInfo.SettextSnippet(AIndex : Integer; const AValue : String); begin If (FtextSnippet=AValue) then exit; FtextSnippet:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeuserInfoTypecopy --------------------------------------------------------------------} Procedure TVolumeTypeuserInfoTypecopy.SetallowedCharacterCount(AIndex : Integer; const AValue : integer); begin If (FallowedCharacterCount=AValue) then exit; FallowedCharacterCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfoTypecopy.SetlimitType(AIndex : Integer; const AValue : String); begin If (FlimitType=AValue) then exit; FlimitType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfoTypecopy.SetremainingCharacterCount(AIndex : Integer; const AValue : integer); begin If (FremainingCharacterCount=AValue) then exit; FremainingCharacterCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfoTypecopy.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeuserInfoTypefamilySharing --------------------------------------------------------------------} Procedure TVolumeTypeuserInfoTypefamilySharing.SetfamilyRole(AIndex : Integer; const AValue : String); begin If (FfamilyRole=AValue) then exit; FfamilyRole:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfoTypefamilySharing.SetisSharingAllowed(AIndex : Integer; const AValue : boolean); begin If (FisSharingAllowed=AValue) then exit; FisSharingAllowed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfoTypefamilySharing.SetisSharingDisabledByFop(AIndex : Integer; const AValue : boolean); begin If (FisSharingDisabledByFop=AValue) then exit; FisSharingDisabledByFop:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeuserInfoTyperentalPeriod --------------------------------------------------------------------} Procedure TVolumeTypeuserInfoTyperentalPeriod.SetendUtcSec(AIndex : Integer; const AValue : String); begin If (FendUtcSec=AValue) then exit; FendUtcSec:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfoTyperentalPeriod.SetstartUtcSec(AIndex : Integer; const AValue : String); begin If (FstartUtcSec=AValue) then exit; FstartUtcSec:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeuserInfoTypeuserUploadedVolumeInfo --------------------------------------------------------------------} Procedure TVolumeTypeuserInfoTypeuserUploadedVolumeInfo.SetprocessingState(AIndex : Integer; const AValue : String); begin If (FprocessingState=AValue) then exit; FprocessingState:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypeuserInfo --------------------------------------------------------------------} Procedure TVolumeTypeuserInfo.SetacquiredTime(AIndex : Integer; const AValue : TDatetime); begin If (FacquiredTime=AValue) then exit; FacquiredTime:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetacquisitionType(AIndex : Integer; const AValue : integer); begin If (FacquisitionType=AValue) then exit; FacquisitionType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.Setcopy(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypecopy); begin If (Fcopy=AValue) then exit; Fcopy:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetentitlementType(AIndex : Integer; const AValue : integer); begin If (FentitlementType=AValue) then exit; FentitlementType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetfamilySharing(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypefamilySharing); begin If (FfamilySharing=AValue) then exit; FfamilySharing:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisFamilySharedFromUser(AIndex : Integer; const AValue : boolean); begin If (FisFamilySharedFromUser=AValue) then exit; FisFamilySharedFromUser:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisFamilySharedToUser(AIndex : Integer; const AValue : boolean); begin If (FisFamilySharedToUser=AValue) then exit; FisFamilySharedToUser:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisFamilySharingAllowed(AIndex : Integer; const AValue : boolean); begin If (FisFamilySharingAllowed=AValue) then exit; FisFamilySharingAllowed:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisFamilySharingDisabledByFop(AIndex : Integer; const AValue : boolean); begin If (FisFamilySharingDisabledByFop=AValue) then exit; FisFamilySharingDisabledByFop:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisInMyBooks(AIndex : Integer; const AValue : boolean); begin If (FisInMyBooks=AValue) then exit; FisInMyBooks:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisPreordered(AIndex : Integer; const AValue : boolean); begin If (FisPreordered=AValue) then exit; FisPreordered:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisPurchased(AIndex : Integer; const AValue : boolean); begin If (FisPurchased=AValue) then exit; FisPurchased:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetisUploaded(AIndex : Integer; const AValue : boolean); begin If (FisUploaded=AValue) then exit; FisUploaded:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetreadingPosition(AIndex : Integer; const AValue : TReadingPosition); begin If (FreadingPosition=AValue) then exit; FreadingPosition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetrentalPeriod(AIndex : Integer; const AValue : TVolumeTypeuserInfoTyperentalPeriod); begin If (FrentalPeriod=AValue) then exit; FrentalPeriod:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetrentalState(AIndex : Integer; const AValue : String); begin If (FrentalState=AValue) then exit; FrentalState:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.Setreview(AIndex : Integer; const AValue : TReview); begin If (Freview=AValue) then exit; Freview:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypeuserInfo.SetuserUploadedVolumeInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo); begin If (FuserUploadedVolumeInfo=AValue) then exit; FuserUploadedVolumeInfo:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypevolumeInfoTypedimensions --------------------------------------------------------------------} Procedure TVolumeTypevolumeInfoTypedimensions.Setheight(AIndex : Integer; const AValue : String); begin If (Fheight=AValue) then exit; Fheight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypedimensions.Setthickness(AIndex : Integer; const AValue : String); begin If (Fthickness=AValue) then exit; Fthickness:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypedimensions.Setwidth(AIndex : Integer; const AValue : String); begin If (Fwidth=AValue) then exit; Fwidth:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypevolumeInfoTypeimageLinks --------------------------------------------------------------------} Procedure TVolumeTypevolumeInfoTypeimageLinks.SetextraLarge(AIndex : Integer; const AValue : String); begin If (FextraLarge=AValue) then exit; FextraLarge:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypeimageLinks.Setlarge(AIndex : Integer; const AValue : String); begin If (Flarge=AValue) then exit; Flarge:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypeimageLinks.Setmedium(AIndex : Integer; const AValue : String); begin If (Fmedium=AValue) then exit; Fmedium:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypeimageLinks.Setsmall(AIndex : Integer; const AValue : String); begin If (Fsmall=AValue) then exit; Fsmall:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypeimageLinks.SetsmallThumbnail(AIndex : Integer; const AValue : String); begin If (FsmallThumbnail=AValue) then exit; FsmallThumbnail:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypeimageLinks.Setthumbnail(AIndex : Integer; const AValue : String); begin If (Fthumbnail=AValue) then exit; Fthumbnail:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeTypevolumeInfoTypeindustryIdentifiersItem --------------------------------------------------------------------} Procedure TVolumeTypevolumeInfoTypeindustryIdentifiersItem.Setidentifier(AIndex : Integer; const AValue : String); begin If (Fidentifier=AValue) then exit; Fidentifier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfoTypeindustryIdentifiersItem.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TVolumeTypevolumeInfoTypeindustryIdentifiersItem.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TVolumeTypevolumeInfo --------------------------------------------------------------------} Procedure TVolumeTypevolumeInfo.SetallowAnonLogging(AIndex : Integer; const AValue : boolean); begin If (FallowAnonLogging=AValue) then exit; FallowAnonLogging:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Setauthors(AIndex : Integer; const AValue : TStringArray); begin If (Fauthors=AValue) then exit; Fauthors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetaverageRating(AIndex : Integer; const AValue : double); begin If (FaverageRating=AValue) then exit; FaverageRating:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetcanonicalVolumeLink(AIndex : Integer; const AValue : String); begin If (FcanonicalVolumeLink=AValue) then exit; FcanonicalVolumeLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Setcategories(AIndex : Integer; const AValue : TStringArray); begin If (Fcategories=AValue) then exit; Fcategories:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetcontentVersion(AIndex : Integer; const AValue : String); begin If (FcontentVersion=AValue) then exit; FcontentVersion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Setdimensions(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypedimensions); begin If (Fdimensions=AValue) then exit; Fdimensions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetimageLinks(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeimageLinks); begin If (FimageLinks=AValue) then exit; FimageLinks:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetindustryIdentifiers(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeindustryIdentifiersArray); begin If (FindustryIdentifiers=AValue) then exit; FindustryIdentifiers:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetinfoLink(AIndex : Integer; const AValue : String); begin If (FinfoLink=AValue) then exit; FinfoLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Setlanguage(AIndex : Integer; const AValue : String); begin If (Flanguage=AValue) then exit; Flanguage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetmainCategory(AIndex : Integer; const AValue : String); begin If (FmainCategory=AValue) then exit; FmainCategory:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetmaturityRating(AIndex : Integer; const AValue : String); begin If (FmaturityRating=AValue) then exit; FmaturityRating:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetpageCount(AIndex : Integer; const AValue : integer); begin If (FpageCount=AValue) then exit; FpageCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetpreviewLink(AIndex : Integer; const AValue : String); begin If (FpreviewLink=AValue) then exit; FpreviewLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetprintType(AIndex : Integer; const AValue : String); begin If (FprintType=AValue) then exit; FprintType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetprintedPageCount(AIndex : Integer; const AValue : integer); begin If (FprintedPageCount=AValue) then exit; FprintedPageCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetpublishedDate(AIndex : Integer; const AValue : String); begin If (FpublishedDate=AValue) then exit; FpublishedDate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Setpublisher(AIndex : Integer; const AValue : String); begin If (Fpublisher=AValue) then exit; Fpublisher:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetratingsCount(AIndex : Integer; const AValue : integer); begin If (FratingsCount=AValue) then exit; FratingsCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetreadingModes(AIndex : Integer; const AValue : TJSONSchema); begin If (FreadingModes=AValue) then exit; FreadingModes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetsamplePageCount(AIndex : Integer; const AValue : integer); begin If (FsamplePageCount=AValue) then exit; FsamplePageCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.SetseriesInfo(AIndex : Integer; const AValue : TVolumeseriesinfo); begin If (FseriesInfo=AValue) then exit; FseriesInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Setsubtitle(AIndex : Integer; const AValue : String); begin If (Fsubtitle=AValue) then exit; Fsubtitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeTypevolumeInfo.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVolumeTypevolumeInfo.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'authors' : SetLength(Fauthors,ALength); 'categories' : SetLength(Fcategories,ALength); 'industryidentifiers' : SetLength(FindustryIdentifiers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolume --------------------------------------------------------------------} Procedure TVolume.SetaccessInfo(AIndex : Integer; const AValue : TVolumeTypeaccessInfo); begin If (FaccessInfo=AValue) then exit; FaccessInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.Setetag(AIndex : Integer; const AValue : String); begin If (Fetag=AValue) then exit; Fetag:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.SetlayerInfo(AIndex : Integer; const AValue : TVolumeTypelayerInfo); begin If (FlayerInfo=AValue) then exit; FlayerInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.SetrecommendedInfo(AIndex : Integer; const AValue : TVolumeTyperecommendedInfo); begin If (FrecommendedInfo=AValue) then exit; FrecommendedInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.SetsaleInfo(AIndex : Integer; const AValue : TVolumeTypesaleInfo); begin If (FsaleInfo=AValue) then exit; FsaleInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.SetsearchInfo(AIndex : Integer; const AValue : TVolumeTypesearchInfo); begin If (FsearchInfo=AValue) then exit; FsearchInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.SetuserInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfo); begin If (FuserInfo=AValue) then exit; FuserInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume.SetvolumeInfo(AIndex : Integer; const AValue : TVolumeTypevolumeInfo); begin If (FvolumeInfo=AValue) then exit; FvolumeInfo:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolume2 --------------------------------------------------------------------} Procedure TVolume2.Setitems(AIndex : Integer; const AValue : TVolume2TypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume2.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolume2.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 TVolume2.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolumeannotationTypecontentRanges --------------------------------------------------------------------} Procedure TVolumeannotationTypecontentRanges.SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FcfiRange=AValue) then exit; FcfiRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotationTypecontentRanges.SetcontentVersion(AIndex : Integer; const AValue : String); begin If (FcontentVersion=AValue) then exit; FcontentVersion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotationTypecontentRanges.SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FgbImageRange=AValue) then exit; FgbImageRange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotationTypecontentRanges.SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); begin If (FgbTextRange=AValue) then exit; FgbTextRange:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeannotation --------------------------------------------------------------------} Procedure TVolumeannotation.SetannotationDataId(AIndex : Integer; const AValue : String); begin If (FannotationDataId=AValue) then exit; FannotationDataId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetannotationDataLink(AIndex : Integer; const AValue : String); begin If (FannotationDataLink=AValue) then exit; FannotationDataLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetannotationType(AIndex : Integer; const AValue : String); begin If (FannotationType=AValue) then exit; FannotationType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetcontentRanges(AIndex : Integer; const AValue : TVolumeannotationTypecontentRanges); begin If (FcontentRanges=AValue) then exit; FcontentRanges:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.Setdata(AIndex : Integer; const AValue : String); begin If (Fdata=AValue) then exit; Fdata:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.Setdeleted(AIndex : Integer; const AValue : boolean); begin If (Fdeleted=AValue) then exit; Fdeleted:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetlayerId(AIndex : Integer; const AValue : String); begin If (FlayerId=AValue) then exit; FlayerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetpageIds(AIndex : Integer; const AValue : TStringArray); begin If (FpageIds=AValue) then exit; FpageIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetselectedText(AIndex : Integer; const AValue : String); begin If (FselectedText=AValue) then exit; FselectedText:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotation.SetvolumeId(AIndex : Integer; const AValue : String); begin If (FvolumeId=AValue) then exit; FvolumeId:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVolumeannotation.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'pageids' : SetLength(FpageIds,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolumeannotations --------------------------------------------------------------------} Procedure TVolumeannotations.Setitems(AIndex : Integer; const AValue : TVolumeannotationsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotations.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotations.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotations.SettotalItems(AIndex : Integer; const AValue : integer); begin If (FtotalItems=AValue) then exit; FtotalItems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeannotations.Setversion(AIndex : Integer; const AValue : String); begin If (Fversion=AValue) then exit; Fversion:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVolumeannotations.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolumes --------------------------------------------------------------------} Procedure TVolumes.Setitems(AIndex : Integer; const AValue : TVolumesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumes.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumes.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 TVolumes.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem --------------------------------------------------------------------} Procedure TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem.SetissueDisplayNumber(AIndex : Integer; const AValue : String); begin If (FissueDisplayNumber=AValue) then exit; FissueDisplayNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem.SetissueOrderNumber(AIndex : Integer; const AValue : integer); begin If (FissueOrderNumber=AValue) then exit; FissueOrderNumber:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TVolumeseriesinfoTypevolumeSeriesItem --------------------------------------------------------------------} Procedure TVolumeseriesinfoTypevolumeSeriesItem.Setissue(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray); begin If (Fissue=AValue) then exit; Fissue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetorderNumber(AIndex : Integer; const AValue : integer); begin If (ForderNumber=AValue) then exit; ForderNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetseriesBookType(AIndex : Integer; const AValue : String); begin If (FseriesBookType=AValue) then exit; FseriesBookType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetseriesId(AIndex : Integer; const AValue : String); begin If (FseriesId=AValue) then exit; FseriesId:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'issue' : SetLength(Fissue,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TVolumeseriesinfo --------------------------------------------------------------------} Procedure TVolumeseriesinfo.SetbookDisplayNumber(AIndex : Integer; const AValue : String); begin If (FbookDisplayNumber=AValue) then exit; FbookDisplayNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeseriesinfo.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeseriesinfo.SetshortSeriesBookTitle(AIndex : Integer; const AValue : String); begin If (FshortSeriesBookTitle=AValue) then exit; FshortSeriesBookTitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TVolumeseriesinfo.SetvolumeSeries(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesArray); begin If (FvolumeSeries=AValue) then exit; FvolumeSeries:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TVolumeseriesinfo.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'volumeseries' : SetLength(FvolumeSeries,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TBookshelvesVolumesResource --------------------------------------------------------------------} Class Function TBookshelvesVolumesResource.ResourceName : String; begin Result:='volumes'; end; Class Function TBookshelvesVolumesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TBookshelvesVolumesResource.List(shelf: string; userId: string; AQuery : string = '') : TVolumes; Const _HTTPMethod = 'GET'; _Path = 'users/{userId}/bookshelves/{shelf}/volumes'; _Methodid = 'books.bookshelves.volumes.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf,'userId',userId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVolumes) as TVolumes; end; Function TBookshelvesVolumesResource.List(shelf: string; userId: string; AQuery : TBookshelvesVolumeslistOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'showPreorders',AQuery.showPreorders); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'startIndex',AQuery.startIndex); Result:=List(shelf,userId,_Q); end; { -------------------------------------------------------------------- TBookshelvesResource --------------------------------------------------------------------} Class Function TBookshelvesResource.ResourceName : String; begin Result:='bookshelves'; end; Class Function TBookshelvesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TBookshelvesResource.Get(shelf: string; userId: string; AQuery : string = '') : TBookshelf; Const _HTTPMethod = 'GET'; _Path = 'users/{userId}/bookshelves/{shelf}'; _Methodid = 'books.bookshelves.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf,'userId',userId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBookshelf) as TBookshelf; end; Function TBookshelvesResource.Get(shelf: string; userId: string; AQuery : TBookshelvesgetOptions) : TBookshelf; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); Result:=Get(shelf,userId,_Q); end; Function TBookshelvesResource.List(userId: string; AQuery : string = '') : TBookshelves; Const _HTTPMethod = 'GET'; _Path = 'users/{userId}/bookshelves'; _Methodid = 'books.bookshelves.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['userId',userId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBookshelves) as TBookshelves; end; Function TBookshelvesResource.List(userId: string; AQuery : TBookshelveslistOptions) : TBookshelves; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); Result:=List(userId,_Q); end; Function TBookshelvesResource.GetVolumesInstance : TBookshelvesVolumesResource; begin if (FVolumesInstance=Nil) then FVolumesInstance:=CreateVolumesResource; Result:=FVolumesInstance; end; Function TBookshelvesResource.CreateVolumesResource : TBookshelvesVolumesResource; begin Result:=CreateVolumesResource(Self); end; Function TBookshelvesResource.CreateVolumesResource(AOwner : TComponent) : TBookshelvesVolumesResource; begin Result:=TBookshelvesVolumesResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TCloudloadingResource --------------------------------------------------------------------} Class Function TCloudloadingResource.ResourceName : String; begin Result:='cloudloading'; end; Class Function TCloudloadingResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TCloudloadingResource.AddBook(AQuery : string = '') : TBooksCloudloadingResource; Const _HTTPMethod = 'POST'; _Path = 'cloudloading/addBook'; _Methodid = 'books.cloudloading.addBook'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TBooksCloudloadingResource) as TBooksCloudloadingResource; end; Function TCloudloadingResource.AddBook(AQuery : TCloudloadingaddBookOptions) : TBooksCloudloadingResource; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'drive_document_id',AQuery.drive_document_id); AddToQuery(_Q,'mime_type',AQuery.mime_type); AddToQuery(_Q,'name',AQuery._name); AddToQuery(_Q,'upload_client_token',AQuery.upload_client_token); Result:=AddBook(_Q); end; Procedure TCloudloadingResource.DeleteBook(AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'cloudloading/deleteBook'; _Methodid = 'books.cloudloading.deleteBook'; begin ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil); end; Procedure TCloudloadingResource.DeleteBook(AQuery : TCloudloadingdeleteBookOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'volumeId',AQuery.volumeId); DeleteBook(_Q); end; Function TCloudloadingResource.UpdateBook(aBooksCloudloadingResource : TBooksCloudloadingResource) : TBooksCloudloadingResource; Const _HTTPMethod = 'POST'; _Path = 'cloudloading/updateBook'; _Methodid = 'books.cloudloading.updateBook'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aBooksCloudloadingResource,TBooksCloudloadingResource) as TBooksCloudloadingResource; end; { -------------------------------------------------------------------- TDictionaryResource --------------------------------------------------------------------} Class Function TDictionaryResource.ResourceName : String; begin Result:='dictionary'; end; Class Function TDictionaryResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TDictionaryResource.ListOfflineMetadata(AQuery : string = '') : TMetadata; Const _HTTPMethod = 'GET'; _Path = 'dictionary/listOfflineMetadata'; _Methodid = 'books.dictionary.listOfflineMetadata'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TMetadata) as TMetadata; end; Function TDictionaryResource.ListOfflineMetadata(AQuery : TDictionarylistOfflineMetadataOptions) : TMetadata; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'cpksver',AQuery.cpksver); Result:=ListOfflineMetadata(_Q); end; { -------------------------------------------------------------------- TLayersAnnotationDataResource --------------------------------------------------------------------} Class Function TLayersAnnotationDataResource.ResourceName : String; begin Result:='annotationData'; end; Class Function TLayersAnnotationDataResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TLayersAnnotationDataResource.Get(annotationDataId: string; layerId: string; volumeId: string; AQuery : string = '') : TAnnotationdata; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}/layers/{layerId}/data/{annotationDataId}'; _Methodid = 'books.layers.annotationData.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['annotationDataId',annotationDataId,'layerId',layerId,'volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAnnotationdata) as TAnnotationdata; end; Function TLayersAnnotationDataResource.Get(annotationDataId: string; layerId: string; volumeId: string; AQuery : TLayersAnnotationDatagetOptions) : TAnnotationdata; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'allowWebDefinitions',AQuery.allowWebDefinitions); AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'h',AQuery.h); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'scale',AQuery.scale); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'w',AQuery.w); Result:=Get(annotationDataId,layerId,volumeId,_Q); end; Function TLayersAnnotationDataResource.List(layerId: string; volumeId: string; AQuery : string = '') : TAnnotationsdata; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}/layers/{layerId}/data'; _Methodid = 'books.layers.annotationData.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['layerId',layerId,'volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAnnotationsdata) as TAnnotationsdata; end; Function TLayersAnnotationDataResource.List(layerId: string; volumeId: string; AQuery : TLayersAnnotationDatalistOptions) : TAnnotationsdata; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'annotationDataId',AQuery.annotationDataId); AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'h',AQuery.h); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); AddToQuery(_Q,'scale',AQuery.scale); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'updatedMax',AQuery.updatedMax); AddToQuery(_Q,'updatedMin',AQuery.updatedMin); AddToQuery(_Q,'w',AQuery.w); Result:=List(layerId,volumeId,_Q); end; { -------------------------------------------------------------------- TLayersVolumeAnnotationsResource --------------------------------------------------------------------} Class Function TLayersVolumeAnnotationsResource.ResourceName : String; begin Result:='volumeAnnotations'; end; Class Function TLayersVolumeAnnotationsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TLayersVolumeAnnotationsResource.Get(annotationId: string; layerId: string; volumeId: string; AQuery : string = '') : TVolumeannotation; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}/layers/{layerId}/annotations/{annotationId}'; _Methodid = 'books.layers.volumeAnnotations.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['annotationId',annotationId,'layerId',layerId,'volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVolumeannotation) as TVolumeannotation; end; Function TLayersVolumeAnnotationsResource.Get(annotationId: string; layerId: string; volumeId: string; AQuery : TLayersVolumeAnnotationsgetOptions) : TVolumeannotation; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'source',AQuery.source); Result:=Get(annotationId,layerId,volumeId,_Q); end; Function TLayersVolumeAnnotationsResource.List(layerId: string; volumeId: string; AQuery : string = '') : TVolumeannotations; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}/layers/{layerId}'; _Methodid = 'books.layers.volumeAnnotations.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['layerId',layerId,'volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVolumeannotations) as TVolumeannotations; end; Function TLayersVolumeAnnotationsResource.List(layerId: string; volumeId: string; AQuery : TLayersVolumeAnnotationslistOptions) : TVolumeannotations; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'endOffset',AQuery.endOffset); AddToQuery(_Q,'endPosition',AQuery.endPosition); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); AddToQuery(_Q,'showDeleted',AQuery.showDeleted); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'startOffset',AQuery.startOffset); AddToQuery(_Q,'startPosition',AQuery.startPosition); AddToQuery(_Q,'updatedMax',AQuery.updatedMax); AddToQuery(_Q,'updatedMin',AQuery.updatedMin); AddToQuery(_Q,'volumeAnnotationsVersion',AQuery.volumeAnnotationsVersion); Result:=List(layerId,volumeId,_Q); end; { -------------------------------------------------------------------- TLayersResource --------------------------------------------------------------------} Class Function TLayersResource.ResourceName : String; begin Result:='layers'; end; Class Function TLayersResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TLayersResource.Get(summaryId: string; volumeId: string; AQuery : string = '') : TLayersummary; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}/layersummary/{summaryId}'; _Methodid = 'books.layers.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['summaryId',summaryId,'volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLayersummary) as TLayersummary; end; Function TLayersResource.Get(summaryId: string; volumeId: string; AQuery : TLayersgetOptions) : TLayersummary; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'source',AQuery.source); Result:=Get(summaryId,volumeId,_Q); end; Function TLayersResource.List(volumeId: string; AQuery : string = '') : TLayersummaries; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}/layersummary'; _Methodid = 'books.layers.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLayersummaries) as TLayersummaries; end; Function TLayersResource.List(volumeId: string; AQuery : TLayerslistOptions) : TLayersummaries; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); AddToQuery(_Q,'source',AQuery.source); Result:=List(volumeId,_Q); end; Function TLayersResource.GetAnnotationDataInstance : TLayersAnnotationDataResource; begin if (FAnnotationDataInstance=Nil) then FAnnotationDataInstance:=CreateAnnotationDataResource; Result:=FAnnotationDataInstance; end; Function TLayersResource.CreateAnnotationDataResource : TLayersAnnotationDataResource; begin Result:=CreateAnnotationDataResource(Self); end; Function TLayersResource.CreateAnnotationDataResource(AOwner : TComponent) : TLayersAnnotationDataResource; begin Result:=TLayersAnnotationDataResource.Create(AOwner); Result.API:=Self.API; end; Function TLayersResource.GetVolumeAnnotationsInstance : TLayersVolumeAnnotationsResource; begin if (FVolumeAnnotationsInstance=Nil) then FVolumeAnnotationsInstance:=CreateVolumeAnnotationsResource; Result:=FVolumeAnnotationsInstance; end; Function TLayersResource.CreateVolumeAnnotationsResource : TLayersVolumeAnnotationsResource; begin Result:=CreateVolumeAnnotationsResource(Self); end; Function TLayersResource.CreateVolumeAnnotationsResource(AOwner : TComponent) : TLayersVolumeAnnotationsResource; begin Result:=TLayersVolumeAnnotationsResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TMyconfigResource --------------------------------------------------------------------} Class Function TMyconfigResource.ResourceName : String; begin Result:='myconfig'; end; Class Function TMyconfigResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TMyconfigResource.GetUserSettings : TUsersettings; Const _HTTPMethod = 'GET'; _Path = 'myconfig/getUserSettings'; _Methodid = 'books.myconfig.getUserSettings'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TUsersettings) as TUsersettings; end; Function TMyconfigResource.ReleaseDownloadAccess(AQuery : string = '') : TDownloadAccesses; Const _HTTPMethod = 'POST'; _Path = 'myconfig/releaseDownloadAccess'; _Methodid = 'books.myconfig.releaseDownloadAccess'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TDownloadAccesses) as TDownloadAccesses; end; Function TMyconfigResource.ReleaseDownloadAccess(AQuery : TMyconfigreleaseDownloadAccessOptions) : TDownloadAccesses; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'cpksver',AQuery.cpksver); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'volumeIds',AQuery.volumeIds); Result:=ReleaseDownloadAccess(_Q); end; Function TMyconfigResource.RequestAccess(AQuery : string = '') : TRequestAccess; Const _HTTPMethod = 'POST'; _Path = 'myconfig/requestAccess'; _Methodid = 'books.myconfig.requestAccess'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRequestAccess) as TRequestAccess; end; Function TMyconfigResource.RequestAccess(AQuery : TMyconfigrequestAccessOptions) : TRequestAccess; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'cpksver',AQuery.cpksver); AddToQuery(_Q,'licenseTypes',AQuery.licenseTypes); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'nonce',AQuery.nonce); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'volumeId',AQuery.volumeId); Result:=RequestAccess(_Q); end; Function TMyconfigResource.SyncVolumeLicenses(AQuery : string = '') : TVolumes; Const _HTTPMethod = 'POST'; _Path = 'myconfig/syncVolumeLicenses'; _Methodid = 'books.myconfig.syncVolumeLicenses'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVolumes) as TVolumes; end; Function TMyconfigResource.SyncVolumeLicenses(AQuery : TMyconfigsyncVolumeLicensesOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'cpksver',AQuery.cpksver); AddToQuery(_Q,'features',AQuery.features); AddToQuery(_Q,'includeNonComicsSeries',AQuery.includeNonComicsSeries); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'nonce',AQuery.nonce); AddToQuery(_Q,'showPreorders',AQuery.showPreorders); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'volumeIds',AQuery.volumeIds); Result:=SyncVolumeLicenses(_Q); end; Function TMyconfigResource.UpdateUserSettings(aUsersettings : TUsersettings) : TUsersettings; Const _HTTPMethod = 'POST'; _Path = 'myconfig/updateUserSettings'; _Methodid = 'books.myconfig.updateUserSettings'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aUsersettings,TUsersettings) as TUsersettings; end; { -------------------------------------------------------------------- TMylibraryAnnotationsResource --------------------------------------------------------------------} Class Function TMylibraryAnnotationsResource.ResourceName : String; begin Result:='annotations'; end; Class Function TMylibraryAnnotationsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Procedure TMylibraryAnnotationsResource.Delete(annotationId: string; AQuery : string = ''); Const _HTTPMethod = 'DELETE'; _Path = 'mylibrary/annotations/{annotationId}'; _Methodid = 'books.mylibrary.annotations.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['annotationId',annotationId]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TMylibraryAnnotationsResource.Delete(annotationId: string; AQuery : TMylibraryAnnotationsdeleteOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); Delete(annotationId,_Q); end; Function TMylibraryAnnotationsResource.Insert(aAnnotation : TAnnotation; AQuery : string = '') : TAnnotation; Const _HTTPMethod = 'POST'; _Path = 'mylibrary/annotations'; _Methodid = 'books.mylibrary.annotations.insert'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aAnnotation,TAnnotation) as TAnnotation; end; Function TMylibraryAnnotationsResource.Insert(aAnnotation : TAnnotation; AQuery : TMylibraryAnnotationsinsertOptions) : TAnnotation; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'country',AQuery.country); AddToQuery(_Q,'showOnlySummaryInResponse',AQuery.showOnlySummaryInResponse); AddToQuery(_Q,'source',AQuery.source); Result:=Insert(aAnnotation,_Q); end; Function TMylibraryAnnotationsResource.List(AQuery : string = '') : TAnnotations; Const _HTTPMethod = 'GET'; _Path = 'mylibrary/annotations'; _Methodid = 'books.mylibrary.annotations.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAnnotations) as TAnnotations; end; Function TMylibraryAnnotationsResource.List(AQuery : TMylibraryAnnotationslistOptions) : TAnnotations; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'layerId',AQuery.layerId); AddToQuery(_Q,'layerIds',AQuery.layerIds); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); AddToQuery(_Q,'showDeleted',AQuery.showDeleted); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'updatedMax',AQuery.updatedMax); AddToQuery(_Q,'updatedMin',AQuery.updatedMin); AddToQuery(_Q,'volumeId',AQuery.volumeId); Result:=List(_Q); end; Function TMylibraryAnnotationsResource.Summary(AQuery : string = '') : TAnnotationsSummary; Const _HTTPMethod = 'POST'; _Path = 'mylibrary/annotations/summary'; _Methodid = 'books.mylibrary.annotations.summary'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAnnotationsSummary) as TAnnotationsSummary; end; Function TMylibraryAnnotationsResource.Summary(AQuery : TMylibraryAnnotationssummaryOptions) : TAnnotationsSummary; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'layerIds',AQuery.layerIds); AddToQuery(_Q,'volumeId',AQuery.volumeId); Result:=Summary(_Q); end; Function TMylibraryAnnotationsResource.Update(annotationId: string; aAnnotation : TAnnotation; AQuery : string = '') : TAnnotation; Const _HTTPMethod = 'PUT'; _Path = 'mylibrary/annotations/{annotationId}'; _Methodid = 'books.mylibrary.annotations.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['annotationId',annotationId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAnnotation,TAnnotation) as TAnnotation; end; Function TMylibraryAnnotationsResource.Update(annotationId: string; aAnnotation : TAnnotation; AQuery : TMylibraryAnnotationsupdateOptions) : TAnnotation; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); Result:=Update(annotationId,aAnnotation,_Q); end; { -------------------------------------------------------------------- TMylibraryBookshelvesVolumesResource --------------------------------------------------------------------} Class Function TMylibraryBookshelvesVolumesResource.ResourceName : String; begin Result:='volumes'; end; Class Function TMylibraryBookshelvesVolumesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TMylibraryBookshelvesVolumesResource.List(shelf: string; AQuery : string = '') : TVolumes; Const _HTTPMethod = 'GET'; _Path = 'mylibrary/bookshelves/{shelf}/volumes'; _Methodid = 'books.mylibrary.bookshelves.volumes.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVolumes) as TVolumes; end; Function TMylibraryBookshelvesVolumesResource.List(shelf: string; AQuery : TMylibraryBookshelvesVolumeslistOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'country',AQuery.country); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'projection',AQuery.projection); AddToQuery(_Q,'q',AQuery.q); AddToQuery(_Q,'showPreorders',AQuery.showPreorders); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'startIndex',AQuery.startIndex); Result:=List(shelf,_Q); end; { -------------------------------------------------------------------- TMylibraryBookshelvesResource --------------------------------------------------------------------} Class Function TMylibraryBookshelvesResource.ResourceName : String; begin Result:='bookshelves'; end; Class Function TMylibraryBookshelvesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Procedure TMylibraryBookshelvesResource.AddVolume(shelf: string; AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'mylibrary/bookshelves/{shelf}/addVolume'; _Methodid = 'books.mylibrary.bookshelves.addVolume'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TMylibraryBookshelvesResource.AddVolume(shelf: string; AQuery : TMylibraryBookshelvesaddVolumeOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'reason',AQuery.reason); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'volumeId',AQuery.volumeId); AddVolume(shelf,_Q); end; Procedure TMylibraryBookshelvesResource.ClearVolumes(shelf: string; AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'mylibrary/bookshelves/{shelf}/clearVolumes'; _Methodid = 'books.mylibrary.bookshelves.clearVolumes'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TMylibraryBookshelvesResource.ClearVolumes(shelf: string; AQuery : TMylibraryBookshelvesclearVolumesOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); ClearVolumes(shelf,_Q); end; Function TMylibraryBookshelvesResource.Get(shelf: string; AQuery : string = '') : TBookshelf; Const _HTTPMethod = 'GET'; _Path = 'mylibrary/bookshelves/{shelf}'; _Methodid = 'books.mylibrary.bookshelves.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBookshelf) as TBookshelf; end; Function TMylibraryBookshelvesResource.Get(shelf: string; AQuery : TMylibraryBookshelvesgetOptions) : TBookshelf; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); Result:=Get(shelf,_Q); end; Function TMylibraryBookshelvesResource.List(AQuery : string = '') : TBookshelves; Const _HTTPMethod = 'GET'; _Path = 'mylibrary/bookshelves'; _Methodid = 'books.mylibrary.bookshelves.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TBookshelves) as TBookshelves; end; Function TMylibraryBookshelvesResource.List(AQuery : TMylibraryBookshelveslistOptions) : TBookshelves; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); Result:=List(_Q); end; Procedure TMylibraryBookshelvesResource.MoveVolume(shelf: string; AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'mylibrary/bookshelves/{shelf}/moveVolume'; _Methodid = 'books.mylibrary.bookshelves.moveVolume'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TMylibraryBookshelvesResource.MoveVolume(shelf: string; AQuery : TMylibraryBookshelvesmoveVolumeOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'volumeId',AQuery.volumeId); AddToQuery(_Q,'volumePosition',AQuery.volumePosition); MoveVolume(shelf,_Q); end; Procedure TMylibraryBookshelvesResource.RemoveVolume(shelf: string; AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'mylibrary/bookshelves/{shelf}/removeVolume'; _Methodid = 'books.mylibrary.bookshelves.removeVolume'; Var _P : String; begin _P:=SubstitutePath(_Path,['shelf',shelf]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TMylibraryBookshelvesResource.RemoveVolume(shelf: string; AQuery : TMylibraryBookshelvesremoveVolumeOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'reason',AQuery.reason); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'volumeId',AQuery.volumeId); RemoveVolume(shelf,_Q); end; Function TMylibraryBookshelvesResource.GetVolumesInstance : TMylibraryBookshelvesVolumesResource; begin if (FVolumesInstance=Nil) then FVolumesInstance:=CreateVolumesResource; Result:=FVolumesInstance; end; Function TMylibraryBookshelvesResource.CreateVolumesResource : TMylibraryBookshelvesVolumesResource; begin Result:=CreateVolumesResource(Self); end; Function TMylibraryBookshelvesResource.CreateVolumesResource(AOwner : TComponent) : TMylibraryBookshelvesVolumesResource; begin Result:=TMylibraryBookshelvesVolumesResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TMylibraryReadingpositionsResource --------------------------------------------------------------------} Class Function TMylibraryReadingpositionsResource.ResourceName : String; begin Result:='readingpositions'; end; Class Function TMylibraryReadingpositionsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TMylibraryReadingpositionsResource.Get(volumeId: string; AQuery : string = '') : TReadingPosition; Const _HTTPMethod = 'GET'; _Path = 'mylibrary/readingpositions/{volumeId}'; _Methodid = 'books.mylibrary.readingpositions.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReadingPosition) as TReadingPosition; end; Function TMylibraryReadingpositionsResource.Get(volumeId: string; AQuery : TMylibraryReadingpositionsgetOptions) : TReadingPosition; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'source',AQuery.source); Result:=Get(volumeId,_Q); end; Procedure TMylibraryReadingpositionsResource.SetPosition(volumeId: string; AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'mylibrary/readingpositions/{volumeId}/setPosition'; _Methodid = 'books.mylibrary.readingpositions.setPosition'; Var _P : String; begin _P:=SubstitutePath(_Path,['volumeId',volumeId]); ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil); end; Procedure TMylibraryReadingpositionsResource.SetPosition(volumeId: string; AQuery : TMylibraryReadingpositionssetPositionOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'action',AQuery.action); AddToQuery(_Q,'contentVersion',AQuery.contentVersion); AddToQuery(_Q,'deviceCookie',AQuery.deviceCookie); AddToQuery(_Q,'position',AQuery.position); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'timestamp',AQuery.timestamp); SetPosition(volumeId,_Q); end; { -------------------------------------------------------------------- TMylibraryResource --------------------------------------------------------------------} Class Function TMylibraryResource.ResourceName : String; begin Result:='mylibrary'; end; Class Function TMylibraryResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TMylibraryResource.GetAnnotationsInstance : TMylibraryAnnotationsResource; begin if (FAnnotationsInstance=Nil) then FAnnotationsInstance:=CreateAnnotationsResource; Result:=FAnnotationsInstance; end; Function TMylibraryResource.CreateAnnotationsResource : TMylibraryAnnotationsResource; begin Result:=CreateAnnotationsResource(Self); end; Function TMylibraryResource.CreateAnnotationsResource(AOwner : TComponent) : TMylibraryAnnotationsResource; begin Result:=TMylibraryAnnotationsResource.Create(AOwner); Result.API:=Self.API; end; Function TMylibraryResource.GetBookshelvesVolumesInstance : TMylibraryBookshelvesVolumesResource; begin if (FBookshelvesVolumesInstance=Nil) then FBookshelvesVolumesInstance:=CreateBookshelvesVolumesResource; Result:=FBookshelvesVolumesInstance; end; Function TMylibraryResource.CreateBookshelvesVolumesResource : TMylibraryBookshelvesVolumesResource; begin Result:=CreateBookshelvesVolumesResource(Self); end; Function TMylibraryResource.CreateBookshelvesVolumesResource(AOwner : TComponent) : TMylibraryBookshelvesVolumesResource; begin Result:=TMylibraryBookshelvesVolumesResource.Create(AOwner); Result.API:=Self.API; end; Function TMylibraryResource.GetBookshelvesInstance : TMylibraryBookshelvesResource; begin if (FBookshelvesInstance=Nil) then FBookshelvesInstance:=CreateBookshelvesResource; Result:=FBookshelvesInstance; end; Function TMylibraryResource.CreateBookshelvesResource : TMylibraryBookshelvesResource; begin Result:=CreateBookshelvesResource(Self); end; Function TMylibraryResource.CreateBookshelvesResource(AOwner : TComponent) : TMylibraryBookshelvesResource; begin Result:=TMylibraryBookshelvesResource.Create(AOwner); Result.API:=Self.API; end; Function TMylibraryResource.GetReadingpositionsInstance : TMylibraryReadingpositionsResource; begin if (FReadingpositionsInstance=Nil) then FReadingpositionsInstance:=CreateReadingpositionsResource; Result:=FReadingpositionsInstance; end; Function TMylibraryResource.CreateReadingpositionsResource : TMylibraryReadingpositionsResource; begin Result:=CreateReadingpositionsResource(Self); end; Function TMylibraryResource.CreateReadingpositionsResource(AOwner : TComponent) : TMylibraryReadingpositionsResource; begin Result:=TMylibraryReadingpositionsResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TNotificationResource --------------------------------------------------------------------} Class Function TNotificationResource.ResourceName : String; begin Result:='notification'; end; Class Function TNotificationResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TNotificationResource.Get(AQuery : string = '') : TNotification; Const _HTTPMethod = 'GET'; _Path = 'notification/get'; _Methodid = 'books.notification.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TNotification) as TNotification; end; Function TNotificationResource.Get(AQuery : TNotificationgetOptions) : TNotification; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'notification_id',AQuery.notification_id); AddToQuery(_Q,'source',AQuery.source); Result:=Get(_Q); end; { -------------------------------------------------------------------- TOnboardingResource --------------------------------------------------------------------} Class Function TOnboardingResource.ResourceName : String; begin Result:='onboarding'; end; Class Function TOnboardingResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TOnboardingResource.ListCategories(AQuery : string = '') : TCategory; Const _HTTPMethod = 'GET'; _Path = 'onboarding/listCategories'; _Methodid = 'books.onboarding.listCategories'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TCategory) as TCategory; end; Function TOnboardingResource.ListCategories(AQuery : TOnboardinglistCategoriesOptions) : TCategory; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'locale',AQuery.locale); Result:=ListCategories(_Q); end; Function TOnboardingResource.ListCategoryVolumes(AQuery : string = '') : TVolume2; Const _HTTPMethod = 'GET'; _Path = 'onboarding/listCategoryVolumes'; _Methodid = 'books.onboarding.listCategoryVolumes'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVolume2) as TVolume2; end; Function TOnboardingResource.ListCategoryVolumes(AQuery : TOnboardinglistCategoryVolumesOptions) : TVolume2; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'categoryId',AQuery.categoryId); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxAllowedMaturityRating',AQuery.maxAllowedMaturityRating); AddToQuery(_Q,'pageSize',AQuery.pageSize); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=ListCategoryVolumes(_Q); end; { -------------------------------------------------------------------- TPersonalizedstreamResource --------------------------------------------------------------------} Class Function TPersonalizedstreamResource.ResourceName : String; begin Result:='personalizedstream'; end; Class Function TPersonalizedstreamResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TPersonalizedstreamResource.Get(AQuery : string = '') : TDiscoveryclusters; Const _HTTPMethod = 'GET'; _Path = 'personalizedstream/get'; _Methodid = 'books.personalizedstream.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TDiscoveryclusters) as TDiscoveryclusters; end; Function TPersonalizedstreamResource.Get(AQuery : TPersonalizedstreamgetOptions) : TDiscoveryclusters; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxAllowedMaturityRating',AQuery.maxAllowedMaturityRating); AddToQuery(_Q,'source',AQuery.source); Result:=Get(_Q); end; { -------------------------------------------------------------------- TPromoofferResource --------------------------------------------------------------------} Class Function TPromoofferResource.ResourceName : String; begin Result:='promooffer'; end; Class Function TPromoofferResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Procedure TPromoofferResource.Accept(AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'promooffer/accept'; _Methodid = 'books.promooffer.accept'; begin ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil); end; Procedure TPromoofferResource.Accept(AQuery : TPromoofferacceptOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'androidId',AQuery.androidId); AddToQuery(_Q,'device',AQuery.device); AddToQuery(_Q,'manufacturer',AQuery.manufacturer); AddToQuery(_Q,'model',AQuery.model); AddToQuery(_Q,'offerId',AQuery.offerId); AddToQuery(_Q,'product',AQuery.product); AddToQuery(_Q,'serial',AQuery.serial); AddToQuery(_Q,'volumeId',AQuery.volumeId); Accept(_Q); end; Procedure TPromoofferResource.Dismiss(AQuery : string = ''); Const _HTTPMethod = 'POST'; _Path = 'promooffer/dismiss'; _Methodid = 'books.promooffer.dismiss'; begin ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil); end; Procedure TPromoofferResource.Dismiss(AQuery : TPromoofferdismissOptions); Var _Q : String; begin _Q:=''; AddToQuery(_Q,'androidId',AQuery.androidId); AddToQuery(_Q,'device',AQuery.device); AddToQuery(_Q,'manufacturer',AQuery.manufacturer); AddToQuery(_Q,'model',AQuery.model); AddToQuery(_Q,'offerId',AQuery.offerId); AddToQuery(_Q,'product',AQuery.product); AddToQuery(_Q,'serial',AQuery.serial); Dismiss(_Q); end; Function TPromoofferResource.Get(AQuery : string = '') : TOffers; Const _HTTPMethod = 'GET'; _Path = 'promooffer/get'; _Methodid = 'books.promooffer.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TOffers) as TOffers; end; Function TPromoofferResource.Get(AQuery : TPromooffergetOptions) : TOffers; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'androidId',AQuery.androidId); AddToQuery(_Q,'device',AQuery.device); AddToQuery(_Q,'manufacturer',AQuery.manufacturer); AddToQuery(_Q,'model',AQuery.model); AddToQuery(_Q,'product',AQuery.product); AddToQuery(_Q,'serial',AQuery.serial); Result:=Get(_Q); end; { -------------------------------------------------------------------- TSeriesMembershipResource --------------------------------------------------------------------} Class Function TSeriesMembershipResource.ResourceName : String; begin Result:='membership'; end; Class Function TSeriesMembershipResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TSeriesMembershipResource.Get(AQuery : string = '') : TSeriesmembership; Const _HTTPMethod = 'GET'; _Path = 'series/membership/get'; _Methodid = 'books.series.membership.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSeriesmembership) as TSeriesmembership; end; Function TSeriesMembershipResource.Get(AQuery : TSeriesMembershipgetOptions) : TSeriesmembership; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'page_size',AQuery.page_size); AddToQuery(_Q,'page_token',AQuery.page_token); AddToQuery(_Q,'series_id',AQuery.series_id); Result:=Get(_Q); end; { -------------------------------------------------------------------- TSeriesResource --------------------------------------------------------------------} Class Function TSeriesResource.ResourceName : String; begin Result:='series'; end; Class Function TSeriesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TSeriesResource.Get(AQuery : string = '') : TSeries; Const _HTTPMethod = 'GET'; _Path = 'series/get'; _Methodid = 'books.series.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSeries) as TSeries; end; Function TSeriesResource.Get(AQuery : TSeriesgetOptions) : TSeries; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'series_id',AQuery.series_id); Result:=Get(_Q); end; Function TSeriesResource.GetMembershipInstance : TSeriesMembershipResource; begin if (FMembershipInstance=Nil) then FMembershipInstance:=CreateMembershipResource; Result:=FMembershipInstance; end; Function TSeriesResource.CreateMembershipResource : TSeriesMembershipResource; begin Result:=CreateMembershipResource(Self); end; Function TSeriesResource.CreateMembershipResource(AOwner : TComponent) : TSeriesMembershipResource; begin Result:=TSeriesMembershipResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TVolumesAssociatedResource --------------------------------------------------------------------} Class Function TVolumesAssociatedResource.ResourceName : String; begin Result:='associated'; end; Class Function TVolumesAssociatedResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TVolumesAssociatedResource.List(volumeId: string; AQuery : string = '') : TVolumes; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}/associated'; _Methodid = 'books.volumes.associated.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVolumes) as TVolumes; end; Function TVolumesAssociatedResource.List(volumeId: string; AQuery : TVolumesAssociatedlistOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'association',AQuery.association); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxAllowedMaturityRating',AQuery.maxAllowedMaturityRating); AddToQuery(_Q,'source',AQuery.source); Result:=List(volumeId,_Q); end; { -------------------------------------------------------------------- TVolumesMybooksResource --------------------------------------------------------------------} Class Function TVolumesMybooksResource.ResourceName : String; begin Result:='mybooks'; end; Class Function TVolumesMybooksResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TVolumesMybooksResource.List(AQuery : string = '') : TVolumes; Const _HTTPMethod = 'GET'; _Path = 'volumes/mybooks'; _Methodid = 'books.volumes.mybooks.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVolumes) as TVolumes; end; Function TVolumesMybooksResource.List(AQuery : TVolumesMybookslistOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'acquireMethod',AQuery.acquireMethod); AddToQuery(_Q,'country',AQuery.country); AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'processingState',AQuery.processingState); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'startIndex',AQuery.startIndex); Result:=List(_Q); end; { -------------------------------------------------------------------- TVolumesRecommendedResource --------------------------------------------------------------------} Class Function TVolumesRecommendedResource.ResourceName : String; begin Result:='recommended'; end; Class Function TVolumesRecommendedResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TVolumesRecommendedResource.List(AQuery : string = '') : TVolumes; Const _HTTPMethod = 'GET'; _Path = 'volumes/recommended'; _Methodid = 'books.volumes.recommended.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVolumes) as TVolumes; end; Function TVolumesRecommendedResource.List(AQuery : TVolumesRecommendedlistOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxAllowedMaturityRating',AQuery.maxAllowedMaturityRating); AddToQuery(_Q,'source',AQuery.source); Result:=List(_Q); end; Function TVolumesRecommendedResource.Rate(AQuery : string = '') : TBooksVolumesRecommendedRateResponse; Const _HTTPMethod = 'POST'; _Path = 'volumes/recommended/rate'; _Methodid = 'books.volumes.recommended.rate'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TBooksVolumesRecommendedRateResponse) as TBooksVolumesRecommendedRateResponse; end; Function TVolumesRecommendedResource.Rate(AQuery : TVolumesRecommendedrateOptions) : TBooksVolumesRecommendedRateResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'rating',AQuery.rating); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'volumeId',AQuery.volumeId); Result:=Rate(_Q); end; { -------------------------------------------------------------------- TVolumesUseruploadedResource --------------------------------------------------------------------} Class Function TVolumesUseruploadedResource.ResourceName : String; begin Result:='useruploaded'; end; Class Function TVolumesUseruploadedResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TVolumesUseruploadedResource.List(AQuery : string = '') : TVolumes; Const _HTTPMethod = 'GET'; _Path = 'volumes/useruploaded'; _Methodid = 'books.volumes.useruploaded.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVolumes) as TVolumes; end; Function TVolumesUseruploadedResource.List(AQuery : TVolumesUseruploadedlistOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'locale',AQuery.locale); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'processingState',AQuery.processingState); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'startIndex',AQuery.startIndex); AddToQuery(_Q,'volumeId',AQuery.volumeId); Result:=List(_Q); end; { -------------------------------------------------------------------- TVolumesResource --------------------------------------------------------------------} Class Function TVolumesResource.ResourceName : String; begin Result:='volumes'; end; Class Function TVolumesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TbooksAPI; end; Function TVolumesResource.Get(volumeId: string; AQuery : string = '') : TVolume; Const _HTTPMethod = 'GET'; _Path = 'volumes/{volumeId}'; _Methodid = 'books.volumes.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['volumeId',volumeId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVolume) as TVolume; end; Function TVolumesResource.Get(volumeId: string; AQuery : TVolumesgetOptions) : TVolume; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'country',AQuery.country); AddToQuery(_Q,'includeNonComicsSeries',AQuery.includeNonComicsSeries); AddToQuery(_Q,'partner',AQuery.partner); AddToQuery(_Q,'projection',AQuery.projection); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'user_library_consistent_read',AQuery.user_library_consistent_read); Result:=Get(volumeId,_Q); end; Function TVolumesResource.List(AQuery : string = '') : TVolumes; Const _HTTPMethod = 'GET'; _Path = 'volumes'; _Methodid = 'books.volumes.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVolumes) as TVolumes; end; Function TVolumesResource.List(AQuery : TVolumeslistOptions) : TVolumes; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'download',AQuery.download); AddToQuery(_Q,'filter',AQuery.filter); AddToQuery(_Q,'langRestrict',AQuery.langRestrict); AddToQuery(_Q,'libraryRestrict',AQuery.libraryRestrict); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'orderBy',AQuery.orderBy); AddToQuery(_Q,'partner',AQuery.partner); AddToQuery(_Q,'printType',AQuery.printType); AddToQuery(_Q,'projection',AQuery.projection); AddToQuery(_Q,'q',AQuery.q); AddToQuery(_Q,'showPreorders',AQuery.showPreorders); AddToQuery(_Q,'source',AQuery.source); AddToQuery(_Q,'startIndex',AQuery.startIndex); Result:=List(_Q); end; Function TVolumesResource.GetAssociatedInstance : TVolumesAssociatedResource; begin if (FAssociatedInstance=Nil) then FAssociatedInstance:=CreateAssociatedResource; Result:=FAssociatedInstance; end; Function TVolumesResource.CreateAssociatedResource : TVolumesAssociatedResource; begin Result:=CreateAssociatedResource(Self); end; Function TVolumesResource.CreateAssociatedResource(AOwner : TComponent) : TVolumesAssociatedResource; begin Result:=TVolumesAssociatedResource.Create(AOwner); Result.API:=Self.API; end; Function TVolumesResource.GetMybooksInstance : TVolumesMybooksResource; begin if (FMybooksInstance=Nil) then FMybooksInstance:=CreateMybooksResource; Result:=FMybooksInstance; end; Function TVolumesResource.CreateMybooksResource : TVolumesMybooksResource; begin Result:=CreateMybooksResource(Self); end; Function TVolumesResource.CreateMybooksResource(AOwner : TComponent) : TVolumesMybooksResource; begin Result:=TVolumesMybooksResource.Create(AOwner); Result.API:=Self.API; end; Function TVolumesResource.GetRecommendedInstance : TVolumesRecommendedResource; begin if (FRecommendedInstance=Nil) then FRecommendedInstance:=CreateRecommendedResource; Result:=FRecommendedInstance; end; Function TVolumesResource.CreateRecommendedResource : TVolumesRecommendedResource; begin Result:=CreateRecommendedResource(Self); end; Function TVolumesResource.CreateRecommendedResource(AOwner : TComponent) : TVolumesRecommendedResource; begin Result:=TVolumesRecommendedResource.Create(AOwner); Result.API:=Self.API; end; Function TVolumesResource.GetUseruploadedInstance : TVolumesUseruploadedResource; begin if (FUseruploadedInstance=Nil) then FUseruploadedInstance:=CreateUseruploadedResource; Result:=FUseruploadedInstance; end; Function TVolumesResource.CreateUseruploadedResource : TVolumesUseruploadedResource; begin Result:=CreateUseruploadedResource(Self); end; Function TVolumesResource.CreateUseruploadedResource(AOwner : TComponent) : TVolumesUseruploadedResource; begin Result:=TVolumesUseruploadedResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TBooksAPI --------------------------------------------------------------------} Class Function TBooksAPI.APIName : String; begin Result:='books'; end; Class Function TBooksAPI.APIVersion : String; begin Result:='v1'; end; Class Function TBooksAPI.APIRevision : String; begin Result:='20160411'; end; Class Function TBooksAPI.APIID : String; begin Result:='books:v1'; end; Class Function TBooksAPI.APITitle : String; begin Result:='Books API'; end; Class Function TBooksAPI.APIDescription : String; begin Result:='Lets you search for books and manage your Google Books library.'; end; Class Function TBooksAPI.APIOwnerDomain : String; begin Result:='google.com'; end; Class Function TBooksAPI.APIOwnerName : String; begin Result:='Google'; end; Class Function TBooksAPI.APIIcon16 : String; begin Result:='https://www.google.com/images/icons/product/ebooks-16.png'; end; Class Function TBooksAPI.APIIcon32 : String; begin Result:='https://www.google.com/images/icons/product/ebooks-32.png'; end; Class Function TBooksAPI.APIdocumentationLink : String; begin Result:='https://developers.google.com/books/docs/v1/getting_started'; end; Class Function TBooksAPI.APIrootUrl : string; begin Result:='https://www.googleapis.com/'; end; Class Function TBooksAPI.APIbasePath : string; begin Result:='/books/v1/'; end; Class Function TBooksAPI.APIbaseURL : String; begin Result:='https://www.googleapis.com/books/v1/'; end; Class Function TBooksAPI.APIProtocol : string; begin Result:='rest'; end; Class Function TBooksAPI.APIservicePath : string; begin Result:='books/v1/'; end; Class Function TBooksAPI.APIbatchPath : String; begin Result:='batch'; end; Class Function TBooksAPI.APIAuthScopes : TScopeInfoArray; begin SetLength(Result,1); Result[0].Name:='https://www.googleapis.com/auth/books'; Result[0].Description:='Manage your books'; end; Class Function TBooksAPI.APINeedsAuth : Boolean; begin Result:=True; end; Class Procedure TBooksAPI.RegisterAPIResources; begin TAnnotationTypeclientVersionRanges.RegisterObject; TAnnotationTypecurrentVersionRanges.RegisterObject; TAnnotationTypelayerSummary.RegisterObject; TAnnotation.RegisterObject; TAnnotationdata.RegisterObject; TAnnotations.RegisterObject; TAnnotationsSummaryTypelayersItem.RegisterObject; TAnnotationsSummary.RegisterObject; TAnnotationsdata.RegisterObject; TBooksAnnotationsRange.RegisterObject; TBooksCloudloadingResource.RegisterObject; TBooksVolumesRecommendedRateResponse.RegisterObject; TBookshelf.RegisterObject; TBookshelves.RegisterObject; TCategoryTypeitemsItem.RegisterObject; TCategory.RegisterObject; TConcurrentAccessRestriction.RegisterObject; TDictlayerdataTypecommon.RegisterObject; TDictlayerdataTypedictTypesource.RegisterObject; TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource.RegisterObject; TDictlayerdataTypedictTypewordsItemTypederivativesItem.RegisterObject; TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource.RegisterObject; TDictlayerdataTypedictTypewordsItemTypeexamplesItem.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsItem.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesensesItem.RegisterObject; TDictlayerdataTypedictTypewordsItemTypesource.RegisterObject; TDictlayerdataTypedictTypewordsItem.RegisterObject; TDictlayerdataTypedict.RegisterObject; TDictlayerdata.RegisterObject; TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.RegisterObject; TDiscoveryclustersTypeclustersItem.RegisterObject; TDiscoveryclusters.RegisterObject; TDownloadAccessRestriction.RegisterObject; TDownloadAccesses.RegisterObject; TGeolayerdataTypecommon.RegisterObject; TGeolayerdataTypegeoTypeboundaryItemItem.RegisterObject; TGeolayerdataTypegeoTypeviewportTypehi.RegisterObject; TGeolayerdataTypegeoTypeviewportTypelo.RegisterObject; TGeolayerdataTypegeoTypeviewport.RegisterObject; TGeolayerdataTypegeo.RegisterObject; TGeolayerdata.RegisterObject; TLayersummaries.RegisterObject; TLayersummary.RegisterObject; TMetadataTypeitemsItem.RegisterObject; TMetadata.RegisterObject; TNotification.RegisterObject; TOffersTypeitemsItemTypeitemsItem.RegisterObject; TOffersTypeitemsItem.RegisterObject; TOffers.RegisterObject; TReadingPosition.RegisterObject; TRequestAccess.RegisterObject; TReviewTypeauthor.RegisterObject; TReviewTypesource.RegisterObject; TReview.RegisterObject; TSeriesTypeseriesItem.RegisterObject; TSeries.RegisterObject; TSeriesmembership.RegisterObject; TUsersettingsTypenotesExport.RegisterObject; TUsersettingsTypenotificationTypemoreFromAuthors.RegisterObject; TUsersettingsTypenotification.RegisterObject; TUsersettings.RegisterObject; TVolumeTypeaccessInfoTypeepub.RegisterObject; TVolumeTypeaccessInfoTypepdf.RegisterObject; TVolumeTypeaccessInfo.RegisterObject; TVolumeTypelayerInfoTypelayersItem.RegisterObject; TVolumeTypelayerInfo.RegisterObject; TVolumeTyperecommendedInfo.RegisterObject; TVolumeTypesaleInfoTypelistPrice.RegisterObject; TVolumeTypesaleInfoTypeoffersItemTypelistPrice.RegisterObject; TVolumeTypesaleInfoTypeoffersItemTyperentalDuration.RegisterObject; TVolumeTypesaleInfoTypeoffersItemTyperetailPrice.RegisterObject; TVolumeTypesaleInfoTypeoffersItem.RegisterObject; TVolumeTypesaleInfoTyperetailPrice.RegisterObject; TVolumeTypesaleInfo.RegisterObject; TVolumeTypesearchInfo.RegisterObject; TVolumeTypeuserInfoTypecopy.RegisterObject; TVolumeTypeuserInfoTypefamilySharing.RegisterObject; TVolumeTypeuserInfoTyperentalPeriod.RegisterObject; TVolumeTypeuserInfoTypeuserUploadedVolumeInfo.RegisterObject; TVolumeTypeuserInfo.RegisterObject; TVolumeTypevolumeInfoTypedimensions.RegisterObject; TVolumeTypevolumeInfoTypeimageLinks.RegisterObject; TVolumeTypevolumeInfoTypeindustryIdentifiersItem.RegisterObject; TVolumeTypevolumeInfo.RegisterObject; TVolume.RegisterObject; TVolume2.RegisterObject; TVolumeannotationTypecontentRanges.RegisterObject; TVolumeannotation.RegisterObject; TVolumeannotations.RegisterObject; TVolumes.RegisterObject; TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem.RegisterObject; TVolumeseriesinfoTypevolumeSeriesItem.RegisterObject; TVolumeseriesinfo.RegisterObject; end; Function TBooksAPI.GetBookshelvesVolumesInstance : TBookshelvesVolumesResource; begin if (FBookshelvesVolumesInstance=Nil) then FBookshelvesVolumesInstance:=CreateBookshelvesVolumesResource; Result:=FBookshelvesVolumesInstance; end; Function TBooksAPI.CreateBookshelvesVolumesResource : TBookshelvesVolumesResource; begin Result:=CreateBookshelvesVolumesResource(Self); end; Function TBooksAPI.CreateBookshelvesVolumesResource(AOwner : TComponent) : TBookshelvesVolumesResource; begin Result:=TBookshelvesVolumesResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetBookshelvesInstance : TBookshelvesResource; begin if (FBookshelvesInstance=Nil) then FBookshelvesInstance:=CreateBookshelvesResource; Result:=FBookshelvesInstance; end; Function TBooksAPI.CreateBookshelvesResource : TBookshelvesResource; begin Result:=CreateBookshelvesResource(Self); end; Function TBooksAPI.CreateBookshelvesResource(AOwner : TComponent) : TBookshelvesResource; begin Result:=TBookshelvesResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetCloudloadingInstance : TCloudloadingResource; begin if (FCloudloadingInstance=Nil) then FCloudloadingInstance:=CreateCloudloadingResource; Result:=FCloudloadingInstance; end; Function TBooksAPI.CreateCloudloadingResource : TCloudloadingResource; begin Result:=CreateCloudloadingResource(Self); end; Function TBooksAPI.CreateCloudloadingResource(AOwner : TComponent) : TCloudloadingResource; begin Result:=TCloudloadingResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetDictionaryInstance : TDictionaryResource; begin if (FDictionaryInstance=Nil) then FDictionaryInstance:=CreateDictionaryResource; Result:=FDictionaryInstance; end; Function TBooksAPI.CreateDictionaryResource : TDictionaryResource; begin Result:=CreateDictionaryResource(Self); end; Function TBooksAPI.CreateDictionaryResource(AOwner : TComponent) : TDictionaryResource; begin Result:=TDictionaryResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetLayersAnnotationDataInstance : TLayersAnnotationDataResource; begin if (FLayersAnnotationDataInstance=Nil) then FLayersAnnotationDataInstance:=CreateLayersAnnotationDataResource; Result:=FLayersAnnotationDataInstance; end; Function TBooksAPI.CreateLayersAnnotationDataResource : TLayersAnnotationDataResource; begin Result:=CreateLayersAnnotationDataResource(Self); end; Function TBooksAPI.CreateLayersAnnotationDataResource(AOwner : TComponent) : TLayersAnnotationDataResource; begin Result:=TLayersAnnotationDataResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetLayersVolumeAnnotationsInstance : TLayersVolumeAnnotationsResource; begin if (FLayersVolumeAnnotationsInstance=Nil) then FLayersVolumeAnnotationsInstance:=CreateLayersVolumeAnnotationsResource; Result:=FLayersVolumeAnnotationsInstance; end; Function TBooksAPI.CreateLayersVolumeAnnotationsResource : TLayersVolumeAnnotationsResource; begin Result:=CreateLayersVolumeAnnotationsResource(Self); end; Function TBooksAPI.CreateLayersVolumeAnnotationsResource(AOwner : TComponent) : TLayersVolumeAnnotationsResource; begin Result:=TLayersVolumeAnnotationsResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetLayersInstance : TLayersResource; begin if (FLayersInstance=Nil) then FLayersInstance:=CreateLayersResource; Result:=FLayersInstance; end; Function TBooksAPI.CreateLayersResource : TLayersResource; begin Result:=CreateLayersResource(Self); end; Function TBooksAPI.CreateLayersResource(AOwner : TComponent) : TLayersResource; begin Result:=TLayersResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetMyconfigInstance : TMyconfigResource; begin if (FMyconfigInstance=Nil) then FMyconfigInstance:=CreateMyconfigResource; Result:=FMyconfigInstance; end; Function TBooksAPI.CreateMyconfigResource : TMyconfigResource; begin Result:=CreateMyconfigResource(Self); end; Function TBooksAPI.CreateMyconfigResource(AOwner : TComponent) : TMyconfigResource; begin Result:=TMyconfigResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetMylibraryAnnotationsInstance : TMylibraryAnnotationsResource; begin if (FMylibraryAnnotationsInstance=Nil) then FMylibraryAnnotationsInstance:=CreateMylibraryAnnotationsResource; Result:=FMylibraryAnnotationsInstance; end; Function TBooksAPI.CreateMylibraryAnnotationsResource : TMylibraryAnnotationsResource; begin Result:=CreateMylibraryAnnotationsResource(Self); end; Function TBooksAPI.CreateMylibraryAnnotationsResource(AOwner : TComponent) : TMylibraryAnnotationsResource; begin Result:=TMylibraryAnnotationsResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetMylibraryBookshelvesVolumesInstance : TMylibraryBookshelvesVolumesResource; begin if (FMylibraryBookshelvesVolumesInstance=Nil) then FMylibraryBookshelvesVolumesInstance:=CreateMylibraryBookshelvesVolumesResource; Result:=FMylibraryBookshelvesVolumesInstance; end; Function TBooksAPI.CreateMylibraryBookshelvesVolumesResource : TMylibraryBookshelvesVolumesResource; begin Result:=CreateMylibraryBookshelvesVolumesResource(Self); end; Function TBooksAPI.CreateMylibraryBookshelvesVolumesResource(AOwner : TComponent) : TMylibraryBookshelvesVolumesResource; begin Result:=TMylibraryBookshelvesVolumesResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetMylibraryBookshelvesInstance : TMylibraryBookshelvesResource; begin if (FMylibraryBookshelvesInstance=Nil) then FMylibraryBookshelvesInstance:=CreateMylibraryBookshelvesResource; Result:=FMylibraryBookshelvesInstance; end; Function TBooksAPI.CreateMylibraryBookshelvesResource : TMylibraryBookshelvesResource; begin Result:=CreateMylibraryBookshelvesResource(Self); end; Function TBooksAPI.CreateMylibraryBookshelvesResource(AOwner : TComponent) : TMylibraryBookshelvesResource; begin Result:=TMylibraryBookshelvesResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetMylibraryReadingpositionsInstance : TMylibraryReadingpositionsResource; begin if (FMylibraryReadingpositionsInstance=Nil) then FMylibraryReadingpositionsInstance:=CreateMylibraryReadingpositionsResource; Result:=FMylibraryReadingpositionsInstance; end; Function TBooksAPI.CreateMylibraryReadingpositionsResource : TMylibraryReadingpositionsResource; begin Result:=CreateMylibraryReadingpositionsResource(Self); end; Function TBooksAPI.CreateMylibraryReadingpositionsResource(AOwner : TComponent) : TMylibraryReadingpositionsResource; begin Result:=TMylibraryReadingpositionsResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetMylibraryInstance : TMylibraryResource; begin if (FMylibraryInstance=Nil) then FMylibraryInstance:=CreateMylibraryResource; Result:=FMylibraryInstance; end; Function TBooksAPI.CreateMylibraryResource : TMylibraryResource; begin Result:=CreateMylibraryResource(Self); end; Function TBooksAPI.CreateMylibraryResource(AOwner : TComponent) : TMylibraryResource; begin Result:=TMylibraryResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetNotificationInstance : TNotificationResource; begin if (FNotificationInstance=Nil) then FNotificationInstance:=CreateNotificationResource; Result:=FNotificationInstance; end; Function TBooksAPI.CreateNotificationResource : TNotificationResource; begin Result:=CreateNotificationResource(Self); end; Function TBooksAPI.CreateNotificationResource(AOwner : TComponent) : TNotificationResource; begin Result:=TNotificationResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetOnboardingInstance : TOnboardingResource; begin if (FOnboardingInstance=Nil) then FOnboardingInstance:=CreateOnboardingResource; Result:=FOnboardingInstance; end; Function TBooksAPI.CreateOnboardingResource : TOnboardingResource; begin Result:=CreateOnboardingResource(Self); end; Function TBooksAPI.CreateOnboardingResource(AOwner : TComponent) : TOnboardingResource; begin Result:=TOnboardingResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetPersonalizedstreamInstance : TPersonalizedstreamResource; begin if (FPersonalizedstreamInstance=Nil) then FPersonalizedstreamInstance:=CreatePersonalizedstreamResource; Result:=FPersonalizedstreamInstance; end; Function TBooksAPI.CreatePersonalizedstreamResource : TPersonalizedstreamResource; begin Result:=CreatePersonalizedstreamResource(Self); end; Function TBooksAPI.CreatePersonalizedstreamResource(AOwner : TComponent) : TPersonalizedstreamResource; begin Result:=TPersonalizedstreamResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetPromoofferInstance : TPromoofferResource; begin if (FPromoofferInstance=Nil) then FPromoofferInstance:=CreatePromoofferResource; Result:=FPromoofferInstance; end; Function TBooksAPI.CreatePromoofferResource : TPromoofferResource; begin Result:=CreatePromoofferResource(Self); end; Function TBooksAPI.CreatePromoofferResource(AOwner : TComponent) : TPromoofferResource; begin Result:=TPromoofferResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetSeriesMembershipInstance : TSeriesMembershipResource; begin if (FSeriesMembershipInstance=Nil) then FSeriesMembershipInstance:=CreateSeriesMembershipResource; Result:=FSeriesMembershipInstance; end; Function TBooksAPI.CreateSeriesMembershipResource : TSeriesMembershipResource; begin Result:=CreateSeriesMembershipResource(Self); end; Function TBooksAPI.CreateSeriesMembershipResource(AOwner : TComponent) : TSeriesMembershipResource; begin Result:=TSeriesMembershipResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetSeriesInstance : TSeriesResource; begin if (FSeriesInstance=Nil) then FSeriesInstance:=CreateSeriesResource; Result:=FSeriesInstance; end; Function TBooksAPI.CreateSeriesResource : TSeriesResource; begin Result:=CreateSeriesResource(Self); end; Function TBooksAPI.CreateSeriesResource(AOwner : TComponent) : TSeriesResource; begin Result:=TSeriesResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetVolumesAssociatedInstance : TVolumesAssociatedResource; begin if (FVolumesAssociatedInstance=Nil) then FVolumesAssociatedInstance:=CreateVolumesAssociatedResource; Result:=FVolumesAssociatedInstance; end; Function TBooksAPI.CreateVolumesAssociatedResource : TVolumesAssociatedResource; begin Result:=CreateVolumesAssociatedResource(Self); end; Function TBooksAPI.CreateVolumesAssociatedResource(AOwner : TComponent) : TVolumesAssociatedResource; begin Result:=TVolumesAssociatedResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetVolumesMybooksInstance : TVolumesMybooksResource; begin if (FVolumesMybooksInstance=Nil) then FVolumesMybooksInstance:=CreateVolumesMybooksResource; Result:=FVolumesMybooksInstance; end; Function TBooksAPI.CreateVolumesMybooksResource : TVolumesMybooksResource; begin Result:=CreateVolumesMybooksResource(Self); end; Function TBooksAPI.CreateVolumesMybooksResource(AOwner : TComponent) : TVolumesMybooksResource; begin Result:=TVolumesMybooksResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetVolumesRecommendedInstance : TVolumesRecommendedResource; begin if (FVolumesRecommendedInstance=Nil) then FVolumesRecommendedInstance:=CreateVolumesRecommendedResource; Result:=FVolumesRecommendedInstance; end; Function TBooksAPI.CreateVolumesRecommendedResource : TVolumesRecommendedResource; begin Result:=CreateVolumesRecommendedResource(Self); end; Function TBooksAPI.CreateVolumesRecommendedResource(AOwner : TComponent) : TVolumesRecommendedResource; begin Result:=TVolumesRecommendedResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetVolumesUseruploadedInstance : TVolumesUseruploadedResource; begin if (FVolumesUseruploadedInstance=Nil) then FVolumesUseruploadedInstance:=CreateVolumesUseruploadedResource; Result:=FVolumesUseruploadedInstance; end; Function TBooksAPI.CreateVolumesUseruploadedResource : TVolumesUseruploadedResource; begin Result:=CreateVolumesUseruploadedResource(Self); end; Function TBooksAPI.CreateVolumesUseruploadedResource(AOwner : TComponent) : TVolumesUseruploadedResource; begin Result:=TVolumesUseruploadedResource.Create(AOwner); Result.API:=Self.API; end; Function TBooksAPI.GetVolumesInstance : TVolumesResource; begin if (FVolumesInstance=Nil) then FVolumesInstance:=CreateVolumesResource; Result:=FVolumesInstance; end; Function TBooksAPI.CreateVolumesResource : TVolumesResource; begin Result:=CreateVolumesResource(Self); end; Function TBooksAPI.CreateVolumesResource(AOwner : TComponent) : TVolumesResource; begin Result:=TVolumesResource.Create(AOwner); Result.API:=Self.API; end; initialization TBooksAPI.RegisterAPI; end.