mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-16 01:51:26 +01:00
5967 lines
177 KiB
ObjectPascal
5967 lines
177 KiB
ObjectPascal
unit googleandroidpublisher;
|
|
{$MODE objfpc}
|
|
{$H+}
|
|
|
|
interface
|
|
|
|
uses sysutils, classes, googleservice, restbase, googlebase;
|
|
|
|
type
|
|
|
|
//Top-level schema types
|
|
TApk = Class;
|
|
TApkBinary = Class;
|
|
TApkListing = Class;
|
|
TApkListingsListResponse = Class;
|
|
TApksAddExternallyHostedRequest = Class;
|
|
TApksAddExternallyHostedResponse = Class;
|
|
TApksListResponse = Class;
|
|
TAppDetails = Class;
|
|
TAppEdit = Class;
|
|
TComment = Class;
|
|
TDeveloperComment = Class;
|
|
TEntitlement = Class;
|
|
TEntitlementsListResponse = Class;
|
|
TExpansionFile = Class;
|
|
TExpansionFilesUploadResponse = Class;
|
|
TExternallyHostedApk = Class;
|
|
TExternallyHostedApkUsesPermission = Class;
|
|
TImage = Class;
|
|
TImagesDeleteAllResponse = Class;
|
|
TImagesListResponse = Class;
|
|
TImagesUploadResponse = Class;
|
|
TInAppProduct = Class;
|
|
TInAppProductListing = Class;
|
|
TInappproductsBatchRequest = Class;
|
|
TInappproductsBatchRequestEntry = Class;
|
|
TInappproductsBatchResponse = Class;
|
|
TInappproductsBatchResponseEntry = Class;
|
|
TInappproductsInsertRequest = Class;
|
|
TInappproductsInsertResponse = Class;
|
|
TInappproductsListResponse = Class;
|
|
TInappproductsUpdateRequest = Class;
|
|
TInappproductsUpdateResponse = Class;
|
|
TListing = Class;
|
|
TListingsListResponse = Class;
|
|
TMonthDay = Class;
|
|
TPageInfo = Class;
|
|
TPrice = Class;
|
|
TProductPurchase = Class;
|
|
TProrate = Class;
|
|
TReview = Class;
|
|
TReviewReplyResult = Class;
|
|
TReviewsListResponse = Class;
|
|
TReviewsReplyRequest = Class;
|
|
TReviewsReplyResponse = Class;
|
|
TSeason = Class;
|
|
TSubscriptionDeferralInfo = Class;
|
|
TSubscriptionPurchase = Class;
|
|
TSubscriptionPurchasesDeferRequest = Class;
|
|
TSubscriptionPurchasesDeferResponse = Class;
|
|
TTesters = Class;
|
|
TTimestamp = Class;
|
|
TTokenPagination = Class;
|
|
TTrack = Class;
|
|
TTracksListResponse = Class;
|
|
TUserComment = Class;
|
|
TApkArray = Array of TApk;
|
|
TApkBinaryArray = Array of TApkBinary;
|
|
TApkListingArray = Array of TApkListing;
|
|
TApkListingsListResponseArray = Array of TApkListingsListResponse;
|
|
TApksAddExternallyHostedRequestArray = Array of TApksAddExternallyHostedRequest;
|
|
TApksAddExternallyHostedResponseArray = Array of TApksAddExternallyHostedResponse;
|
|
TApksListResponseArray = Array of TApksListResponse;
|
|
TAppDetailsArray = Array of TAppDetails;
|
|
TAppEditArray = Array of TAppEdit;
|
|
TCommentArray = Array of TComment;
|
|
TDeveloperCommentArray = Array of TDeveloperComment;
|
|
TEntitlementArray = Array of TEntitlement;
|
|
TEntitlementsListResponseArray = Array of TEntitlementsListResponse;
|
|
TExpansionFileArray = Array of TExpansionFile;
|
|
TExpansionFilesUploadResponseArray = Array of TExpansionFilesUploadResponse;
|
|
TExternallyHostedApkArray = Array of TExternallyHostedApk;
|
|
TExternallyHostedApkUsesPermissionArray = Array of TExternallyHostedApkUsesPermission;
|
|
TImageArray = Array of TImage;
|
|
TImagesDeleteAllResponseArray = Array of TImagesDeleteAllResponse;
|
|
TImagesListResponseArray = Array of TImagesListResponse;
|
|
TImagesUploadResponseArray = Array of TImagesUploadResponse;
|
|
TInAppProductArray = Array of TInAppProduct;
|
|
TInAppProductListingArray = Array of TInAppProductListing;
|
|
TInappproductsBatchRequestArray = Array of TInappproductsBatchRequest;
|
|
TInappproductsBatchRequestEntryArray = Array of TInappproductsBatchRequestEntry;
|
|
TInappproductsBatchResponseArray = Array of TInappproductsBatchResponse;
|
|
TInappproductsBatchResponseEntryArray = Array of TInappproductsBatchResponseEntry;
|
|
TInappproductsInsertRequestArray = Array of TInappproductsInsertRequest;
|
|
TInappproductsInsertResponseArray = Array of TInappproductsInsertResponse;
|
|
TInappproductsListResponseArray = Array of TInappproductsListResponse;
|
|
TInappproductsUpdateRequestArray = Array of TInappproductsUpdateRequest;
|
|
TInappproductsUpdateResponseArray = Array of TInappproductsUpdateResponse;
|
|
TListingArray = Array of TListing;
|
|
TListingsListResponseArray = Array of TListingsListResponse;
|
|
TMonthDayArray = Array of TMonthDay;
|
|
TPageInfoArray = Array of TPageInfo;
|
|
TPriceArray = Array of TPrice;
|
|
TProductPurchaseArray = Array of TProductPurchase;
|
|
TProrateArray = Array of TProrate;
|
|
TReviewArray = Array of TReview;
|
|
TReviewReplyResultArray = Array of TReviewReplyResult;
|
|
TReviewsListResponseArray = Array of TReviewsListResponse;
|
|
TReviewsReplyRequestArray = Array of TReviewsReplyRequest;
|
|
TReviewsReplyResponseArray = Array of TReviewsReplyResponse;
|
|
TSeasonArray = Array of TSeason;
|
|
TSubscriptionDeferralInfoArray = Array of TSubscriptionDeferralInfo;
|
|
TSubscriptionPurchaseArray = Array of TSubscriptionPurchase;
|
|
TSubscriptionPurchasesDeferRequestArray = Array of TSubscriptionPurchasesDeferRequest;
|
|
TSubscriptionPurchasesDeferResponseArray = Array of TSubscriptionPurchasesDeferResponse;
|
|
TTestersArray = Array of TTesters;
|
|
TTimestampArray = Array of TTimestamp;
|
|
TTokenPaginationArray = Array of TTokenPagination;
|
|
TTrackArray = Array of TTrack;
|
|
TTracksListResponseArray = Array of TTracksListResponse;
|
|
TUserCommentArray = Array of TUserComment;
|
|
//Anonymous types, using auto-generated names
|
|
TInAppProductTypelistings = Class;
|
|
TInAppProductTypeprices = Class;
|
|
TApkListingsListResponseTypelistingsArray = Array of TApkListing;
|
|
TApksListResponseTypeapksArray = Array of TApk;
|
|
TEntitlementsListResponseTyperesourcesArray = Array of TEntitlement;
|
|
TExternallyHostedApkTypeusesPermissionsArray = Array of TExternallyHostedApkUsesPermission;
|
|
TImagesDeleteAllResponseTypedeletedArray = Array of TImage;
|
|
TImagesListResponseTypeimagesArray = Array of TImage;
|
|
TInappproductsBatchRequestTypeentrysArray = Array of TInappproductsBatchRequestEntry;
|
|
TInappproductsBatchResponseTypeentrysArray = Array of TInappproductsBatchResponseEntry;
|
|
TInappproductsListResponseTypeinappproductArray = Array of TInAppProduct;
|
|
TListingsListResponseTypelistingsArray = Array of TListing;
|
|
TReviewTypecommentsArray = Array of TComment;
|
|
TReviewsListResponseTypereviewsArray = Array of TReview;
|
|
TSeasonTypeprorationsArray = Array of TProrate;
|
|
TTracksListResponseTypetracksArray = Array of TTrack;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApk
|
|
--------------------------------------------------------------------}
|
|
|
|
TApk = Class(TGoogleBaseObject)
|
|
Private
|
|
Fbinary : TApkBinary;
|
|
FversionCode : integer;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setbinary(AIndex : Integer; const AValue : TApkBinary); virtual;
|
|
Procedure SetversionCode(AIndex : Integer; const AValue : integer); virtual;
|
|
Public
|
|
Published
|
|
Property binary : TApkBinary Index 0 Read Fbinary Write Setbinary;
|
|
Property versionCode : integer Index 8 Read FversionCode Write SetversionCode;
|
|
end;
|
|
TApkClass = Class of TApk;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApkBinary
|
|
--------------------------------------------------------------------}
|
|
|
|
TApkBinary = Class(TGoogleBaseObject)
|
|
Private
|
|
Fsha1 : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setsha1(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property sha1 : String Index 0 Read Fsha1 Write Setsha1;
|
|
end;
|
|
TApkBinaryClass = Class of TApkBinary;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApkListing
|
|
--------------------------------------------------------------------}
|
|
|
|
TApkListing = Class(TGoogleBaseObject)
|
|
Private
|
|
Flanguage : String;
|
|
FrecentChanges : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetrecentChanges(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property language : String Index 0 Read Flanguage Write Setlanguage;
|
|
Property recentChanges : String Index 8 Read FrecentChanges Write SetrecentChanges;
|
|
end;
|
|
TApkListingClass = Class of TApkListing;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApkListingsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TApkListingsListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fkind : String;
|
|
Flistings : TApkListingsListResponseTypelistingsArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setlistings(AIndex : Integer; const AValue : TApkListingsListResponseTypelistingsArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property kind : String Index 0 Read Fkind Write Setkind;
|
|
Property listings : TApkListingsListResponseTypelistingsArray Index 8 Read Flistings Write Setlistings;
|
|
end;
|
|
TApkListingsListResponseClass = Class of TApkListingsListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApksAddExternallyHostedRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
TApksAddExternallyHostedRequest = Class(TGoogleBaseObject)
|
|
Private
|
|
FexternallyHostedApk : TExternallyHostedApk;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk); virtual;
|
|
Public
|
|
Published
|
|
Property externallyHostedApk : TExternallyHostedApk Index 0 Read FexternallyHostedApk Write SetexternallyHostedApk;
|
|
end;
|
|
TApksAddExternallyHostedRequestClass = Class of TApksAddExternallyHostedRequest;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApksAddExternallyHostedResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TApksAddExternallyHostedResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
FexternallyHostedApk : TExternallyHostedApk;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk); virtual;
|
|
Public
|
|
Published
|
|
Property externallyHostedApk : TExternallyHostedApk Index 0 Read FexternallyHostedApk Write SetexternallyHostedApk;
|
|
end;
|
|
TApksAddExternallyHostedResponseClass = Class of TApksAddExternallyHostedResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApksListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TApksListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fapks : TApksListResponseTypeapksArray;
|
|
Fkind : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setapks(AIndex : Integer; const AValue : TApksListResponseTypeapksArray); 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 apks : TApksListResponseTypeapksArray Index 0 Read Fapks Write Setapks;
|
|
Property kind : String Index 8 Read Fkind Write Setkind;
|
|
end;
|
|
TApksListResponseClass = Class of TApksListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TAppDetails
|
|
--------------------------------------------------------------------}
|
|
|
|
TAppDetails = Class(TGoogleBaseObject)
|
|
Private
|
|
FcontactEmail : String;
|
|
FcontactPhone : String;
|
|
FcontactWebsite : String;
|
|
FdefaultLanguage : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetcontactEmail(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetcontactPhone(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetcontactWebsite(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property contactEmail : String Index 0 Read FcontactEmail Write SetcontactEmail;
|
|
Property contactPhone : String Index 8 Read FcontactPhone Write SetcontactPhone;
|
|
Property contactWebsite : String Index 16 Read FcontactWebsite Write SetcontactWebsite;
|
|
Property defaultLanguage : String Index 24 Read FdefaultLanguage Write SetdefaultLanguage;
|
|
end;
|
|
TAppDetailsClass = Class of TAppDetails;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TAppEdit
|
|
--------------------------------------------------------------------}
|
|
|
|
TAppEdit = Class(TGoogleBaseObject)
|
|
Private
|
|
FexpiryTimeSeconds : String;
|
|
Fid : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetexpiryTimeSeconds(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property expiryTimeSeconds : String Index 0 Read FexpiryTimeSeconds Write SetexpiryTimeSeconds;
|
|
Property id : String Index 8 Read Fid Write Setid;
|
|
end;
|
|
TAppEditClass = Class of TAppEdit;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TComment
|
|
--------------------------------------------------------------------}
|
|
|
|
TComment = Class(TGoogleBaseObject)
|
|
Private
|
|
FdeveloperComment : TDeveloperComment;
|
|
FuserComment : TUserComment;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetdeveloperComment(AIndex : Integer; const AValue : TDeveloperComment); virtual;
|
|
Procedure SetuserComment(AIndex : Integer; const AValue : TUserComment); virtual;
|
|
Public
|
|
Published
|
|
Property developerComment : TDeveloperComment Index 0 Read FdeveloperComment Write SetdeveloperComment;
|
|
Property userComment : TUserComment Index 8 Read FuserComment Write SetuserComment;
|
|
end;
|
|
TCommentClass = Class of TComment;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TDeveloperComment
|
|
--------------------------------------------------------------------}
|
|
|
|
TDeveloperComment = Class(TGoogleBaseObject)
|
|
Private
|
|
FlastModified : TTimestamp;
|
|
Ftext : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetlastModified(AIndex : Integer; const AValue : TTimestamp); virtual;
|
|
Procedure Settext(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property lastModified : TTimestamp Index 0 Read FlastModified Write SetlastModified;
|
|
Property text : String Index 8 Read Ftext Write Settext;
|
|
end;
|
|
TDeveloperCommentClass = Class of TDeveloperComment;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEntitlement
|
|
--------------------------------------------------------------------}
|
|
|
|
TEntitlement = Class(TGoogleBaseObject)
|
|
Private
|
|
Fkind : String;
|
|
FproductId : String;
|
|
FproductType : String;
|
|
Ftoken : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetproductType(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property kind : String Index 0 Read Fkind Write Setkind;
|
|
Property productId : String Index 8 Read FproductId Write SetproductId;
|
|
Property productType : String Index 16 Read FproductType Write SetproductType;
|
|
Property token : String Index 24 Read Ftoken Write Settoken;
|
|
end;
|
|
TEntitlementClass = Class of TEntitlement;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEntitlementsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TEntitlementsListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
FpageInfo : TPageInfo;
|
|
Fresources : TEntitlementsListResponseTyperesourcesArray;
|
|
FtokenPagination : TTokenPagination;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
|
|
Procedure Setresources(AIndex : Integer; const AValue : TEntitlementsListResponseTyperesourcesArray); virtual;
|
|
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property pageInfo : TPageInfo Index 0 Read FpageInfo Write SetpageInfo;
|
|
Property resources : TEntitlementsListResponseTyperesourcesArray Index 8 Read Fresources Write Setresources;
|
|
Property tokenPagination : TTokenPagination Index 16 Read FtokenPagination Write SettokenPagination;
|
|
end;
|
|
TEntitlementsListResponseClass = Class of TEntitlementsListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExpansionFile
|
|
--------------------------------------------------------------------}
|
|
|
|
TExpansionFile = Class(TGoogleBaseObject)
|
|
Private
|
|
FfileSize : String;
|
|
FreferencesVersion : integer;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetreferencesVersion(AIndex : Integer; const AValue : integer); virtual;
|
|
Public
|
|
Published
|
|
Property fileSize : String Index 0 Read FfileSize Write SetfileSize;
|
|
Property referencesVersion : integer Index 8 Read FreferencesVersion Write SetreferencesVersion;
|
|
end;
|
|
TExpansionFileClass = Class of TExpansionFile;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExpansionFilesUploadResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TExpansionFilesUploadResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
FexpansionFile : TExpansionFile;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetexpansionFile(AIndex : Integer; const AValue : TExpansionFile); virtual;
|
|
Public
|
|
Published
|
|
Property expansionFile : TExpansionFile Index 0 Read FexpansionFile Write SetexpansionFile;
|
|
end;
|
|
TExpansionFilesUploadResponseClass = Class of TExpansionFilesUploadResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExternallyHostedApk
|
|
--------------------------------------------------------------------}
|
|
|
|
TExternallyHostedApk = Class(TGoogleBaseObject)
|
|
Private
|
|
FapplicationLabel : String;
|
|
FcertificateBase64s : TStringArray;
|
|
FexternallyHostedUrl : String;
|
|
FfileSha1Base64 : String;
|
|
FfileSha256Base64 : String;
|
|
FfileSize : String;
|
|
FiconBase64 : String;
|
|
FmaximumSdk : integer;
|
|
FminimumSdk : integer;
|
|
FnativeCodes : TStringArray;
|
|
FpackageName : String;
|
|
FusesFeatures : TStringArray;
|
|
FusesPermissions : TExternallyHostedApkTypeusesPermissionsArray;
|
|
FversionCode : integer;
|
|
FversionName : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetapplicationLabel(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetcertificateBase64s(AIndex : Integer; const AValue : TStringArray); virtual;
|
|
Procedure SetexternallyHostedUrl(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetfileSha1Base64(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetfileSha256Base64(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SeticonBase64(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetmaximumSdk(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetminimumSdk(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetnativeCodes(AIndex : Integer; const AValue : TStringArray); virtual;
|
|
Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetusesFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
|
|
Procedure SetusesPermissions(AIndex : Integer; const AValue : TExternallyHostedApkTypeusesPermissionsArray); virtual;
|
|
Procedure SetversionCode(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetversionName(AIndex : Integer; const AValue : String); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property applicationLabel : String Index 0 Read FapplicationLabel Write SetapplicationLabel;
|
|
Property certificateBase64s : TStringArray Index 8 Read FcertificateBase64s Write SetcertificateBase64s;
|
|
Property externallyHostedUrl : String Index 16 Read FexternallyHostedUrl Write SetexternallyHostedUrl;
|
|
Property fileSha1Base64 : String Index 24 Read FfileSha1Base64 Write SetfileSha1Base64;
|
|
Property fileSha256Base64 : String Index 32 Read FfileSha256Base64 Write SetfileSha256Base64;
|
|
Property fileSize : String Index 40 Read FfileSize Write SetfileSize;
|
|
Property iconBase64 : String Index 48 Read FiconBase64 Write SeticonBase64;
|
|
Property maximumSdk : integer Index 56 Read FmaximumSdk Write SetmaximumSdk;
|
|
Property minimumSdk : integer Index 64 Read FminimumSdk Write SetminimumSdk;
|
|
Property nativeCodes : TStringArray Index 72 Read FnativeCodes Write SetnativeCodes;
|
|
Property packageName : String Index 80 Read FpackageName Write SetpackageName;
|
|
Property usesFeatures : TStringArray Index 88 Read FusesFeatures Write SetusesFeatures;
|
|
Property usesPermissions : TExternallyHostedApkTypeusesPermissionsArray Index 96 Read FusesPermissions Write SetusesPermissions;
|
|
Property versionCode : integer Index 104 Read FversionCode Write SetversionCode;
|
|
Property versionName : String Index 112 Read FversionName Write SetversionName;
|
|
end;
|
|
TExternallyHostedApkClass = Class of TExternallyHostedApk;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExternallyHostedApkUsesPermission
|
|
--------------------------------------------------------------------}
|
|
|
|
TExternallyHostedApkUsesPermission = Class(TGoogleBaseObject)
|
|
Private
|
|
FmaxSdkVersion : integer;
|
|
Fname : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetmaxSdkVersion(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property maxSdkVersion : integer Index 0 Read FmaxSdkVersion Write SetmaxSdkVersion;
|
|
Property name : String Index 8 Read Fname Write Setname;
|
|
end;
|
|
TExternallyHostedApkUsesPermissionClass = Class of TExternallyHostedApkUsesPermission;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImage
|
|
--------------------------------------------------------------------}
|
|
|
|
TImage = Class(TGoogleBaseObject)
|
|
Private
|
|
Fid : String;
|
|
Fsha1 : String;
|
|
Furl : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setsha1(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property id : String Index 0 Read Fid Write Setid;
|
|
Property sha1 : String Index 8 Read Fsha1 Write Setsha1;
|
|
Property url : String Index 16 Read Furl Write Seturl;
|
|
end;
|
|
TImageClass = Class of TImage;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImagesDeleteAllResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TImagesDeleteAllResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fdeleted : TImagesDeleteAllResponseTypedeletedArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setdeleted(AIndex : Integer; const AValue : TImagesDeleteAllResponseTypedeletedArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property deleted : TImagesDeleteAllResponseTypedeletedArray Index 0 Read Fdeleted Write Setdeleted;
|
|
end;
|
|
TImagesDeleteAllResponseClass = Class of TImagesDeleteAllResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImagesListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TImagesListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fimages : TImagesListResponseTypeimagesArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setimages(AIndex : Integer; const AValue : TImagesListResponseTypeimagesArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property images : TImagesListResponseTypeimagesArray Index 0 Read Fimages Write Setimages;
|
|
end;
|
|
TImagesListResponseClass = Class of TImagesListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImagesUploadResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TImagesUploadResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fimage : TImage;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setimage(AIndex : Integer; const AValue : TImage); virtual;
|
|
Public
|
|
Published
|
|
Property image : TImage Index 0 Read Fimage Write Setimage;
|
|
end;
|
|
TImagesUploadResponseClass = Class of TImagesUploadResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProductTypelistings
|
|
--------------------------------------------------------------------}
|
|
|
|
TInAppProductTypelistings = Class(TGoogleBaseObject)
|
|
Private
|
|
Protected
|
|
//Property setters
|
|
Public
|
|
Class Function AllowAdditionalProperties : Boolean; override;
|
|
Published
|
|
end;
|
|
TInAppProductTypelistingsClass = Class of TInAppProductTypelistings;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProductTypeprices
|
|
--------------------------------------------------------------------}
|
|
|
|
TInAppProductTypeprices = Class(TGoogleBaseObject)
|
|
Private
|
|
Protected
|
|
//Property setters
|
|
Public
|
|
Class Function AllowAdditionalProperties : Boolean; override;
|
|
Published
|
|
end;
|
|
TInAppProductTypepricesClass = Class of TInAppProductTypeprices;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProduct
|
|
--------------------------------------------------------------------}
|
|
|
|
TInAppProduct = Class(TGoogleBaseObject)
|
|
Private
|
|
FdefaultLanguage : String;
|
|
FdefaultPrice : TPrice;
|
|
Flistings : TInAppProductTypelistings;
|
|
FpackageName : String;
|
|
Fprices : TInAppProductTypeprices;
|
|
FpurchaseType : String;
|
|
Fseason : TSeason;
|
|
Fsku : String;
|
|
Fstatus : String;
|
|
FsubscriptionPeriod : String;
|
|
FtrialPeriod : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetdefaultPrice(AIndex : Integer; const AValue : TPrice); virtual;
|
|
Procedure Setlistings(AIndex : Integer; const AValue : TInAppProductTypelistings); virtual;
|
|
Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setprices(AIndex : Integer; const AValue : TInAppProductTypeprices); virtual;
|
|
Procedure SetpurchaseType(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setseason(AIndex : Integer; const AValue : TSeason); virtual;
|
|
Procedure Setsku(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetsubscriptionPeriod(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SettrialPeriod(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property defaultLanguage : String Index 0 Read FdefaultLanguage Write SetdefaultLanguage;
|
|
Property defaultPrice : TPrice Index 8 Read FdefaultPrice Write SetdefaultPrice;
|
|
Property listings : TInAppProductTypelistings Index 16 Read Flistings Write Setlistings;
|
|
Property packageName : String Index 24 Read FpackageName Write SetpackageName;
|
|
Property prices : TInAppProductTypeprices Index 32 Read Fprices Write Setprices;
|
|
Property purchaseType : String Index 40 Read FpurchaseType Write SetpurchaseType;
|
|
Property season : TSeason Index 48 Read Fseason Write Setseason;
|
|
Property sku : String Index 56 Read Fsku Write Setsku;
|
|
Property status : String Index 64 Read Fstatus Write Setstatus;
|
|
Property subscriptionPeriod : String Index 72 Read FsubscriptionPeriod Write SetsubscriptionPeriod;
|
|
Property trialPeriod : String Index 80 Read FtrialPeriod Write SettrialPeriod;
|
|
end;
|
|
TInAppProductClass = Class of TInAppProduct;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProductListing
|
|
--------------------------------------------------------------------}
|
|
|
|
TInAppProductListing = Class(TGoogleBaseObject)
|
|
Private
|
|
Fdescription : String;
|
|
Ftitle : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property description : String Index 0 Read Fdescription Write Setdescription;
|
|
Property title : String Index 8 Read Ftitle Write Settitle;
|
|
end;
|
|
TInAppProductListingClass = Class of TInAppProductListing;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsBatchRequest = Class(TGoogleBaseObject)
|
|
Private
|
|
Fentrys : TInappproductsBatchRequestTypeentrysArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setentrys(AIndex : Integer; const AValue : TInappproductsBatchRequestTypeentrysArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property entrys : TInappproductsBatchRequestTypeentrysArray Index 0 Read Fentrys Write Setentrys;
|
|
end;
|
|
TInappproductsBatchRequestClass = Class of TInappproductsBatchRequest;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchRequestEntry
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsBatchRequestEntry = Class(TGoogleBaseObject)
|
|
Private
|
|
FbatchId : integer;
|
|
Finappproductsinsertrequest : TInappproductsInsertRequest;
|
|
Finappproductsupdaterequest : TInappproductsUpdateRequest;
|
|
FmethodName : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure Setinappproductsinsertrequest(AIndex : Integer; const AValue : TInappproductsInsertRequest); virtual;
|
|
Procedure Setinappproductsupdaterequest(AIndex : Integer; const AValue : TInappproductsUpdateRequest); virtual;
|
|
Procedure SetmethodName(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
|
|
Property inappproductsinsertrequest : TInappproductsInsertRequest Index 8 Read Finappproductsinsertrequest Write Setinappproductsinsertrequest;
|
|
Property inappproductsupdaterequest : TInappproductsUpdateRequest Index 16 Read Finappproductsupdaterequest Write Setinappproductsupdaterequest;
|
|
Property methodName : String Index 24 Read FmethodName Write SetmethodName;
|
|
end;
|
|
TInappproductsBatchRequestEntryClass = Class of TInappproductsBatchRequestEntry;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsBatchResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fentrys : TInappproductsBatchResponseTypeentrysArray;
|
|
Fkind : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setentrys(AIndex : Integer; const AValue : TInappproductsBatchResponseTypeentrysArray); 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 entrys : TInappproductsBatchResponseTypeentrysArray Index 0 Read Fentrys Write Setentrys;
|
|
Property kind : String Index 8 Read Fkind Write Setkind;
|
|
end;
|
|
TInappproductsBatchResponseClass = Class of TInappproductsBatchResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchResponseEntry
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsBatchResponseEntry = Class(TGoogleBaseObject)
|
|
Private
|
|
FbatchId : integer;
|
|
Finappproductsinsertresponse : TInappproductsInsertResponse;
|
|
Finappproductsupdateresponse : TInappproductsUpdateResponse;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure Setinappproductsinsertresponse(AIndex : Integer; const AValue : TInappproductsInsertResponse); virtual;
|
|
Procedure Setinappproductsupdateresponse(AIndex : Integer; const AValue : TInappproductsUpdateResponse); virtual;
|
|
Public
|
|
Published
|
|
Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
|
|
Property inappproductsinsertresponse : TInappproductsInsertResponse Index 8 Read Finappproductsinsertresponse Write Setinappproductsinsertresponse;
|
|
Property inappproductsupdateresponse : TInappproductsUpdateResponse Index 16 Read Finappproductsupdateresponse Write Setinappproductsupdateresponse;
|
|
end;
|
|
TInappproductsBatchResponseEntryClass = Class of TInappproductsBatchResponseEntry;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsInsertRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsInsertRequest = Class(TGoogleBaseObject)
|
|
Private
|
|
Finappproduct : TInAppProduct;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
|
|
Public
|
|
Published
|
|
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
|
|
end;
|
|
TInappproductsInsertRequestClass = Class of TInappproductsInsertRequest;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsInsertResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsInsertResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Finappproduct : TInAppProduct;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
|
|
Public
|
|
Published
|
|
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
|
|
end;
|
|
TInappproductsInsertResponseClass = Class of TInappproductsInsertResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Finappproduct : TInappproductsListResponseTypeinappproductArray;
|
|
Fkind : String;
|
|
FpageInfo : TPageInfo;
|
|
FtokenPagination : TTokenPagination;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setinappproduct(AIndex : Integer; const AValue : TInappproductsListResponseTypeinappproductArray); virtual;
|
|
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
|
|
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property inappproduct : TInappproductsListResponseTypeinappproductArray Index 0 Read Finappproduct Write Setinappproduct;
|
|
Property kind : String Index 8 Read Fkind Write Setkind;
|
|
Property pageInfo : TPageInfo Index 16 Read FpageInfo Write SetpageInfo;
|
|
Property tokenPagination : TTokenPagination Index 24 Read FtokenPagination Write SettokenPagination;
|
|
end;
|
|
TInappproductsListResponseClass = Class of TInappproductsListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsUpdateRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsUpdateRequest = Class(TGoogleBaseObject)
|
|
Private
|
|
Finappproduct : TInAppProduct;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
|
|
Public
|
|
Published
|
|
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
|
|
end;
|
|
TInappproductsUpdateRequestClass = Class of TInappproductsUpdateRequest;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsUpdateResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TInappproductsUpdateResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Finappproduct : TInAppProduct;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
|
|
Public
|
|
Published
|
|
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
|
|
end;
|
|
TInappproductsUpdateResponseClass = Class of TInappproductsUpdateResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TListing
|
|
--------------------------------------------------------------------}
|
|
|
|
TListing = Class(TGoogleBaseObject)
|
|
Private
|
|
FfullDescription : String;
|
|
Flanguage : String;
|
|
FshortDescription : String;
|
|
Ftitle : String;
|
|
Fvideo : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetfullDescription(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetshortDescription(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setvideo(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property fullDescription : String Index 0 Read FfullDescription Write SetfullDescription;
|
|
Property language : String Index 8 Read Flanguage Write Setlanguage;
|
|
Property shortDescription : String Index 16 Read FshortDescription Write SetshortDescription;
|
|
Property title : String Index 24 Read Ftitle Write Settitle;
|
|
Property video : String Index 32 Read Fvideo Write Setvideo;
|
|
end;
|
|
TListingClass = Class of TListing;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TListingsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TListingsListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fkind : String;
|
|
Flistings : TListingsListResponseTypelistingsArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setlistings(AIndex : Integer; const AValue : TListingsListResponseTypelistingsArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property kind : String Index 0 Read Fkind Write Setkind;
|
|
Property listings : TListingsListResponseTypelistingsArray Index 8 Read Flistings Write Setlistings;
|
|
end;
|
|
TListingsListResponseClass = Class of TListingsListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TMonthDay
|
|
--------------------------------------------------------------------}
|
|
|
|
TMonthDay = Class(TGoogleBaseObject)
|
|
Private
|
|
Fday : integer;
|
|
Fmonth : integer;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setday(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure Setmonth(AIndex : Integer; const AValue : integer); virtual;
|
|
Public
|
|
Published
|
|
Property day : integer Index 0 Read Fday Write Setday;
|
|
Property month : integer Index 8 Read Fmonth Write Setmonth;
|
|
end;
|
|
TMonthDayClass = Class of TMonthDay;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPageInfo
|
|
--------------------------------------------------------------------}
|
|
|
|
TPageInfo = Class(TGoogleBaseObject)
|
|
Private
|
|
FresultPerPage : integer;
|
|
FstartIndex : integer;
|
|
FtotalResults : integer;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetresultPerPage(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
|
|
Public
|
|
Published
|
|
Property resultPerPage : integer Index 0 Read FresultPerPage Write SetresultPerPage;
|
|
Property startIndex : integer Index 8 Read FstartIndex Write SetstartIndex;
|
|
Property totalResults : integer Index 16 Read FtotalResults Write SettotalResults;
|
|
end;
|
|
TPageInfoClass = Class of TPageInfo;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPrice
|
|
--------------------------------------------------------------------}
|
|
|
|
TPrice = Class(TGoogleBaseObject)
|
|
Private
|
|
Fcurrency : String;
|
|
FpriceMicros : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetpriceMicros(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property currency : String Index 0 Read Fcurrency Write Setcurrency;
|
|
Property priceMicros : String Index 8 Read FpriceMicros Write SetpriceMicros;
|
|
end;
|
|
TPriceClass = Class of TPrice;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TProductPurchase
|
|
--------------------------------------------------------------------}
|
|
|
|
TProductPurchase = Class(TGoogleBaseObject)
|
|
Private
|
|
FconsumptionState : integer;
|
|
FdeveloperPayload : String;
|
|
Fkind : String;
|
|
FpurchaseState : integer;
|
|
FpurchaseTimeMillis : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetconsumptionState(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetdeveloperPayload(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetpurchaseState(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetpurchaseTimeMillis(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property consumptionState : integer Index 0 Read FconsumptionState Write SetconsumptionState;
|
|
Property developerPayload : String Index 8 Read FdeveloperPayload Write SetdeveloperPayload;
|
|
Property kind : String Index 16 Read Fkind Write Setkind;
|
|
Property purchaseState : integer Index 24 Read FpurchaseState Write SetpurchaseState;
|
|
Property purchaseTimeMillis : String Index 32 Read FpurchaseTimeMillis Write SetpurchaseTimeMillis;
|
|
end;
|
|
TProductPurchaseClass = Class of TProductPurchase;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TProrate
|
|
--------------------------------------------------------------------}
|
|
|
|
TProrate = Class(TGoogleBaseObject)
|
|
Private
|
|
FdefaultPrice : TPrice;
|
|
Fstart : TMonthDay;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetdefaultPrice(AIndex : Integer; const AValue : TPrice); virtual;
|
|
Procedure Setstart(AIndex : Integer; const AValue : TMonthDay); virtual;
|
|
Public
|
|
Published
|
|
Property defaultPrice : TPrice Index 0 Read FdefaultPrice Write SetdefaultPrice;
|
|
Property start : TMonthDay Index 8 Read Fstart Write Setstart;
|
|
end;
|
|
TProrateClass = Class of TProrate;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReview
|
|
--------------------------------------------------------------------}
|
|
|
|
TReview = Class(TGoogleBaseObject)
|
|
Private
|
|
FauthorName : String;
|
|
Fcomments : TReviewTypecommentsArray;
|
|
FreviewId : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetauthorName(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setcomments(AIndex : Integer; const AValue : TReviewTypecommentsArray); virtual;
|
|
Procedure SetreviewId(AIndex : Integer; const AValue : String); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property authorName : String Index 0 Read FauthorName Write SetauthorName;
|
|
Property comments : TReviewTypecommentsArray Index 8 Read Fcomments Write Setcomments;
|
|
Property reviewId : String Index 16 Read FreviewId Write SetreviewId;
|
|
end;
|
|
TReviewClass = Class of TReview;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewReplyResult
|
|
--------------------------------------------------------------------}
|
|
|
|
TReviewReplyResult = Class(TGoogleBaseObject)
|
|
Private
|
|
FlastEdited : TTimestamp;
|
|
FreplyText : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetlastEdited(AIndex : Integer; const AValue : TTimestamp); virtual;
|
|
Procedure SetreplyText(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property lastEdited : TTimestamp Index 0 Read FlastEdited Write SetlastEdited;
|
|
Property replyText : String Index 8 Read FreplyText Write SetreplyText;
|
|
end;
|
|
TReviewReplyResultClass = Class of TReviewReplyResult;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TReviewsListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
FpageInfo : TPageInfo;
|
|
Freviews : TReviewsListResponseTypereviewsArray;
|
|
FtokenPagination : TTokenPagination;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
|
|
Procedure Setreviews(AIndex : Integer; const AValue : TReviewsListResponseTypereviewsArray); virtual;
|
|
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property pageInfo : TPageInfo Index 0 Read FpageInfo Write SetpageInfo;
|
|
Property reviews : TReviewsListResponseTypereviewsArray Index 8 Read Freviews Write Setreviews;
|
|
Property tokenPagination : TTokenPagination Index 16 Read FtokenPagination Write SettokenPagination;
|
|
end;
|
|
TReviewsListResponseClass = Class of TReviewsListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsReplyRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
TReviewsReplyRequest = Class(TGoogleBaseObject)
|
|
Private
|
|
FreplyText : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetreplyText(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property replyText : String Index 0 Read FreplyText Write SetreplyText;
|
|
end;
|
|
TReviewsReplyRequestClass = Class of TReviewsReplyRequest;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsReplyResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TReviewsReplyResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fresult : TReviewReplyResult;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setresult(AIndex : Integer; const AValue : TReviewReplyResult); virtual;
|
|
Public
|
|
Published
|
|
Property result : TReviewReplyResult Index 0 Read Fresult Write Setresult;
|
|
end;
|
|
TReviewsReplyResponseClass = Class of TReviewsReplyResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSeason
|
|
--------------------------------------------------------------------}
|
|
|
|
TSeason = Class(TGoogleBaseObject)
|
|
Private
|
|
F_end : TMonthDay;
|
|
Fprorations : TSeasonTypeprorationsArray;
|
|
Fstart : TMonthDay;
|
|
Protected
|
|
Class Function ExportPropertyName(Const AName : String) : string; override;
|
|
//Property setters
|
|
Procedure Set_end(AIndex : Integer; const AValue : TMonthDay); virtual;
|
|
Procedure Setprorations(AIndex : Integer; const AValue : TSeasonTypeprorationsArray); virtual;
|
|
Procedure Setstart(AIndex : Integer; const AValue : TMonthDay); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property _end : TMonthDay Index 0 Read F_end Write Set_end;
|
|
Property prorations : TSeasonTypeprorationsArray Index 8 Read Fprorations Write Setprorations;
|
|
Property start : TMonthDay Index 16 Read Fstart Write Setstart;
|
|
end;
|
|
TSeasonClass = Class of TSeason;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionDeferralInfo
|
|
--------------------------------------------------------------------}
|
|
|
|
TSubscriptionDeferralInfo = Class(TGoogleBaseObject)
|
|
Private
|
|
FdesiredExpiryTimeMillis : String;
|
|
FexpectedExpiryTimeMillis : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetdesiredExpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetexpectedExpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property desiredExpiryTimeMillis : String Index 0 Read FdesiredExpiryTimeMillis Write SetdesiredExpiryTimeMillis;
|
|
Property expectedExpiryTimeMillis : String Index 8 Read FexpectedExpiryTimeMillis Write SetexpectedExpiryTimeMillis;
|
|
end;
|
|
TSubscriptionDeferralInfoClass = Class of TSubscriptionDeferralInfo;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionPurchase
|
|
--------------------------------------------------------------------}
|
|
|
|
TSubscriptionPurchase = Class(TGoogleBaseObject)
|
|
Private
|
|
FautoRenewing : boolean;
|
|
FcancelReason : integer;
|
|
FcountryCode : String;
|
|
FdeveloperPayload : String;
|
|
FexpiryTimeMillis : String;
|
|
Fkind : String;
|
|
FpaymentState : integer;
|
|
FpriceAmountMicros : String;
|
|
FpriceCurrencyCode : String;
|
|
FstartTimeMillis : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetautoRenewing(AIndex : Integer; const AValue : boolean); virtual;
|
|
Procedure SetcancelReason(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetcountryCode(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetdeveloperPayload(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetexpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetpaymentState(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetpriceAmountMicros(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetpriceCurrencyCode(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetstartTimeMillis(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property autoRenewing : boolean Index 0 Read FautoRenewing Write SetautoRenewing;
|
|
Property cancelReason : integer Index 8 Read FcancelReason Write SetcancelReason;
|
|
Property countryCode : String Index 16 Read FcountryCode Write SetcountryCode;
|
|
Property developerPayload : String Index 24 Read FdeveloperPayload Write SetdeveloperPayload;
|
|
Property expiryTimeMillis : String Index 32 Read FexpiryTimeMillis Write SetexpiryTimeMillis;
|
|
Property kind : String Index 40 Read Fkind Write Setkind;
|
|
Property paymentState : integer Index 48 Read FpaymentState Write SetpaymentState;
|
|
Property priceAmountMicros : String Index 56 Read FpriceAmountMicros Write SetpriceAmountMicros;
|
|
Property priceCurrencyCode : String Index 64 Read FpriceCurrencyCode Write SetpriceCurrencyCode;
|
|
Property startTimeMillis : String Index 72 Read FstartTimeMillis Write SetstartTimeMillis;
|
|
end;
|
|
TSubscriptionPurchaseClass = Class of TSubscriptionPurchase;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionPurchasesDeferRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
TSubscriptionPurchasesDeferRequest = Class(TGoogleBaseObject)
|
|
Private
|
|
FdeferralInfo : TSubscriptionDeferralInfo;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetdeferralInfo(AIndex : Integer; const AValue : TSubscriptionDeferralInfo); virtual;
|
|
Public
|
|
Published
|
|
Property deferralInfo : TSubscriptionDeferralInfo Index 0 Read FdeferralInfo Write SetdeferralInfo;
|
|
end;
|
|
TSubscriptionPurchasesDeferRequestClass = Class of TSubscriptionPurchasesDeferRequest;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionPurchasesDeferResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TSubscriptionPurchasesDeferResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
FnewExpiryTimeMillis : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetnewExpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property newExpiryTimeMillis : String Index 0 Read FnewExpiryTimeMillis Write SetnewExpiryTimeMillis;
|
|
end;
|
|
TSubscriptionPurchasesDeferResponseClass = Class of TSubscriptionPurchasesDeferResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTesters
|
|
--------------------------------------------------------------------}
|
|
|
|
TTesters = Class(TGoogleBaseObject)
|
|
Private
|
|
FgoogleGroups : TStringArray;
|
|
FgooglePlusCommunities : TStringArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetgoogleGroups(AIndex : Integer; const AValue : TStringArray); virtual;
|
|
Procedure SetgooglePlusCommunities(AIndex : Integer; const AValue : TStringArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property googleGroups : TStringArray Index 0 Read FgoogleGroups Write SetgoogleGroups;
|
|
Property googlePlusCommunities : TStringArray Index 8 Read FgooglePlusCommunities Write SetgooglePlusCommunities;
|
|
end;
|
|
TTestersClass = Class of TTesters;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTimestamp
|
|
--------------------------------------------------------------------}
|
|
|
|
TTimestamp = Class(TGoogleBaseObject)
|
|
Private
|
|
Fnanos : integer;
|
|
Fseconds : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure Setseconds(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property nanos : integer Index 0 Read Fnanos Write Setnanos;
|
|
Property seconds : String Index 8 Read Fseconds Write Setseconds;
|
|
end;
|
|
TTimestampClass = Class of TTimestamp;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTokenPagination
|
|
--------------------------------------------------------------------}
|
|
|
|
TTokenPagination = Class(TGoogleBaseObject)
|
|
Private
|
|
FnextPageToken : String;
|
|
FpreviousPageToken : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetpreviousPageToken(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
|
|
Property previousPageToken : String Index 8 Read FpreviousPageToken Write SetpreviousPageToken;
|
|
end;
|
|
TTokenPaginationClass = Class of TTokenPagination;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTrack
|
|
--------------------------------------------------------------------}
|
|
|
|
TTrack = Class(TGoogleBaseObject)
|
|
Private
|
|
Ftrack : String;
|
|
FuserFraction : double;
|
|
FversionCodes : TintegerArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure Settrack(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetuserFraction(AIndex : Integer; const AValue : double); virtual;
|
|
Procedure SetversionCodes(AIndex : Integer; const AValue : TintegerArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property track : String Index 0 Read Ftrack Write Settrack;
|
|
Property userFraction : double Index 8 Read FuserFraction Write SetuserFraction;
|
|
Property versionCodes : TintegerArray Index 16 Read FversionCodes Write SetversionCodes;
|
|
end;
|
|
TTrackClass = Class of TTrack;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTracksListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
TTracksListResponse = Class(TGoogleBaseObject)
|
|
Private
|
|
Fkind : String;
|
|
Ftracks : TTracksListResponseTypetracksArray;
|
|
Protected
|
|
//Property setters
|
|
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Settracks(AIndex : Integer; const AValue : TTracksListResponseTypetracksArray); virtual;
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
|
|
{$ENDIF VER2_6}
|
|
Public
|
|
Published
|
|
Property kind : String Index 0 Read Fkind Write Setkind;
|
|
Property tracks : TTracksListResponseTypetracksArray Index 8 Read Ftracks Write Settracks;
|
|
end;
|
|
TTracksListResponseClass = Class of TTracksListResponse;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TUserComment
|
|
--------------------------------------------------------------------}
|
|
|
|
TUserComment = Class(TGoogleBaseObject)
|
|
Private
|
|
FandroidOsVersion : integer;
|
|
FappVersionCode : integer;
|
|
FappVersionName : String;
|
|
Fdevice : String;
|
|
FlastModified : TTimestamp;
|
|
FreviewerLanguage : String;
|
|
FstarRating : integer;
|
|
Ftext : String;
|
|
Protected
|
|
//Property setters
|
|
Procedure SetandroidOsVersion(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetappVersionCode(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure SetappVersionName(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure Setdevice(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetlastModified(AIndex : Integer; const AValue : TTimestamp); virtual;
|
|
Procedure SetreviewerLanguage(AIndex : Integer; const AValue : String); virtual;
|
|
Procedure SetstarRating(AIndex : Integer; const AValue : integer); virtual;
|
|
Procedure Settext(AIndex : Integer; const AValue : String); virtual;
|
|
Public
|
|
Published
|
|
Property androidOsVersion : integer Index 0 Read FandroidOsVersion Write SetandroidOsVersion;
|
|
Property appVersionCode : integer Index 8 Read FappVersionCode Write SetappVersionCode;
|
|
Property appVersionName : String Index 16 Read FappVersionName Write SetappVersionName;
|
|
Property device : String Index 24 Read Fdevice Write Setdevice;
|
|
Property lastModified : TTimestamp Index 32 Read FlastModified Write SetlastModified;
|
|
Property reviewerLanguage : String Index 40 Read FreviewerLanguage Write SetreviewerLanguage;
|
|
Property starRating : integer Index 48 Read FstarRating Write SetstarRating;
|
|
Property text : String Index 56 Read Ftext Write Settext;
|
|
end;
|
|
TUserCommentClass = Class of TUserComment;
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsApklistingsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsApklistingsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Procedure Delete(apkVersionCode: integer; editId: string; language: string; packageName: string);
|
|
Procedure Deleteall(apkVersionCode: integer; editId: string; packageName: string);
|
|
Function Get(apkVersionCode: integer; editId: string; language: string; packageName: string) : TApkListing;
|
|
Function List(apkVersionCode: integer; editId: string; packageName: string) : TApkListingsListResponse;
|
|
Function Patch(apkVersionCode: integer; editId: string; language: string; packageName: string; aApkListing : TApkListing) : TApkListing;
|
|
Function Update(apkVersionCode: integer; editId: string; language: string; packageName: string; aApkListing : TApkListing) : TApkListing;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsApksResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsApksResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Addexternallyhosted(editId: string; packageName: string; aApksAddExternallyHostedRequest : TApksAddExternallyHostedRequest) : TApksAddExternallyHostedResponse;
|
|
Function List(editId: string; packageName: string) : TApksListResponse;
|
|
Function Upload(editId: string; packageName: string) : TApk;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsDetailsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsDetailsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Get(editId: string; packageName: string) : TAppDetails;
|
|
Function Patch(editId: string; packageName: string; aAppDetails : TAppDetails) : TAppDetails;
|
|
Function Update(editId: string; packageName: string; aAppDetails : TAppDetails) : TAppDetails;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsExpansionfilesResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsExpansionfilesResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Get(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string) : TExpansionFile;
|
|
Function Patch(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string; aExpansionFile : TExpansionFile) : TExpansionFile;
|
|
Function Update(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string; aExpansionFile : TExpansionFile) : TExpansionFile;
|
|
Function Upload(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string) : TExpansionFilesUploadResponse;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsImagesResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsImagesResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Procedure Delete(editId: string; imageId: string; imageType: string; language: string; packageName: string);
|
|
Function Deleteall(editId: string; imageType: string; language: string; packageName: string) : TImagesDeleteAllResponse;
|
|
Function List(editId: string; imageType: string; language: string; packageName: string) : TImagesListResponse;
|
|
Function Upload(editId: string; imageType: string; language: string; packageName: string) : TImagesUploadResponse;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsListingsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsListingsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Procedure Delete(editId: string; language: string; packageName: string);
|
|
Procedure Deleteall(editId: string; packageName: string);
|
|
Function Get(editId: string; language: string; packageName: string) : TListing;
|
|
Function List(editId: string; packageName: string) : TListingsListResponse;
|
|
Function Patch(editId: string; language: string; packageName: string; aListing : TListing) : TListing;
|
|
Function Update(editId: string; language: string; packageName: string; aListing : TListing) : TListing;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsTestersResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsTestersResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Get(editId: string; packageName: string; track: string) : TTesters;
|
|
Function Patch(editId: string; packageName: string; track: string; aTesters : TTesters) : TTesters;
|
|
Function Update(editId: string; packageName: string; track: string; aTesters : TTesters) : TTesters;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsTracksResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsTracksResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Get(editId: string; packageName: string; track: string) : TTrack;
|
|
Function List(editId: string; packageName: string) : TTracksListResponse;
|
|
Function Patch(editId: string; packageName: string; track: string; aTrack : TTrack) : TTrack;
|
|
Function Update(editId: string; packageName: string; track: string; aTrack : TTrack) : TTrack;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TEditsResource = Class(TGoogleResource)
|
|
Private
|
|
FApklistingsInstance : TEditsApklistingsResource;
|
|
FApksInstance : TEditsApksResource;
|
|
FDetailsInstance : TEditsDetailsResource;
|
|
FExpansionfilesInstance : TEditsExpansionfilesResource;
|
|
FImagesInstance : TEditsImagesResource;
|
|
FListingsInstance : TEditsListingsResource;
|
|
FTestersInstance : TEditsTestersResource;
|
|
FTracksInstance : TEditsTracksResource;
|
|
Function GetApklistingsInstance : TEditsApklistingsResource;virtual;
|
|
Function GetApksInstance : TEditsApksResource;virtual;
|
|
Function GetDetailsInstance : TEditsDetailsResource;virtual;
|
|
Function GetExpansionfilesInstance : TEditsExpansionfilesResource;virtual;
|
|
Function GetImagesInstance : TEditsImagesResource;virtual;
|
|
Function GetListingsInstance : TEditsListingsResource;virtual;
|
|
Function GetTestersInstance : TEditsTestersResource;virtual;
|
|
Function GetTracksInstance : TEditsTracksResource;virtual;
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Commit(editId: string; packageName: string) : TAppEdit;
|
|
Procedure Delete(editId: string; packageName: string);
|
|
Function Get(editId: string; packageName: string) : TAppEdit;
|
|
Function Insert(packageName: string; aAppEdit : TAppEdit) : TAppEdit;
|
|
Function Validate(editId: string; packageName: string) : TAppEdit;
|
|
Function CreateApklistingsResource(AOwner : TComponent) : TEditsApklistingsResource;virtual;overload;
|
|
Function CreateApklistingsResource : TEditsApklistingsResource;virtual;overload;
|
|
Function CreateApksResource(AOwner : TComponent) : TEditsApksResource;virtual;overload;
|
|
Function CreateApksResource : TEditsApksResource;virtual;overload;
|
|
Function CreateDetailsResource(AOwner : TComponent) : TEditsDetailsResource;virtual;overload;
|
|
Function CreateDetailsResource : TEditsDetailsResource;virtual;overload;
|
|
Function CreateExpansionfilesResource(AOwner : TComponent) : TEditsExpansionfilesResource;virtual;overload;
|
|
Function CreateExpansionfilesResource : TEditsExpansionfilesResource;virtual;overload;
|
|
Function CreateImagesResource(AOwner : TComponent) : TEditsImagesResource;virtual;overload;
|
|
Function CreateImagesResource : TEditsImagesResource;virtual;overload;
|
|
Function CreateListingsResource(AOwner : TComponent) : TEditsListingsResource;virtual;overload;
|
|
Function CreateListingsResource : TEditsListingsResource;virtual;overload;
|
|
Function CreateTestersResource(AOwner : TComponent) : TEditsTestersResource;virtual;overload;
|
|
Function CreateTestersResource : TEditsTestersResource;virtual;overload;
|
|
Function CreateTracksResource(AOwner : TComponent) : TEditsTracksResource;virtual;overload;
|
|
Function CreateTracksResource : TEditsTracksResource;virtual;overload;
|
|
Property ApklistingsResource : TEditsApklistingsResource Read GetApklistingsInstance;
|
|
Property ApksResource : TEditsApksResource Read GetApksInstance;
|
|
Property DetailsResource : TEditsDetailsResource Read GetDetailsInstance;
|
|
Property ExpansionfilesResource : TEditsExpansionfilesResource Read GetExpansionfilesInstance;
|
|
Property ImagesResource : TEditsImagesResource Read GetImagesInstance;
|
|
Property ListingsResource : TEditsListingsResource Read GetListingsInstance;
|
|
Property TestersResource : TEditsTestersResource Read GetTestersInstance;
|
|
Property TracksResource : TEditsTracksResource Read GetTracksInstance;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEntitlementsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
//Optional query Options for TEntitlementsResource, method List
|
|
|
|
TEntitlementsListOptions = Record
|
|
maxResults : integer;
|
|
productId : String;
|
|
startIndex : integer;
|
|
token : String;
|
|
end;
|
|
|
|
TEntitlementsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function List(packageName: string; AQuery : string = '') : TEntitlementsListResponse;
|
|
Function List(packageName: string; AQuery : TEntitlementslistOptions) : TEntitlementsListResponse;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
//Optional query Options for TInappproductsResource, method Insert
|
|
|
|
TInappproductsInsertOptions = Record
|
|
autoConvertMissingPrices : boolean;
|
|
end;
|
|
|
|
|
|
//Optional query Options for TInappproductsResource, method List
|
|
|
|
TInappproductsListOptions = Record
|
|
maxResults : integer;
|
|
startIndex : integer;
|
|
token : String;
|
|
end;
|
|
|
|
|
|
//Optional query Options for TInappproductsResource, method Patch
|
|
|
|
TInappproductsPatchOptions = Record
|
|
autoConvertMissingPrices : boolean;
|
|
end;
|
|
|
|
|
|
//Optional query Options for TInappproductsResource, method Update
|
|
|
|
TInappproductsUpdateOptions = Record
|
|
autoConvertMissingPrices : boolean;
|
|
end;
|
|
|
|
TInappproductsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Batch(aInappproductsBatchRequest : TInappproductsBatchRequest) : TInappproductsBatchResponse;
|
|
Procedure Delete(packageName: string; sku: string);
|
|
Function Get(packageName: string; sku: string) : TInAppProduct;
|
|
Function Insert(packageName: string; aInAppProduct : TInAppProduct; AQuery : string = '') : TInAppProduct;
|
|
Function Insert(packageName: string; aInAppProduct : TInAppProduct; AQuery : TInappproductsinsertOptions) : TInAppProduct;
|
|
Function List(packageName: string; AQuery : string = '') : TInappproductsListResponse;
|
|
Function List(packageName: string; AQuery : TInappproductslistOptions) : TInappproductsListResponse;
|
|
Function Patch(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : string = '') : TInAppProduct;
|
|
Function Patch(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : TInappproductspatchOptions) : TInAppProduct;
|
|
Function Update(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : string = '') : TInAppProduct;
|
|
Function Update(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : TInappproductsupdateOptions) : TInAppProduct;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPurchasesProductsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TPurchasesProductsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Get(packageName: string; productId: string; token: string) : TProductPurchase;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPurchasesSubscriptionsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TPurchasesSubscriptionsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Procedure Cancel(packageName: string; subscriptionId: string; token: string);
|
|
Function Defer(packageName: string; subscriptionId: string; token: string; aSubscriptionPurchasesDeferRequest : TSubscriptionPurchasesDeferRequest) : TSubscriptionPurchasesDeferResponse;
|
|
Function Get(packageName: string; subscriptionId: string; token: string) : TSubscriptionPurchase;
|
|
Procedure Refund(packageName: string; subscriptionId: string; token: string);
|
|
Procedure Revoke(packageName: string; subscriptionId: string; token: string);
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPurchasesResource
|
|
--------------------------------------------------------------------}
|
|
|
|
TPurchasesResource = Class(TGoogleResource)
|
|
Private
|
|
FProductsInstance : TPurchasesProductsResource;
|
|
FSubscriptionsInstance : TPurchasesSubscriptionsResource;
|
|
Function GetProductsInstance : TPurchasesProductsResource;virtual;
|
|
Function GetSubscriptionsInstance : TPurchasesSubscriptionsResource;virtual;
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function CreateProductsResource(AOwner : TComponent) : TPurchasesProductsResource;virtual;overload;
|
|
Function CreateProductsResource : TPurchasesProductsResource;virtual;overload;
|
|
Function CreateSubscriptionsResource(AOwner : TComponent) : TPurchasesSubscriptionsResource;virtual;overload;
|
|
Function CreateSubscriptionsResource : TPurchasesSubscriptionsResource;virtual;overload;
|
|
Property ProductsResource : TPurchasesProductsResource Read GetProductsInstance;
|
|
Property SubscriptionsResource : TPurchasesSubscriptionsResource Read GetSubscriptionsInstance;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
//Optional query Options for TReviewsResource, method List
|
|
|
|
TReviewsListOptions = Record
|
|
maxResults : integer;
|
|
startIndex : integer;
|
|
token : String;
|
|
end;
|
|
|
|
TReviewsResource = Class(TGoogleResource)
|
|
Public
|
|
Class Function ResourceName : String; override;
|
|
Class Function DefaultAPI : TGoogleAPIClass; override;
|
|
Function Get(packageName: string; reviewId: string) : TReview;
|
|
Function List(packageName: string; AQuery : string = '') : TReviewsListResponse;
|
|
Function List(packageName: string; AQuery : TReviewslistOptions) : TReviewsListResponse;
|
|
Function Reply(packageName: string; reviewId: string; aReviewsReplyRequest : TReviewsReplyRequest) : TReviewsReplyResponse;
|
|
end;
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TAndroidpublisherAPI
|
|
--------------------------------------------------------------------}
|
|
|
|
TAndroidpublisherAPI = Class(TGoogleAPI)
|
|
Private
|
|
FEditsApklistingsInstance : TEditsApklistingsResource;
|
|
FEditsApksInstance : TEditsApksResource;
|
|
FEditsDetailsInstance : TEditsDetailsResource;
|
|
FEditsExpansionfilesInstance : TEditsExpansionfilesResource;
|
|
FEditsImagesInstance : TEditsImagesResource;
|
|
FEditsListingsInstance : TEditsListingsResource;
|
|
FEditsTestersInstance : TEditsTestersResource;
|
|
FEditsTracksInstance : TEditsTracksResource;
|
|
FEditsInstance : TEditsResource;
|
|
FEntitlementsInstance : TEntitlementsResource;
|
|
FInappproductsInstance : TInappproductsResource;
|
|
FPurchasesProductsInstance : TPurchasesProductsResource;
|
|
FPurchasesSubscriptionsInstance : TPurchasesSubscriptionsResource;
|
|
FPurchasesInstance : TPurchasesResource;
|
|
FReviewsInstance : TReviewsResource;
|
|
Function GetEditsApklistingsInstance : TEditsApklistingsResource;virtual;
|
|
Function GetEditsApksInstance : TEditsApksResource;virtual;
|
|
Function GetEditsDetailsInstance : TEditsDetailsResource;virtual;
|
|
Function GetEditsExpansionfilesInstance : TEditsExpansionfilesResource;virtual;
|
|
Function GetEditsImagesInstance : TEditsImagesResource;virtual;
|
|
Function GetEditsListingsInstance : TEditsListingsResource;virtual;
|
|
Function GetEditsTestersInstance : TEditsTestersResource;virtual;
|
|
Function GetEditsTracksInstance : TEditsTracksResource;virtual;
|
|
Function GetEditsInstance : TEditsResource;virtual;
|
|
Function GetEntitlementsInstance : TEntitlementsResource;virtual;
|
|
Function GetInappproductsInstance : TInappproductsResource;virtual;
|
|
Function GetPurchasesProductsInstance : TPurchasesProductsResource;virtual;
|
|
Function GetPurchasesSubscriptionsInstance : TPurchasesSubscriptionsResource;virtual;
|
|
Function GetPurchasesInstance : TPurchasesResource;virtual;
|
|
Function GetReviewsInstance : TReviewsResource;virtual;
|
|
Public
|
|
//Override class functions with API info
|
|
Class Function APIName : String; override;
|
|
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 CreateEditsApklistingsResource(AOwner : TComponent) : TEditsApklistingsResource;virtual;overload;
|
|
Function CreateEditsApklistingsResource : TEditsApklistingsResource;virtual;overload;
|
|
Function CreateEditsApksResource(AOwner : TComponent) : TEditsApksResource;virtual;overload;
|
|
Function CreateEditsApksResource : TEditsApksResource;virtual;overload;
|
|
Function CreateEditsDetailsResource(AOwner : TComponent) : TEditsDetailsResource;virtual;overload;
|
|
Function CreateEditsDetailsResource : TEditsDetailsResource;virtual;overload;
|
|
Function CreateEditsExpansionfilesResource(AOwner : TComponent) : TEditsExpansionfilesResource;virtual;overload;
|
|
Function CreateEditsExpansionfilesResource : TEditsExpansionfilesResource;virtual;overload;
|
|
Function CreateEditsImagesResource(AOwner : TComponent) : TEditsImagesResource;virtual;overload;
|
|
Function CreateEditsImagesResource : TEditsImagesResource;virtual;overload;
|
|
Function CreateEditsListingsResource(AOwner : TComponent) : TEditsListingsResource;virtual;overload;
|
|
Function CreateEditsListingsResource : TEditsListingsResource;virtual;overload;
|
|
Function CreateEditsTestersResource(AOwner : TComponent) : TEditsTestersResource;virtual;overload;
|
|
Function CreateEditsTestersResource : TEditsTestersResource;virtual;overload;
|
|
Function CreateEditsTracksResource(AOwner : TComponent) : TEditsTracksResource;virtual;overload;
|
|
Function CreateEditsTracksResource : TEditsTracksResource;virtual;overload;
|
|
Function CreateEditsResource(AOwner : TComponent) : TEditsResource;virtual;overload;
|
|
Function CreateEditsResource : TEditsResource;virtual;overload;
|
|
Function CreateEntitlementsResource(AOwner : TComponent) : TEntitlementsResource;virtual;overload;
|
|
Function CreateEntitlementsResource : TEntitlementsResource;virtual;overload;
|
|
Function CreateInappproductsResource(AOwner : TComponent) : TInappproductsResource;virtual;overload;
|
|
Function CreateInappproductsResource : TInappproductsResource;virtual;overload;
|
|
Function CreatePurchasesProductsResource(AOwner : TComponent) : TPurchasesProductsResource;virtual;overload;
|
|
Function CreatePurchasesProductsResource : TPurchasesProductsResource;virtual;overload;
|
|
Function CreatePurchasesSubscriptionsResource(AOwner : TComponent) : TPurchasesSubscriptionsResource;virtual;overload;
|
|
Function CreatePurchasesSubscriptionsResource : TPurchasesSubscriptionsResource;virtual;overload;
|
|
Function CreatePurchasesResource(AOwner : TComponent) : TPurchasesResource;virtual;overload;
|
|
Function CreatePurchasesResource : TPurchasesResource;virtual;overload;
|
|
Function CreateReviewsResource(AOwner : TComponent) : TReviewsResource;virtual;overload;
|
|
Function CreateReviewsResource : TReviewsResource;virtual;overload;
|
|
//Add default on-demand instances for resources
|
|
Property EditsApklistingsResource : TEditsApklistingsResource Read GetEditsApklistingsInstance;
|
|
Property EditsApksResource : TEditsApksResource Read GetEditsApksInstance;
|
|
Property EditsDetailsResource : TEditsDetailsResource Read GetEditsDetailsInstance;
|
|
Property EditsExpansionfilesResource : TEditsExpansionfilesResource Read GetEditsExpansionfilesInstance;
|
|
Property EditsImagesResource : TEditsImagesResource Read GetEditsImagesInstance;
|
|
Property EditsListingsResource : TEditsListingsResource Read GetEditsListingsInstance;
|
|
Property EditsTestersResource : TEditsTestersResource Read GetEditsTestersInstance;
|
|
Property EditsTracksResource : TEditsTracksResource Read GetEditsTracksInstance;
|
|
Property EditsResource : TEditsResource Read GetEditsInstance;
|
|
Property EntitlementsResource : TEntitlementsResource Read GetEntitlementsInstance;
|
|
Property InappproductsResource : TInappproductsResource Read GetInappproductsInstance;
|
|
Property PurchasesProductsResource : TPurchasesProductsResource Read GetPurchasesProductsInstance;
|
|
Property PurchasesSubscriptionsResource : TPurchasesSubscriptionsResource Read GetPurchasesSubscriptionsInstance;
|
|
Property PurchasesResource : TPurchasesResource Read GetPurchasesInstance;
|
|
Property ReviewsResource : TReviewsResource Read GetReviewsInstance;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApk
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TApk.Setbinary(AIndex : Integer; const AValue : TApkBinary);
|
|
|
|
begin
|
|
If (Fbinary=AValue) then exit;
|
|
Fbinary:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TApk.SetversionCode(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FversionCode=AValue) then exit;
|
|
FversionCode:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApkBinary
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TApkBinary.Setsha1(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fsha1=AValue) then exit;
|
|
Fsha1:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApkListing
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TApkListing.Setlanguage(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Flanguage=AValue) then exit;
|
|
Flanguage:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TApkListing.SetrecentChanges(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FrecentChanges=AValue) then exit;
|
|
FrecentChanges:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApkListingsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TApkListingsListResponse.Setkind(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fkind=AValue) then exit;
|
|
Fkind:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TApkListingsListResponse.Setlistings(AIndex : Integer; const AValue : TApkListingsListResponseTypelistingsArray);
|
|
|
|
begin
|
|
If (Flistings=AValue) then exit;
|
|
Flistings:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TApkListingsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'listings' : SetLength(Flistings,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApksAddExternallyHostedRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TApksAddExternallyHostedRequest.SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk);
|
|
|
|
begin
|
|
If (FexternallyHostedApk=AValue) then exit;
|
|
FexternallyHostedApk:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApksAddExternallyHostedResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TApksAddExternallyHostedResponse.SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk);
|
|
|
|
begin
|
|
If (FexternallyHostedApk=AValue) then exit;
|
|
FexternallyHostedApk:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TApksListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TApksListResponse.Setapks(AIndex : Integer; const AValue : TApksListResponseTypeapksArray);
|
|
|
|
begin
|
|
If (Fapks=AValue) then exit;
|
|
Fapks:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TApksListResponse.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 TApksListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'apks' : SetLength(Fapks,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TAppDetails
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TAppDetails.SetcontactEmail(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FcontactEmail=AValue) then exit;
|
|
FcontactEmail:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TAppDetails.SetcontactPhone(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FcontactPhone=AValue) then exit;
|
|
FcontactPhone:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TAppDetails.SetcontactWebsite(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FcontactWebsite=AValue) then exit;
|
|
FcontactWebsite:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TAppDetails.SetdefaultLanguage(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FdefaultLanguage=AValue) then exit;
|
|
FdefaultLanguage:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TAppEdit
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TAppEdit.SetexpiryTimeSeconds(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FexpiryTimeSeconds=AValue) then exit;
|
|
FexpiryTimeSeconds:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TAppEdit.Setid(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fid=AValue) then exit;
|
|
Fid:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TComment
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TComment.SetdeveloperComment(AIndex : Integer; const AValue : TDeveloperComment);
|
|
|
|
begin
|
|
If (FdeveloperComment=AValue) then exit;
|
|
FdeveloperComment:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TComment.SetuserComment(AIndex : Integer; const AValue : TUserComment);
|
|
|
|
begin
|
|
If (FuserComment=AValue) then exit;
|
|
FuserComment:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TDeveloperComment
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TDeveloperComment.SetlastModified(AIndex : Integer; const AValue : TTimestamp);
|
|
|
|
begin
|
|
If (FlastModified=AValue) then exit;
|
|
FlastModified:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TDeveloperComment.Settext(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Ftext=AValue) then exit;
|
|
Ftext:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEntitlement
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TEntitlement.Setkind(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fkind=AValue) then exit;
|
|
Fkind:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TEntitlement.SetproductId(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FproductId=AValue) then exit;
|
|
FproductId:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TEntitlement.SetproductType(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FproductType=AValue) then exit;
|
|
FproductType:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TEntitlement.Settoken(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Ftoken=AValue) then exit;
|
|
Ftoken:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEntitlementsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TEntitlementsListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
|
|
|
|
begin
|
|
If (FpageInfo=AValue) then exit;
|
|
FpageInfo:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TEntitlementsListResponse.Setresources(AIndex : Integer; const AValue : TEntitlementsListResponseTyperesourcesArray);
|
|
|
|
begin
|
|
If (Fresources=AValue) then exit;
|
|
Fresources:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TEntitlementsListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
|
|
|
|
begin
|
|
If (FtokenPagination=AValue) then exit;
|
|
FtokenPagination:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TEntitlementsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'resources' : SetLength(Fresources,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExpansionFile
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TExpansionFile.SetfileSize(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FfileSize=AValue) then exit;
|
|
FfileSize:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExpansionFile.SetreferencesVersion(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FreferencesVersion=AValue) then exit;
|
|
FreferencesVersion:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExpansionFilesUploadResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TExpansionFilesUploadResponse.SetexpansionFile(AIndex : Integer; const AValue : TExpansionFile);
|
|
|
|
begin
|
|
If (FexpansionFile=AValue) then exit;
|
|
FexpansionFile:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExternallyHostedApk
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetapplicationLabel(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FapplicationLabel=AValue) then exit;
|
|
FapplicationLabel:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetcertificateBase64s(AIndex : Integer; const AValue : TStringArray);
|
|
|
|
begin
|
|
If (FcertificateBase64s=AValue) then exit;
|
|
FcertificateBase64s:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetexternallyHostedUrl(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FexternallyHostedUrl=AValue) then exit;
|
|
FexternallyHostedUrl:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetfileSha1Base64(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FfileSha1Base64=AValue) then exit;
|
|
FfileSha1Base64:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetfileSha256Base64(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FfileSha256Base64=AValue) then exit;
|
|
FfileSha256Base64:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetfileSize(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FfileSize=AValue) then exit;
|
|
FfileSize:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SeticonBase64(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FiconBase64=AValue) then exit;
|
|
FiconBase64:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetmaximumSdk(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FmaximumSdk=AValue) then exit;
|
|
FmaximumSdk:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetminimumSdk(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FminimumSdk=AValue) then exit;
|
|
FminimumSdk:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetnativeCodes(AIndex : Integer; const AValue : TStringArray);
|
|
|
|
begin
|
|
If (FnativeCodes=AValue) then exit;
|
|
FnativeCodes:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetpackageName(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpackageName=AValue) then exit;
|
|
FpackageName:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetusesFeatures(AIndex : Integer; const AValue : TStringArray);
|
|
|
|
begin
|
|
If (FusesFeatures=AValue) then exit;
|
|
FusesFeatures:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetusesPermissions(AIndex : Integer; const AValue : TExternallyHostedApkTypeusesPermissionsArray);
|
|
|
|
begin
|
|
If (FusesPermissions=AValue) then exit;
|
|
FusesPermissions:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetversionCode(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FversionCode=AValue) then exit;
|
|
FversionCode:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApk.SetversionName(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FversionName=AValue) then exit;
|
|
FversionName:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TExternallyHostedApk.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'certificatebase64s' : SetLength(FcertificateBase64s,ALength);
|
|
'nativecodes' : SetLength(FnativeCodes,ALength);
|
|
'usesfeatures' : SetLength(FusesFeatures,ALength);
|
|
'usespermissions' : SetLength(FusesPermissions,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TExternallyHostedApkUsesPermission
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TExternallyHostedApkUsesPermission.SetmaxSdkVersion(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FmaxSdkVersion=AValue) then exit;
|
|
FmaxSdkVersion:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TExternallyHostedApkUsesPermission.Setname(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fname=AValue) then exit;
|
|
Fname:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImage
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TImage.Setid(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fid=AValue) then exit;
|
|
Fid:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TImage.Setsha1(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fsha1=AValue) then exit;
|
|
Fsha1:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TImage.Seturl(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Furl=AValue) then exit;
|
|
Furl:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImagesDeleteAllResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TImagesDeleteAllResponse.Setdeleted(AIndex : Integer; const AValue : TImagesDeleteAllResponseTypedeletedArray);
|
|
|
|
begin
|
|
If (Fdeleted=AValue) then exit;
|
|
Fdeleted:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TImagesDeleteAllResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'deleted' : SetLength(Fdeleted,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImagesListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TImagesListResponse.Setimages(AIndex : Integer; const AValue : TImagesListResponseTypeimagesArray);
|
|
|
|
begin
|
|
If (Fimages=AValue) then exit;
|
|
Fimages:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TImagesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'images' : SetLength(Fimages,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TImagesUploadResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TImagesUploadResponse.Setimage(AIndex : Integer; const AValue : TImage);
|
|
|
|
begin
|
|
If (Fimage=AValue) then exit;
|
|
Fimage:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProductTypelistings
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TInAppProductTypelistings.AllowAdditionalProperties : Boolean;
|
|
|
|
begin
|
|
Result:=True;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProductTypeprices
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TInAppProductTypeprices.AllowAdditionalProperties : Boolean;
|
|
|
|
begin
|
|
Result:=True;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProduct
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInAppProduct.SetdefaultLanguage(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FdefaultLanguage=AValue) then exit;
|
|
FdefaultLanguage:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.SetdefaultPrice(AIndex : Integer; const AValue : TPrice);
|
|
|
|
begin
|
|
If (FdefaultPrice=AValue) then exit;
|
|
FdefaultPrice:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.Setlistings(AIndex : Integer; const AValue : TInAppProductTypelistings);
|
|
|
|
begin
|
|
If (Flistings=AValue) then exit;
|
|
Flistings:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.SetpackageName(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpackageName=AValue) then exit;
|
|
FpackageName:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.Setprices(AIndex : Integer; const AValue : TInAppProductTypeprices);
|
|
|
|
begin
|
|
If (Fprices=AValue) then exit;
|
|
Fprices:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.SetpurchaseType(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpurchaseType=AValue) then exit;
|
|
FpurchaseType:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.Setseason(AIndex : Integer; const AValue : TSeason);
|
|
|
|
begin
|
|
If (Fseason=AValue) then exit;
|
|
Fseason:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.Setsku(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fsku=AValue) then exit;
|
|
Fsku:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.Setstatus(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fstatus=AValue) then exit;
|
|
Fstatus:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.SetsubscriptionPeriod(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FsubscriptionPeriod=AValue) then exit;
|
|
FsubscriptionPeriod:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProduct.SettrialPeriod(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FtrialPeriod=AValue) then exit;
|
|
FtrialPeriod:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInAppProductListing
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInAppProductListing.Setdescription(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fdescription=AValue) then exit;
|
|
Fdescription:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInAppProductListing.Settitle(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Ftitle=AValue) then exit;
|
|
Ftitle:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsBatchRequest.Setentrys(AIndex : Integer; const AValue : TInappproductsBatchRequestTypeentrysArray);
|
|
|
|
begin
|
|
If (Fentrys=AValue) then exit;
|
|
Fentrys:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TInappproductsBatchRequest.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'entrys' : SetLength(Fentrys,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchRequestEntry
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FbatchId=AValue) then exit;
|
|
FbatchId:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsBatchRequestEntry.Setinappproductsinsertrequest(AIndex : Integer; const AValue : TInappproductsInsertRequest);
|
|
|
|
begin
|
|
If (Finappproductsinsertrequest=AValue) then exit;
|
|
Finappproductsinsertrequest:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsBatchRequestEntry.Setinappproductsupdaterequest(AIndex : Integer; const AValue : TInappproductsUpdateRequest);
|
|
|
|
begin
|
|
If (Finappproductsupdaterequest=AValue) then exit;
|
|
Finappproductsupdaterequest:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsBatchRequestEntry.SetmethodName(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FmethodName=AValue) then exit;
|
|
FmethodName:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsBatchResponse.Setentrys(AIndex : Integer; const AValue : TInappproductsBatchResponseTypeentrysArray);
|
|
|
|
begin
|
|
If (Fentrys=AValue) then exit;
|
|
Fentrys:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsBatchResponse.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 TInappproductsBatchResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'entrys' : SetLength(Fentrys,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsBatchResponseEntry
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FbatchId=AValue) then exit;
|
|
FbatchId:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsBatchResponseEntry.Setinappproductsinsertresponse(AIndex : Integer; const AValue : TInappproductsInsertResponse);
|
|
|
|
begin
|
|
If (Finappproductsinsertresponse=AValue) then exit;
|
|
Finappproductsinsertresponse:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsBatchResponseEntry.Setinappproductsupdateresponse(AIndex : Integer; const AValue : TInappproductsUpdateResponse);
|
|
|
|
begin
|
|
If (Finappproductsupdateresponse=AValue) then exit;
|
|
Finappproductsupdateresponse:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsInsertRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsInsertRequest.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
|
|
|
|
begin
|
|
If (Finappproduct=AValue) then exit;
|
|
Finappproduct:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsInsertResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsInsertResponse.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
|
|
|
|
begin
|
|
If (Finappproduct=AValue) then exit;
|
|
Finappproduct:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsListResponse.Setinappproduct(AIndex : Integer; const AValue : TInappproductsListResponseTypeinappproductArray);
|
|
|
|
begin
|
|
If (Finappproduct=AValue) then exit;
|
|
Finappproduct:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsListResponse.Setkind(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fkind=AValue) then exit;
|
|
Fkind:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
|
|
|
|
begin
|
|
If (FpageInfo=AValue) then exit;
|
|
FpageInfo:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TInappproductsListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
|
|
|
|
begin
|
|
If (FtokenPagination=AValue) then exit;
|
|
FtokenPagination:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TInappproductsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'inappproduct' : SetLength(Finappproduct,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsUpdateRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsUpdateRequest.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
|
|
|
|
begin
|
|
If (Finappproduct=AValue) then exit;
|
|
Finappproduct:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsUpdateResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TInappproductsUpdateResponse.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
|
|
|
|
begin
|
|
If (Finappproduct=AValue) then exit;
|
|
Finappproduct:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TListing
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TListing.SetfullDescription(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FfullDescription=AValue) then exit;
|
|
FfullDescription:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TListing.Setlanguage(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Flanguage=AValue) then exit;
|
|
Flanguage:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TListing.SetshortDescription(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FshortDescription=AValue) then exit;
|
|
FshortDescription:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TListing.Settitle(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Ftitle=AValue) then exit;
|
|
Ftitle:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TListing.Setvideo(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fvideo=AValue) then exit;
|
|
Fvideo:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TListingsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TListingsListResponse.Setkind(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fkind=AValue) then exit;
|
|
Fkind:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TListingsListResponse.Setlistings(AIndex : Integer; const AValue : TListingsListResponseTypelistingsArray);
|
|
|
|
begin
|
|
If (Flistings=AValue) then exit;
|
|
Flistings:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TListingsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'listings' : SetLength(Flistings,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TMonthDay
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TMonthDay.Setday(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (Fday=AValue) then exit;
|
|
Fday:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TMonthDay.Setmonth(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (Fmonth=AValue) then exit;
|
|
Fmonth:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPageInfo
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TPageInfo.SetresultPerPage(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FresultPerPage=AValue) then exit;
|
|
FresultPerPage:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TPageInfo.SetstartIndex(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FstartIndex=AValue) then exit;
|
|
FstartIndex:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FtotalResults=AValue) then exit;
|
|
FtotalResults:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPrice
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TPrice.Setcurrency(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fcurrency=AValue) then exit;
|
|
Fcurrency:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TPrice.SetpriceMicros(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpriceMicros=AValue) then exit;
|
|
FpriceMicros:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TProductPurchase
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TProductPurchase.SetconsumptionState(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FconsumptionState=AValue) then exit;
|
|
FconsumptionState:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TProductPurchase.SetdeveloperPayload(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FdeveloperPayload=AValue) then exit;
|
|
FdeveloperPayload:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TProductPurchase.Setkind(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fkind=AValue) then exit;
|
|
Fkind:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TProductPurchase.SetpurchaseState(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FpurchaseState=AValue) then exit;
|
|
FpurchaseState:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TProductPurchase.SetpurchaseTimeMillis(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpurchaseTimeMillis=AValue) then exit;
|
|
FpurchaseTimeMillis:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TProrate
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TProrate.SetdefaultPrice(AIndex : Integer; const AValue : TPrice);
|
|
|
|
begin
|
|
If (FdefaultPrice=AValue) then exit;
|
|
FdefaultPrice:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TProrate.Setstart(AIndex : Integer; const AValue : TMonthDay);
|
|
|
|
begin
|
|
If (Fstart=AValue) then exit;
|
|
Fstart:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReview
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TReview.SetauthorName(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FauthorName=AValue) then exit;
|
|
FauthorName:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TReview.Setcomments(AIndex : Integer; const AValue : TReviewTypecommentsArray);
|
|
|
|
begin
|
|
If (Fcomments=AValue) then exit;
|
|
Fcomments:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TReview.SetreviewId(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FreviewId=AValue) then exit;
|
|
FreviewId:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TReview.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'comments' : SetLength(Fcomments,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewReplyResult
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TReviewReplyResult.SetlastEdited(AIndex : Integer; const AValue : TTimestamp);
|
|
|
|
begin
|
|
If (FlastEdited=AValue) then exit;
|
|
FlastEdited:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TReviewReplyResult.SetreplyText(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FreplyText=AValue) then exit;
|
|
FreplyText:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TReviewsListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
|
|
|
|
begin
|
|
If (FpageInfo=AValue) then exit;
|
|
FpageInfo:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TReviewsListResponse.Setreviews(AIndex : Integer; const AValue : TReviewsListResponseTypereviewsArray);
|
|
|
|
begin
|
|
If (Freviews=AValue) then exit;
|
|
Freviews:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TReviewsListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
|
|
|
|
begin
|
|
If (FtokenPagination=AValue) then exit;
|
|
FtokenPagination:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TReviewsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'reviews' : SetLength(Freviews,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsReplyRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TReviewsReplyRequest.SetreplyText(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FreplyText=AValue) then exit;
|
|
FreplyText:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsReplyResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TReviewsReplyResponse.Setresult(AIndex : Integer; const AValue : TReviewReplyResult);
|
|
|
|
begin
|
|
If (Fresult=AValue) then exit;
|
|
Fresult:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSeason
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TSeason.Set_end(AIndex : Integer; const AValue : TMonthDay);
|
|
|
|
begin
|
|
If (F_end=AValue) then exit;
|
|
F_end:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSeason.Setprorations(AIndex : Integer; const AValue : TSeasonTypeprorationsArray);
|
|
|
|
begin
|
|
If (Fprorations=AValue) then exit;
|
|
Fprorations:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSeason.Setstart(AIndex : Integer; const AValue : TMonthDay);
|
|
|
|
begin
|
|
If (Fstart=AValue) then exit;
|
|
Fstart:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Class Function TSeason.ExportPropertyName(Const AName : String) :String;
|
|
|
|
begin
|
|
Case AName of
|
|
'_end' : Result:='end';
|
|
else
|
|
Result:=Inherited ExportPropertyName(AName);
|
|
end;
|
|
end;
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TSeason.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'prorations' : SetLength(Fprorations,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionDeferralInfo
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TSubscriptionDeferralInfo.SetdesiredExpiryTimeMillis(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FdesiredExpiryTimeMillis=AValue) then exit;
|
|
FdesiredExpiryTimeMillis:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionDeferralInfo.SetexpectedExpiryTimeMillis(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FexpectedExpiryTimeMillis=AValue) then exit;
|
|
FexpectedExpiryTimeMillis:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionPurchase
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetautoRenewing(AIndex : Integer; const AValue : boolean);
|
|
|
|
begin
|
|
If (FautoRenewing=AValue) then exit;
|
|
FautoRenewing:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetcancelReason(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FcancelReason=AValue) then exit;
|
|
FcancelReason:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetcountryCode(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FcountryCode=AValue) then exit;
|
|
FcountryCode:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetdeveloperPayload(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FdeveloperPayload=AValue) then exit;
|
|
FdeveloperPayload:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetexpiryTimeMillis(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FexpiryTimeMillis=AValue) then exit;
|
|
FexpiryTimeMillis:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.Setkind(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fkind=AValue) then exit;
|
|
Fkind:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetpaymentState(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FpaymentState=AValue) then exit;
|
|
FpaymentState:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetpriceAmountMicros(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpriceAmountMicros=AValue) then exit;
|
|
FpriceAmountMicros:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetpriceCurrencyCode(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpriceCurrencyCode=AValue) then exit;
|
|
FpriceCurrencyCode:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TSubscriptionPurchase.SetstartTimeMillis(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FstartTimeMillis=AValue) then exit;
|
|
FstartTimeMillis:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionPurchasesDeferRequest
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TSubscriptionPurchasesDeferRequest.SetdeferralInfo(AIndex : Integer; const AValue : TSubscriptionDeferralInfo);
|
|
|
|
begin
|
|
If (FdeferralInfo=AValue) then exit;
|
|
FdeferralInfo:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TSubscriptionPurchasesDeferResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TSubscriptionPurchasesDeferResponse.SetnewExpiryTimeMillis(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FnewExpiryTimeMillis=AValue) then exit;
|
|
FnewExpiryTimeMillis:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTesters
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TTesters.SetgoogleGroups(AIndex : Integer; const AValue : TStringArray);
|
|
|
|
begin
|
|
If (FgoogleGroups=AValue) then exit;
|
|
FgoogleGroups:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TTesters.SetgooglePlusCommunities(AIndex : Integer; const AValue : TStringArray);
|
|
|
|
begin
|
|
If (FgooglePlusCommunities=AValue) then exit;
|
|
FgooglePlusCommunities:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TTesters.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'googlegroups' : SetLength(FgoogleGroups,ALength);
|
|
'googlepluscommunities' : SetLength(FgooglePlusCommunities,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTimestamp
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TTimestamp.Setnanos(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (Fnanos=AValue) then exit;
|
|
Fnanos:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TTimestamp.Setseconds(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fseconds=AValue) then exit;
|
|
Fseconds:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTokenPagination
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FnextPageToken=AValue) then exit;
|
|
FnextPageToken:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FpreviousPageToken=AValue) then exit;
|
|
FpreviousPageToken:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTrack
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TTrack.Settrack(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Ftrack=AValue) then exit;
|
|
Ftrack:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TTrack.SetuserFraction(AIndex : Integer; const AValue : double);
|
|
|
|
begin
|
|
If (FuserFraction=AValue) then exit;
|
|
FuserFraction:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TTrack.SetversionCodes(AIndex : Integer; const AValue : TintegerArray);
|
|
|
|
begin
|
|
If (FversionCodes=AValue) then exit;
|
|
FversionCodes:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TTrack.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'versioncodes' : SetLength(FversionCodes,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TTracksListResponse
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TTracksListResponse.Setkind(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fkind=AValue) then exit;
|
|
Fkind:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TTracksListResponse.Settracks(AIndex : Integer; const AValue : TTracksListResponseTypetracksArray);
|
|
|
|
begin
|
|
If (Ftracks=AValue) then exit;
|
|
Ftracks:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
//2.6.4. bug workaround
|
|
{$IFDEF VER2_6}
|
|
Procedure TTracksListResponse.SetArrayLength(Const AName : String; ALength : Longint);
|
|
|
|
begin
|
|
Case AName of
|
|
'tracks' : SetLength(Ftracks,ALength);
|
|
else
|
|
Inherited SetArrayLength(AName,ALength);
|
|
end;
|
|
end;
|
|
{$ENDIF VER2_6}
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TUserComment
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Procedure TUserComment.SetandroidOsVersion(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FandroidOsVersion=AValue) then exit;
|
|
FandroidOsVersion:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TUserComment.SetappVersionCode(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FappVersionCode=AValue) then exit;
|
|
FappVersionCode:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TUserComment.SetappVersionName(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FappVersionName=AValue) then exit;
|
|
FappVersionName:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TUserComment.Setdevice(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Fdevice=AValue) then exit;
|
|
Fdevice:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TUserComment.SetlastModified(AIndex : Integer; const AValue : TTimestamp);
|
|
|
|
begin
|
|
If (FlastModified=AValue) then exit;
|
|
FlastModified:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TUserComment.SetreviewerLanguage(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (FreviewerLanguage=AValue) then exit;
|
|
FreviewerLanguage:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TUserComment.SetstarRating(AIndex : Integer; const AValue : integer);
|
|
|
|
begin
|
|
If (FstarRating=AValue) then exit;
|
|
FstarRating:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
Procedure TUserComment.Settext(AIndex : Integer; const AValue : String);
|
|
|
|
begin
|
|
If (Ftext=AValue) then exit;
|
|
Ftext:=AValue;
|
|
MarkPropertyChanged(AIndex);
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsApklistingsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsApklistingsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='apklistings';
|
|
end;
|
|
|
|
Class Function TEditsApklistingsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Procedure TEditsApklistingsResource.Delete(apkVersionCode: integer; editId: string; language: string; packageName: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.apklistings.delete';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'language',language,'packageName',packageName]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Procedure TEditsApklistingsResource.Deleteall(apkVersionCode: integer; editId: string; packageName: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/listings';
|
|
_Methodid = 'androidpublisher.edits.apklistings.deleteall';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'packageName',packageName]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Function TEditsApklistingsResource.Get(apkVersionCode: integer; editId: string; language: string; packageName: string) : TApkListing;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.apklistings.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TApkListing) as TApkListing;
|
|
end;
|
|
|
|
Function TEditsApklistingsResource.List(apkVersionCode: integer; editId: string; packageName: string) : TApkListingsListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/listings';
|
|
_Methodid = 'androidpublisher.edits.apklistings.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TApkListingsListResponse) as TApkListingsListResponse;
|
|
end;
|
|
|
|
Function TEditsApklistingsResource.Patch(apkVersionCode: integer; editId: string; language: string; packageName: string; aApkListing : TApkListing) : TApkListing;
|
|
|
|
Const
|
|
_HTTPMethod = 'PATCH';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.apklistings.patch';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aApkListing,TApkListing) as TApkListing;
|
|
end;
|
|
|
|
Function TEditsApklistingsResource.Update(apkVersionCode: integer; editId: string; language: string; packageName: string; aApkListing : TApkListing) : TApkListing;
|
|
|
|
Const
|
|
_HTTPMethod = 'PUT';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.apklistings.update';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aApkListing,TApkListing) as TApkListing;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsApksResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsApksResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='apks';
|
|
end;
|
|
|
|
Class Function TEditsApksResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TEditsApksResource.Addexternallyhosted(editId: string; packageName: string; aApksAddExternallyHostedRequest : TApksAddExternallyHostedRequest) : TApksAddExternallyHostedResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/edits/{editId}/apks/externallyHosted';
|
|
_Methodid = 'androidpublisher.edits.apks.addexternallyhosted';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aApksAddExternallyHostedRequest,TApksAddExternallyHostedResponse) as TApksAddExternallyHostedResponse;
|
|
end;
|
|
|
|
Function TEditsApksResource.List(editId: string; packageName: string) : TApksListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/apks';
|
|
_Methodid = 'androidpublisher.edits.apks.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TApksListResponse) as TApksListResponse;
|
|
end;
|
|
|
|
Function TEditsApksResource.Upload(editId: string; packageName: string) : TApk;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/edits/{editId}/apks';
|
|
_Methodid = 'androidpublisher.edits.apks.upload';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TApk) as TApk;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsDetailsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsDetailsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='details';
|
|
end;
|
|
|
|
Class Function TEditsDetailsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TEditsDetailsResource.Get(editId: string; packageName: string) : TAppDetails;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/details';
|
|
_Methodid = 'androidpublisher.edits.details.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAppDetails) as TAppDetails;
|
|
end;
|
|
|
|
Function TEditsDetailsResource.Patch(editId: string; packageName: string; aAppDetails : TAppDetails) : TAppDetails;
|
|
|
|
Const
|
|
_HTTPMethod = 'PATCH';
|
|
_Path = '{packageName}/edits/{editId}/details';
|
|
_Methodid = 'androidpublisher.edits.details.patch';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aAppDetails,TAppDetails) as TAppDetails;
|
|
end;
|
|
|
|
Function TEditsDetailsResource.Update(editId: string; packageName: string; aAppDetails : TAppDetails) : TAppDetails;
|
|
|
|
Const
|
|
_HTTPMethod = 'PUT';
|
|
_Path = '{packageName}/edits/{editId}/details';
|
|
_Methodid = 'androidpublisher.edits.details.update';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aAppDetails,TAppDetails) as TAppDetails;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsExpansionfilesResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsExpansionfilesResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='expansionfiles';
|
|
end;
|
|
|
|
Class Function TEditsExpansionfilesResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TEditsExpansionfilesResource.Get(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string) : TExpansionFile;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/expansionFiles/{expansionFileType}';
|
|
_Methodid = 'androidpublisher.edits.expansionfiles.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'expansionFileType',expansionFileType,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TExpansionFile) as TExpansionFile;
|
|
end;
|
|
|
|
Function TEditsExpansionfilesResource.Patch(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string; aExpansionFile : TExpansionFile) : TExpansionFile;
|
|
|
|
Const
|
|
_HTTPMethod = 'PATCH';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/expansionFiles/{expansionFileType}';
|
|
_Methodid = 'androidpublisher.edits.expansionfiles.patch';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'expansionFileType',expansionFileType,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aExpansionFile,TExpansionFile) as TExpansionFile;
|
|
end;
|
|
|
|
Function TEditsExpansionfilesResource.Update(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string; aExpansionFile : TExpansionFile) : TExpansionFile;
|
|
|
|
Const
|
|
_HTTPMethod = 'PUT';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/expansionFiles/{expansionFileType}';
|
|
_Methodid = 'androidpublisher.edits.expansionfiles.update';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'expansionFileType',expansionFileType,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aExpansionFile,TExpansionFile) as TExpansionFile;
|
|
end;
|
|
|
|
Function TEditsExpansionfilesResource.Upload(apkVersionCode: integer; editId: string; expansionFileType: string; packageName: string) : TExpansionFilesUploadResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/edits/{editId}/apks/{apkVersionCode}/expansionFiles/{expansionFileType}';
|
|
_Methodid = 'androidpublisher.edits.expansionfiles.upload';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['apkVersionCode',apkVersionCode,'editId',editId,'expansionFileType',expansionFileType,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TExpansionFilesUploadResponse) as TExpansionFilesUploadResponse;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsImagesResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsImagesResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='images';
|
|
end;
|
|
|
|
Class Function TEditsImagesResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Procedure TEditsImagesResource.Delete(editId: string; imageId: string; imageType: string; language: string; packageName: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}/{imageType}/{imageId}';
|
|
_Methodid = 'androidpublisher.edits.images.delete';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'imageId',imageId,'imageType',imageType,'language',language,'packageName',packageName]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Function TEditsImagesResource.Deleteall(editId: string; imageType: string; language: string; packageName: string) : TImagesDeleteAllResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}/{imageType}';
|
|
_Methodid = 'androidpublisher.edits.images.deleteall';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'imageType',imageType,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImagesDeleteAllResponse) as TImagesDeleteAllResponse;
|
|
end;
|
|
|
|
Function TEditsImagesResource.List(editId: string; imageType: string; language: string; packageName: string) : TImagesListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}/{imageType}';
|
|
_Methodid = 'androidpublisher.edits.images.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'imageType',imageType,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImagesListResponse) as TImagesListResponse;
|
|
end;
|
|
|
|
Function TEditsImagesResource.Upload(editId: string; imageType: string; language: string; packageName: string) : TImagesUploadResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}/{imageType}';
|
|
_Methodid = 'androidpublisher.edits.images.upload';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'imageType',imageType,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImagesUploadResponse) as TImagesUploadResponse;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsListingsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsListingsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='listings';
|
|
end;
|
|
|
|
Class Function TEditsListingsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Procedure TEditsListingsResource.Delete(editId: string; language: string; packageName: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.listings.delete';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'language',language,'packageName',packageName]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Procedure TEditsListingsResource.Deleteall(editId: string; packageName: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/edits/{editId}/listings';
|
|
_Methodid = 'androidpublisher.edits.listings.deleteall';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Function TEditsListingsResource.Get(editId: string; language: string; packageName: string) : TListing;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.listings.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListing) as TListing;
|
|
end;
|
|
|
|
Function TEditsListingsResource.List(editId: string; packageName: string) : TListingsListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/listings';
|
|
_Methodid = 'androidpublisher.edits.listings.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListingsListResponse) as TListingsListResponse;
|
|
end;
|
|
|
|
Function TEditsListingsResource.Patch(editId: string; language: string; packageName: string; aListing : TListing) : TListing;
|
|
|
|
Const
|
|
_HTTPMethod = 'PATCH';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.listings.patch';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aListing,TListing) as TListing;
|
|
end;
|
|
|
|
Function TEditsListingsResource.Update(editId: string; language: string; packageName: string; aListing : TListing) : TListing;
|
|
|
|
Const
|
|
_HTTPMethod = 'PUT';
|
|
_Path = '{packageName}/edits/{editId}/listings/{language}';
|
|
_Methodid = 'androidpublisher.edits.listings.update';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'language',language,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aListing,TListing) as TListing;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsTestersResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsTestersResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='testers';
|
|
end;
|
|
|
|
Class Function TEditsTestersResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TEditsTestersResource.Get(editId: string; packageName: string; track: string) : TTesters;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/testers/{track}';
|
|
_Methodid = 'androidpublisher.edits.testers.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName,'track',track]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTesters) as TTesters;
|
|
end;
|
|
|
|
Function TEditsTestersResource.Patch(editId: string; packageName: string; track: string; aTesters : TTesters) : TTesters;
|
|
|
|
Const
|
|
_HTTPMethod = 'PATCH';
|
|
_Path = '{packageName}/edits/{editId}/testers/{track}';
|
|
_Methodid = 'androidpublisher.edits.testers.patch';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName,'track',track]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aTesters,TTesters) as TTesters;
|
|
end;
|
|
|
|
Function TEditsTestersResource.Update(editId: string; packageName: string; track: string; aTesters : TTesters) : TTesters;
|
|
|
|
Const
|
|
_HTTPMethod = 'PUT';
|
|
_Path = '{packageName}/edits/{editId}/testers/{track}';
|
|
_Methodid = 'androidpublisher.edits.testers.update';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName,'track',track]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aTesters,TTesters) as TTesters;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsTracksResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsTracksResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='tracks';
|
|
end;
|
|
|
|
Class Function TEditsTracksResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TEditsTracksResource.Get(editId: string; packageName: string; track: string) : TTrack;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/tracks/{track}';
|
|
_Methodid = 'androidpublisher.edits.tracks.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName,'track',track]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTrack) as TTrack;
|
|
end;
|
|
|
|
Function TEditsTracksResource.List(editId: string; packageName: string) : TTracksListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}/tracks';
|
|
_Methodid = 'androidpublisher.edits.tracks.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTracksListResponse) as TTracksListResponse;
|
|
end;
|
|
|
|
Function TEditsTracksResource.Patch(editId: string; packageName: string; track: string; aTrack : TTrack) : TTrack;
|
|
|
|
Const
|
|
_HTTPMethod = 'PATCH';
|
|
_Path = '{packageName}/edits/{editId}/tracks/{track}';
|
|
_Methodid = 'androidpublisher.edits.tracks.patch';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName,'track',track]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aTrack,TTrack) as TTrack;
|
|
end;
|
|
|
|
Function TEditsTracksResource.Update(editId: string; packageName: string; track: string; aTrack : TTrack) : TTrack;
|
|
|
|
Const
|
|
_HTTPMethod = 'PUT';
|
|
_Path = '{packageName}/edits/{editId}/tracks/{track}';
|
|
_Methodid = 'androidpublisher.edits.tracks.update';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName,'track',track]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aTrack,TTrack) as TTrack;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEditsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEditsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='edits';
|
|
end;
|
|
|
|
Class Function TEditsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TEditsResource.Commit(editId: string; packageName: string) : TAppEdit;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/edits/{editId}:commit';
|
|
_Methodid = 'androidpublisher.edits.commit';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAppEdit) as TAppEdit;
|
|
end;
|
|
|
|
Procedure TEditsResource.Delete(editId: string; packageName: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/edits/{editId}';
|
|
_Methodid = 'androidpublisher.edits.delete';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Function TEditsResource.Get(editId: string; packageName: string) : TAppEdit;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/edits/{editId}';
|
|
_Methodid = 'androidpublisher.edits.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAppEdit) as TAppEdit;
|
|
end;
|
|
|
|
Function TEditsResource.Insert(packageName: string; aAppEdit : TAppEdit) : TAppEdit;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/edits';
|
|
_Methodid = 'androidpublisher.edits.insert';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aAppEdit,TAppEdit) as TAppEdit;
|
|
end;
|
|
|
|
Function TEditsResource.Validate(editId: string; packageName: string) : TAppEdit;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/edits/{editId}:validate';
|
|
_Methodid = 'androidpublisher.edits.validate';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['editId',editId,'packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAppEdit) as TAppEdit;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetApklistingsInstance : TEditsApklistingsResource;
|
|
|
|
begin
|
|
if (FApklistingsInstance=Nil) then
|
|
FApklistingsInstance:=CreateApklistingsResource;
|
|
Result:=FApklistingsInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateApklistingsResource : TEditsApklistingsResource;
|
|
|
|
begin
|
|
Result:=CreateApklistingsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateApklistingsResource(AOwner : TComponent) : TEditsApklistingsResource;
|
|
|
|
begin
|
|
Result:=TEditsApklistingsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetApksInstance : TEditsApksResource;
|
|
|
|
begin
|
|
if (FApksInstance=Nil) then
|
|
FApksInstance:=CreateApksResource;
|
|
Result:=FApksInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateApksResource : TEditsApksResource;
|
|
|
|
begin
|
|
Result:=CreateApksResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateApksResource(AOwner : TComponent) : TEditsApksResource;
|
|
|
|
begin
|
|
Result:=TEditsApksResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetDetailsInstance : TEditsDetailsResource;
|
|
|
|
begin
|
|
if (FDetailsInstance=Nil) then
|
|
FDetailsInstance:=CreateDetailsResource;
|
|
Result:=FDetailsInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateDetailsResource : TEditsDetailsResource;
|
|
|
|
begin
|
|
Result:=CreateDetailsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateDetailsResource(AOwner : TComponent) : TEditsDetailsResource;
|
|
|
|
begin
|
|
Result:=TEditsDetailsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetExpansionfilesInstance : TEditsExpansionfilesResource;
|
|
|
|
begin
|
|
if (FExpansionfilesInstance=Nil) then
|
|
FExpansionfilesInstance:=CreateExpansionfilesResource;
|
|
Result:=FExpansionfilesInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateExpansionfilesResource : TEditsExpansionfilesResource;
|
|
|
|
begin
|
|
Result:=CreateExpansionfilesResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateExpansionfilesResource(AOwner : TComponent) : TEditsExpansionfilesResource;
|
|
|
|
begin
|
|
Result:=TEditsExpansionfilesResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetImagesInstance : TEditsImagesResource;
|
|
|
|
begin
|
|
if (FImagesInstance=Nil) then
|
|
FImagesInstance:=CreateImagesResource;
|
|
Result:=FImagesInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateImagesResource : TEditsImagesResource;
|
|
|
|
begin
|
|
Result:=CreateImagesResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateImagesResource(AOwner : TComponent) : TEditsImagesResource;
|
|
|
|
begin
|
|
Result:=TEditsImagesResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetListingsInstance : TEditsListingsResource;
|
|
|
|
begin
|
|
if (FListingsInstance=Nil) then
|
|
FListingsInstance:=CreateListingsResource;
|
|
Result:=FListingsInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateListingsResource : TEditsListingsResource;
|
|
|
|
begin
|
|
Result:=CreateListingsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateListingsResource(AOwner : TComponent) : TEditsListingsResource;
|
|
|
|
begin
|
|
Result:=TEditsListingsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetTestersInstance : TEditsTestersResource;
|
|
|
|
begin
|
|
if (FTestersInstance=Nil) then
|
|
FTestersInstance:=CreateTestersResource;
|
|
Result:=FTestersInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateTestersResource : TEditsTestersResource;
|
|
|
|
begin
|
|
Result:=CreateTestersResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateTestersResource(AOwner : TComponent) : TEditsTestersResource;
|
|
|
|
begin
|
|
Result:=TEditsTestersResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TEditsResource.GetTracksInstance : TEditsTracksResource;
|
|
|
|
begin
|
|
if (FTracksInstance=Nil) then
|
|
FTracksInstance:=CreateTracksResource;
|
|
Result:=FTracksInstance;
|
|
end;
|
|
|
|
Function TEditsResource.CreateTracksResource : TEditsTracksResource;
|
|
|
|
begin
|
|
Result:=CreateTracksResource(Self);
|
|
end;
|
|
|
|
|
|
Function TEditsResource.CreateTracksResource(AOwner : TComponent) : TEditsTracksResource;
|
|
|
|
begin
|
|
Result:=TEditsTracksResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TEntitlementsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TEntitlementsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='entitlements';
|
|
end;
|
|
|
|
Class Function TEntitlementsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TEntitlementsResource.List(packageName: string; AQuery : string = '') : TEntitlementsListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/entitlements';
|
|
_Methodid = 'androidpublisher.entitlements.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEntitlementsListResponse) as TEntitlementsListResponse;
|
|
end;
|
|
|
|
|
|
Function TEntitlementsResource.List(packageName: string; AQuery : TEntitlementslistOptions) : TEntitlementsListResponse;
|
|
|
|
Var
|
|
_Q : String;
|
|
|
|
begin
|
|
_Q:='';
|
|
AddToQuery(_Q,'maxResults',AQuery.maxResults);
|
|
AddToQuery(_Q,'productId',AQuery.productId);
|
|
AddToQuery(_Q,'startIndex',AQuery.startIndex);
|
|
AddToQuery(_Q,'token',AQuery.token);
|
|
Result:=List(packageName,_Q);
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TInappproductsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TInappproductsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='inappproducts';
|
|
end;
|
|
|
|
Class Function TInappproductsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TInappproductsResource.Batch(aInappproductsBatchRequest : TInappproductsBatchRequest) : TInappproductsBatchResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = 'inappproducts/batch';
|
|
_Methodid = 'androidpublisher.inappproducts.batch';
|
|
|
|
begin
|
|
Result:=ServiceCall(_HTTPMethod,_Path,'',aInappproductsBatchRequest,TInappproductsBatchResponse) as TInappproductsBatchResponse;
|
|
end;
|
|
|
|
Procedure TInappproductsResource.Delete(packageName: string; sku: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'DELETE';
|
|
_Path = '{packageName}/inappproducts/{sku}';
|
|
_Methodid = 'androidpublisher.inappproducts.delete';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'sku',sku]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Function TInappproductsResource.Get(packageName: string; sku: string) : TInAppProduct;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/inappproducts/{sku}';
|
|
_Methodid = 'androidpublisher.inappproducts.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'sku',sku]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInAppProduct) as TInAppProduct;
|
|
end;
|
|
|
|
Function TInappproductsResource.Insert(packageName: string; aInAppProduct : TInAppProduct; AQuery : string = '') : TInAppProduct;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/inappproducts';
|
|
_Methodid = 'androidpublisher.inappproducts.insert';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInAppProduct,TInAppProduct) as TInAppProduct;
|
|
end;
|
|
|
|
|
|
Function TInappproductsResource.Insert(packageName: string; aInAppProduct : TInAppProduct; AQuery : TInappproductsinsertOptions) : TInAppProduct;
|
|
|
|
Var
|
|
_Q : String;
|
|
|
|
begin
|
|
_Q:='';
|
|
AddToQuery(_Q,'autoConvertMissingPrices',AQuery.autoConvertMissingPrices);
|
|
Result:=Insert(packageName,aInAppProduct,_Q);
|
|
end;
|
|
|
|
Function TInappproductsResource.List(packageName: string; AQuery : string = '') : TInappproductsListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/inappproducts';
|
|
_Methodid = 'androidpublisher.inappproducts.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInappproductsListResponse) as TInappproductsListResponse;
|
|
end;
|
|
|
|
|
|
Function TInappproductsResource.List(packageName: string; AQuery : TInappproductslistOptions) : TInappproductsListResponse;
|
|
|
|
Var
|
|
_Q : String;
|
|
|
|
begin
|
|
_Q:='';
|
|
AddToQuery(_Q,'maxResults',AQuery.maxResults);
|
|
AddToQuery(_Q,'startIndex',AQuery.startIndex);
|
|
AddToQuery(_Q,'token',AQuery.token);
|
|
Result:=List(packageName,_Q);
|
|
end;
|
|
|
|
Function TInappproductsResource.Patch(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : string = '') : TInAppProduct;
|
|
|
|
Const
|
|
_HTTPMethod = 'PATCH';
|
|
_Path = '{packageName}/inappproducts/{sku}';
|
|
_Methodid = 'androidpublisher.inappproducts.patch';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'sku',sku]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInAppProduct,TInAppProduct) as TInAppProduct;
|
|
end;
|
|
|
|
|
|
Function TInappproductsResource.Patch(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : TInappproductspatchOptions) : TInAppProduct;
|
|
|
|
Var
|
|
_Q : String;
|
|
|
|
begin
|
|
_Q:='';
|
|
AddToQuery(_Q,'autoConvertMissingPrices',AQuery.autoConvertMissingPrices);
|
|
Result:=Patch(packageName,sku,aInAppProduct,_Q);
|
|
end;
|
|
|
|
Function TInappproductsResource.Update(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : string = '') : TInAppProduct;
|
|
|
|
Const
|
|
_HTTPMethod = 'PUT';
|
|
_Path = '{packageName}/inappproducts/{sku}';
|
|
_Methodid = 'androidpublisher.inappproducts.update';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'sku',sku]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInAppProduct,TInAppProduct) as TInAppProduct;
|
|
end;
|
|
|
|
|
|
Function TInappproductsResource.Update(packageName: string; sku: string; aInAppProduct : TInAppProduct; AQuery : TInappproductsupdateOptions) : TInAppProduct;
|
|
|
|
Var
|
|
_Q : String;
|
|
|
|
begin
|
|
_Q:='';
|
|
AddToQuery(_Q,'autoConvertMissingPrices',AQuery.autoConvertMissingPrices);
|
|
Result:=Update(packageName,sku,aInAppProduct,_Q);
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPurchasesProductsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TPurchasesProductsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='products';
|
|
end;
|
|
|
|
Class Function TPurchasesProductsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TPurchasesProductsResource.Get(packageName: string; productId: string; token: string) : TProductPurchase;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/purchases/products/{productId}/tokens/{token}';
|
|
_Methodid = 'androidpublisher.purchases.products.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'productId',productId,'token',token]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProductPurchase) as TProductPurchase;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPurchasesSubscriptionsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TPurchasesSubscriptionsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='subscriptions';
|
|
end;
|
|
|
|
Class Function TPurchasesSubscriptionsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Procedure TPurchasesSubscriptionsResource.Cancel(packageName: string; subscriptionId: string; token: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/purchases/subscriptions/{subscriptionId}/tokens/{token}:cancel';
|
|
_Methodid = 'androidpublisher.purchases.subscriptions.cancel';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'subscriptionId',subscriptionId,'token',token]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Function TPurchasesSubscriptionsResource.Defer(packageName: string; subscriptionId: string; token: string; aSubscriptionPurchasesDeferRequest : TSubscriptionPurchasesDeferRequest) : TSubscriptionPurchasesDeferResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/purchases/subscriptions/{subscriptionId}/tokens/{token}:defer';
|
|
_Methodid = 'androidpublisher.purchases.subscriptions.defer';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'subscriptionId',subscriptionId,'token',token]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aSubscriptionPurchasesDeferRequest,TSubscriptionPurchasesDeferResponse) as TSubscriptionPurchasesDeferResponse;
|
|
end;
|
|
|
|
Function TPurchasesSubscriptionsResource.Get(packageName: string; subscriptionId: string; token: string) : TSubscriptionPurchase;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/purchases/subscriptions/{subscriptionId}/tokens/{token}';
|
|
_Methodid = 'androidpublisher.purchases.subscriptions.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'subscriptionId',subscriptionId,'token',token]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSubscriptionPurchase) as TSubscriptionPurchase;
|
|
end;
|
|
|
|
Procedure TPurchasesSubscriptionsResource.Refund(packageName: string; subscriptionId: string; token: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/purchases/subscriptions/{subscriptionId}/tokens/{token}:refund';
|
|
_Methodid = 'androidpublisher.purchases.subscriptions.refund';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'subscriptionId',subscriptionId,'token',token]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
Procedure TPurchasesSubscriptionsResource.Revoke(packageName: string; subscriptionId: string; token: string);
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/purchases/subscriptions/{subscriptionId}/tokens/{token}:revoke';
|
|
_Methodid = 'androidpublisher.purchases.subscriptions.revoke';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'subscriptionId',subscriptionId,'token',token]);
|
|
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TPurchasesResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TPurchasesResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='purchases';
|
|
end;
|
|
|
|
Class Function TPurchasesResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
|
|
|
|
Function TPurchasesResource.GetProductsInstance : TPurchasesProductsResource;
|
|
|
|
begin
|
|
if (FProductsInstance=Nil) then
|
|
FProductsInstance:=CreateProductsResource;
|
|
Result:=FProductsInstance;
|
|
end;
|
|
|
|
Function TPurchasesResource.CreateProductsResource : TPurchasesProductsResource;
|
|
|
|
begin
|
|
Result:=CreateProductsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TPurchasesResource.CreateProductsResource(AOwner : TComponent) : TPurchasesProductsResource;
|
|
|
|
begin
|
|
Result:=TPurchasesProductsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TPurchasesResource.GetSubscriptionsInstance : TPurchasesSubscriptionsResource;
|
|
|
|
begin
|
|
if (FSubscriptionsInstance=Nil) then
|
|
FSubscriptionsInstance:=CreateSubscriptionsResource;
|
|
Result:=FSubscriptionsInstance;
|
|
end;
|
|
|
|
Function TPurchasesResource.CreateSubscriptionsResource : TPurchasesSubscriptionsResource;
|
|
|
|
begin
|
|
Result:=CreateSubscriptionsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TPurchasesResource.CreateSubscriptionsResource(AOwner : TComponent) : TPurchasesSubscriptionsResource;
|
|
|
|
begin
|
|
Result:=TPurchasesSubscriptionsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TReviewsResource
|
|
--------------------------------------------------------------------}
|
|
|
|
|
|
Class Function TReviewsResource.ResourceName : String;
|
|
|
|
begin
|
|
Result:='reviews';
|
|
end;
|
|
|
|
Class Function TReviewsResource.DefaultAPI : TGoogleAPIClass;
|
|
|
|
begin
|
|
Result:=TandroidpublisherAPI;
|
|
end;
|
|
|
|
Function TReviewsResource.Get(packageName: string; reviewId: string) : TReview;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/reviews/{reviewId}';
|
|
_Methodid = 'androidpublisher.reviews.get';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'reviewId',reviewId]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TReview) as TReview;
|
|
end;
|
|
|
|
Function TReviewsResource.List(packageName: string; AQuery : string = '') : TReviewsListResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'GET';
|
|
_Path = '{packageName}/reviews';
|
|
_Methodid = 'androidpublisher.reviews.list';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReviewsListResponse) as TReviewsListResponse;
|
|
end;
|
|
|
|
|
|
Function TReviewsResource.List(packageName: string; AQuery : TReviewslistOptions) : TReviewsListResponse;
|
|
|
|
Var
|
|
_Q : String;
|
|
|
|
begin
|
|
_Q:='';
|
|
AddToQuery(_Q,'maxResults',AQuery.maxResults);
|
|
AddToQuery(_Q,'startIndex',AQuery.startIndex);
|
|
AddToQuery(_Q,'token',AQuery.token);
|
|
Result:=List(packageName,_Q);
|
|
end;
|
|
|
|
Function TReviewsResource.Reply(packageName: string; reviewId: string; aReviewsReplyRequest : TReviewsReplyRequest) : TReviewsReplyResponse;
|
|
|
|
Const
|
|
_HTTPMethod = 'POST';
|
|
_Path = '{packageName}/reviews/{reviewId}:reply';
|
|
_Methodid = 'androidpublisher.reviews.reply';
|
|
|
|
Var
|
|
_P : String;
|
|
|
|
begin
|
|
_P:=SubstitutePath(_Path,['packageName',packageName,'reviewId',reviewId]);
|
|
Result:=ServiceCall(_HTTPMethod,_P,'',aReviewsReplyRequest,TReviewsReplyResponse) as TReviewsReplyResponse;
|
|
end;
|
|
|
|
|
|
|
|
{ --------------------------------------------------------------------
|
|
TAndroidpublisherAPI
|
|
--------------------------------------------------------------------}
|
|
|
|
Class Function TAndroidpublisherAPI.APIName : String;
|
|
|
|
begin
|
|
Result:='androidpublisher';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIVersion : String;
|
|
|
|
begin
|
|
Result:='v2';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIRevision : String;
|
|
|
|
begin
|
|
Result:='20160516';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIID : String;
|
|
|
|
begin
|
|
Result:='androidpublisher:v2';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APITitle : String;
|
|
|
|
begin
|
|
Result:='Google Play Developer API';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIDescription : String;
|
|
|
|
begin
|
|
Result:='Lets Android application developers access their Google Play accounts.';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIOwnerDomain : String;
|
|
|
|
begin
|
|
Result:='google.com';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIOwnerName : String;
|
|
|
|
begin
|
|
Result:='Google';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIIcon16 : String;
|
|
|
|
begin
|
|
Result:='https://www.google.com/images/icons/product/android-16.png';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIIcon32 : String;
|
|
|
|
begin
|
|
Result:='https://www.google.com/images/icons/product/android-32.png';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIdocumentationLink : String;
|
|
|
|
begin
|
|
Result:='https://developers.google.com/android-publisher';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIrootUrl : string;
|
|
|
|
begin
|
|
Result:='https://www.googleapis.com/';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIbasePath : string;
|
|
|
|
begin
|
|
Result:='/androidpublisher/v2/applications/';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIbaseURL : String;
|
|
|
|
begin
|
|
Result:='https://www.googleapis.com/androidpublisher/v2/applications/';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIProtocol : string;
|
|
|
|
begin
|
|
Result:='rest';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIservicePath : string;
|
|
|
|
begin
|
|
Result:='androidpublisher/v2/applications/';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIbatchPath : String;
|
|
|
|
begin
|
|
Result:='batch';
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APIAuthScopes : TScopeInfoArray;
|
|
|
|
begin
|
|
SetLength(Result,1);
|
|
Result[0].Name:='https://www.googleapis.com/auth/androidpublisher';
|
|
Result[0].Description:='View and manage your Google Play Developer account';
|
|
|
|
end;
|
|
|
|
Class Function TAndroidpublisherAPI.APINeedsAuth : Boolean;
|
|
|
|
begin
|
|
Result:=True;
|
|
end;
|
|
|
|
Class Procedure TAndroidpublisherAPI.RegisterAPIResources;
|
|
|
|
begin
|
|
TApk.RegisterObject;
|
|
TApkBinary.RegisterObject;
|
|
TApkListing.RegisterObject;
|
|
TApkListingsListResponse.RegisterObject;
|
|
TApksAddExternallyHostedRequest.RegisterObject;
|
|
TApksAddExternallyHostedResponse.RegisterObject;
|
|
TApksListResponse.RegisterObject;
|
|
TAppDetails.RegisterObject;
|
|
TAppEdit.RegisterObject;
|
|
TComment.RegisterObject;
|
|
TDeveloperComment.RegisterObject;
|
|
TEntitlement.RegisterObject;
|
|
TEntitlementsListResponse.RegisterObject;
|
|
TExpansionFile.RegisterObject;
|
|
TExpansionFilesUploadResponse.RegisterObject;
|
|
TExternallyHostedApk.RegisterObject;
|
|
TExternallyHostedApkUsesPermission.RegisterObject;
|
|
TImage.RegisterObject;
|
|
TImagesDeleteAllResponse.RegisterObject;
|
|
TImagesListResponse.RegisterObject;
|
|
TImagesUploadResponse.RegisterObject;
|
|
TInAppProductTypelistings.RegisterObject;
|
|
TInAppProductTypeprices.RegisterObject;
|
|
TInAppProduct.RegisterObject;
|
|
TInAppProductListing.RegisterObject;
|
|
TInappproductsBatchRequest.RegisterObject;
|
|
TInappproductsBatchRequestEntry.RegisterObject;
|
|
TInappproductsBatchResponse.RegisterObject;
|
|
TInappproductsBatchResponseEntry.RegisterObject;
|
|
TInappproductsInsertRequest.RegisterObject;
|
|
TInappproductsInsertResponse.RegisterObject;
|
|
TInappproductsListResponse.RegisterObject;
|
|
TInappproductsUpdateRequest.RegisterObject;
|
|
TInappproductsUpdateResponse.RegisterObject;
|
|
TListing.RegisterObject;
|
|
TListingsListResponse.RegisterObject;
|
|
TMonthDay.RegisterObject;
|
|
TPageInfo.RegisterObject;
|
|
TPrice.RegisterObject;
|
|
TProductPurchase.RegisterObject;
|
|
TProrate.RegisterObject;
|
|
TReview.RegisterObject;
|
|
TReviewReplyResult.RegisterObject;
|
|
TReviewsListResponse.RegisterObject;
|
|
TReviewsReplyRequest.RegisterObject;
|
|
TReviewsReplyResponse.RegisterObject;
|
|
TSeason.RegisterObject;
|
|
TSubscriptionDeferralInfo.RegisterObject;
|
|
TSubscriptionPurchase.RegisterObject;
|
|
TSubscriptionPurchasesDeferRequest.RegisterObject;
|
|
TSubscriptionPurchasesDeferResponse.RegisterObject;
|
|
TTesters.RegisterObject;
|
|
TTimestamp.RegisterObject;
|
|
TTokenPagination.RegisterObject;
|
|
TTrack.RegisterObject;
|
|
TTracksListResponse.RegisterObject;
|
|
TUserComment.RegisterObject;
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsApklistingsInstance : TEditsApklistingsResource;
|
|
|
|
begin
|
|
if (FEditsApklistingsInstance=Nil) then
|
|
FEditsApklistingsInstance:=CreateEditsApklistingsResource;
|
|
Result:=FEditsApklistingsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsApklistingsResource : TEditsApklistingsResource;
|
|
|
|
begin
|
|
Result:=CreateEditsApklistingsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsApklistingsResource(AOwner : TComponent) : TEditsApklistingsResource;
|
|
|
|
begin
|
|
Result:=TEditsApklistingsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsApksInstance : TEditsApksResource;
|
|
|
|
begin
|
|
if (FEditsApksInstance=Nil) then
|
|
FEditsApksInstance:=CreateEditsApksResource;
|
|
Result:=FEditsApksInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsApksResource : TEditsApksResource;
|
|
|
|
begin
|
|
Result:=CreateEditsApksResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsApksResource(AOwner : TComponent) : TEditsApksResource;
|
|
|
|
begin
|
|
Result:=TEditsApksResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsDetailsInstance : TEditsDetailsResource;
|
|
|
|
begin
|
|
if (FEditsDetailsInstance=Nil) then
|
|
FEditsDetailsInstance:=CreateEditsDetailsResource;
|
|
Result:=FEditsDetailsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsDetailsResource : TEditsDetailsResource;
|
|
|
|
begin
|
|
Result:=CreateEditsDetailsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsDetailsResource(AOwner : TComponent) : TEditsDetailsResource;
|
|
|
|
begin
|
|
Result:=TEditsDetailsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsExpansionfilesInstance : TEditsExpansionfilesResource;
|
|
|
|
begin
|
|
if (FEditsExpansionfilesInstance=Nil) then
|
|
FEditsExpansionfilesInstance:=CreateEditsExpansionfilesResource;
|
|
Result:=FEditsExpansionfilesInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsExpansionfilesResource : TEditsExpansionfilesResource;
|
|
|
|
begin
|
|
Result:=CreateEditsExpansionfilesResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsExpansionfilesResource(AOwner : TComponent) : TEditsExpansionfilesResource;
|
|
|
|
begin
|
|
Result:=TEditsExpansionfilesResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsImagesInstance : TEditsImagesResource;
|
|
|
|
begin
|
|
if (FEditsImagesInstance=Nil) then
|
|
FEditsImagesInstance:=CreateEditsImagesResource;
|
|
Result:=FEditsImagesInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsImagesResource : TEditsImagesResource;
|
|
|
|
begin
|
|
Result:=CreateEditsImagesResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsImagesResource(AOwner : TComponent) : TEditsImagesResource;
|
|
|
|
begin
|
|
Result:=TEditsImagesResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsListingsInstance : TEditsListingsResource;
|
|
|
|
begin
|
|
if (FEditsListingsInstance=Nil) then
|
|
FEditsListingsInstance:=CreateEditsListingsResource;
|
|
Result:=FEditsListingsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsListingsResource : TEditsListingsResource;
|
|
|
|
begin
|
|
Result:=CreateEditsListingsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsListingsResource(AOwner : TComponent) : TEditsListingsResource;
|
|
|
|
begin
|
|
Result:=TEditsListingsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsTestersInstance : TEditsTestersResource;
|
|
|
|
begin
|
|
if (FEditsTestersInstance=Nil) then
|
|
FEditsTestersInstance:=CreateEditsTestersResource;
|
|
Result:=FEditsTestersInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsTestersResource : TEditsTestersResource;
|
|
|
|
begin
|
|
Result:=CreateEditsTestersResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsTestersResource(AOwner : TComponent) : TEditsTestersResource;
|
|
|
|
begin
|
|
Result:=TEditsTestersResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsTracksInstance : TEditsTracksResource;
|
|
|
|
begin
|
|
if (FEditsTracksInstance=Nil) then
|
|
FEditsTracksInstance:=CreateEditsTracksResource;
|
|
Result:=FEditsTracksInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsTracksResource : TEditsTracksResource;
|
|
|
|
begin
|
|
Result:=CreateEditsTracksResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsTracksResource(AOwner : TComponent) : TEditsTracksResource;
|
|
|
|
begin
|
|
Result:=TEditsTracksResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEditsInstance : TEditsResource;
|
|
|
|
begin
|
|
if (FEditsInstance=Nil) then
|
|
FEditsInstance:=CreateEditsResource;
|
|
Result:=FEditsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsResource : TEditsResource;
|
|
|
|
begin
|
|
Result:=CreateEditsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEditsResource(AOwner : TComponent) : TEditsResource;
|
|
|
|
begin
|
|
Result:=TEditsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetEntitlementsInstance : TEntitlementsResource;
|
|
|
|
begin
|
|
if (FEntitlementsInstance=Nil) then
|
|
FEntitlementsInstance:=CreateEntitlementsResource;
|
|
Result:=FEntitlementsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateEntitlementsResource : TEntitlementsResource;
|
|
|
|
begin
|
|
Result:=CreateEntitlementsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateEntitlementsResource(AOwner : TComponent) : TEntitlementsResource;
|
|
|
|
begin
|
|
Result:=TEntitlementsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetInappproductsInstance : TInappproductsResource;
|
|
|
|
begin
|
|
if (FInappproductsInstance=Nil) then
|
|
FInappproductsInstance:=CreateInappproductsResource;
|
|
Result:=FInappproductsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateInappproductsResource : TInappproductsResource;
|
|
|
|
begin
|
|
Result:=CreateInappproductsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateInappproductsResource(AOwner : TComponent) : TInappproductsResource;
|
|
|
|
begin
|
|
Result:=TInappproductsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetPurchasesProductsInstance : TPurchasesProductsResource;
|
|
|
|
begin
|
|
if (FPurchasesProductsInstance=Nil) then
|
|
FPurchasesProductsInstance:=CreatePurchasesProductsResource;
|
|
Result:=FPurchasesProductsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreatePurchasesProductsResource : TPurchasesProductsResource;
|
|
|
|
begin
|
|
Result:=CreatePurchasesProductsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreatePurchasesProductsResource(AOwner : TComponent) : TPurchasesProductsResource;
|
|
|
|
begin
|
|
Result:=TPurchasesProductsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetPurchasesSubscriptionsInstance : TPurchasesSubscriptionsResource;
|
|
|
|
begin
|
|
if (FPurchasesSubscriptionsInstance=Nil) then
|
|
FPurchasesSubscriptionsInstance:=CreatePurchasesSubscriptionsResource;
|
|
Result:=FPurchasesSubscriptionsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreatePurchasesSubscriptionsResource : TPurchasesSubscriptionsResource;
|
|
|
|
begin
|
|
Result:=CreatePurchasesSubscriptionsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreatePurchasesSubscriptionsResource(AOwner : TComponent) : TPurchasesSubscriptionsResource;
|
|
|
|
begin
|
|
Result:=TPurchasesSubscriptionsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetPurchasesInstance : TPurchasesResource;
|
|
|
|
begin
|
|
if (FPurchasesInstance=Nil) then
|
|
FPurchasesInstance:=CreatePurchasesResource;
|
|
Result:=FPurchasesInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreatePurchasesResource : TPurchasesResource;
|
|
|
|
begin
|
|
Result:=CreatePurchasesResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreatePurchasesResource(AOwner : TComponent) : TPurchasesResource;
|
|
|
|
begin
|
|
Result:=TPurchasesResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
Function TAndroidpublisherAPI.GetReviewsInstance : TReviewsResource;
|
|
|
|
begin
|
|
if (FReviewsInstance=Nil) then
|
|
FReviewsInstance:=CreateReviewsResource;
|
|
Result:=FReviewsInstance;
|
|
end;
|
|
|
|
Function TAndroidpublisherAPI.CreateReviewsResource : TReviewsResource;
|
|
|
|
begin
|
|
Result:=CreateReviewsResource(Self);
|
|
end;
|
|
|
|
|
|
Function TAndroidpublisherAPI.CreateReviewsResource(AOwner : TComponent) : TReviewsResource;
|
|
|
|
begin
|
|
Result:=TReviewsResource.Create(AOwner);
|
|
Result.API:=Self.API;
|
|
end;
|
|
|
|
|
|
|
|
initialization
|
|
TAndroidpublisherAPI.RegisterAPI;
|
|
end.
|