Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
unit googleyoutube;
{$MODE objfpc}
{$H+}
interface
uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
TAccessPolicy = Class;
TActivity = Class;
TActivityContentDetails = Class;
TActivityContentDetailsBulletin = Class;
TActivityContentDetailsChannelItem = Class;
TActivityContentDetailsComment = Class;
TActivityContentDetailsFavorite = Class;
TActivityContentDetailsLike = Class;
TActivityContentDetailsPlaylistItem = Class;
TActivityContentDetailsPromotedItem = Class;
TActivityContentDetailsRecommendation = Class;
TActivityContentDetailsSocial = Class;
TActivityContentDetailsSubscription = Class;
TActivityContentDetailsUpload = Class;
TActivityListResponse = Class;
TActivitySnippet = Class;
TCaption = Class;
TCaptionListResponse = Class;
TCaptionSnippet = Class;
TCdnSettings = Class;
TChannel = Class;
TChannelAuditDetails = Class;
TChannelBannerResource = Class;
TChannelBrandingSettings = Class;
TChannelContentDetails = Class;
TChannelContentOwnerDetails = Class;
TChannelConversionPing = Class;
TChannelConversionPings = Class;
TChannelListResponse = Class;
TChannelLocalization = Class;
TChannelProfileDetails = Class;
TChannelSection = Class;
TChannelSectionContentDetails = Class;
TChannelSectionListResponse = Class;
TChannelSectionLocalization = Class;
TChannelSectionSnippet = Class;
TChannelSectionTargeting = Class;
TChannelSettings = Class;
TChannelSnippet = Class;
TChannelStatistics = Class;
TChannelStatus = Class;
TChannelTopicDetails = Class;
TComment = Class;
TCommentListResponse = Class;
TCommentSnippet = Class;
TCommentThread = Class;
TCommentThreadListResponse = Class;
TCommentThreadReplies = Class;
TCommentThreadSnippet = Class;
TContentRating = Class;
TFanFundingEvent = Class;
TFanFundingEventListResponse = Class;
TFanFundingEventSnippet = Class;
TGeoPoint = Class;
TGuideCategory = Class;
TGuideCategoryListResponse = Class;
TGuideCategorySnippet = Class;
TI18nLanguage = Class;
TI18nLanguageListResponse = Class;
TI18nLanguageSnippet = Class;
TI18nRegion = Class;
TI18nRegionListResponse = Class;
TI18nRegionSnippet = Class;
TImageSettings = Class;
TIngestionInfo = Class;
TInvideoBranding = Class;
TInvideoPosition = Class;
TInvideoPromotion = Class;
TInvideoTiming = Class;
TLanguageTag = Class;
TLiveBroadcast = Class;
TLiveBroadcastContentDetails = Class;
TLiveBroadcastListResponse = Class;
TLiveBroadcastSnippet = Class;
TLiveBroadcastStatistics = Class;
TLiveBroadcastStatus = Class;
TLiveBroadcastTopic = Class;
TLiveBroadcastTopicDetails = Class;
TLiveBroadcastTopicSnippet = Class;
TLiveChatBan = Class;
TLiveChatBanSnippet = Class;
TLiveChatFanFundingEventDetails = Class;
TLiveChatMessage = Class;
TLiveChatMessageAuthorDetails = Class;
TLiveChatMessageDeletedDetails = Class;
TLiveChatMessageListResponse = Class;
TLiveChatMessageRetractedDetails = Class;
TLiveChatMessageSnippet = Class;
TLiveChatModerator = Class;
TLiveChatModeratorListResponse = Class;
TLiveChatModeratorSnippet = Class;
TLiveChatTextMessageDetails = Class;
TLiveChatUserBannedMessageDetails = Class;
TLiveStream = Class;
TLiveStreamConfigurationIssue = Class;
TLiveStreamContentDetails = Class;
TLiveStreamHealthStatus = Class;
TLiveStreamListResponse = Class;
TLiveStreamSnippet = Class;
TLiveStreamStatus = Class;
TLocalizedProperty = Class;
TLocalizedString = Class;
TMonitorStreamInfo = Class;
TPageInfo = Class;
TPlaylist = Class;
TPlaylistContentDetails = Class;
TPlaylistItem = Class;
TPlaylistItemContentDetails = Class;
TPlaylistItemListResponse = Class;
TPlaylistItemSnippet = Class;
TPlaylistItemStatus = Class;
TPlaylistListResponse = Class;
TPlaylistLocalization = Class;
TPlaylistPlayer = Class;
TPlaylistSnippet = Class;
TPlaylistStatus = Class;
TPromotedItem = Class;
TPromotedItemId = Class;
TPropertyValue = Class;
TResourceId = Class;
TSearchListResponse = Class;
TSearchResult = Class;
TSearchResultSnippet = Class;
TSponsor = Class;
TSponsorListResponse = Class;
TSponsorSnippet = Class;
TSubscription = Class;
TSubscriptionContentDetails = Class;
TSubscriptionListResponse = Class;
TSubscriptionSnippet = Class;
TSubscriptionSubscriberSnippet = Class;
TThumbnail = Class;
TThumbnailDetails = Class;
TThumbnailSetResponse = Class;
TTokenPagination = Class;
TVideo = Class;
TVideoAbuseReport = Class;
TVideoAbuseReportReason = Class;
TVideoAbuseReportReasonListResponse = Class;
TVideoAbuseReportReasonSnippet = Class;
TVideoAbuseReportSecondaryReason = Class;
TVideoAgeGating = Class;
TVideoCategory = Class;
TVideoCategoryListResponse = Class;
TVideoCategorySnippet = Class;
TVideoContentDetails = Class;
TVideoContentDetailsRegionRestriction = Class;
TVideoFileDetails = Class;
TVideoFileDetailsAudioStream = Class;
TVideoFileDetailsVideoStream = Class;
TVideoGetRatingResponse = Class;
TVideoListResponse = Class;
TVideoLiveStreamingDetails = Class;
TVideoLocalization = Class;
TVideoMonetizationDetails = Class;
TVideoPlayer = Class;
TVideoProcessingDetails = Class;
TVideoProcessingDetailsProcessingProgress = Class;
TVideoProjectDetails = Class;
TVideoRating = Class;
TVideoRecordingDetails = Class;
TVideoSnippet = Class;
TVideoStatistics = Class;
TVideoStatus = Class;
TVideoSuggestions = Class;
TVideoSuggestionsTagSuggestion = Class;
TVideoTopicDetails = Class;
TWatchSettings = Class;
TAccessPolicyArray = Array of TAccessPolicy;
TActivityArray = Array of TActivity;
TActivityContentDetailsArray = Array of TActivityContentDetails;
TActivityContentDetailsBulletinArray = Array of TActivityContentDetailsBulletin;
TActivityContentDetailsChannelItemArray = Array of TActivityContentDetailsChannelItem;
TActivityContentDetailsCommentArray = Array of TActivityContentDetailsComment;
TActivityContentDetailsFavoriteArray = Array of TActivityContentDetailsFavorite;
TActivityContentDetailsLikeArray = Array of TActivityContentDetailsLike;
TActivityContentDetailsPlaylistItemArray = Array of TActivityContentDetailsPlaylistItem;
TActivityContentDetailsPromotedItemArray = Array of TActivityContentDetailsPromotedItem;
TActivityContentDetailsRecommendationArray = Array of TActivityContentDetailsRecommendation;
TActivityContentDetailsSocialArray = Array of TActivityContentDetailsSocial;
TActivityContentDetailsSubscriptionArray = Array of TActivityContentDetailsSubscription;
TActivityContentDetailsUploadArray = Array of TActivityContentDetailsUpload;
TActivityListResponseArray = Array of TActivityListResponse;
TActivitySnippetArray = Array of TActivitySnippet;
TCaptionArray = Array of TCaption;
TCaptionListResponseArray = Array of TCaptionListResponse;
TCaptionSnippetArray = Array of TCaptionSnippet;
TCdnSettingsArray = Array of TCdnSettings;
TChannelArray = Array of TChannel;
TChannelAuditDetailsArray = Array of TChannelAuditDetails;
TChannelBannerResourceArray = Array of TChannelBannerResource;
TChannelBrandingSettingsArray = Array of TChannelBrandingSettings;
TChannelContentDetailsArray = Array of TChannelContentDetails;
TChannelContentOwnerDetailsArray = Array of TChannelContentOwnerDetails;
TChannelConversionPingArray = Array of TChannelConversionPing;
TChannelConversionPingsArray = Array of TChannelConversionPings;
TChannelListResponseArray = Array of TChannelListResponse;
TChannelLocalizationArray = Array of TChannelLocalization;
TChannelProfileDetailsArray = Array of TChannelProfileDetails;
TChannelSectionArray = Array of TChannelSection;
TChannelSectionContentDetailsArray = Array of TChannelSectionContentDetails;
TChannelSectionListResponseArray = Array of TChannelSectionListResponse;
TChannelSectionLocalizationArray = Array of TChannelSectionLocalization;
TChannelSectionSnippetArray = Array of TChannelSectionSnippet;
TChannelSectionTargetingArray = Array of TChannelSectionTargeting;
TChannelSettingsArray = Array of TChannelSettings;
TChannelSnippetArray = Array of TChannelSnippet;
TChannelStatisticsArray = Array of TChannelStatistics;
TChannelStatusArray = Array of TChannelStatus;
TChannelTopicDetailsArray = Array of TChannelTopicDetails;
TCommentArray = Array of TComment;
TCommentListResponseArray = Array of TCommentListResponse;
TCommentSnippetArray = Array of TCommentSnippet;
TCommentThreadArray = Array of TCommentThread;
TCommentThreadListResponseArray = Array of TCommentThreadListResponse;
TCommentThreadRepliesArray = Array of TCommentThreadReplies;
TCommentThreadSnippetArray = Array of TCommentThreadSnippet;
TContentRatingArray = Array of TContentRating;
TFanFundingEventArray = Array of TFanFundingEvent;
TFanFundingEventListResponseArray = Array of TFanFundingEventListResponse;
TFanFundingEventSnippetArray = Array of TFanFundingEventSnippet;
TGeoPointArray = Array of TGeoPoint;
TGuideCategoryArray = Array of TGuideCategory;
TGuideCategoryListResponseArray = Array of TGuideCategoryListResponse;
TGuideCategorySnippetArray = Array of TGuideCategorySnippet;
TI18nLanguageArray = Array of TI18nLanguage;
TI18nLanguageListResponseArray = Array of TI18nLanguageListResponse;
TI18nLanguageSnippetArray = Array of TI18nLanguageSnippet;
TI18nRegionArray = Array of TI18nRegion;
TI18nRegionListResponseArray = Array of TI18nRegionListResponse;
TI18nRegionSnippetArray = Array of TI18nRegionSnippet;
TImageSettingsArray = Array of TImageSettings;
TIngestionInfoArray = Array of TIngestionInfo;
TInvideoBrandingArray = Array of TInvideoBranding;
TInvideoPositionArray = Array of TInvideoPosition;
TInvideoPromotionArray = Array of TInvideoPromotion;
TInvideoTimingArray = Array of TInvideoTiming;
TLanguageTagArray = Array of TLanguageTag;
TLiveBroadcastArray = Array of TLiveBroadcast;
TLiveBroadcastContentDetailsArray = Array of TLiveBroadcastContentDetails;
TLiveBroadcastListResponseArray = Array of TLiveBroadcastListResponse;
TLiveBroadcastSnippetArray = Array of TLiveBroadcastSnippet;
TLiveBroadcastStatisticsArray = Array of TLiveBroadcastStatistics;
TLiveBroadcastStatusArray = Array of TLiveBroadcastStatus;
TLiveBroadcastTopicArray = Array of TLiveBroadcastTopic;
TLiveBroadcastTopicDetailsArray = Array of TLiveBroadcastTopicDetails;
TLiveBroadcastTopicSnippetArray = Array of TLiveBroadcastTopicSnippet;
TLiveChatBanArray = Array of TLiveChatBan;
TLiveChatBanSnippetArray = Array of TLiveChatBanSnippet;
TLiveChatFanFundingEventDetailsArray = Array of TLiveChatFanFundingEventDetails;
TLiveChatMessageArray = Array of TLiveChatMessage;
TLiveChatMessageAuthorDetailsArray = Array of TLiveChatMessageAuthorDetails;
TLiveChatMessageDeletedDetailsArray = Array of TLiveChatMessageDeletedDetails;
TLiveChatMessageListResponseArray = Array of TLiveChatMessageListResponse;
TLiveChatMessageRetractedDetailsArray = Array of TLiveChatMessageRetractedDetails;
TLiveChatMessageSnippetArray = Array of TLiveChatMessageSnippet;
TLiveChatModeratorArray = Array of TLiveChatModerator;
TLiveChatModeratorListResponseArray = Array of TLiveChatModeratorListResponse;
TLiveChatModeratorSnippetArray = Array of TLiveChatModeratorSnippet;
TLiveChatTextMessageDetailsArray = Array of TLiveChatTextMessageDetails;
TLiveChatUserBannedMessageDetailsArray = Array of TLiveChatUserBannedMessageDetails;
TLiveStreamArray = Array of TLiveStream;
TLiveStreamConfigurationIssueArray = Array of TLiveStreamConfigurationIssue;
TLiveStreamContentDetailsArray = Array of TLiveStreamContentDetails;
TLiveStreamHealthStatusArray = Array of TLiveStreamHealthStatus;
TLiveStreamListResponseArray = Array of TLiveStreamListResponse;
TLiveStreamSnippetArray = Array of TLiveStreamSnippet;
TLiveStreamStatusArray = Array of TLiveStreamStatus;
TLocalizedPropertyArray = Array of TLocalizedProperty;
TLocalizedStringArray = Array of TLocalizedString;
TMonitorStreamInfoArray = Array of TMonitorStreamInfo;
TPageInfoArray = Array of TPageInfo;
TPlaylistArray = Array of TPlaylist;
TPlaylistContentDetailsArray = Array of TPlaylistContentDetails;
TPlaylistItemArray = Array of TPlaylistItem;
TPlaylistItemContentDetailsArray = Array of TPlaylistItemContentDetails;
TPlaylistItemListResponseArray = Array of TPlaylistItemListResponse;
TPlaylistItemSnippetArray = Array of TPlaylistItemSnippet;
TPlaylistItemStatusArray = Array of TPlaylistItemStatus;
TPlaylistListResponseArray = Array of TPlaylistListResponse;
TPlaylistLocalizationArray = Array of TPlaylistLocalization;
TPlaylistPlayerArray = Array of TPlaylistPlayer;
TPlaylistSnippetArray = Array of TPlaylistSnippet;
TPlaylistStatusArray = Array of TPlaylistStatus;
TPromotedItemArray = Array of TPromotedItem;
TPromotedItemIdArray = Array of TPromotedItemId;
TPropertyValueArray = Array of TPropertyValue;
TResourceIdArray = Array of TResourceId;
TSearchListResponseArray = Array of TSearchListResponse;
TSearchResultArray = Array of TSearchResult;
TSearchResultSnippetArray = Array of TSearchResultSnippet;
TSponsorArray = Array of TSponsor;
TSponsorListResponseArray = Array of TSponsorListResponse;
TSponsorSnippetArray = Array of TSponsorSnippet;
TSubscriptionArray = Array of TSubscription;
TSubscriptionContentDetailsArray = Array of TSubscriptionContentDetails;
TSubscriptionListResponseArray = Array of TSubscriptionListResponse;
TSubscriptionSnippetArray = Array of TSubscriptionSnippet;
TSubscriptionSubscriberSnippetArray = Array of TSubscriptionSubscriberSnippet;
TThumbnailArray = Array of TThumbnail;
TThumbnailDetailsArray = Array of TThumbnailDetails;
TThumbnailSetResponseArray = Array of TThumbnailSetResponse;
TTokenPaginationArray = Array of TTokenPagination;
TVideoArray = Array of TVideo;
TVideoAbuseReportArray = Array of TVideoAbuseReport;
TVideoAbuseReportReasonArray = Array of TVideoAbuseReportReason;
TVideoAbuseReportReasonListResponseArray = Array of TVideoAbuseReportReasonListResponse;
TVideoAbuseReportReasonSnippetArray = Array of TVideoAbuseReportReasonSnippet;
TVideoAbuseReportSecondaryReasonArray = Array of TVideoAbuseReportSecondaryReason;
TVideoAgeGatingArray = Array of TVideoAgeGating;
TVideoCategoryArray = Array of TVideoCategory;
TVideoCategoryListResponseArray = Array of TVideoCategoryListResponse;
TVideoCategorySnippetArray = Array of TVideoCategorySnippet;
TVideoContentDetailsArray = Array of TVideoContentDetails;
TVideoContentDetailsRegionRestrictionArray = Array of TVideoContentDetailsRegionRestriction;
TVideoFileDetailsArray = Array of TVideoFileDetails;
TVideoFileDetailsAudioStreamArray = Array of TVideoFileDetailsAudioStream;
TVideoFileDetailsVideoStreamArray = Array of TVideoFileDetailsVideoStream;
TVideoGetRatingResponseArray = Array of TVideoGetRatingResponse;
TVideoListResponseArray = Array of TVideoListResponse;
TVideoLiveStreamingDetailsArray = Array of TVideoLiveStreamingDetails;
TVideoLocalizationArray = Array of TVideoLocalization;
TVideoMonetizationDetailsArray = Array of TVideoMonetizationDetails;
TVideoPlayerArray = Array of TVideoPlayer;
TVideoProcessingDetailsArray = Array of TVideoProcessingDetails;
TVideoProcessingDetailsProcessingProgressArray = Array of TVideoProcessingDetailsProcessingProgress;
TVideoProjectDetailsArray = Array of TVideoProjectDetails;
TVideoRatingArray = Array of TVideoRating;
TVideoRecordingDetailsArray = Array of TVideoRecordingDetails;
TVideoSnippetArray = Array of TVideoSnippet;
TVideoStatisticsArray = Array of TVideoStatistics;
TVideoStatusArray = Array of TVideoStatus;
TVideoSuggestionsArray = Array of TVideoSuggestions;
TVideoSuggestionsTagSuggestionArray = Array of TVideoSuggestionsTagSuggestion;
TVideoTopicDetailsArray = Array of TVideoTopicDetails;
TWatchSettingsArray = Array of TWatchSettings;
//Anonymous types, using auto-generated names
TChannelTypelocalizations = Class;
TChannelContentDetailsTyperelatedPlaylists = Class;
TChannelSectionTypelocalizations = Class;
TPlaylistTypelocalizations = Class;
TVideoTypelocalizations = Class;
TActivityListResponseTypeitemsArray = Array of TActivity;
TCaptionListResponseTypeitemsArray = Array of TCaption;
TChannelBrandingSettingsTypehintsArray = Array of TPropertyValue;
TChannelConversionPingsTypepingsArray = Array of TChannelConversionPing;
TChannelListResponseTypeitemsArray = Array of TChannel;
TChannelSectionListResponseTypeitemsArray = Array of TChannelSection;
TCommentListResponseTypeitemsArray = Array of TComment;
TCommentThreadListResponseTypeitemsArray = Array of TCommentThread;
TCommentThreadRepliesTypecommentsArray = Array of TComment;
TFanFundingEventListResponseTypeitemsArray = Array of TFanFundingEvent;
TGuideCategoryListResponseTypeitemsArray = Array of TGuideCategory;
TI18nLanguageListResponseTypeitemsArray = Array of TI18nLanguage;
TI18nRegionListResponseTypeitemsArray = Array of TI18nRegion;
TInvideoPromotionTypeitemsArray = Array of TPromotedItem;
TLiveBroadcastListResponseTypeitemsArray = Array of TLiveBroadcast;
TLiveBroadcastTopicDetailsTypetopicsArray = Array of TLiveBroadcastTopic;
TLiveChatMessageListResponseTypeitemsArray = Array of TLiveChatMessage;
TLiveChatModeratorListResponseTypeitemsArray = Array of TLiveChatModerator;
TLiveStreamHealthStatusTypeconfigurationIssuesArray = Array of TLiveStreamConfigurationIssue;
TLiveStreamListResponseTypeitemsArray = Array of TLiveStream;
TLocalizedPropertyTypelocalizedArray = Array of TLocalizedString;
TPlaylistItemListResponseTypeitemsArray = Array of TPlaylistItem;
TPlaylistListResponseTypeitemsArray = Array of TPlaylist;
TSearchListResponseTypeitemsArray = Array of TSearchResult;
TSponsorListResponseTypeitemsArray = Array of TSponsor;
TSubscriptionListResponseTypeitemsArray = Array of TSubscription;
TThumbnailSetResponseTypeitemsArray = Array of TThumbnailDetails;
TVideoAbuseReportReasonListResponseTypeitemsArray = Array of TVideoAbuseReportReason;
TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray = Array of TVideoAbuseReportSecondaryReason;
TVideoCategoryListResponseTypeitemsArray = Array of TVideoCategory;
TVideoFileDetailsTypeaudioStreamsArray = Array of TVideoFileDetailsAudioStream;
TVideoFileDetailsTypevideoStreamsArray = Array of TVideoFileDetailsVideoStream;
TVideoGetRatingResponseTypeitemsArray = Array of TVideoRating;
TVideoListResponseTypeitemsArray = Array of TVideo;
TVideoSuggestionsTypetagSuggestionsArray = Array of TVideoSuggestionsTagSuggestion;
{ --------------------------------------------------------------------
TAccessPolicy
--------------------------------------------------------------------}
TAccessPolicy = Class(TGoogleBaseObject)
Private
Fallowed : boolean;
Fexception : TStringArray;
Protected
//Property setters
Procedure Setallowed(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setexception(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 allowed : boolean Index 0 Read Fallowed Write Setallowed;
Property exception : TStringArray Index 8 Read Fexception Write Setexception;
end;
TAccessPolicyClass = Class of TAccessPolicy;
{ --------------------------------------------------------------------
TActivity
--------------------------------------------------------------------}
TActivity = Class(TGoogleBaseObject)
Private
FcontentDetails : TActivityContentDetails;
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TActivitySnippet;
Protected
//Property setters
Procedure SetcontentDetails(AIndex : Integer; const AValue : TActivityContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TActivitySnippet); virtual;
Public
Published
Property contentDetails : TActivityContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property snippet : TActivitySnippet Index 32 Read Fsnippet Write Setsnippet;
end;
TActivityClass = Class of TActivity;
{ --------------------------------------------------------------------
TActivityContentDetails
--------------------------------------------------------------------}
TActivityContentDetails = Class(TGoogleBaseObject)
Private
Fbulletin : TActivityContentDetailsBulletin;
FchannelItem : TActivityContentDetailsChannelItem;
Fcomment : TActivityContentDetailsComment;
Ffavorite : TActivityContentDetailsFavorite;
Flike : TActivityContentDetailsLike;
FplaylistItem : TActivityContentDetailsPlaylistItem;
FpromotedItem : TActivityContentDetailsPromotedItem;
Frecommendation : TActivityContentDetailsRecommendation;
Fsocial : TActivityContentDetailsSocial;
Fsubscription : TActivityContentDetailsSubscription;
Fupload : TActivityContentDetailsUpload;
Protected
//Property setters
Procedure Setbulletin(AIndex : Integer; const AValue : TActivityContentDetailsBulletin); virtual;
Procedure SetchannelItem(AIndex : Integer; const AValue : TActivityContentDetailsChannelItem); virtual;
Procedure Setcomment(AIndex : Integer; const AValue : TActivityContentDetailsComment); virtual;
Procedure Setfavorite(AIndex : Integer; const AValue : TActivityContentDetailsFavorite); virtual;
Procedure Setlike(AIndex : Integer; const AValue : TActivityContentDetailsLike); virtual;
Procedure SetplaylistItem(AIndex : Integer; const AValue : TActivityContentDetailsPlaylistItem); virtual;
Procedure SetpromotedItem(AIndex : Integer; const AValue : TActivityContentDetailsPromotedItem); virtual;
Procedure Setrecommendation(AIndex : Integer; const AValue : TActivityContentDetailsRecommendation); virtual;
Procedure Setsocial(AIndex : Integer; const AValue : TActivityContentDetailsSocial); virtual;
Procedure Setsubscription(AIndex : Integer; const AValue : TActivityContentDetailsSubscription); virtual;
Procedure Setupload(AIndex : Integer; const AValue : TActivityContentDetailsUpload); virtual;
Public
Published
Property bulletin : TActivityContentDetailsBulletin Index 0 Read Fbulletin Write Setbulletin;
Property channelItem : TActivityContentDetailsChannelItem Index 8 Read FchannelItem Write SetchannelItem;
Property comment : TActivityContentDetailsComment Index 16 Read Fcomment Write Setcomment;
Property favorite : TActivityContentDetailsFavorite Index 24 Read Ffavorite Write Setfavorite;
Property like : TActivityContentDetailsLike Index 32 Read Flike Write Setlike;
Property playlistItem : TActivityContentDetailsPlaylistItem Index 40 Read FplaylistItem Write SetplaylistItem;
Property promotedItem : TActivityContentDetailsPromotedItem Index 48 Read FpromotedItem Write SetpromotedItem;
Property recommendation : TActivityContentDetailsRecommendation Index 56 Read Frecommendation Write Setrecommendation;
Property social : TActivityContentDetailsSocial Index 64 Read Fsocial Write Setsocial;
Property subscription : TActivityContentDetailsSubscription Index 72 Read Fsubscription Write Setsubscription;
Property upload : TActivityContentDetailsUpload Index 80 Read Fupload Write Setupload;
end;
TActivityContentDetailsClass = Class of TActivityContentDetails;
{ --------------------------------------------------------------------
TActivityContentDetailsBulletin
--------------------------------------------------------------------}
TActivityContentDetailsBulletin = Class(TGoogleBaseObject)
Private
FresourceId : TResourceId;
Protected
//Property setters
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
end;
TActivityContentDetailsBulletinClass = Class of TActivityContentDetailsBulletin;
{ --------------------------------------------------------------------
TActivityContentDetailsChannelItem
--------------------------------------------------------------------}
TActivityContentDetailsChannelItem = Class(TGoogleBaseObject)
Private
FresourceId : TResourceId;
Protected
//Property setters
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
end;
TActivityContentDetailsChannelItemClass = Class of TActivityContentDetailsChannelItem;
{ --------------------------------------------------------------------
TActivityContentDetailsComment
--------------------------------------------------------------------}
TActivityContentDetailsComment = Class(TGoogleBaseObject)
Private
FresourceId : TResourceId;
Protected
//Property setters
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
end;
TActivityContentDetailsCommentClass = Class of TActivityContentDetailsComment;
{ --------------------------------------------------------------------
TActivityContentDetailsFavorite
--------------------------------------------------------------------}
TActivityContentDetailsFavorite = Class(TGoogleBaseObject)
Private
FresourceId : TResourceId;
Protected
//Property setters
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
end;
TActivityContentDetailsFavoriteClass = Class of TActivityContentDetailsFavorite;
{ --------------------------------------------------------------------
TActivityContentDetailsLike
--------------------------------------------------------------------}
TActivityContentDetailsLike = Class(TGoogleBaseObject)
Private
FresourceId : TResourceId;
Protected
//Property setters
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
end;
TActivityContentDetailsLikeClass = Class of TActivityContentDetailsLike;
{ --------------------------------------------------------------------
TActivityContentDetailsPlaylistItem
--------------------------------------------------------------------}
TActivityContentDetailsPlaylistItem = Class(TGoogleBaseObject)
Private
FplaylistId : String;
FplaylistItemId : String;
FresourceId : TResourceId;
Protected
//Property setters
Procedure SetplaylistId(AIndex : Integer; const AValue : String); virtual;
Procedure SetplaylistItemId(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property playlistId : String Index 0 Read FplaylistId Write SetplaylistId;
Property playlistItemId : String Index 8 Read FplaylistItemId Write SetplaylistItemId;
Property resourceId : TResourceId Index 16 Read FresourceId Write SetresourceId;
end;
TActivityContentDetailsPlaylistItemClass = Class of TActivityContentDetailsPlaylistItem;
{ --------------------------------------------------------------------
TActivityContentDetailsPromotedItem
--------------------------------------------------------------------}
TActivityContentDetailsPromotedItem = Class(TGoogleBaseObject)
Private
FadTag : String;
FclickTrackingUrl : String;
FcreativeViewUrl : String;
FctaType : String;
FcustomCtaButtonText : String;
FdescriptionText : String;
FdestinationUrl : String;
FforecastingUrl : TStringArray;
FimpressionUrl : TStringArray;
FvideoId : String;
Protected
//Property setters
Procedure SetadTag(AIndex : Integer; const AValue : String); virtual;
Procedure SetclickTrackingUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreativeViewUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetctaType(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomCtaButtonText(AIndex : Integer; const AValue : String); virtual;
Procedure SetdescriptionText(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetforecastingUrl(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetimpressionUrl(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetvideoId(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 adTag : String Index 0 Read FadTag Write SetadTag;
Property clickTrackingUrl : String Index 8 Read FclickTrackingUrl Write SetclickTrackingUrl;
Property creativeViewUrl : String Index 16 Read FcreativeViewUrl Write SetcreativeViewUrl;
Property ctaType : String Index 24 Read FctaType Write SetctaType;
Property customCtaButtonText : String Index 32 Read FcustomCtaButtonText Write SetcustomCtaButtonText;
Property descriptionText : String Index 40 Read FdescriptionText Write SetdescriptionText;
Property destinationUrl : String Index 48 Read FdestinationUrl Write SetdestinationUrl;
Property forecastingUrl : TStringArray Index 56 Read FforecastingUrl Write SetforecastingUrl;
Property impressionUrl : TStringArray Index 64 Read FimpressionUrl Write SetimpressionUrl;
Property videoId : String Index 72 Read FvideoId Write SetvideoId;
end;
TActivityContentDetailsPromotedItemClass = Class of TActivityContentDetailsPromotedItem;
{ --------------------------------------------------------------------
TActivityContentDetailsRecommendation
--------------------------------------------------------------------}
TActivityContentDetailsRecommendation = Class(TGoogleBaseObject)
Private
Freason : String;
FresourceId : TResourceId;
FseedResourceId : TResourceId;
Protected
//Property setters
Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Procedure SetseedResourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property reason : String Index 0 Read Freason Write Setreason;
Property resourceId : TResourceId Index 8 Read FresourceId Write SetresourceId;
Property seedResourceId : TResourceId Index 16 Read FseedResourceId Write SetseedResourceId;
end;
TActivityContentDetailsRecommendationClass = Class of TActivityContentDetailsRecommendation;
{ --------------------------------------------------------------------
TActivityContentDetailsSocial
--------------------------------------------------------------------}
TActivityContentDetailsSocial = Class(TGoogleBaseObject)
Private
Fauthor : String;
FimageUrl : String;
FreferenceUrl : String;
FresourceId : TResourceId;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setauthor(AIndex : Integer; const AValue : String); virtual;
Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetreferenceUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property author : String Index 0 Read Fauthor Write Setauthor;
Property imageUrl : String Index 8 Read FimageUrl Write SetimageUrl;
Property referenceUrl : String Index 16 Read FreferenceUrl Write SetreferenceUrl;
Property resourceId : TResourceId Index 24 Read FresourceId Write SetresourceId;
Property _type : String Index 32 Read F_type Write Set_type;
end;
TActivityContentDetailsSocialClass = Class of TActivityContentDetailsSocial;
{ --------------------------------------------------------------------
TActivityContentDetailsSubscription
--------------------------------------------------------------------}
TActivityContentDetailsSubscription = Class(TGoogleBaseObject)
Private
FresourceId : TResourceId;
Protected
//Property setters
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
end;
TActivityContentDetailsSubscriptionClass = Class of TActivityContentDetailsSubscription;
{ --------------------------------------------------------------------
TActivityContentDetailsUpload
--------------------------------------------------------------------}
TActivityContentDetailsUpload = Class(TGoogleBaseObject)
Private
FvideoId : String;
Protected
//Property setters
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property videoId : String Index 0 Read FvideoId Write SetvideoId;
end;
TActivityContentDetailsUploadClass = Class of TActivityContentDetailsUpload;
{ --------------------------------------------------------------------
TActivityListResponse
--------------------------------------------------------------------}
TActivityListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TActivityListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TActivityListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TActivityListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TActivityListResponseClass = Class of TActivityListResponse;
{ --------------------------------------------------------------------
TActivitySnippet
--------------------------------------------------------------------}
TActivitySnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
FchannelTitle : String;
Fdescription : String;
FgroupId : String;
FpublishedAt : TDatetime;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetgroupId(AIndex : Integer; const AValue : String); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property channelTitle : String Index 8 Read FchannelTitle Write SetchannelTitle;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property groupId : String Index 24 Read FgroupId Write SetgroupId;
Property publishedAt : TDatetime Index 32 Read FpublishedAt Write SetpublishedAt;
Property thumbnails : TThumbnailDetails Index 40 Read Fthumbnails Write Setthumbnails;
Property title : String Index 48 Read Ftitle Write Settitle;
Property _type : String Index 56 Read F_type Write Set_type;
end;
TActivitySnippetClass = Class of TActivitySnippet;
{ --------------------------------------------------------------------
TCaption
--------------------------------------------------------------------}
TCaption = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TCaptionSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TCaptionSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TCaptionSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TCaptionClass = Class of TCaption;
{ --------------------------------------------------------------------
TCaptionListResponse
--------------------------------------------------------------------}
TCaptionListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TCaptionListResponseTypeitemsArray;
Fkind : String;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TCaptionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TCaptionListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property visitorId : String Index 32 Read FvisitorId Write SetvisitorId;
end;
TCaptionListResponseClass = Class of TCaptionListResponse;
{ --------------------------------------------------------------------
TCaptionSnippet
--------------------------------------------------------------------}
TCaptionSnippet = Class(TGoogleBaseObject)
Private
FaudioTrackType : String;
FfailureReason : String;
FisAutoSynced : boolean;
FisCC : boolean;
FisDraft : boolean;
FisEasyReader : boolean;
FisLarge : boolean;
Flanguage : String;
FlastUpdated : TDatetime;
Fname : String;
Fstatus : String;
FtrackKind : String;
FvideoId : String;
Protected
//Property setters
Procedure SetaudioTrackType(AIndex : Integer; const AValue : String); virtual;
Procedure SetfailureReason(AIndex : Integer; const AValue : String); virtual;
Procedure SetisAutoSynced(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetisCC(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetisDraft(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetisEasyReader(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetisLarge(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastUpdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SettrackKind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property audioTrackType : String Index 0 Read FaudioTrackType Write SetaudioTrackType;
Property failureReason : String Index 8 Read FfailureReason Write SetfailureReason;
Property isAutoSynced : boolean Index 16 Read FisAutoSynced Write SetisAutoSynced;
Property isCC : boolean Index 24 Read FisCC Write SetisCC;
Property isDraft : boolean Index 32 Read FisDraft Write SetisDraft;
Property isEasyReader : boolean Index 40 Read FisEasyReader Write SetisEasyReader;
Property isLarge : boolean Index 48 Read FisLarge Write SetisLarge;
Property language : String Index 56 Read Flanguage Write Setlanguage;
Property lastUpdated : TDatetime Index 64 Read FlastUpdated Write SetlastUpdated;
Property name : String Index 72 Read Fname Write Setname;
Property status : String Index 80 Read Fstatus Write Setstatus;
Property trackKind : String Index 88 Read FtrackKind Write SettrackKind;
Property videoId : String Index 96 Read FvideoId Write SetvideoId;
end;
TCaptionSnippetClass = Class of TCaptionSnippet;
{ --------------------------------------------------------------------
TCdnSettings
--------------------------------------------------------------------}
TCdnSettings = Class(TGoogleBaseObject)
Private
Fformat : String;
FframeRate : String;
FingestionInfo : TIngestionInfo;
FingestionType : String;
Fresolution : String;
Protected
//Property setters
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
Procedure SetframeRate(AIndex : Integer; const AValue : String); virtual;
Procedure SetingestionInfo(AIndex : Integer; const AValue : TIngestionInfo); virtual;
Procedure SetingestionType(AIndex : Integer; const AValue : String); virtual;
Procedure Setresolution(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property format : String Index 0 Read Fformat Write Setformat;
Property frameRate : String Index 8 Read FframeRate Write SetframeRate;
Property ingestionInfo : TIngestionInfo Index 16 Read FingestionInfo Write SetingestionInfo;
Property ingestionType : String Index 24 Read FingestionType Write SetingestionType;
Property resolution : String Index 32 Read Fresolution Write Setresolution;
end;
TCdnSettingsClass = Class of TCdnSettings;
{ --------------------------------------------------------------------
TChannelTypelocalizations
--------------------------------------------------------------------}
TChannelTypelocalizations = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TChannelTypelocalizationsClass = Class of TChannelTypelocalizations;
{ --------------------------------------------------------------------
TChannel
--------------------------------------------------------------------}
TChannel = Class(TGoogleBaseObject)
Private
FauditDetails : TChannelAuditDetails;
FbrandingSettings : TChannelBrandingSettings;
FcontentDetails : TChannelContentDetails;
FcontentOwnerDetails : TChannelContentOwnerDetails;
FconversionPings : TChannelConversionPings;
Fetag : String;
Fid : String;
FinvideoPromotion : TInvideoPromotion;
Fkind : String;
Flocalizations : TChannelTypelocalizations;
Fsnippet : TChannelSnippet;
Fstatistics : TChannelStatistics;
Fstatus : TChannelStatus;
FtopicDetails : TChannelTopicDetails;
Protected
//Property setters
Procedure SetauditDetails(AIndex : Integer; const AValue : TChannelAuditDetails); virtual;
Procedure SetbrandingSettings(AIndex : Integer; const AValue : TChannelBrandingSettings); virtual;
Procedure SetcontentDetails(AIndex : Integer; const AValue : TChannelContentDetails); virtual;
Procedure SetcontentOwnerDetails(AIndex : Integer; const AValue : TChannelContentOwnerDetails); virtual;
Procedure SetconversionPings(AIndex : Integer; const AValue : TChannelConversionPings); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinvideoPromotion(AIndex : Integer; const AValue : TInvideoPromotion); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocalizations(AIndex : Integer; const AValue : TChannelTypelocalizations); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TChannelSnippet); virtual;
Procedure Setstatistics(AIndex : Integer; const AValue : TChannelStatistics); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TChannelStatus); virtual;
Procedure SettopicDetails(AIndex : Integer; const AValue : TChannelTopicDetails); virtual;
Public
Published
Property auditDetails : TChannelAuditDetails Index 0 Read FauditDetails Write SetauditDetails;
Property brandingSettings : TChannelBrandingSettings Index 8 Read FbrandingSettings Write SetbrandingSettings;
Property contentDetails : TChannelContentDetails Index 16 Read FcontentDetails Write SetcontentDetails;
Property contentOwnerDetails : TChannelContentOwnerDetails Index 24 Read FcontentOwnerDetails Write SetcontentOwnerDetails;
Property conversionPings : TChannelConversionPings Index 32 Read FconversionPings Write SetconversionPings;
Property etag : String Index 40 Read Fetag Write Setetag;
Property id : String Index 48 Read Fid Write Setid;
Property invideoPromotion : TInvideoPromotion Index 56 Read FinvideoPromotion Write SetinvideoPromotion;
Property kind : String Index 64 Read Fkind Write Setkind;
Property localizations : TChannelTypelocalizations Index 72 Read Flocalizations Write Setlocalizations;
Property snippet : TChannelSnippet Index 80 Read Fsnippet Write Setsnippet;
Property statistics : TChannelStatistics Index 88 Read Fstatistics Write Setstatistics;
Property status : TChannelStatus Index 96 Read Fstatus Write Setstatus;
Property topicDetails : TChannelTopicDetails Index 104 Read FtopicDetails Write SettopicDetails;
end;
TChannelClass = Class of TChannel;
{ --------------------------------------------------------------------
TChannelAuditDetails
--------------------------------------------------------------------}
TChannelAuditDetails = Class(TGoogleBaseObject)
Private
FcommunityGuidelinesGoodStanding : boolean;
FcontentIdClaimsGoodStanding : boolean;
FcopyrightStrikesGoodStanding : boolean;
FoverallGoodStanding : boolean;
Protected
//Property setters
Procedure SetcommunityGuidelinesGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcontentIdClaimsGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcopyrightStrikesGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetoverallGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property communityGuidelinesGoodStanding : boolean Index 0 Read FcommunityGuidelinesGoodStanding Write SetcommunityGuidelinesGoodStanding;
Property contentIdClaimsGoodStanding : boolean Index 8 Read FcontentIdClaimsGoodStanding Write SetcontentIdClaimsGoodStanding;
Property copyrightStrikesGoodStanding : boolean Index 16 Read FcopyrightStrikesGoodStanding Write SetcopyrightStrikesGoodStanding;
Property overallGoodStanding : boolean Index 24 Read FoverallGoodStanding Write SetoverallGoodStanding;
end;
TChannelAuditDetailsClass = Class of TChannelAuditDetails;
{ --------------------------------------------------------------------
TChannelBannerResource
--------------------------------------------------------------------}
TChannelBannerResource = Class(TGoogleBaseObject)
Private
Fetag : String;
Fkind : String;
Furl : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property kind : String Index 8 Read Fkind Write Setkind;
Property url : String Index 16 Read Furl Write Seturl;
end;
TChannelBannerResourceClass = Class of TChannelBannerResource;
{ --------------------------------------------------------------------
TChannelBrandingSettings
--------------------------------------------------------------------}
TChannelBrandingSettings = Class(TGoogleBaseObject)
Private
Fchannel : TChannelSettings;
Fhints : TChannelBrandingSettingsTypehintsArray;
Fimage : TImageSettings;
Fwatch : TWatchSettings;
Protected
//Property setters
Procedure Setchannel(AIndex : Integer; const AValue : TChannelSettings); virtual;
Procedure Sethints(AIndex : Integer; const AValue : TChannelBrandingSettingsTypehintsArray); virtual;
Procedure Setimage(AIndex : Integer; const AValue : TImageSettings); virtual;
Procedure Setwatch(AIndex : Integer; const AValue : TWatchSettings); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property channel : TChannelSettings Index 0 Read Fchannel Write Setchannel;
Property hints : TChannelBrandingSettingsTypehintsArray Index 8 Read Fhints Write Sethints;
Property image : TImageSettings Index 16 Read Fimage Write Setimage;
Property watch : TWatchSettings Index 24 Read Fwatch Write Setwatch;
end;
TChannelBrandingSettingsClass = Class of TChannelBrandingSettings;
{ --------------------------------------------------------------------
TChannelContentDetailsTyperelatedPlaylists
--------------------------------------------------------------------}
TChannelContentDetailsTyperelatedPlaylists = Class(TGoogleBaseObject)
Private
Ffavorites : String;
Flikes : String;
Fuploads : String;
FwatchHistory : String;
FwatchLater : String;
Protected
//Property setters
Procedure Setfavorites(AIndex : Integer; const AValue : String); virtual;
Procedure Setlikes(AIndex : Integer; const AValue : String); virtual;
Procedure Setuploads(AIndex : Integer; const AValue : String); virtual;
Procedure SetwatchHistory(AIndex : Integer; const AValue : String); virtual;
Procedure SetwatchLater(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property favorites : String Index 0 Read Ffavorites Write Setfavorites;
Property likes : String Index 8 Read Flikes Write Setlikes;
Property uploads : String Index 16 Read Fuploads Write Setuploads;
Property watchHistory : String Index 24 Read FwatchHistory Write SetwatchHistory;
Property watchLater : String Index 32 Read FwatchLater Write SetwatchLater;
end;
TChannelContentDetailsTyperelatedPlaylistsClass = Class of TChannelContentDetailsTyperelatedPlaylists;
{ --------------------------------------------------------------------
TChannelContentDetails
--------------------------------------------------------------------}
TChannelContentDetails = Class(TGoogleBaseObject)
Private
FgooglePlusUserId : String;
FrelatedPlaylists : TChannelContentDetailsTyperelatedPlaylists;
Protected
//Property setters
Procedure SetgooglePlusUserId(AIndex : Integer; const AValue : String); virtual;
Procedure SetrelatedPlaylists(AIndex : Integer; const AValue : TChannelContentDetailsTyperelatedPlaylists); virtual;
Public
Published
Property googlePlusUserId : String Index 0 Read FgooglePlusUserId Write SetgooglePlusUserId;
Property relatedPlaylists : TChannelContentDetailsTyperelatedPlaylists Index 8 Read FrelatedPlaylists Write SetrelatedPlaylists;
end;
TChannelContentDetailsClass = Class of TChannelContentDetails;
{ --------------------------------------------------------------------
TChannelContentOwnerDetails
--------------------------------------------------------------------}
TChannelContentOwnerDetails = Class(TGoogleBaseObject)
Private
FcontentOwner : String;
FtimeLinked : TDatetime;
Protected
//Property setters
Procedure SetcontentOwner(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeLinked(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property contentOwner : String Index 0 Read FcontentOwner Write SetcontentOwner;
Property timeLinked : TDatetime Index 8 Read FtimeLinked Write SettimeLinked;
end;
TChannelContentOwnerDetailsClass = Class of TChannelContentOwnerDetails;
{ --------------------------------------------------------------------
TChannelConversionPing
--------------------------------------------------------------------}
TChannelConversionPing = Class(TGoogleBaseObject)
Private
Fcontext : String;
FconversionUrl : String;
Protected
//Property setters
Procedure Setcontext(AIndex : Integer; const AValue : String); virtual;
Procedure SetconversionUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property context : String Index 0 Read Fcontext Write Setcontext;
Property conversionUrl : String Index 8 Read FconversionUrl Write SetconversionUrl;
end;
TChannelConversionPingClass = Class of TChannelConversionPing;
{ --------------------------------------------------------------------
TChannelConversionPings
--------------------------------------------------------------------}
TChannelConversionPings = Class(TGoogleBaseObject)
Private
Fpings : TChannelConversionPingsTypepingsArray;
Protected
//Property setters
Procedure Setpings(AIndex : Integer; const AValue : TChannelConversionPingsTypepingsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property pings : TChannelConversionPingsTypepingsArray Index 0 Read Fpings Write Setpings;
end;
TChannelConversionPingsClass = Class of TChannelConversionPings;
{ --------------------------------------------------------------------
TChannelListResponse
--------------------------------------------------------------------}
TChannelListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TChannelListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TChannelListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TChannelListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TChannelListResponseClass = Class of TChannelListResponse;
{ --------------------------------------------------------------------
TChannelLocalization
--------------------------------------------------------------------}
TChannelLocalization = 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;
TChannelLocalizationClass = Class of TChannelLocalization;
{ --------------------------------------------------------------------
TChannelProfileDetails
--------------------------------------------------------------------}
TChannelProfileDetails = Class(TGoogleBaseObject)
Private
FchannelId : String;
FchannelUrl : String;
FdisplayName : String;
FprofileImageUrl : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure SetprofileImageUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property channelUrl : String Index 8 Read FchannelUrl Write SetchannelUrl;
Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
Property profileImageUrl : String Index 24 Read FprofileImageUrl Write SetprofileImageUrl;
end;
TChannelProfileDetailsClass = Class of TChannelProfileDetails;
{ --------------------------------------------------------------------
TChannelSectionTypelocalizations
--------------------------------------------------------------------}
TChannelSectionTypelocalizations = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TChannelSectionTypelocalizationsClass = Class of TChannelSectionTypelocalizations;
{ --------------------------------------------------------------------
TChannelSection
--------------------------------------------------------------------}
TChannelSection = Class(TGoogleBaseObject)
Private
FcontentDetails : TChannelSectionContentDetails;
Fetag : String;
Fid : String;
Fkind : String;
Flocalizations : TChannelSectionTypelocalizations;
Fsnippet : TChannelSectionSnippet;
Ftargeting : TChannelSectionTargeting;
Protected
//Property setters
Procedure SetcontentDetails(AIndex : Integer; const AValue : TChannelSectionContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocalizations(AIndex : Integer; const AValue : TChannelSectionTypelocalizations); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TChannelSectionSnippet); virtual;
Procedure Settargeting(AIndex : Integer; const AValue : TChannelSectionTargeting); virtual;
Public
Published
Property contentDetails : TChannelSectionContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property localizations : TChannelSectionTypelocalizations Index 32 Read Flocalizations Write Setlocalizations;
Property snippet : TChannelSectionSnippet Index 40 Read Fsnippet Write Setsnippet;
Property targeting : TChannelSectionTargeting Index 48 Read Ftargeting Write Settargeting;
end;
TChannelSectionClass = Class of TChannelSection;
{ --------------------------------------------------------------------
TChannelSectionContentDetails
--------------------------------------------------------------------}
TChannelSectionContentDetails = Class(TGoogleBaseObject)
Private
Fchannels : TStringArray;
Fplaylists : TStringArray;
Protected
//Property setters
Procedure Setchannels(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setplaylists(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 channels : TStringArray Index 0 Read Fchannels Write Setchannels;
Property playlists : TStringArray Index 8 Read Fplaylists Write Setplaylists;
end;
TChannelSectionContentDetailsClass = Class of TChannelSectionContentDetails;
{ --------------------------------------------------------------------
TChannelSectionListResponse
--------------------------------------------------------------------}
TChannelSectionListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TChannelSectionListResponseTypeitemsArray;
Fkind : String;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TChannelSectionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TChannelSectionListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property visitorId : String Index 32 Read FvisitorId Write SetvisitorId;
end;
TChannelSectionListResponseClass = Class of TChannelSectionListResponse;
{ --------------------------------------------------------------------
TChannelSectionLocalization
--------------------------------------------------------------------}
TChannelSectionLocalization = Class(TGoogleBaseObject)
Private
Ftitle : String;
Protected
//Property setters
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property title : String Index 0 Read Ftitle Write Settitle;
end;
TChannelSectionLocalizationClass = Class of TChannelSectionLocalization;
{ --------------------------------------------------------------------
TChannelSectionSnippet
--------------------------------------------------------------------}
TChannelSectionSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
FdefaultLanguage : String;
Flocalized : TChannelSectionLocalization;
Fposition : integer;
Fstyle : String;
Ftitle : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocalized(AIndex : Integer; const AValue : TChannelSectionLocalization); virtual;
Procedure Setposition(AIndex : Integer; const AValue : integer); virtual;
Procedure Setstyle(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property defaultLanguage : String Index 8 Read FdefaultLanguage Write SetdefaultLanguage;
Property localized : TChannelSectionLocalization Index 16 Read Flocalized Write Setlocalized;
Property position : integer Index 24 Read Fposition Write Setposition;
Property style : String Index 32 Read Fstyle Write Setstyle;
Property title : String Index 40 Read Ftitle Write Settitle;
Property _type : String Index 48 Read F_type Write Set_type;
end;
TChannelSectionSnippetClass = Class of TChannelSectionSnippet;
{ --------------------------------------------------------------------
TChannelSectionTargeting
--------------------------------------------------------------------}
TChannelSectionTargeting = Class(TGoogleBaseObject)
Private
Fcountries : TStringArray;
Flanguages : TStringArray;
Fregions : TStringArray;
Protected
//Property setters
Procedure Setcountries(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setlanguages(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setregions(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 countries : TStringArray Index 0 Read Fcountries Write Setcountries;
Property languages : TStringArray Index 8 Read Flanguages Write Setlanguages;
Property regions : TStringArray Index 16 Read Fregions Write Setregions;
end;
TChannelSectionTargetingClass = Class of TChannelSectionTargeting;
{ --------------------------------------------------------------------
TChannelSettings
--------------------------------------------------------------------}
TChannelSettings = Class(TGoogleBaseObject)
Private
Fcountry : String;
FdefaultLanguage : String;
FdefaultTab : String;
Fdescription : String;
FfeaturedChannelsTitle : String;
FfeaturedChannelsUrls : TStringArray;
Fkeywords : String;
FmoderateComments : boolean;
FprofileColor : String;
FshowBrowseView : boolean;
FshowRelatedChannels : boolean;
Ftitle : String;
FtrackingAnalyticsAccountId : String;
FunsubscribedTrailer : String;
Protected
//Property setters
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultTab(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetfeaturedChannelsTitle(AIndex : Integer; const AValue : String); virtual;
Procedure SetfeaturedChannelsUrls(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkeywords(AIndex : Integer; const AValue : String); virtual;
Procedure SetmoderateComments(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetprofileColor(AIndex : Integer; const AValue : String); virtual;
Procedure SetshowBrowseView(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetshowRelatedChannels(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure SettrackingAnalyticsAccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetunsubscribedTrailer(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 country : String Index 0 Read Fcountry Write Setcountry;
Property defaultLanguage : String Index 8 Read FdefaultLanguage Write SetdefaultLanguage;
Property defaultTab : String Index 16 Read FdefaultTab Write SetdefaultTab;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property featuredChannelsTitle : String Index 32 Read FfeaturedChannelsTitle Write SetfeaturedChannelsTitle;
Property featuredChannelsUrls : TStringArray Index 40 Read FfeaturedChannelsUrls Write SetfeaturedChannelsUrls;
Property keywords : String Index 48 Read Fkeywords Write Setkeywords;
Property moderateComments : boolean Index 56 Read FmoderateComments Write SetmoderateComments;
Property profileColor : String Index 64 Read FprofileColor Write SetprofileColor;
Property showBrowseView : boolean Index 72 Read FshowBrowseView Write SetshowBrowseView;
Property showRelatedChannels : boolean Index 80 Read FshowRelatedChannels Write SetshowRelatedChannels;
Property title : String Index 88 Read Ftitle Write Settitle;
Property trackingAnalyticsAccountId : String Index 96 Read FtrackingAnalyticsAccountId Write SettrackingAnalyticsAccountId;
Property unsubscribedTrailer : String Index 104 Read FunsubscribedTrailer Write SetunsubscribedTrailer;
end;
TChannelSettingsClass = Class of TChannelSettings;
{ --------------------------------------------------------------------
TChannelSnippet
--------------------------------------------------------------------}
TChannelSnippet = Class(TGoogleBaseObject)
Private
Fcountry : String;
FcustomUrl : String;
FdefaultLanguage : String;
Fdescription : String;
Flocalized : TChannelLocalization;
FpublishedAt : TDatetime;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocalized(AIndex : Integer; const AValue : TChannelLocalization); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property country : String Index 0 Read Fcountry Write Setcountry;
Property customUrl : String Index 8 Read FcustomUrl Write SetcustomUrl;
Property defaultLanguage : String Index 16 Read FdefaultLanguage Write SetdefaultLanguage;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property localized : TChannelLocalization Index 32 Read Flocalized Write Setlocalized;
Property publishedAt : TDatetime Index 40 Read FpublishedAt Write SetpublishedAt;
Property thumbnails : TThumbnailDetails Index 48 Read Fthumbnails Write Setthumbnails;
Property title : String Index 56 Read Ftitle Write Settitle;
end;
TChannelSnippetClass = Class of TChannelSnippet;
{ --------------------------------------------------------------------
TChannelStatistics
--------------------------------------------------------------------}
TChannelStatistics = Class(TGoogleBaseObject)
Private
FcommentCount : String;
FhiddenSubscriberCount : boolean;
FsubscriberCount : String;
FvideoCount : String;
FviewCount : String;
Protected
//Property setters
Procedure SetcommentCount(AIndex : Integer; const AValue : String); virtual;
Procedure SethiddenSubscriberCount(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetsubscriberCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetviewCount(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property commentCount : String Index 0 Read FcommentCount Write SetcommentCount;
Property hiddenSubscriberCount : boolean Index 8 Read FhiddenSubscriberCount Write SethiddenSubscriberCount;
Property subscriberCount : String Index 16 Read FsubscriberCount Write SetsubscriberCount;
Property videoCount : String Index 24 Read FvideoCount Write SetvideoCount;
Property viewCount : String Index 32 Read FviewCount Write SetviewCount;
end;
TChannelStatisticsClass = Class of TChannelStatistics;
{ --------------------------------------------------------------------
TChannelStatus
--------------------------------------------------------------------}
TChannelStatus = Class(TGoogleBaseObject)
Private
FisLinked : boolean;
FlongUploadsStatus : String;
FprivacyStatus : String;
Protected
//Property setters
Procedure SetisLinked(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetlongUploadsStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetprivacyStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property isLinked : boolean Index 0 Read FisLinked Write SetisLinked;
Property longUploadsStatus : String Index 8 Read FlongUploadsStatus Write SetlongUploadsStatus;
Property privacyStatus : String Index 16 Read FprivacyStatus Write SetprivacyStatus;
end;
TChannelStatusClass = Class of TChannelStatus;
{ --------------------------------------------------------------------
TChannelTopicDetails
--------------------------------------------------------------------}
TChannelTopicDetails = Class(TGoogleBaseObject)
Private
FtopicIds : TStringArray;
Protected
//Property setters
Procedure SettopicIds(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 topicIds : TStringArray Index 0 Read FtopicIds Write SettopicIds;
end;
TChannelTopicDetailsClass = Class of TChannelTopicDetails;
{ --------------------------------------------------------------------
TComment
--------------------------------------------------------------------}
TComment = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TCommentSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TCommentSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TCommentSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TCommentClass = Class of TComment;
{ --------------------------------------------------------------------
TCommentListResponse
--------------------------------------------------------------------}
TCommentListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TCommentListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TCommentListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TCommentListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property tokenPagination : TTokenPagination Index 48 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 56 Read FvisitorId Write SetvisitorId;
end;
TCommentListResponseClass = Class of TCommentListResponse;
{ --------------------------------------------------------------------
TCommentSnippet
--------------------------------------------------------------------}
TCommentSnippet = Class(TGoogleBaseObject)
Private
FauthorChannelId : TJSONSchema;
FauthorChannelUrl : String;
FauthorDisplayName : String;
FauthorGoogleplusProfileUrl : String;
FauthorProfileImageUrl : String;
FcanRate : boolean;
FchannelId : String;
FlikeCount : integer;
FmoderationStatus : String;
FparentId : String;
FpublishedAt : TDatetime;
FtextDisplay : String;
FtextOriginal : String;
FupdatedAt : TDatetime;
FvideoId : String;
FviewerRating : String;
Protected
//Property setters
Procedure SetauthorChannelId(AIndex : Integer; const AValue : TJSONSchema); virtual;
Procedure SetauthorChannelUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthorDisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthorGoogleplusProfileUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthorProfileImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetcanRate(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetlikeCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmoderationStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetparentId(AIndex : Integer; const AValue : String); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SettextDisplay(AIndex : Integer; const AValue : String); virtual;
Procedure SettextOriginal(AIndex : Integer; const AValue : String); virtual;
Procedure SetupdatedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Procedure SetviewerRating(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property authorChannelId : TJSONSchema Index 0 Read FauthorChannelId Write SetauthorChannelId;
Property authorChannelUrl : String Index 8 Read FauthorChannelUrl Write SetauthorChannelUrl;
Property authorDisplayName : String Index 16 Read FauthorDisplayName Write SetauthorDisplayName;
Property authorGoogleplusProfileUrl : String Index 24 Read FauthorGoogleplusProfileUrl Write SetauthorGoogleplusProfileUrl;
Property authorProfileImageUrl : String Index 32 Read FauthorProfileImageUrl Write SetauthorProfileImageUrl;
Property canRate : boolean Index 40 Read FcanRate Write SetcanRate;
Property channelId : String Index 48 Read FchannelId Write SetchannelId;
Property likeCount : integer Index 56 Read FlikeCount Write SetlikeCount;
Property moderationStatus : String Index 64 Read FmoderationStatus Write SetmoderationStatus;
Property parentId : String Index 72 Read FparentId Write SetparentId;
Property publishedAt : TDatetime Index 80 Read FpublishedAt Write SetpublishedAt;
Property textDisplay : String Index 88 Read FtextDisplay Write SettextDisplay;
Property textOriginal : String Index 96 Read FtextOriginal Write SettextOriginal;
Property updatedAt : TDatetime Index 104 Read FupdatedAt Write SetupdatedAt;
Property videoId : String Index 112 Read FvideoId Write SetvideoId;
Property viewerRating : String Index 120 Read FviewerRating Write SetviewerRating;
end;
TCommentSnippetClass = Class of TCommentSnippet;
{ --------------------------------------------------------------------
TCommentThread
--------------------------------------------------------------------}
TCommentThread = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Freplies : TCommentThreadReplies;
Fsnippet : TCommentThreadSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setreplies(AIndex : Integer; const AValue : TCommentThreadReplies); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TCommentThreadSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property replies : TCommentThreadReplies Index 24 Read Freplies Write Setreplies;
Property snippet : TCommentThreadSnippet Index 32 Read Fsnippet Write Setsnippet;
end;
TCommentThreadClass = Class of TCommentThread;
{ --------------------------------------------------------------------
TCommentThreadListResponse
--------------------------------------------------------------------}
TCommentThreadListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TCommentThreadListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TCommentThreadListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TCommentThreadListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property tokenPagination : TTokenPagination Index 48 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 56 Read FvisitorId Write SetvisitorId;
end;
TCommentThreadListResponseClass = Class of TCommentThreadListResponse;
{ --------------------------------------------------------------------
TCommentThreadReplies
--------------------------------------------------------------------}
TCommentThreadReplies = Class(TGoogleBaseObject)
Private
Fcomments : TCommentThreadRepliesTypecommentsArray;
Protected
//Property setters
Procedure Setcomments(AIndex : Integer; const AValue : TCommentThreadRepliesTypecommentsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property comments : TCommentThreadRepliesTypecommentsArray Index 0 Read Fcomments Write Setcomments;
end;
TCommentThreadRepliesClass = Class of TCommentThreadReplies;
{ --------------------------------------------------------------------
TCommentThreadSnippet
--------------------------------------------------------------------}
TCommentThreadSnippet = Class(TGoogleBaseObject)
Private
FcanReply : boolean;
FchannelId : String;
FisPublic : boolean;
FtopLevelComment : TComment;
FtotalReplyCount : integer;
FvideoId : String;
Protected
//Property setters
Procedure SetcanReply(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetisPublic(AIndex : Integer; const AValue : boolean); virtual;
Procedure SettopLevelComment(AIndex : Integer; const AValue : TComment); virtual;
Procedure SettotalReplyCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property canReply : boolean Index 0 Read FcanReply Write SetcanReply;
Property channelId : String Index 8 Read FchannelId Write SetchannelId;
Property isPublic : boolean Index 16 Read FisPublic Write SetisPublic;
Property topLevelComment : TComment Index 24 Read FtopLevelComment Write SettopLevelComment;
Property totalReplyCount : integer Index 32 Read FtotalReplyCount Write SettotalReplyCount;
Property videoId : String Index 40 Read FvideoId Write SetvideoId;
end;
TCommentThreadSnippetClass = Class of TCommentThreadSnippet;
{ --------------------------------------------------------------------
TContentRating
--------------------------------------------------------------------}
TContentRating = Class(TGoogleBaseObject)
Private
FacbRating : String;
FagcomRating : String;
FanatelRating : String;
FbbfcRating : String;
FbfvcRating : String;
FbmukkRating : String;
FcatvRating : String;
FcatvfrRating : String;
FcbfcRating : String;
FcccRating : String;
FcceRating : String;
FchfilmRating : String;
FchvrsRating : String;
FcicfRating : String;
FcnaRating : String;
FcncRating : String;
FcsaRating : String;
FcscfRating : String;
FczfilmRating : String;
FdjctqRating : String;
FdjctqRatingReasons : TStringArray;
FecbmctRating : String;
FeefilmRating : String;
FegfilmRating : String;
FeirinRating : String;
FfcbmRating : String;
FfcoRating : String;
FfmocRating : String;
FfpbRating : String;
FfskRating : String;
FgrfilmRating : String;
FicaaRating : String;
FifcoRating : String;
FilfilmRating : String;
FincaaRating : String;
FkfcbRating : String;
FkijkwijzerRating : String;
FkmrbRating : String;
FlsfRating : String;
FmccaaRating : String;
FmccypRating : String;
FmdaRating : String;
FmedietilsynetRating : String;
FmekuRating : String;
FmibacRating : String;
F_mocRating : String;
FmoctwRating : String;
FmpaaRating : String;
FmtrcbRating : String;
FnbcRating : String;
FnbcplRating : String;
FnfrcRating : String;
FnfvcbRating : String;
FnkclvRating : String;
FoflcRating : String;
FpefilmRating : String;
FrcnofRating : String;
FresorteviolenciaRating : String;
FrtcRating : String;
FrteRating : String;
FrussiaRating : String;
FskfilmRating : String;
FsmaisRating : String;
FsmsaRating : String;
FtvpgRating : String;
FytRating : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetacbRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetagcomRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetanatelRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetbbfcRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetbfvcRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetbmukkRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcatvRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcatvfrRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcbfcRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcccRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcceRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetchfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetchvrsRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcicfRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcnaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcncRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcsaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcscfRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetczfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetdjctqRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetdjctqRatingReasons(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetecbmctRating(AIndex : Integer; const AValue : String); virtual;
Procedure SeteefilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetegfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SeteirinRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetfcbmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetfcoRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetfmocRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetfpbRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetfskRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetgrfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SeticaaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetifcoRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetilfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetincaaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetkfcbRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetkijkwijzerRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetkmrbRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetlsfRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmccaaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmccypRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmdaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmedietilsynetRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmekuRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmibacRating(AIndex : Integer; const AValue : String); virtual;
Procedure Set_mocRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmoctwRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmpaaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetmtrcbRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetnbcRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetnbcplRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetnfrcRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetnfvcbRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetnkclvRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetoflcRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetpefilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetrcnofRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetresorteviolenciaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetrtcRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetrteRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetrussiaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetskfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetsmaisRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetsmsaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SettvpgRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetytRating(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 acbRating : String Index 0 Read FacbRating Write SetacbRating;
Property agcomRating : String Index 8 Read FagcomRating Write SetagcomRating;
Property anatelRating : String Index 16 Read FanatelRating Write SetanatelRating;
Property bbfcRating : String Index 24 Read FbbfcRating Write SetbbfcRating;
Property bfvcRating : String Index 32 Read FbfvcRating Write SetbfvcRating;
Property bmukkRating : String Index 40 Read FbmukkRating Write SetbmukkRating;
Property catvRating : String Index 48 Read FcatvRating Write SetcatvRating;
Property catvfrRating : String Index 56 Read FcatvfrRating Write SetcatvfrRating;
Property cbfcRating : String Index 64 Read FcbfcRating Write SetcbfcRating;
Property cccRating : String Index 72 Read FcccRating Write SetcccRating;
Property cceRating : String Index 80 Read FcceRating Write SetcceRating;
Property chfilmRating : String Index 88 Read FchfilmRating Write SetchfilmRating;
Property chvrsRating : String Index 96 Read FchvrsRating Write SetchvrsRating;
Property cicfRating : String Index 104 Read FcicfRating Write SetcicfRating;
Property cnaRating : String Index 112 Read FcnaRating Write SetcnaRating;
Property cncRating : String Index 120 Read FcncRating Write SetcncRating;
Property csaRating : String Index 128 Read FcsaRating Write SetcsaRating;
Property cscfRating : String Index 136 Read FcscfRating Write SetcscfRating;
Property czfilmRating : String Index 144 Read FczfilmRating Write SetczfilmRating;
Property djctqRating : String Index 152 Read FdjctqRating Write SetdjctqRating;
Property djctqRatingReasons : TStringArray Index 160 Read FdjctqRatingReasons Write SetdjctqRatingReasons;
Property ecbmctRating : String Index 168 Read FecbmctRating Write SetecbmctRating;
Property eefilmRating : String Index 176 Read FeefilmRating Write SeteefilmRating;
Property egfilmRating : String Index 184 Read FegfilmRating Write SetegfilmRating;
Property eirinRating : String Index 192 Read FeirinRating Write SeteirinRating;
Property fcbmRating : String Index 200 Read FfcbmRating Write SetfcbmRating;
Property fcoRating : String Index 208 Read FfcoRating Write SetfcoRating;
Property fmocRating : String Index 216 Read FfmocRating Write SetfmocRating;
Property fpbRating : String Index 224 Read FfpbRating Write SetfpbRating;
Property fskRating : String Index 232 Read FfskRating Write SetfskRating;
Property grfilmRating : String Index 240 Read FgrfilmRating Write SetgrfilmRating;
Property icaaRating : String Index 248 Read FicaaRating Write SeticaaRating;
Property ifcoRating : String Index 256 Read FifcoRating Write SetifcoRating;
Property ilfilmRating : String Index 264 Read FilfilmRating Write SetilfilmRating;
Property incaaRating : String Index 272 Read FincaaRating Write SetincaaRating;
Property kfcbRating : String Index 280 Read FkfcbRating Write SetkfcbRating;
Property kijkwijzerRating : String Index 288 Read FkijkwijzerRating Write SetkijkwijzerRating;
Property kmrbRating : String Index 296 Read FkmrbRating Write SetkmrbRating;
Property lsfRating : String Index 304 Read FlsfRating Write SetlsfRating;
Property mccaaRating : String Index 312 Read FmccaaRating Write SetmccaaRating;
Property mccypRating : String Index 320 Read FmccypRating Write SetmccypRating;
Property mdaRating : String Index 328 Read FmdaRating Write SetmdaRating;
Property medietilsynetRating : String Index 336 Read FmedietilsynetRating Write SetmedietilsynetRating;
Property mekuRating : String Index 344 Read FmekuRating Write SetmekuRating;
Property mibacRating : String Index 352 Read FmibacRating Write SetmibacRating;
Property _mocRating : String Index 360 Read F_mocRating Write Set_mocRating;
Property moctwRating : String Index 368 Read FmoctwRating Write SetmoctwRating;
Property mpaaRating : String Index 376 Read FmpaaRating Write SetmpaaRating;
Property mtrcbRating : String Index 384 Read FmtrcbRating Write SetmtrcbRating;
Property nbcRating : String Index 392 Read FnbcRating Write SetnbcRating;
Property nbcplRating : String Index 400 Read FnbcplRating Write SetnbcplRating;
Property nfrcRating : String Index 408 Read FnfrcRating Write SetnfrcRating;
Property nfvcbRating : String Index 416 Read FnfvcbRating Write SetnfvcbRating;
Property nkclvRating : String Index 424 Read FnkclvRating Write SetnkclvRating;
Property oflcRating : String Index 432 Read FoflcRating Write SetoflcRating;
Property pefilmRating : String Index 440 Read FpefilmRating Write SetpefilmRating;
Property rcnofRating : String Index 448 Read FrcnofRating Write SetrcnofRating;
Property resorteviolenciaRating : String Index 456 Read FresorteviolenciaRating Write SetresorteviolenciaRating;
Property rtcRating : String Index 464 Read FrtcRating Write SetrtcRating;
Property rteRating : String Index 472 Read FrteRating Write SetrteRating;
Property russiaRating : String Index 480 Read FrussiaRating Write SetrussiaRating;
Property skfilmRating : String Index 488 Read FskfilmRating Write SetskfilmRating;
Property smaisRating : String Index 496 Read FsmaisRating Write SetsmaisRating;
Property smsaRating : String Index 504 Read FsmsaRating Write SetsmsaRating;
Property tvpgRating : String Index 512 Read FtvpgRating Write SettvpgRating;
Property ytRating : String Index 520 Read FytRating Write SetytRating;
end;
TContentRatingClass = Class of TContentRating;
{ --------------------------------------------------------------------
TFanFundingEvent
--------------------------------------------------------------------}
TFanFundingEvent = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TFanFundingEventSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TFanFundingEventSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TFanFundingEventSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TFanFundingEventClass = Class of TFanFundingEvent;
{ --------------------------------------------------------------------
TFanFundingEventListResponse
--------------------------------------------------------------------}
TFanFundingEventListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TFanFundingEventListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TFanFundingEventListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TFanFundingEventListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property tokenPagination : TTokenPagination Index 48 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 56 Read FvisitorId Write SetvisitorId;
end;
TFanFundingEventListResponseClass = Class of TFanFundingEventListResponse;
{ --------------------------------------------------------------------
TFanFundingEventSnippet
--------------------------------------------------------------------}
TFanFundingEventSnippet = Class(TGoogleBaseObject)
Private
FamountMicros : String;
FchannelId : String;
FcommentText : String;
FcreatedAt : TDatetime;
Fcurrency : String;
FdisplayString : String;
FsupporterDetails : TChannelProfileDetails;
Protected
//Property setters
Procedure SetamountMicros(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcommentText(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreatedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayString(AIndex : Integer; const AValue : String); virtual;
Procedure SetsupporterDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
Public
Published
Property amountMicros : String Index 0 Read FamountMicros Write SetamountMicros;
Property channelId : String Index 8 Read FchannelId Write SetchannelId;
Property commentText : String Index 16 Read FcommentText Write SetcommentText;
Property createdAt : TDatetime Index 24 Read FcreatedAt Write SetcreatedAt;
Property currency : String Index 32 Read Fcurrency Write Setcurrency;
Property displayString : String Index 40 Read FdisplayString Write SetdisplayString;
Property supporterDetails : TChannelProfileDetails Index 48 Read FsupporterDetails Write SetsupporterDetails;
end;
TFanFundingEventSnippetClass = Class of TFanFundingEventSnippet;
{ --------------------------------------------------------------------
TGeoPoint
--------------------------------------------------------------------}
TGeoPoint = Class(TGoogleBaseObject)
Private
Faltitude : double;
Flatitude : double;
Flongitude : double;
Protected
//Property setters
Procedure Setaltitude(AIndex : Integer; const AValue : double); virtual;
Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property altitude : double Index 0 Read Faltitude Write Setaltitude;
Property latitude : double Index 8 Read Flatitude Write Setlatitude;
Property longitude : double Index 16 Read Flongitude Write Setlongitude;
end;
TGeoPointClass = Class of TGeoPoint;
{ --------------------------------------------------------------------
TGuideCategory
--------------------------------------------------------------------}
TGuideCategory = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TGuideCategorySnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TGuideCategorySnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TGuideCategorySnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TGuideCategoryClass = Class of TGuideCategory;
{ --------------------------------------------------------------------
TGuideCategoryListResponse
--------------------------------------------------------------------}
TGuideCategoryListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TGuideCategoryListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TGuideCategoryListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TGuideCategoryListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TGuideCategoryListResponseClass = Class of TGuideCategoryListResponse;
{ --------------------------------------------------------------------
TGuideCategorySnippet
--------------------------------------------------------------------}
TGuideCategorySnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
Ftitle : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property title : String Index 8 Read Ftitle Write Settitle;
end;
TGuideCategorySnippetClass = Class of TGuideCategorySnippet;
{ --------------------------------------------------------------------
TI18nLanguage
--------------------------------------------------------------------}
TI18nLanguage = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TI18nLanguageSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TI18nLanguageSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TI18nLanguageSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TI18nLanguageClass = Class of TI18nLanguage;
{ --------------------------------------------------------------------
TI18nLanguageListResponse
--------------------------------------------------------------------}
TI18nLanguageListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TI18nLanguageListResponseTypeitemsArray;
Fkind : String;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TI18nLanguageListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TI18nLanguageListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property visitorId : String Index 32 Read FvisitorId Write SetvisitorId;
end;
TI18nLanguageListResponseClass = Class of TI18nLanguageListResponse;
{ --------------------------------------------------------------------
TI18nLanguageSnippet
--------------------------------------------------------------------}
TI18nLanguageSnippet = Class(TGoogleBaseObject)
Private
Fhl : String;
Fname : String;
Protected
//Property setters
Procedure Sethl(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property hl : String Index 0 Read Fhl Write Sethl;
Property name : String Index 8 Read Fname Write Setname;
end;
TI18nLanguageSnippetClass = Class of TI18nLanguageSnippet;
{ --------------------------------------------------------------------
TI18nRegion
--------------------------------------------------------------------}
TI18nRegion = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TI18nRegionSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TI18nRegionSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TI18nRegionSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TI18nRegionClass = Class of TI18nRegion;
{ --------------------------------------------------------------------
TI18nRegionListResponse
--------------------------------------------------------------------}
TI18nRegionListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TI18nRegionListResponseTypeitemsArray;
Fkind : String;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TI18nRegionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TI18nRegionListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property visitorId : String Index 32 Read FvisitorId Write SetvisitorId;
end;
TI18nRegionListResponseClass = Class of TI18nRegionListResponse;
{ --------------------------------------------------------------------
TI18nRegionSnippet
--------------------------------------------------------------------}
TI18nRegionSnippet = Class(TGoogleBaseObject)
Private
Fgl : String;
Fname : String;
Protected
//Property setters
Procedure Setgl(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property gl : String Index 0 Read Fgl Write Setgl;
Property name : String Index 8 Read Fname Write Setname;
end;
TI18nRegionSnippetClass = Class of TI18nRegionSnippet;
{ --------------------------------------------------------------------
TImageSettings
--------------------------------------------------------------------}
TImageSettings = Class(TGoogleBaseObject)
Private
FbackgroundImageUrl : TLocalizedProperty;
FbannerExternalUrl : String;
FbannerImageUrl : String;
FbannerMobileExtraHdImageUrl : String;
FbannerMobileHdImageUrl : String;
FbannerMobileImageUrl : String;
FbannerMobileLowImageUrl : String;
FbannerMobileMediumHdImageUrl : String;
FbannerTabletExtraHdImageUrl : String;
FbannerTabletHdImageUrl : String;
FbannerTabletImageUrl : String;
FbannerTabletLowImageUrl : String;
FbannerTvHighImageUrl : String;
FbannerTvImageUrl : String;
FbannerTvLowImageUrl : String;
FbannerTvMediumImageUrl : String;
FlargeBrandedBannerImageImapScript : TLocalizedProperty;
FlargeBrandedBannerImageUrl : TLocalizedProperty;
FsmallBrandedBannerImageImapScript : TLocalizedProperty;
FsmallBrandedBannerImageUrl : TLocalizedProperty;
FtrackingImageUrl : String;
FwatchIconImageUrl : String;
Protected
//Property setters
Procedure SetbackgroundImageUrl(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
Procedure SetbannerExternalUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerMobileExtraHdImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerMobileHdImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerMobileImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerMobileLowImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerMobileMediumHdImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTabletExtraHdImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTabletHdImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTabletImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTabletLowImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTvHighImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTvImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTvLowImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTvMediumImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetlargeBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
Procedure SetlargeBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
Procedure SetsmallBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
Procedure SetsmallBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
Procedure SettrackingImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetwatchIconImageUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property backgroundImageUrl : TLocalizedProperty Index 0 Read FbackgroundImageUrl Write SetbackgroundImageUrl;
Property bannerExternalUrl : String Index 8 Read FbannerExternalUrl Write SetbannerExternalUrl;
Property bannerImageUrl : String Index 16 Read FbannerImageUrl Write SetbannerImageUrl;
Property bannerMobileExtraHdImageUrl : String Index 24 Read FbannerMobileExtraHdImageUrl Write SetbannerMobileExtraHdImageUrl;
Property bannerMobileHdImageUrl : String Index 32 Read FbannerMobileHdImageUrl Write SetbannerMobileHdImageUrl;
Property bannerMobileImageUrl : String Index 40 Read FbannerMobileImageUrl Write SetbannerMobileImageUrl;
Property bannerMobileLowImageUrl : String Index 48 Read FbannerMobileLowImageUrl Write SetbannerMobileLowImageUrl;
Property bannerMobileMediumHdImageUrl : String Index 56 Read FbannerMobileMediumHdImageUrl Write SetbannerMobileMediumHdImageUrl;
Property bannerTabletExtraHdImageUrl : String Index 64 Read FbannerTabletExtraHdImageUrl Write SetbannerTabletExtraHdImageUrl;
Property bannerTabletHdImageUrl : String Index 72 Read FbannerTabletHdImageUrl Write SetbannerTabletHdImageUrl;
Property bannerTabletImageUrl : String Index 80 Read FbannerTabletImageUrl Write SetbannerTabletImageUrl;
Property bannerTabletLowImageUrl : String Index 88 Read FbannerTabletLowImageUrl Write SetbannerTabletLowImageUrl;
Property bannerTvHighImageUrl : String Index 96 Read FbannerTvHighImageUrl Write SetbannerTvHighImageUrl;
Property bannerTvImageUrl : String Index 104 Read FbannerTvImageUrl Write SetbannerTvImageUrl;
Property bannerTvLowImageUrl : String Index 112 Read FbannerTvLowImageUrl Write SetbannerTvLowImageUrl;
Property bannerTvMediumImageUrl : String Index 120 Read FbannerTvMediumImageUrl Write SetbannerTvMediumImageUrl;
Property largeBrandedBannerImageImapScript : TLocalizedProperty Index 128 Read FlargeBrandedBannerImageImapScript Write SetlargeBrandedBannerImageImapScript;
Property largeBrandedBannerImageUrl : TLocalizedProperty Index 136 Read FlargeBrandedBannerImageUrl Write SetlargeBrandedBannerImageUrl;
Property smallBrandedBannerImageImapScript : TLocalizedProperty Index 144 Read FsmallBrandedBannerImageImapScript Write SetsmallBrandedBannerImageImapScript;
Property smallBrandedBannerImageUrl : TLocalizedProperty Index 152 Read FsmallBrandedBannerImageUrl Write SetsmallBrandedBannerImageUrl;
Property trackingImageUrl : String Index 160 Read FtrackingImageUrl Write SettrackingImageUrl;
Property watchIconImageUrl : String Index 168 Read FwatchIconImageUrl Write SetwatchIconImageUrl;
end;
TImageSettingsClass = Class of TImageSettings;
{ --------------------------------------------------------------------
TIngestionInfo
--------------------------------------------------------------------}
TIngestionInfo = Class(TGoogleBaseObject)
Private
FbackupIngestionAddress : String;
FingestionAddress : String;
FstreamName : String;
Protected
//Property setters
Procedure SetbackupIngestionAddress(AIndex : Integer; const AValue : String); virtual;
Procedure SetingestionAddress(AIndex : Integer; const AValue : String); virtual;
Procedure SetstreamName(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property backupIngestionAddress : String Index 0 Read FbackupIngestionAddress Write SetbackupIngestionAddress;
Property ingestionAddress : String Index 8 Read FingestionAddress Write SetingestionAddress;
Property streamName : String Index 16 Read FstreamName Write SetstreamName;
end;
TIngestionInfoClass = Class of TIngestionInfo;
{ --------------------------------------------------------------------
TInvideoBranding
--------------------------------------------------------------------}
TInvideoBranding = Class(TGoogleBaseObject)
Private
FimageBytes : String;
FimageUrl : String;
Fposition : TInvideoPosition;
FtargetChannelId : String;
Ftiming : TInvideoTiming;
Protected
//Property setters
Procedure SetimageBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setposition(AIndex : Integer; const AValue : TInvideoPosition); virtual;
Procedure SettargetChannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Settiming(AIndex : Integer; const AValue : TInvideoTiming); virtual;
Public
Published
Property imageBytes : String Index 0 Read FimageBytes Write SetimageBytes;
Property imageUrl : String Index 8 Read FimageUrl Write SetimageUrl;
Property position : TInvideoPosition Index 16 Read Fposition Write Setposition;
Property targetChannelId : String Index 24 Read FtargetChannelId Write SettargetChannelId;
Property timing : TInvideoTiming Index 32 Read Ftiming Write Settiming;
end;
TInvideoBrandingClass = Class of TInvideoBranding;
{ --------------------------------------------------------------------
TInvideoPosition
--------------------------------------------------------------------}
TInvideoPosition = Class(TGoogleBaseObject)
Private
FcornerPosition : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetcornerPosition(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property cornerPosition : String Index 0 Read FcornerPosition Write SetcornerPosition;
Property _type : String Index 8 Read F_type Write Set_type;
end;
TInvideoPositionClass = Class of TInvideoPosition;
{ --------------------------------------------------------------------
TInvideoPromotion
--------------------------------------------------------------------}
TInvideoPromotion = Class(TGoogleBaseObject)
Private
FdefaultTiming : TInvideoTiming;
Fitems : TInvideoPromotionTypeitemsArray;
Fposition : TInvideoPosition;
FuseSmartTiming : boolean;
Protected
//Property setters
Procedure SetdefaultTiming(AIndex : Integer; const AValue : TInvideoTiming); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInvideoPromotionTypeitemsArray); virtual;
Procedure Setposition(AIndex : Integer; const AValue : TInvideoPosition); virtual;
Procedure SetuseSmartTiming(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property defaultTiming : TInvideoTiming Index 0 Read FdefaultTiming Write SetdefaultTiming;
Property items : TInvideoPromotionTypeitemsArray Index 8 Read Fitems Write Setitems;
Property position : TInvideoPosition Index 16 Read Fposition Write Setposition;
Property useSmartTiming : boolean Index 24 Read FuseSmartTiming Write SetuseSmartTiming;
end;
TInvideoPromotionClass = Class of TInvideoPromotion;
{ --------------------------------------------------------------------
TInvideoTiming
--------------------------------------------------------------------}
TInvideoTiming = Class(TGoogleBaseObject)
Private
FdurationMs : String;
FoffsetMs : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetdurationMs(AIndex : Integer; const AValue : String); virtual;
Procedure SetoffsetMs(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property durationMs : String Index 0 Read FdurationMs Write SetdurationMs;
Property offsetMs : String Index 8 Read FoffsetMs Write SetoffsetMs;
Property _type : String Index 16 Read F_type Write Set_type;
end;
TInvideoTimingClass = Class of TInvideoTiming;
{ --------------------------------------------------------------------
TLanguageTag
--------------------------------------------------------------------}
TLanguageTag = Class(TGoogleBaseObject)
Private
Fvalue : String;
Protected
//Property setters
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property value : String Index 0 Read Fvalue Write Setvalue;
end;
TLanguageTagClass = Class of TLanguageTag;
{ --------------------------------------------------------------------
TLiveBroadcast
--------------------------------------------------------------------}
TLiveBroadcast = Class(TGoogleBaseObject)
Private
FcontentDetails : TLiveBroadcastContentDetails;
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TLiveBroadcastSnippet;
Fstatistics : TLiveBroadcastStatistics;
Fstatus : TLiveBroadcastStatus;
FtopicDetails : TLiveBroadcastTopicDetails;
Protected
//Property setters
Procedure SetcontentDetails(AIndex : Integer; const AValue : TLiveBroadcastContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastSnippet); virtual;
Procedure Setstatistics(AIndex : Integer; const AValue : TLiveBroadcastStatistics); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TLiveBroadcastStatus); virtual;
Procedure SettopicDetails(AIndex : Integer; const AValue : TLiveBroadcastTopicDetails); virtual;
Public
Published
Property contentDetails : TLiveBroadcastContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property snippet : TLiveBroadcastSnippet Index 32 Read Fsnippet Write Setsnippet;
Property statistics : TLiveBroadcastStatistics Index 40 Read Fstatistics Write Setstatistics;
Property status : TLiveBroadcastStatus Index 48 Read Fstatus Write Setstatus;
Property topicDetails : TLiveBroadcastTopicDetails Index 56 Read FtopicDetails Write SettopicDetails;
end;
TLiveBroadcastClass = Class of TLiveBroadcast;
{ --------------------------------------------------------------------
TLiveBroadcastContentDetails
--------------------------------------------------------------------}
TLiveBroadcastContentDetails = Class(TGoogleBaseObject)
Private
FboundStreamId : String;
FboundStreamLastUpdateTimeMs : TDatetime;
FclosedCaptionsType : String;
FenableClosedCaptions : boolean;
FenableContentEncryption : boolean;
FenableDvr : boolean;
FenableEmbed : boolean;
FenableLowLatency : boolean;
FmonitorStream : TMonitorStreamInfo;
Fprojection : String;
FrecordFromStart : boolean;
FstartWithSlate : boolean;
Protected
//Property setters
Procedure SetboundStreamId(AIndex : Integer; const AValue : String); virtual;
Procedure SetboundStreamLastUpdateTimeMs(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetclosedCaptionsType(AIndex : Integer; const AValue : String); virtual;
Procedure SetenableClosedCaptions(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetenableContentEncryption(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetenableDvr(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetenableEmbed(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetenableLowLatency(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetmonitorStream(AIndex : Integer; const AValue : TMonitorStreamInfo); virtual;
Procedure Setprojection(AIndex : Integer; const AValue : String); virtual;
Procedure SetrecordFromStart(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetstartWithSlate(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property boundStreamId : String Index 0 Read FboundStreamId Write SetboundStreamId;
Property boundStreamLastUpdateTimeMs : TDatetime Index 8 Read FboundStreamLastUpdateTimeMs Write SetboundStreamLastUpdateTimeMs;
Property closedCaptionsType : String Index 16 Read FclosedCaptionsType Write SetclosedCaptionsType;
Property enableClosedCaptions : boolean Index 24 Read FenableClosedCaptions Write SetenableClosedCaptions;
Property enableContentEncryption : boolean Index 32 Read FenableContentEncryption Write SetenableContentEncryption;
Property enableDvr : boolean Index 40 Read FenableDvr Write SetenableDvr;
Property enableEmbed : boolean Index 48 Read FenableEmbed Write SetenableEmbed;
Property enableLowLatency : boolean Index 56 Read FenableLowLatency Write SetenableLowLatency;
Property monitorStream : TMonitorStreamInfo Index 64 Read FmonitorStream Write SetmonitorStream;
Property projection : String Index 72 Read Fprojection Write Setprojection;
Property recordFromStart : boolean Index 80 Read FrecordFromStart Write SetrecordFromStart;
Property startWithSlate : boolean Index 88 Read FstartWithSlate Write SetstartWithSlate;
end;
TLiveBroadcastContentDetailsClass = Class of TLiveBroadcastContentDetails;
{ --------------------------------------------------------------------
TLiveBroadcastListResponse
--------------------------------------------------------------------}
TLiveBroadcastListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TLiveBroadcastListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TLiveBroadcastListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TLiveBroadcastListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TLiveBroadcastListResponseClass = Class of TLiveBroadcastListResponse;
{ --------------------------------------------------------------------
TLiveBroadcastSnippet
--------------------------------------------------------------------}
TLiveBroadcastSnippet = Class(TGoogleBaseObject)
Private
FactualEndTime : TDatetime;
FactualStartTime : TDatetime;
FchannelId : String;
Fdescription : String;
FisDefaultBroadcast : boolean;
FliveChatId : String;
FpublishedAt : TDatetime;
FscheduledEndTime : TDatetime;
FscheduledStartTime : TDatetime;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure SetactualEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetactualStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetisDefaultBroadcast(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property actualEndTime : TDatetime Index 0 Read FactualEndTime Write SetactualEndTime;
Property actualStartTime : TDatetime Index 8 Read FactualStartTime Write SetactualStartTime;
Property channelId : String Index 16 Read FchannelId Write SetchannelId;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property isDefaultBroadcast : boolean Index 32 Read FisDefaultBroadcast Write SetisDefaultBroadcast;
Property liveChatId : String Index 40 Read FliveChatId Write SetliveChatId;
Property publishedAt : TDatetime Index 48 Read FpublishedAt Write SetpublishedAt;
Property scheduledEndTime : TDatetime Index 56 Read FscheduledEndTime Write SetscheduledEndTime;
Property scheduledStartTime : TDatetime Index 64 Read FscheduledStartTime Write SetscheduledStartTime;
Property thumbnails : TThumbnailDetails Index 72 Read Fthumbnails Write Setthumbnails;
Property title : String Index 80 Read Ftitle Write Settitle;
end;
TLiveBroadcastSnippetClass = Class of TLiveBroadcastSnippet;
{ --------------------------------------------------------------------
TLiveBroadcastStatistics
--------------------------------------------------------------------}
TLiveBroadcastStatistics = Class(TGoogleBaseObject)
Private
FconcurrentViewers : String;
FtotalChatCount : String;
Protected
//Property setters
Procedure SetconcurrentViewers(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalChatCount(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property concurrentViewers : String Index 0 Read FconcurrentViewers Write SetconcurrentViewers;
Property totalChatCount : String Index 8 Read FtotalChatCount Write SettotalChatCount;
end;
TLiveBroadcastStatisticsClass = Class of TLiveBroadcastStatistics;
{ --------------------------------------------------------------------
TLiveBroadcastStatus
--------------------------------------------------------------------}
TLiveBroadcastStatus = Class(TGoogleBaseObject)
Private
FlifeCycleStatus : String;
FliveBroadcastPriority : String;
FprivacyStatus : String;
FrecordingStatus : String;
Protected
//Property setters
Procedure SetlifeCycleStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetliveBroadcastPriority(AIndex : Integer; const AValue : String); virtual;
Procedure SetprivacyStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetrecordingStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property lifeCycleStatus : String Index 0 Read FlifeCycleStatus Write SetlifeCycleStatus;
Property liveBroadcastPriority : String Index 8 Read FliveBroadcastPriority Write SetliveBroadcastPriority;
Property privacyStatus : String Index 16 Read FprivacyStatus Write SetprivacyStatus;
Property recordingStatus : String Index 24 Read FrecordingStatus Write SetrecordingStatus;
end;
TLiveBroadcastStatusClass = Class of TLiveBroadcastStatus;
{ --------------------------------------------------------------------
TLiveBroadcastTopic
--------------------------------------------------------------------}
TLiveBroadcastTopic = Class(TGoogleBaseObject)
Private
Fsnippet : TLiveBroadcastTopicSnippet;
F_type : String;
Funmatched : boolean;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastTopicSnippet); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setunmatched(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property snippet : TLiveBroadcastTopicSnippet Index 0 Read Fsnippet Write Setsnippet;
Property _type : String Index 8 Read F_type Write Set_type;
Property unmatched : boolean Index 16 Read Funmatched Write Setunmatched;
end;
TLiveBroadcastTopicClass = Class of TLiveBroadcastTopic;
{ --------------------------------------------------------------------
TLiveBroadcastTopicDetails
--------------------------------------------------------------------}
TLiveBroadcastTopicDetails = Class(TGoogleBaseObject)
Private
Ftopics : TLiveBroadcastTopicDetailsTypetopicsArray;
Protected
//Property setters
Procedure Settopics(AIndex : Integer; const AValue : TLiveBroadcastTopicDetailsTypetopicsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property topics : TLiveBroadcastTopicDetailsTypetopicsArray Index 0 Read Ftopics Write Settopics;
end;
TLiveBroadcastTopicDetailsClass = Class of TLiveBroadcastTopicDetails;
{ --------------------------------------------------------------------
TLiveBroadcastTopicSnippet
--------------------------------------------------------------------}
TLiveBroadcastTopicSnippet = Class(TGoogleBaseObject)
Private
Fname : String;
FreleaseDate : String;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetreleaseDate(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
Property releaseDate : String Index 8 Read FreleaseDate Write SetreleaseDate;
end;
TLiveBroadcastTopicSnippetClass = Class of TLiveBroadcastTopicSnippet;
{ --------------------------------------------------------------------
TLiveChatBan
--------------------------------------------------------------------}
TLiveChatBan = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TLiveChatBanSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TLiveChatBanSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TLiveChatBanSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TLiveChatBanClass = Class of TLiveChatBan;
{ --------------------------------------------------------------------
TLiveChatBanSnippet
--------------------------------------------------------------------}
TLiveChatBanSnippet = Class(TGoogleBaseObject)
Private
FbanDurationSeconds : String;
FbannedUserDetails : TChannelProfileDetails;
FliveChatId : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetbanDurationSeconds(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property banDurationSeconds : String Index 0 Read FbanDurationSeconds Write SetbanDurationSeconds;
Property bannedUserDetails : TChannelProfileDetails Index 8 Read FbannedUserDetails Write SetbannedUserDetails;
Property liveChatId : String Index 16 Read FliveChatId Write SetliveChatId;
Property _type : String Index 24 Read F_type Write Set_type;
end;
TLiveChatBanSnippetClass = Class of TLiveChatBanSnippet;
{ --------------------------------------------------------------------
TLiveChatFanFundingEventDetails
--------------------------------------------------------------------}
TLiveChatFanFundingEventDetails = Class(TGoogleBaseObject)
Private
FamountDisplayString : String;
FamountMicros : String;
Fcurrency : String;
FuserComment : String;
Protected
//Property setters
Procedure SetamountDisplayString(AIndex : Integer; const AValue : String); virtual;
Procedure SetamountMicros(AIndex : Integer; const AValue : String); virtual;
Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserComment(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property amountDisplayString : String Index 0 Read FamountDisplayString Write SetamountDisplayString;
Property amountMicros : String Index 8 Read FamountMicros Write SetamountMicros;
Property currency : String Index 16 Read Fcurrency Write Setcurrency;
Property userComment : String Index 24 Read FuserComment Write SetuserComment;
end;
TLiveChatFanFundingEventDetailsClass = Class of TLiveChatFanFundingEventDetails;
{ --------------------------------------------------------------------
TLiveChatMessage
--------------------------------------------------------------------}
TLiveChatMessage = Class(TGoogleBaseObject)
Private
FauthorDetails : TLiveChatMessageAuthorDetails;
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TLiveChatMessageSnippet;
Protected
//Property setters
Procedure SetauthorDetails(AIndex : Integer; const AValue : TLiveChatMessageAuthorDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TLiveChatMessageSnippet); virtual;
Public
Published
Property authorDetails : TLiveChatMessageAuthorDetails Index 0 Read FauthorDetails Write SetauthorDetails;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property snippet : TLiveChatMessageSnippet Index 32 Read Fsnippet Write Setsnippet;
end;
TLiveChatMessageClass = Class of TLiveChatMessage;
{ --------------------------------------------------------------------
TLiveChatMessageAuthorDetails
--------------------------------------------------------------------}
TLiveChatMessageAuthorDetails = Class(TGoogleBaseObject)
Private
FchannelId : String;
FchannelUrl : String;
FdisplayName : String;
FisChatModerator : boolean;
FisChatOwner : boolean;
FisChatSponsor : boolean;
FisVerified : boolean;
FprofileImageUrl : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure SetisChatModerator(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetisChatOwner(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetisChatSponsor(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetisVerified(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetprofileImageUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property channelUrl : String Index 8 Read FchannelUrl Write SetchannelUrl;
Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
Property isChatModerator : boolean Index 24 Read FisChatModerator Write SetisChatModerator;
Property isChatOwner : boolean Index 32 Read FisChatOwner Write SetisChatOwner;
Property isChatSponsor : boolean Index 40 Read FisChatSponsor Write SetisChatSponsor;
Property isVerified : boolean Index 48 Read FisVerified Write SetisVerified;
Property profileImageUrl : String Index 56 Read FprofileImageUrl Write SetprofileImageUrl;
end;
TLiveChatMessageAuthorDetailsClass = Class of TLiveChatMessageAuthorDetails;
{ --------------------------------------------------------------------
TLiveChatMessageDeletedDetails
--------------------------------------------------------------------}
TLiveChatMessageDeletedDetails = Class(TGoogleBaseObject)
Private
FdeletedMessageId : String;
Protected
//Property setters
Procedure SetdeletedMessageId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property deletedMessageId : String Index 0 Read FdeletedMessageId Write SetdeletedMessageId;
end;
TLiveChatMessageDeletedDetailsClass = Class of TLiveChatMessageDeletedDetails;
{ --------------------------------------------------------------------
TLiveChatMessageListResponse
--------------------------------------------------------------------}
TLiveChatMessageListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TLiveChatMessageListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FofflineAt : TDatetime;
FpageInfo : TPageInfo;
FpollingIntervalMillis : integer;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TLiveChatMessageListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetofflineAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetpollingIntervalMillis(AIndex : Integer; const AValue : integer); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TLiveChatMessageListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property offlineAt : TDatetime Index 40 Read FofflineAt Write SetofflineAt;
Property pageInfo : TPageInfo Index 48 Read FpageInfo Write SetpageInfo;
Property pollingIntervalMillis : integer Index 56 Read FpollingIntervalMillis Write SetpollingIntervalMillis;
Property tokenPagination : TTokenPagination Index 64 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 72 Read FvisitorId Write SetvisitorId;
end;
TLiveChatMessageListResponseClass = Class of TLiveChatMessageListResponse;
{ --------------------------------------------------------------------
TLiveChatMessageRetractedDetails
--------------------------------------------------------------------}
TLiveChatMessageRetractedDetails = Class(TGoogleBaseObject)
Private
FretractedMessageId : String;
Protected
//Property setters
Procedure SetretractedMessageId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property retractedMessageId : String Index 0 Read FretractedMessageId Write SetretractedMessageId;
end;
TLiveChatMessageRetractedDetailsClass = Class of TLiveChatMessageRetractedDetails;
{ --------------------------------------------------------------------
TLiveChatMessageSnippet
--------------------------------------------------------------------}
TLiveChatMessageSnippet = Class(TGoogleBaseObject)
Private
FauthorChannelId : String;
FdisplayMessage : String;
FfanFundingEventDetails : TLiveChatFanFundingEventDetails;
FhasDisplayContent : boolean;
FliveChatId : String;
FmessageDeletedDetails : TLiveChatMessageDeletedDetails;
FmessageRetractedDetails : TLiveChatMessageRetractedDetails;
FpublishedAt : TDatetime;
FtextMessageDetails : TLiveChatTextMessageDetails;
F_type : String;
FuserBannedDetails : TLiveChatUserBannedMessageDetails;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetauthorChannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayMessage(AIndex : Integer; const AValue : String); virtual;
Procedure SetfanFundingEventDetails(AIndex : Integer; const AValue : TLiveChatFanFundingEventDetails); virtual;
Procedure SethasDisplayContent(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
Procedure SetmessageDeletedDetails(AIndex : Integer; const AValue : TLiveChatMessageDeletedDetails); virtual;
Procedure SetmessageRetractedDetails(AIndex : Integer; const AValue : TLiveChatMessageRetractedDetails); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SettextMessageDetails(AIndex : Integer; const AValue : TLiveChatTextMessageDetails); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserBannedDetails(AIndex : Integer; const AValue : TLiveChatUserBannedMessageDetails); virtual;
Public
Published
Property authorChannelId : String Index 0 Read FauthorChannelId Write SetauthorChannelId;
Property displayMessage : String Index 8 Read FdisplayMessage Write SetdisplayMessage;
Property fanFundingEventDetails : TLiveChatFanFundingEventDetails Index 16 Read FfanFundingEventDetails Write SetfanFundingEventDetails;
Property hasDisplayContent : boolean Index 24 Read FhasDisplayContent Write SethasDisplayContent;
Property liveChatId : String Index 32 Read FliveChatId Write SetliveChatId;
Property messageDeletedDetails : TLiveChatMessageDeletedDetails Index 40 Read FmessageDeletedDetails Write SetmessageDeletedDetails;
Property messageRetractedDetails : TLiveChatMessageRetractedDetails Index 48 Read FmessageRetractedDetails Write SetmessageRetractedDetails;
Property publishedAt : TDatetime Index 56 Read FpublishedAt Write SetpublishedAt;
Property textMessageDetails : TLiveChatTextMessageDetails Index 64 Read FtextMessageDetails Write SettextMessageDetails;
Property _type : String Index 72 Read F_type Write Set_type;
Property userBannedDetails : TLiveChatUserBannedMessageDetails Index 80 Read FuserBannedDetails Write SetuserBannedDetails;
end;
TLiveChatMessageSnippetClass = Class of TLiveChatMessageSnippet;
{ --------------------------------------------------------------------
TLiveChatModerator
--------------------------------------------------------------------}
TLiveChatModerator = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TLiveChatModeratorSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TLiveChatModeratorSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TLiveChatModeratorSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TLiveChatModeratorClass = Class of TLiveChatModerator;
{ --------------------------------------------------------------------
TLiveChatModeratorListResponse
--------------------------------------------------------------------}
TLiveChatModeratorListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TLiveChatModeratorListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TLiveChatModeratorListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TLiveChatModeratorListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TLiveChatModeratorListResponseClass = Class of TLiveChatModeratorListResponse;
{ --------------------------------------------------------------------
TLiveChatModeratorSnippet
--------------------------------------------------------------------}
TLiveChatModeratorSnippet = Class(TGoogleBaseObject)
Private
FliveChatId : String;
FmoderatorDetails : TChannelProfileDetails;
Protected
//Property setters
Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
Procedure SetmoderatorDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
Public
Published
Property liveChatId : String Index 0 Read FliveChatId Write SetliveChatId;
Property moderatorDetails : TChannelProfileDetails Index 8 Read FmoderatorDetails Write SetmoderatorDetails;
end;
TLiveChatModeratorSnippetClass = Class of TLiveChatModeratorSnippet;
{ --------------------------------------------------------------------
TLiveChatTextMessageDetails
--------------------------------------------------------------------}
TLiveChatTextMessageDetails = Class(TGoogleBaseObject)
Private
FmessageText : String;
Protected
//Property setters
Procedure SetmessageText(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property messageText : String Index 0 Read FmessageText Write SetmessageText;
end;
TLiveChatTextMessageDetailsClass = Class of TLiveChatTextMessageDetails;
{ --------------------------------------------------------------------
TLiveChatUserBannedMessageDetails
--------------------------------------------------------------------}
TLiveChatUserBannedMessageDetails = Class(TGoogleBaseObject)
Private
FbanDurationSeconds : String;
FbanType : String;
FbannedUserDetails : TChannelProfileDetails;
Protected
//Property setters
Procedure SetbanDurationSeconds(AIndex : Integer; const AValue : String); virtual;
Procedure SetbanType(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
Public
Published
Property banDurationSeconds : String Index 0 Read FbanDurationSeconds Write SetbanDurationSeconds;
Property banType : String Index 8 Read FbanType Write SetbanType;
Property bannedUserDetails : TChannelProfileDetails Index 16 Read FbannedUserDetails Write SetbannedUserDetails;
end;
TLiveChatUserBannedMessageDetailsClass = Class of TLiveChatUserBannedMessageDetails;
{ --------------------------------------------------------------------
TLiveStream
--------------------------------------------------------------------}
TLiveStream = Class(TGoogleBaseObject)
Private
Fcdn : TCdnSettings;
FcontentDetails : TLiveStreamContentDetails;
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TLiveStreamSnippet;
Fstatus : TLiveStreamStatus;
Protected
//Property setters
Procedure Setcdn(AIndex : Integer; const AValue : TCdnSettings); virtual;
Procedure SetcontentDetails(AIndex : Integer; const AValue : TLiveStreamContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TLiveStreamSnippet); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TLiveStreamStatus); virtual;
Public
Published
Property cdn : TCdnSettings Index 0 Read Fcdn Write Setcdn;
Property contentDetails : TLiveStreamContentDetails Index 8 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 16 Read Fetag Write Setetag;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property snippet : TLiveStreamSnippet Index 40 Read Fsnippet Write Setsnippet;
Property status : TLiveStreamStatus Index 48 Read Fstatus Write Setstatus;
end;
TLiveStreamClass = Class of TLiveStream;
{ --------------------------------------------------------------------
TLiveStreamConfigurationIssue
--------------------------------------------------------------------}
TLiveStreamConfigurationIssue = Class(TGoogleBaseObject)
Private
Fdescription : String;
Freason : String;
Fseverity : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property description : String Index 0 Read Fdescription Write Setdescription;
Property reason : String Index 8 Read Freason Write Setreason;
Property severity : String Index 16 Read Fseverity Write Setseverity;
Property _type : String Index 24 Read F_type Write Set_type;
end;
TLiveStreamConfigurationIssueClass = Class of TLiveStreamConfigurationIssue;
{ --------------------------------------------------------------------
TLiveStreamContentDetails
--------------------------------------------------------------------}
TLiveStreamContentDetails = Class(TGoogleBaseObject)
Private
FclosedCaptionsIngestionUrl : String;
FisReusable : boolean;
Protected
//Property setters
Procedure SetclosedCaptionsIngestionUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetisReusable(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property closedCaptionsIngestionUrl : String Index 0 Read FclosedCaptionsIngestionUrl Write SetclosedCaptionsIngestionUrl;
Property isReusable : boolean Index 8 Read FisReusable Write SetisReusable;
end;
TLiveStreamContentDetailsClass = Class of TLiveStreamContentDetails;
{ --------------------------------------------------------------------
TLiveStreamHealthStatus
--------------------------------------------------------------------}
TLiveStreamHealthStatus = Class(TGoogleBaseObject)
Private
FconfigurationIssues : TLiveStreamHealthStatusTypeconfigurationIssuesArray;
FlastUpdateTimeSeconds : String;
Fstatus : String;
Protected
//Property setters
Procedure SetconfigurationIssues(AIndex : Integer; const AValue : TLiveStreamHealthStatusTypeconfigurationIssuesArray); virtual;
Procedure SetlastUpdateTimeSeconds(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(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 configurationIssues : TLiveStreamHealthStatusTypeconfigurationIssuesArray Index 0 Read FconfigurationIssues Write SetconfigurationIssues;
Property lastUpdateTimeSeconds : String Index 8 Read FlastUpdateTimeSeconds Write SetlastUpdateTimeSeconds;
Property status : String Index 16 Read Fstatus Write Setstatus;
end;
TLiveStreamHealthStatusClass = Class of TLiveStreamHealthStatus;
{ --------------------------------------------------------------------
TLiveStreamListResponse
--------------------------------------------------------------------}
TLiveStreamListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TLiveStreamListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TLiveStreamListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TLiveStreamListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TLiveStreamListResponseClass = Class of TLiveStreamListResponse;
{ --------------------------------------------------------------------
TLiveStreamSnippet
--------------------------------------------------------------------}
TLiveStreamSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
Fdescription : String;
FisDefaultStream : boolean;
FpublishedAt : TDatetime;
Ftitle : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetisDefaultStream(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property isDefaultStream : boolean Index 16 Read FisDefaultStream Write SetisDefaultStream;
Property publishedAt : TDatetime Index 24 Read FpublishedAt Write SetpublishedAt;
Property title : String Index 32 Read Ftitle Write Settitle;
end;
TLiveStreamSnippetClass = Class of TLiveStreamSnippet;
{ --------------------------------------------------------------------
TLiveStreamStatus
--------------------------------------------------------------------}
TLiveStreamStatus = Class(TGoogleBaseObject)
Private
FhealthStatus : TLiveStreamHealthStatus;
FstreamStatus : String;
Protected
//Property setters
Procedure SethealthStatus(AIndex : Integer; const AValue : TLiveStreamHealthStatus); virtual;
Procedure SetstreamStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property healthStatus : TLiveStreamHealthStatus Index 0 Read FhealthStatus Write SethealthStatus;
Property streamStatus : String Index 8 Read FstreamStatus Write SetstreamStatus;
end;
TLiveStreamStatusClass = Class of TLiveStreamStatus;
{ --------------------------------------------------------------------
TLocalizedProperty
--------------------------------------------------------------------}
TLocalizedProperty = Class(TGoogleBaseObject)
Private
Fdefault : String;
FdefaultLanguage : TLanguageTag;
Flocalized : TLocalizedPropertyTypelocalizedArray;
Protected
//Property setters
Procedure Setdefault(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : TLanguageTag); virtual;
Procedure Setlocalized(AIndex : Integer; const AValue : TLocalizedPropertyTypelocalizedArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property default : String Index 0 Read Fdefault Write Setdefault;
Property defaultLanguage : TLanguageTag Index 8 Read FdefaultLanguage Write SetdefaultLanguage;
Property localized : TLocalizedPropertyTypelocalizedArray Index 16 Read Flocalized Write Setlocalized;
end;
TLocalizedPropertyClass = Class of TLocalizedProperty;
{ --------------------------------------------------------------------
TLocalizedString
--------------------------------------------------------------------}
TLocalizedString = Class(TGoogleBaseObject)
Private
Flanguage : String;
Fvalue : String;
Protected
//Property setters
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property language : String Index 0 Read Flanguage Write Setlanguage;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TLocalizedStringClass = Class of TLocalizedString;
{ --------------------------------------------------------------------
TMonitorStreamInfo
--------------------------------------------------------------------}
TMonitorStreamInfo = Class(TGoogleBaseObject)
Private
FbroadcastStreamDelayMs : integer;
FembedHtml : String;
FenableMonitorStream : boolean;
Protected
//Property setters
Procedure SetbroadcastStreamDelayMs(AIndex : Integer; const AValue : integer); virtual;
Procedure SetembedHtml(AIndex : Integer; const AValue : String); virtual;
Procedure SetenableMonitorStream(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property broadcastStreamDelayMs : integer Index 0 Read FbroadcastStreamDelayMs Write SetbroadcastStreamDelayMs;
Property embedHtml : String Index 8 Read FembedHtml Write SetembedHtml;
Property enableMonitorStream : boolean Index 16 Read FenableMonitorStream Write SetenableMonitorStream;
end;
TMonitorStreamInfoClass = Class of TMonitorStreamInfo;
{ --------------------------------------------------------------------
TPageInfo
--------------------------------------------------------------------}
TPageInfo = Class(TGoogleBaseObject)
Private
FresultsPerPage : integer;
FtotalResults : integer;
Protected
//Property setters
Procedure SetresultsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property resultsPerPage : integer Index 0 Read FresultsPerPage Write SetresultsPerPage;
Property totalResults : integer Index 8 Read FtotalResults Write SettotalResults;
end;
TPageInfoClass = Class of TPageInfo;
{ --------------------------------------------------------------------
TPlaylistTypelocalizations
--------------------------------------------------------------------}
TPlaylistTypelocalizations = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TPlaylistTypelocalizationsClass = Class of TPlaylistTypelocalizations;
{ --------------------------------------------------------------------
TPlaylist
--------------------------------------------------------------------}
TPlaylist = Class(TGoogleBaseObject)
Private
FcontentDetails : TPlaylistContentDetails;
Fetag : String;
Fid : String;
Fkind : String;
Flocalizations : TPlaylistTypelocalizations;
Fplayer : TPlaylistPlayer;
Fsnippet : TPlaylistSnippet;
Fstatus : TPlaylistStatus;
Protected
//Property setters
Procedure SetcontentDetails(AIndex : Integer; const AValue : TPlaylistContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocalizations(AIndex : Integer; const AValue : TPlaylistTypelocalizations); virtual;
Procedure Setplayer(AIndex : Integer; const AValue : TPlaylistPlayer); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TPlaylistSnippet); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TPlaylistStatus); virtual;
Public
Published
Property contentDetails : TPlaylistContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property localizations : TPlaylistTypelocalizations Index 32 Read Flocalizations Write Setlocalizations;
Property player : TPlaylistPlayer Index 40 Read Fplayer Write Setplayer;
Property snippet : TPlaylistSnippet Index 48 Read Fsnippet Write Setsnippet;
Property status : TPlaylistStatus Index 56 Read Fstatus Write Setstatus;
end;
TPlaylistClass = Class of TPlaylist;
{ --------------------------------------------------------------------
TPlaylistContentDetails
--------------------------------------------------------------------}
TPlaylistContentDetails = Class(TGoogleBaseObject)
Private
FitemCount : integer;
Protected
//Property setters
Procedure SetitemCount(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property itemCount : integer Index 0 Read FitemCount Write SetitemCount;
end;
TPlaylistContentDetailsClass = Class of TPlaylistContentDetails;
{ --------------------------------------------------------------------
TPlaylistItem
--------------------------------------------------------------------}
TPlaylistItem = Class(TGoogleBaseObject)
Private
FcontentDetails : TPlaylistItemContentDetails;
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TPlaylistItemSnippet;
Fstatus : TPlaylistItemStatus;
Protected
//Property setters
Procedure SetcontentDetails(AIndex : Integer; const AValue : TPlaylistItemContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TPlaylistItemSnippet); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TPlaylistItemStatus); virtual;
Public
Published
Property contentDetails : TPlaylistItemContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property snippet : TPlaylistItemSnippet Index 32 Read Fsnippet Write Setsnippet;
Property status : TPlaylistItemStatus Index 40 Read Fstatus Write Setstatus;
end;
TPlaylistItemClass = Class of TPlaylistItem;
{ --------------------------------------------------------------------
TPlaylistItemContentDetails
--------------------------------------------------------------------}
TPlaylistItemContentDetails = Class(TGoogleBaseObject)
Private
FendAt : String;
Fnote : String;
FstartAt : String;
FvideoId : String;
Protected
//Property setters
Procedure SetendAt(AIndex : Integer; const AValue : String); virtual;
Procedure Setnote(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartAt(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property endAt : String Index 0 Read FendAt Write SetendAt;
Property note : String Index 8 Read Fnote Write Setnote;
Property startAt : String Index 16 Read FstartAt Write SetstartAt;
Property videoId : String Index 24 Read FvideoId Write SetvideoId;
end;
TPlaylistItemContentDetailsClass = Class of TPlaylistItemContentDetails;
{ --------------------------------------------------------------------
TPlaylistItemListResponse
--------------------------------------------------------------------}
TPlaylistItemListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TPlaylistItemListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TPlaylistItemListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TPlaylistItemListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TPlaylistItemListResponseClass = Class of TPlaylistItemListResponse;
{ --------------------------------------------------------------------
TPlaylistItemSnippet
--------------------------------------------------------------------}
TPlaylistItemSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
FchannelTitle : String;
Fdescription : String;
FplaylistId : String;
Fposition : integer;
FpublishedAt : TDatetime;
FresourceId : TResourceId;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetplaylistId(AIndex : Integer; const AValue : String); virtual;
Procedure Setposition(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property channelTitle : String Index 8 Read FchannelTitle Write SetchannelTitle;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property playlistId : String Index 24 Read FplaylistId Write SetplaylistId;
Property position : integer Index 32 Read Fposition Write Setposition;
Property publishedAt : TDatetime Index 40 Read FpublishedAt Write SetpublishedAt;
Property resourceId : TResourceId Index 48 Read FresourceId Write SetresourceId;
Property thumbnails : TThumbnailDetails Index 56 Read Fthumbnails Write Setthumbnails;
Property title : String Index 64 Read Ftitle Write Settitle;
end;
TPlaylistItemSnippetClass = Class of TPlaylistItemSnippet;
{ --------------------------------------------------------------------
TPlaylistItemStatus
--------------------------------------------------------------------}
TPlaylistItemStatus = Class(TGoogleBaseObject)
Private
FprivacyStatus : String;
Protected
//Property setters
Procedure SetprivacyStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property privacyStatus : String Index 0 Read FprivacyStatus Write SetprivacyStatus;
end;
TPlaylistItemStatusClass = Class of TPlaylistItemStatus;
{ --------------------------------------------------------------------
TPlaylistListResponse
--------------------------------------------------------------------}
TPlaylistListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TPlaylistListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TPlaylistListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TPlaylistListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TPlaylistListResponseClass = Class of TPlaylistListResponse;
{ --------------------------------------------------------------------
TPlaylistLocalization
--------------------------------------------------------------------}
TPlaylistLocalization = 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;
TPlaylistLocalizationClass = Class of TPlaylistLocalization;
{ --------------------------------------------------------------------
TPlaylistPlayer
--------------------------------------------------------------------}
TPlaylistPlayer = Class(TGoogleBaseObject)
Private
FembedHtml : String;
Protected
//Property setters
Procedure SetembedHtml(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property embedHtml : String Index 0 Read FembedHtml Write SetembedHtml;
end;
TPlaylistPlayerClass = Class of TPlaylistPlayer;
{ --------------------------------------------------------------------
TPlaylistSnippet
--------------------------------------------------------------------}
TPlaylistSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
FchannelTitle : String;
FdefaultLanguage : String;
Fdescription : String;
Flocalized : TPlaylistLocalization;
FpublishedAt : TDatetime;
Ftags : TStringArray;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocalized(AIndex : Integer; const AValue : TPlaylistLocalization); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property channelTitle : String Index 8 Read FchannelTitle Write SetchannelTitle;
Property defaultLanguage : String Index 16 Read FdefaultLanguage Write SetdefaultLanguage;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property localized : TPlaylistLocalization Index 32 Read Flocalized Write Setlocalized;
Property publishedAt : TDatetime Index 40 Read FpublishedAt Write SetpublishedAt;
Property tags : TStringArray Index 48 Read Ftags Write Settags;
Property thumbnails : TThumbnailDetails Index 56 Read Fthumbnails Write Setthumbnails;
Property title : String Index 64 Read Ftitle Write Settitle;
end;
TPlaylistSnippetClass = Class of TPlaylistSnippet;
{ --------------------------------------------------------------------
TPlaylistStatus
--------------------------------------------------------------------}
TPlaylistStatus = Class(TGoogleBaseObject)
Private
FprivacyStatus : String;
Protected
//Property setters
Procedure SetprivacyStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property privacyStatus : String Index 0 Read FprivacyStatus Write SetprivacyStatus;
end;
TPlaylistStatusClass = Class of TPlaylistStatus;
{ --------------------------------------------------------------------
TPromotedItem
--------------------------------------------------------------------}
TPromotedItem = Class(TGoogleBaseObject)
Private
FcustomMessage : String;
Fid : TPromotedItemId;
FpromotedByContentOwner : boolean;
Ftiming : TInvideoTiming;
Protected
//Property setters
Procedure SetcustomMessage(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : TPromotedItemId); virtual;
Procedure SetpromotedByContentOwner(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settiming(AIndex : Integer; const AValue : TInvideoTiming); virtual;
Public
Published
Property customMessage : String Index 0 Read FcustomMessage Write SetcustomMessage;
Property id : TPromotedItemId Index 8 Read Fid Write Setid;
Property promotedByContentOwner : boolean Index 16 Read FpromotedByContentOwner Write SetpromotedByContentOwner;
Property timing : TInvideoTiming Index 24 Read Ftiming Write Settiming;
end;
TPromotedItemClass = Class of TPromotedItem;
{ --------------------------------------------------------------------
TPromotedItemId
--------------------------------------------------------------------}
TPromotedItemId = Class(TGoogleBaseObject)
Private
FrecentlyUploadedBy : String;
F_type : String;
FvideoId : String;
FwebsiteUrl : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetrecentlyUploadedBy(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property recentlyUploadedBy : String Index 0 Read FrecentlyUploadedBy Write SetrecentlyUploadedBy;
Property _type : String Index 8 Read F_type Write Set_type;
Property videoId : String Index 16 Read FvideoId Write SetvideoId;
Property websiteUrl : String Index 24 Read FwebsiteUrl Write SetwebsiteUrl;
end;
TPromotedItemIdClass = Class of TPromotedItemId;
{ --------------------------------------------------------------------
TPropertyValue
--------------------------------------------------------------------}
TPropertyValue = Class(TGoogleBaseObject)
Private
F_property : String;
Fvalue : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_property(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property _property : String Index 0 Read F_property Write Set_property;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TPropertyValueClass = Class of TPropertyValue;
{ --------------------------------------------------------------------
TResourceId
--------------------------------------------------------------------}
TResourceId = Class(TGoogleBaseObject)
Private
FchannelId : String;
Fkind : String;
FplaylistId : String;
FvideoId : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetplaylistId(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property kind : String Index 8 Read Fkind Write Setkind;
Property playlistId : String Index 16 Read FplaylistId Write SetplaylistId;
Property videoId : String Index 24 Read FvideoId Write SetvideoId;
end;
TResourceIdClass = Class of TResourceId;
{ --------------------------------------------------------------------
TSearchListResponse
--------------------------------------------------------------------}
TSearchListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TSearchListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FregionCode : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TSearchListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetregionCode(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TSearchListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property regionCode : String Index 56 Read FregionCode Write SetregionCode;
Property tokenPagination : TTokenPagination Index 64 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 72 Read FvisitorId Write SetvisitorId;
end;
TSearchListResponseClass = Class of TSearchListResponse;
{ --------------------------------------------------------------------
TSearchResult
--------------------------------------------------------------------}
TSearchResult = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : TResourceId;
Fkind : String;
Fsnippet : TSearchResultSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : TResourceId); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TSearchResultSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : TResourceId Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TSearchResultSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TSearchResultClass = Class of TSearchResult;
{ --------------------------------------------------------------------
TSearchResultSnippet
--------------------------------------------------------------------}
TSearchResultSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
FchannelTitle : String;
Fdescription : String;
FliveBroadcastContent : String;
FpublishedAt : TDatetime;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetliveBroadcastContent(AIndex : Integer; const AValue : String); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property channelTitle : String Index 8 Read FchannelTitle Write SetchannelTitle;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property liveBroadcastContent : String Index 24 Read FliveBroadcastContent Write SetliveBroadcastContent;
Property publishedAt : TDatetime Index 32 Read FpublishedAt Write SetpublishedAt;
Property thumbnails : TThumbnailDetails Index 40 Read Fthumbnails Write Setthumbnails;
Property title : String Index 48 Read Ftitle Write Settitle;
end;
TSearchResultSnippetClass = Class of TSearchResultSnippet;
{ --------------------------------------------------------------------
TSponsor
--------------------------------------------------------------------}
TSponsor = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TSponsorSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TSponsorSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TSponsorSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TSponsorClass = Class of TSponsor;
{ --------------------------------------------------------------------
TSponsorListResponse
--------------------------------------------------------------------}
TSponsorListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TSponsorListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TSponsorListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TSponsorListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property tokenPagination : TTokenPagination Index 48 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 56 Read FvisitorId Write SetvisitorId;
end;
TSponsorListResponseClass = Class of TSponsorListResponse;
{ --------------------------------------------------------------------
TSponsorSnippet
--------------------------------------------------------------------}
TSponsorSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
FsponsorDetails : TChannelProfileDetails;
FsponsorSince : TDatetime;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsponsorDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
Procedure SetsponsorSince(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property sponsorDetails : TChannelProfileDetails Index 8 Read FsponsorDetails Write SetsponsorDetails;
Property sponsorSince : TDatetime Index 16 Read FsponsorSince Write SetsponsorSince;
end;
TSponsorSnippetClass = Class of TSponsorSnippet;
{ --------------------------------------------------------------------
TSubscription
--------------------------------------------------------------------}
TSubscription = Class(TGoogleBaseObject)
Private
FcontentDetails : TSubscriptionContentDetails;
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TSubscriptionSnippet;
FsubscriberSnippet : TSubscriptionSubscriberSnippet;
Protected
//Property setters
Procedure SetcontentDetails(AIndex : Integer; const AValue : TSubscriptionContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TSubscriptionSnippet); virtual;
Procedure SetsubscriberSnippet(AIndex : Integer; const AValue : TSubscriptionSubscriberSnippet); virtual;
Public
Published
Property contentDetails : TSubscriptionContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property snippet : TSubscriptionSnippet Index 32 Read Fsnippet Write Setsnippet;
Property subscriberSnippet : TSubscriptionSubscriberSnippet Index 40 Read FsubscriberSnippet Write SetsubscriberSnippet;
end;
TSubscriptionClass = Class of TSubscription;
{ --------------------------------------------------------------------
TSubscriptionContentDetails
--------------------------------------------------------------------}
TSubscriptionContentDetails = Class(TGoogleBaseObject)
Private
FactivityType : String;
FnewItemCount : integer;
FtotalItemCount : integer;
Protected
//Property setters
Procedure SetactivityType(AIndex : Integer; const AValue : String); virtual;
Procedure SetnewItemCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SettotalItemCount(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property activityType : String Index 0 Read FactivityType Write SetactivityType;
Property newItemCount : integer Index 8 Read FnewItemCount Write SetnewItemCount;
Property totalItemCount : integer Index 16 Read FtotalItemCount Write SettotalItemCount;
end;
TSubscriptionContentDetailsClass = Class of TSubscriptionContentDetails;
{ --------------------------------------------------------------------
TSubscriptionListResponse
--------------------------------------------------------------------}
TSubscriptionListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TSubscriptionListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TSubscriptionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TSubscriptionListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TSubscriptionListResponseClass = Class of TSubscriptionListResponse;
{ --------------------------------------------------------------------
TSubscriptionSnippet
--------------------------------------------------------------------}
TSubscriptionSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
FchannelTitle : String;
Fdescription : String;
FpublishedAt : TDatetime;
FresourceId : TResourceId;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property channelTitle : String Index 8 Read FchannelTitle Write SetchannelTitle;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property publishedAt : TDatetime Index 24 Read FpublishedAt Write SetpublishedAt;
Property resourceId : TResourceId Index 32 Read FresourceId Write SetresourceId;
Property thumbnails : TThumbnailDetails Index 40 Read Fthumbnails Write Setthumbnails;
Property title : String Index 48 Read Ftitle Write Settitle;
end;
TSubscriptionSnippetClass = Class of TSubscriptionSnippet;
{ --------------------------------------------------------------------
TSubscriptionSubscriberSnippet
--------------------------------------------------------------------}
TSubscriptionSubscriberSnippet = Class(TGoogleBaseObject)
Private
FchannelId : String;
Fdescription : String;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property thumbnails : TThumbnailDetails Index 16 Read Fthumbnails Write Setthumbnails;
Property title : String Index 24 Read Ftitle Write Settitle;
end;
TSubscriptionSubscriberSnippetClass = Class of TSubscriptionSubscriberSnippet;
{ --------------------------------------------------------------------
TThumbnail
--------------------------------------------------------------------}
TThumbnail = Class(TGoogleBaseObject)
Private
Fheight : integer;
Furl : String;
Fwidth : integer;
Protected
//Property setters
Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
Property url : String Index 8 Read Furl Write Seturl;
Property width : integer Index 16 Read Fwidth Write Setwidth;
end;
TThumbnailClass = Class of TThumbnail;
{ --------------------------------------------------------------------
TThumbnailDetails
--------------------------------------------------------------------}
TThumbnailDetails = Class(TGoogleBaseObject)
Private
Fdefault : TThumbnail;
Fhigh : TThumbnail;
Fmaxres : TThumbnail;
Fmedium : TThumbnail;
Fstandard : TThumbnail;
Protected
//Property setters
Procedure Setdefault(AIndex : Integer; const AValue : TThumbnail); virtual;
Procedure Sethigh(AIndex : Integer; const AValue : TThumbnail); virtual;
Procedure Setmaxres(AIndex : Integer; const AValue : TThumbnail); virtual;
Procedure Setmedium(AIndex : Integer; const AValue : TThumbnail); virtual;
Procedure Setstandard(AIndex : Integer; const AValue : TThumbnail); virtual;
Public
Published
Property default : TThumbnail Index 0 Read Fdefault Write Setdefault;
Property high : TThumbnail Index 8 Read Fhigh Write Sethigh;
Property maxres : TThumbnail Index 16 Read Fmaxres Write Setmaxres;
Property medium : TThumbnail Index 24 Read Fmedium Write Setmedium;
Property standard : TThumbnail Index 32 Read Fstandard Write Setstandard;
end;
TThumbnailDetailsClass = Class of TThumbnailDetails;
{ --------------------------------------------------------------------
TThumbnailSetResponse
--------------------------------------------------------------------}
TThumbnailSetResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TThumbnailSetResponseTypeitemsArray;
Fkind : String;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TThumbnailSetResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TThumbnailSetResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property visitorId : String Index 32 Read FvisitorId Write SetvisitorId;
end;
TThumbnailSetResponseClass = Class of TThumbnailSetResponse;
{ --------------------------------------------------------------------
TTokenPagination
--------------------------------------------------------------------}
TTokenPagination = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Published
end;
TTokenPaginationClass = Class of TTokenPagination;
{ --------------------------------------------------------------------
TVideoTypelocalizations
--------------------------------------------------------------------}
TVideoTypelocalizations = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TVideoTypelocalizationsClass = Class of TVideoTypelocalizations;
{ --------------------------------------------------------------------
TVideo
--------------------------------------------------------------------}
TVideo = Class(TGoogleBaseObject)
Private
FageGating : TVideoAgeGating;
FcontentDetails : TVideoContentDetails;
Fetag : String;
FfileDetails : TVideoFileDetails;
Fid : String;
Fkind : String;
FliveStreamingDetails : TVideoLiveStreamingDetails;
Flocalizations : TVideoTypelocalizations;
FmonetizationDetails : TVideoMonetizationDetails;
Fplayer : TVideoPlayer;
FprocessingDetails : TVideoProcessingDetails;
FprojectDetails : TVideoProjectDetails;
FrecordingDetails : TVideoRecordingDetails;
Fsnippet : TVideoSnippet;
Fstatistics : TVideoStatistics;
Fstatus : TVideoStatus;
Fsuggestions : TVideoSuggestions;
FtopicDetails : TVideoTopicDetails;
Protected
//Property setters
Procedure SetageGating(AIndex : Integer; const AValue : TVideoAgeGating); virtual;
Procedure SetcontentDetails(AIndex : Integer; const AValue : TVideoContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileDetails(AIndex : Integer; const AValue : TVideoFileDetails); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetliveStreamingDetails(AIndex : Integer; const AValue : TVideoLiveStreamingDetails); virtual;
Procedure Setlocalizations(AIndex : Integer; const AValue : TVideoTypelocalizations); virtual;
Procedure SetmonetizationDetails(AIndex : Integer; const AValue : TVideoMonetizationDetails); virtual;
Procedure Setplayer(AIndex : Integer; const AValue : TVideoPlayer); virtual;
Procedure SetprocessingDetails(AIndex : Integer; const AValue : TVideoProcessingDetails); virtual;
Procedure SetprojectDetails(AIndex : Integer; const AValue : TVideoProjectDetails); virtual;
Procedure SetrecordingDetails(AIndex : Integer; const AValue : TVideoRecordingDetails); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TVideoSnippet); virtual;
Procedure Setstatistics(AIndex : Integer; const AValue : TVideoStatistics); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TVideoStatus); virtual;
Procedure Setsuggestions(AIndex : Integer; const AValue : TVideoSuggestions); virtual;
Procedure SettopicDetails(AIndex : Integer; const AValue : TVideoTopicDetails); virtual;
Public
Published
Property ageGating : TVideoAgeGating Index 0 Read FageGating Write SetageGating;
Property contentDetails : TVideoContentDetails Index 8 Read FcontentDetails Write SetcontentDetails;
Property etag : String Index 16 Read Fetag Write Setetag;
Property fileDetails : TVideoFileDetails Index 24 Read FfileDetails Write SetfileDetails;
Property id : String Index 32 Read Fid Write Setid;
Property kind : String Index 40 Read Fkind Write Setkind;
Property liveStreamingDetails : TVideoLiveStreamingDetails Index 48 Read FliveStreamingDetails Write SetliveStreamingDetails;
Property localizations : TVideoTypelocalizations Index 56 Read Flocalizations Write Setlocalizations;
Property monetizationDetails : TVideoMonetizationDetails Index 64 Read FmonetizationDetails Write SetmonetizationDetails;
Property player : TVideoPlayer Index 72 Read Fplayer Write Setplayer;
Property processingDetails : TVideoProcessingDetails Index 80 Read FprocessingDetails Write SetprocessingDetails;
Property projectDetails : TVideoProjectDetails Index 88 Read FprojectDetails Write SetprojectDetails;
Property recordingDetails : TVideoRecordingDetails Index 96 Read FrecordingDetails Write SetrecordingDetails;
Property snippet : TVideoSnippet Index 104 Read Fsnippet Write Setsnippet;
Property statistics : TVideoStatistics Index 112 Read Fstatistics Write Setstatistics;
Property status : TVideoStatus Index 120 Read Fstatus Write Setstatus;
Property suggestions : TVideoSuggestions Index 128 Read Fsuggestions Write Setsuggestions;
Property topicDetails : TVideoTopicDetails Index 136 Read FtopicDetails Write SettopicDetails;
end;
TVideoClass = Class of TVideo;
{ --------------------------------------------------------------------
TVideoAbuseReport
--------------------------------------------------------------------}
TVideoAbuseReport = Class(TGoogleBaseObject)
Private
Fcomments : String;
Flanguage : String;
FreasonId : String;
FsecondaryReasonId : String;
FvideoId : String;
Protected
//Property setters
Procedure Setcomments(AIndex : Integer; const AValue : String); virtual;
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetreasonId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsecondaryReasonId(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property comments : String Index 0 Read Fcomments Write Setcomments;
Property language : String Index 8 Read Flanguage Write Setlanguage;
Property reasonId : String Index 16 Read FreasonId Write SetreasonId;
Property secondaryReasonId : String Index 24 Read FsecondaryReasonId Write SetsecondaryReasonId;
Property videoId : String Index 32 Read FvideoId Write SetvideoId;
end;
TVideoAbuseReportClass = Class of TVideoAbuseReport;
{ --------------------------------------------------------------------
TVideoAbuseReportReason
--------------------------------------------------------------------}
TVideoAbuseReportReason = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TVideoAbuseReportReasonSnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TVideoAbuseReportReasonSnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TVideoAbuseReportReasonClass = Class of TVideoAbuseReportReason;
{ --------------------------------------------------------------------
TVideoAbuseReportReasonListResponse
--------------------------------------------------------------------}
TVideoAbuseReportReasonListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TVideoAbuseReportReasonListResponseTypeitemsArray;
Fkind : String;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TVideoAbuseReportReasonListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TVideoAbuseReportReasonListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property visitorId : String Index 32 Read FvisitorId Write SetvisitorId;
end;
TVideoAbuseReportReasonListResponseClass = Class of TVideoAbuseReportReasonListResponse;
{ --------------------------------------------------------------------
TVideoAbuseReportReasonSnippet
--------------------------------------------------------------------}
TVideoAbuseReportReasonSnippet = Class(TGoogleBaseObject)
Private
F_label : String;
FsecondaryReasons : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
Procedure SetsecondaryReasons(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property _label : String Index 0 Read F_label Write Set_label;
Property secondaryReasons : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray Index 8 Read FsecondaryReasons Write SetsecondaryReasons;
end;
TVideoAbuseReportReasonSnippetClass = Class of TVideoAbuseReportReasonSnippet;
{ --------------------------------------------------------------------
TVideoAbuseReportSecondaryReason
--------------------------------------------------------------------}
TVideoAbuseReportSecondaryReason = Class(TGoogleBaseObject)
Private
Fid : String;
F_label : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property _label : String Index 8 Read F_label Write Set_label;
end;
TVideoAbuseReportSecondaryReasonClass = Class of TVideoAbuseReportSecondaryReason;
{ --------------------------------------------------------------------
TVideoAgeGating
--------------------------------------------------------------------}
TVideoAgeGating = Class(TGoogleBaseObject)
Private
FalcoholContent : boolean;
Frestricted : boolean;
FvideoGameRating : String;
Protected
//Property setters
Procedure SetalcoholContent(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setrestricted(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetvideoGameRating(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property alcoholContent : boolean Index 0 Read FalcoholContent Write SetalcoholContent;
Property restricted : boolean Index 8 Read Frestricted Write Setrestricted;
Property videoGameRating : String Index 16 Read FvideoGameRating Write SetvideoGameRating;
end;
TVideoAgeGatingClass = Class of TVideoAgeGating;
{ --------------------------------------------------------------------
TVideoCategory
--------------------------------------------------------------------}
TVideoCategory = Class(TGoogleBaseObject)
Private
Fetag : String;
Fid : String;
Fkind : String;
Fsnippet : TVideoCategorySnippet;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : TVideoCategorySnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property snippet : TVideoCategorySnippet Index 24 Read Fsnippet Write Setsnippet;
end;
TVideoCategoryClass = Class of TVideoCategory;
{ --------------------------------------------------------------------
TVideoCategoryListResponse
--------------------------------------------------------------------}
TVideoCategoryListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TVideoCategoryListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TVideoCategoryListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TVideoCategoryListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TVideoCategoryListResponseClass = Class of TVideoCategoryListResponse;
{ --------------------------------------------------------------------
TVideoCategorySnippet
--------------------------------------------------------------------}
TVideoCategorySnippet = Class(TGoogleBaseObject)
Private
Fassignable : boolean;
FchannelId : String;
Ftitle : String;
Protected
//Property setters
Procedure Setassignable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property assignable : boolean Index 0 Read Fassignable Write Setassignable;
Property channelId : String Index 8 Read FchannelId Write SetchannelId;
Property title : String Index 16 Read Ftitle Write Settitle;
end;
TVideoCategorySnippetClass = Class of TVideoCategorySnippet;
{ --------------------------------------------------------------------
TVideoContentDetails
--------------------------------------------------------------------}
TVideoContentDetails = Class(TGoogleBaseObject)
Private
Fcaption : String;
FcontentRating : TContentRating;
FcountryRestriction : TAccessPolicy;
Fdefinition : String;
Fdimension : String;
Fduration : String;
FlicensedContent : boolean;
Fprojection : String;
FregionRestriction : TVideoContentDetailsRegionRestriction;
Protected
//Property setters
Procedure Setcaption(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentRating(AIndex : Integer; const AValue : TContentRating); virtual;
Procedure SetcountryRestriction(AIndex : Integer; const AValue : TAccessPolicy); virtual;
Procedure Setdefinition(AIndex : Integer; const AValue : String); virtual;
Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
Procedure Setduration(AIndex : Integer; const AValue : String); virtual;
Procedure SetlicensedContent(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setprojection(AIndex : Integer; const AValue : String); virtual;
Procedure SetregionRestriction(AIndex : Integer; const AValue : TVideoContentDetailsRegionRestriction); virtual;
Public
Published
Property caption : String Index 0 Read Fcaption Write Setcaption;
Property contentRating : TContentRating Index 8 Read FcontentRating Write SetcontentRating;
Property countryRestriction : TAccessPolicy Index 16 Read FcountryRestriction Write SetcountryRestriction;
Property definition : String Index 24 Read Fdefinition Write Setdefinition;
Property dimension : String Index 32 Read Fdimension Write Setdimension;
Property duration : String Index 40 Read Fduration Write Setduration;
Property licensedContent : boolean Index 48 Read FlicensedContent Write SetlicensedContent;
Property projection : String Index 56 Read Fprojection Write Setprojection;
Property regionRestriction : TVideoContentDetailsRegionRestriction Index 64 Read FregionRestriction Write SetregionRestriction;
end;
TVideoContentDetailsClass = Class of TVideoContentDetails;
{ --------------------------------------------------------------------
TVideoContentDetailsRegionRestriction
--------------------------------------------------------------------}
TVideoContentDetailsRegionRestriction = Class(TGoogleBaseObject)
Private
Fallowed : TStringArray;
Fblocked : TStringArray;
Protected
//Property setters
Procedure Setallowed(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setblocked(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 allowed : TStringArray Index 0 Read Fallowed Write Setallowed;
Property blocked : TStringArray Index 8 Read Fblocked Write Setblocked;
end;
TVideoContentDetailsRegionRestrictionClass = Class of TVideoContentDetailsRegionRestriction;
{ --------------------------------------------------------------------
TVideoFileDetails
--------------------------------------------------------------------}
TVideoFileDetails = Class(TGoogleBaseObject)
Private
FaudioStreams : TVideoFileDetailsTypeaudioStreamsArray;
FbitrateBps : String;
Fcontainer : String;
FcreationTime : String;
FdurationMs : String;
FfileName : String;
FfileSize : String;
FfileType : String;
FrecordingLocation : TGeoPoint;
FvideoStreams : TVideoFileDetailsTypevideoStreamsArray;
Protected
//Property setters
Procedure SetaudioStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypeaudioStreamsArray); virtual;
Procedure SetbitrateBps(AIndex : Integer; const AValue : String); virtual;
Procedure Setcontainer(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetdurationMs(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileName(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileType(AIndex : Integer; const AValue : String); virtual;
Procedure SetrecordingLocation(AIndex : Integer; const AValue : TGeoPoint); virtual;
Procedure SetvideoStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypevideoStreamsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property audioStreams : TVideoFileDetailsTypeaudioStreamsArray Index 0 Read FaudioStreams Write SetaudioStreams;
Property bitrateBps : String Index 8 Read FbitrateBps Write SetbitrateBps;
Property container : String Index 16 Read Fcontainer Write Setcontainer;
Property creationTime : String Index 24 Read FcreationTime Write SetcreationTime;
Property durationMs : String Index 32 Read FdurationMs Write SetdurationMs;
Property fileName : String Index 40 Read FfileName Write SetfileName;
Property fileSize : String Index 48 Read FfileSize Write SetfileSize;
Property fileType : String Index 56 Read FfileType Write SetfileType;
Property recordingLocation : TGeoPoint Index 64 Read FrecordingLocation Write SetrecordingLocation;
Property videoStreams : TVideoFileDetailsTypevideoStreamsArray Index 72 Read FvideoStreams Write SetvideoStreams;
end;
TVideoFileDetailsClass = Class of TVideoFileDetails;
{ --------------------------------------------------------------------
TVideoFileDetailsAudioStream
--------------------------------------------------------------------}
TVideoFileDetailsAudioStream = Class(TGoogleBaseObject)
Private
FbitrateBps : String;
FchannelCount : integer;
Fcodec : String;
Fvendor : String;
Protected
//Property setters
Procedure SetbitrateBps(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setcodec(AIndex : Integer; const AValue : String); virtual;
Procedure Setvendor(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property bitrateBps : String Index 0 Read FbitrateBps Write SetbitrateBps;
Property channelCount : integer Index 8 Read FchannelCount Write SetchannelCount;
Property codec : String Index 16 Read Fcodec Write Setcodec;
Property vendor : String Index 24 Read Fvendor Write Setvendor;
end;
TVideoFileDetailsAudioStreamClass = Class of TVideoFileDetailsAudioStream;
{ --------------------------------------------------------------------
TVideoFileDetailsVideoStream
--------------------------------------------------------------------}
TVideoFileDetailsVideoStream = Class(TGoogleBaseObject)
Private
FaspectRatio : double;
FbitrateBps : String;
Fcodec : String;
FframeRateFps : double;
FheightPixels : integer;
Frotation : String;
Fvendor : String;
FwidthPixels : integer;
Protected
//Property setters
Procedure SetaspectRatio(AIndex : Integer; const AValue : double); virtual;
Procedure SetbitrateBps(AIndex : Integer; const AValue : String); virtual;
Procedure Setcodec(AIndex : Integer; const AValue : String); virtual;
Procedure SetframeRateFps(AIndex : Integer; const AValue : double); virtual;
Procedure SetheightPixels(AIndex : Integer; const AValue : integer); virtual;
Procedure Setrotation(AIndex : Integer; const AValue : String); virtual;
Procedure Setvendor(AIndex : Integer; const AValue : String); virtual;
Procedure SetwidthPixels(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property aspectRatio : double Index 0 Read FaspectRatio Write SetaspectRatio;
Property bitrateBps : String Index 8 Read FbitrateBps Write SetbitrateBps;
Property codec : String Index 16 Read Fcodec Write Setcodec;
Property frameRateFps : double Index 24 Read FframeRateFps Write SetframeRateFps;
Property heightPixels : integer Index 32 Read FheightPixels Write SetheightPixels;
Property rotation : String Index 40 Read Frotation Write Setrotation;
Property vendor : String Index 48 Read Fvendor Write Setvendor;
Property widthPixels : integer Index 56 Read FwidthPixels Write SetwidthPixels;
end;
TVideoFileDetailsVideoStreamClass = Class of TVideoFileDetailsVideoStream;
{ --------------------------------------------------------------------
TVideoGetRatingResponse
--------------------------------------------------------------------}
TVideoGetRatingResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TVideoGetRatingResponseTypeitemsArray;
Fkind : String;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TVideoGetRatingResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TVideoGetRatingResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property visitorId : String Index 32 Read FvisitorId Write SetvisitorId;
end;
TVideoGetRatingResponseClass = Class of TVideoGetRatingResponse;
{ --------------------------------------------------------------------
TVideoListResponse
--------------------------------------------------------------------}
TVideoListResponse = Class(TGoogleBaseObject)
Private
Fetag : String;
FeventId : String;
Fitems : TVideoListResponseTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TVideoListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property eventId : String Index 8 Read FeventId Write SeteventId;
Property items : TVideoListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
Property kind : String Index 24 Read Fkind Write Setkind;
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
end;
TVideoListResponseClass = Class of TVideoListResponse;
{ --------------------------------------------------------------------
TVideoLiveStreamingDetails
--------------------------------------------------------------------}
TVideoLiveStreamingDetails = Class(TGoogleBaseObject)
Private
FactiveLiveChatId : String;
FactualEndTime : TDatetime;
FactualStartTime : TDatetime;
FconcurrentViewers : String;
FscheduledEndTime : TDatetime;
FscheduledStartTime : TDatetime;
Protected
//Property setters
Procedure SetactiveLiveChatId(AIndex : Integer; const AValue : String); virtual;
Procedure SetactualEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetactualStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetconcurrentViewers(AIndex : Integer; const AValue : String); virtual;
Procedure SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property activeLiveChatId : String Index 0 Read FactiveLiveChatId Write SetactiveLiveChatId;
Property actualEndTime : TDatetime Index 8 Read FactualEndTime Write SetactualEndTime;
Property actualStartTime : TDatetime Index 16 Read FactualStartTime Write SetactualStartTime;
Property concurrentViewers : String Index 24 Read FconcurrentViewers Write SetconcurrentViewers;
Property scheduledEndTime : TDatetime Index 32 Read FscheduledEndTime Write SetscheduledEndTime;
Property scheduledStartTime : TDatetime Index 40 Read FscheduledStartTime Write SetscheduledStartTime;
end;
TVideoLiveStreamingDetailsClass = Class of TVideoLiveStreamingDetails;
{ --------------------------------------------------------------------
TVideoLocalization
--------------------------------------------------------------------}
TVideoLocalization = 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;
TVideoLocalizationClass = Class of TVideoLocalization;
{ --------------------------------------------------------------------
TVideoMonetizationDetails
--------------------------------------------------------------------}
TVideoMonetizationDetails = Class(TGoogleBaseObject)
Private
Faccess : TAccessPolicy;
Protected
//Property setters
Procedure Setaccess(AIndex : Integer; const AValue : TAccessPolicy); virtual;
Public
Published
Property access : TAccessPolicy Index 0 Read Faccess Write Setaccess;
end;
TVideoMonetizationDetailsClass = Class of TVideoMonetizationDetails;
{ --------------------------------------------------------------------
TVideoPlayer
--------------------------------------------------------------------}
TVideoPlayer = Class(TGoogleBaseObject)
Private
FembedHtml : String;
Protected
//Property setters
Procedure SetembedHtml(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property embedHtml : String Index 0 Read FembedHtml Write SetembedHtml;
end;
TVideoPlayerClass = Class of TVideoPlayer;
{ --------------------------------------------------------------------
TVideoProcessingDetails
--------------------------------------------------------------------}
TVideoProcessingDetails = Class(TGoogleBaseObject)
Private
FeditorSuggestionsAvailability : String;
FfileDetailsAvailability : String;
FprocessingFailureReason : String;
FprocessingIssuesAvailability : String;
FprocessingProgress : TVideoProcessingDetailsProcessingProgress;
FprocessingStatus : String;
FtagSuggestionsAvailability : String;
FthumbnailsAvailability : String;
Protected
//Property setters
Procedure SeteditorSuggestionsAvailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileDetailsAvailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetprocessingFailureReason(AIndex : Integer; const AValue : String); virtual;
Procedure SetprocessingIssuesAvailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetprocessingProgress(AIndex : Integer; const AValue : TVideoProcessingDetailsProcessingProgress); virtual;
Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SettagSuggestionsAvailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetthumbnailsAvailability(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property editorSuggestionsAvailability : String Index 0 Read FeditorSuggestionsAvailability Write SeteditorSuggestionsAvailability;
Property fileDetailsAvailability : String Index 8 Read FfileDetailsAvailability Write SetfileDetailsAvailability;
Property processingFailureReason : String Index 16 Read FprocessingFailureReason Write SetprocessingFailureReason;
Property processingIssuesAvailability : String Index 24 Read FprocessingIssuesAvailability Write SetprocessingIssuesAvailability;
Property processingProgress : TVideoProcessingDetailsProcessingProgress Index 32 Read FprocessingProgress Write SetprocessingProgress;
Property processingStatus : String Index 40 Read FprocessingStatus Write SetprocessingStatus;
Property tagSuggestionsAvailability : String Index 48 Read FtagSuggestionsAvailability Write SettagSuggestionsAvailability;
Property thumbnailsAvailability : String Index 56 Read FthumbnailsAvailability Write SetthumbnailsAvailability;
end;
TVideoProcessingDetailsClass = Class of TVideoProcessingDetails;
{ --------------------------------------------------------------------
TVideoProcessingDetailsProcessingProgress
--------------------------------------------------------------------}
TVideoProcessingDetailsProcessingProgress = Class(TGoogleBaseObject)
Private
FpartsProcessed : String;
FpartsTotal : String;
FtimeLeftMs : String;
Protected
//Property setters
Procedure SetpartsProcessed(AIndex : Integer; const AValue : String); virtual;
Procedure SetpartsTotal(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeLeftMs(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property partsProcessed : String Index 0 Read FpartsProcessed Write SetpartsProcessed;
Property partsTotal : String Index 8 Read FpartsTotal Write SetpartsTotal;
Property timeLeftMs : String Index 16 Read FtimeLeftMs Write SettimeLeftMs;
end;
TVideoProcessingDetailsProcessingProgressClass = Class of TVideoProcessingDetailsProcessingProgress;
{ --------------------------------------------------------------------
TVideoProjectDetails
--------------------------------------------------------------------}
TVideoProjectDetails = Class(TGoogleBaseObject)
Private
Ftags : TStringArray;
Protected
//Property setters
Procedure Settags(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 tags : TStringArray Index 0 Read Ftags Write Settags;
end;
TVideoProjectDetailsClass = Class of TVideoProjectDetails;
{ --------------------------------------------------------------------
TVideoRating
--------------------------------------------------------------------}
TVideoRating = Class(TGoogleBaseObject)
Private
Frating : String;
FvideoId : String;
Protected
//Property setters
Procedure Setrating(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property rating : String Index 0 Read Frating Write Setrating;
Property videoId : String Index 8 Read FvideoId Write SetvideoId;
end;
TVideoRatingClass = Class of TVideoRating;
{ --------------------------------------------------------------------
TVideoRecordingDetails
--------------------------------------------------------------------}
TVideoRecordingDetails = Class(TGoogleBaseObject)
Private
Flocation : TGeoPoint;
FlocationDescription : String;
FrecordingDate : TDatetime;
Protected
//Property setters
Procedure Setlocation(AIndex : Integer; const AValue : TGeoPoint); virtual;
Procedure SetlocationDescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetrecordingDate(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property location : TGeoPoint Index 0 Read Flocation Write Setlocation;
Property locationDescription : String Index 8 Read FlocationDescription Write SetlocationDescription;
Property recordingDate : TDatetime Index 16 Read FrecordingDate Write SetrecordingDate;
end;
TVideoRecordingDetailsClass = Class of TVideoRecordingDetails;
{ --------------------------------------------------------------------
TVideoSnippet
--------------------------------------------------------------------}
TVideoSnippet = Class(TGoogleBaseObject)
Private
FcategoryId : String;
FchannelId : String;
FchannelTitle : String;
FdefaultAudioLanguage : String;
FdefaultLanguage : String;
Fdescription : String;
FliveBroadcastContent : String;
Flocalized : TVideoLocalization;
FpublishedAt : TDatetime;
Ftags : TStringArray;
Fthumbnails : TThumbnailDetails;
Ftitle : String;
Protected
//Property setters
Procedure SetcategoryId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultAudioLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetliveBroadcastContent(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocalized(AIndex : Integer; const AValue : TVideoLocalization); virtual;
Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property categoryId : String Index 0 Read FcategoryId Write SetcategoryId;
Property channelId : String Index 8 Read FchannelId Write SetchannelId;
Property channelTitle : String Index 16 Read FchannelTitle Write SetchannelTitle;
Property defaultAudioLanguage : String Index 24 Read FdefaultAudioLanguage Write SetdefaultAudioLanguage;
Property defaultLanguage : String Index 32 Read FdefaultLanguage Write SetdefaultLanguage;
Property description : String Index 40 Read Fdescription Write Setdescription;
Property liveBroadcastContent : String Index 48 Read FliveBroadcastContent Write SetliveBroadcastContent;
Property localized : TVideoLocalization Index 56 Read Flocalized Write Setlocalized;
Property publishedAt : TDatetime Index 64 Read FpublishedAt Write SetpublishedAt;
Property tags : TStringArray Index 72 Read Ftags Write Settags;
Property thumbnails : TThumbnailDetails Index 80 Read Fthumbnails Write Setthumbnails;
Property title : String Index 88 Read Ftitle Write Settitle;
end;
TVideoSnippetClass = Class of TVideoSnippet;
{ --------------------------------------------------------------------
TVideoStatistics
--------------------------------------------------------------------}
TVideoStatistics = Class(TGoogleBaseObject)
Private
FcommentCount : String;
FdislikeCount : String;
FfavoriteCount : String;
FlikeCount : String;
FviewCount : String;
Protected
//Property setters
Procedure SetcommentCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetdislikeCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetfavoriteCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetlikeCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetviewCount(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property commentCount : String Index 0 Read FcommentCount Write SetcommentCount;
Property dislikeCount : String Index 8 Read FdislikeCount Write SetdislikeCount;
Property favoriteCount : String Index 16 Read FfavoriteCount Write SetfavoriteCount;
Property likeCount : String Index 24 Read FlikeCount Write SetlikeCount;
Property viewCount : String Index 32 Read FviewCount Write SetviewCount;
end;
TVideoStatisticsClass = Class of TVideoStatistics;
{ --------------------------------------------------------------------
TVideoStatus
--------------------------------------------------------------------}
TVideoStatus = Class(TGoogleBaseObject)
Private
Fembeddable : boolean;
FfailureReason : String;
Flicense : String;
FprivacyStatus : String;
FpublicStatsViewable : boolean;
FpublishAt : TDatetime;
FrejectionReason : String;
FuploadStatus : String;
Protected
//Property setters
Procedure Setembeddable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetfailureReason(AIndex : Integer; const AValue : String); virtual;
Procedure Setlicense(AIndex : Integer; const AValue : String); virtual;
Procedure SetprivacyStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetpublicStatsViewable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetpublishAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetrejectionReason(AIndex : Integer; const AValue : String); virtual;
Procedure SetuploadStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property embeddable : boolean Index 0 Read Fembeddable Write Setembeddable;
Property failureReason : String Index 8 Read FfailureReason Write SetfailureReason;
Property license : String Index 16 Read Flicense Write Setlicense;
Property privacyStatus : String Index 24 Read FprivacyStatus Write SetprivacyStatus;
Property publicStatsViewable : boolean Index 32 Read FpublicStatsViewable Write SetpublicStatsViewable;
Property publishAt : TDatetime Index 40 Read FpublishAt Write SetpublishAt;
Property rejectionReason : String Index 48 Read FrejectionReason Write SetrejectionReason;
Property uploadStatus : String Index 56 Read FuploadStatus Write SetuploadStatus;
end;
TVideoStatusClass = Class of TVideoStatus;
{ --------------------------------------------------------------------
TVideoSuggestions
--------------------------------------------------------------------}
TVideoSuggestions = Class(TGoogleBaseObject)
Private
FeditorSuggestions : TStringArray;
FprocessingErrors : TStringArray;
FprocessingHints : TStringArray;
FprocessingWarnings : TStringArray;
FtagSuggestions : TVideoSuggestionsTypetagSuggestionsArray;
Protected
//Property setters
Procedure SeteditorSuggestions(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetprocessingErrors(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetprocessingHints(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetprocessingWarnings(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SettagSuggestions(AIndex : Integer; const AValue : TVideoSuggestionsTypetagSuggestionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property editorSuggestions : TStringArray Index 0 Read FeditorSuggestions Write SeteditorSuggestions;
Property processingErrors : TStringArray Index 8 Read FprocessingErrors Write SetprocessingErrors;
Property processingHints : TStringArray Index 16 Read FprocessingHints Write SetprocessingHints;
Property processingWarnings : TStringArray Index 24 Read FprocessingWarnings Write SetprocessingWarnings;
Property tagSuggestions : TVideoSuggestionsTypetagSuggestionsArray Index 32 Read FtagSuggestions Write SettagSuggestions;
end;
TVideoSuggestionsClass = Class of TVideoSuggestions;
{ --------------------------------------------------------------------
TVideoSuggestionsTagSuggestion
--------------------------------------------------------------------}
TVideoSuggestionsTagSuggestion = Class(TGoogleBaseObject)
Private
FcategoryRestricts : TStringArray;
Ftag : String;
Protected
//Property setters
Procedure SetcategoryRestricts(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Settag(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 categoryRestricts : TStringArray Index 0 Read FcategoryRestricts Write SetcategoryRestricts;
Property tag : String Index 8 Read Ftag Write Settag;
end;
TVideoSuggestionsTagSuggestionClass = Class of TVideoSuggestionsTagSuggestion;
{ --------------------------------------------------------------------
TVideoTopicDetails
--------------------------------------------------------------------}
TVideoTopicDetails = Class(TGoogleBaseObject)
Private
FrelevantTopicIds : TStringArray;
FtopicIds : TStringArray;
Protected
//Property setters
Procedure SetrelevantTopicIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SettopicIds(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 relevantTopicIds : TStringArray Index 0 Read FrelevantTopicIds Write SetrelevantTopicIds;
Property topicIds : TStringArray Index 8 Read FtopicIds Write SettopicIds;
end;
TVideoTopicDetailsClass = Class of TVideoTopicDetails;
{ --------------------------------------------------------------------
TWatchSettings
--------------------------------------------------------------------}
TWatchSettings = Class(TGoogleBaseObject)
Private
FbackgroundColor : String;
FfeaturedPlaylistId : String;
FtextColor : String;
Protected
//Property setters
Procedure SetbackgroundColor(AIndex : Integer; const AValue : String); virtual;
Procedure SetfeaturedPlaylistId(AIndex : Integer; const AValue : String); virtual;
Procedure SettextColor(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property backgroundColor : String Index 0 Read FbackgroundColor Write SetbackgroundColor;
Property featuredPlaylistId : String Index 8 Read FfeaturedPlaylistId Write SetfeaturedPlaylistId;
Property textColor : String Index 16 Read FtextColor Write SettextColor;
end;
TWatchSettingsClass = Class of TWatchSettings;
{ --------------------------------------------------------------------
TActivitiesResource
--------------------------------------------------------------------}
//Optional query Options for TActivitiesResource, method Insert
TActivitiesInsertOptions = Record
part : String;
end;
//Optional query Options for TActivitiesResource, method List
TActivitiesListOptions = Record
channelId : String;
home : boolean;
maxResults : integer;
mine : boolean;
pageToken : String;
part : String;
publishedAfter : TDatetime;
publishedBefore : TDatetime;
regionCode : String;
end;
TActivitiesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Insert(aActivity : TActivity; AQuery : string = '') : TActivity;
Function Insert(aActivity : TActivity; AQuery : TActivitiesinsertOptions) : TActivity;
Function List(AQuery : string = '') : TActivityListResponse;
Function List(AQuery : TActivitieslistOptions) : TActivityListResponse;
end;
{ --------------------------------------------------------------------
TCaptionsResource
--------------------------------------------------------------------}
//Optional query Options for TCaptionsResource, method Delete
TCaptionsDeleteOptions = Record
id : String;
onBehalfOf : String;
onBehalfOfContentOwner : String;
end;
//Optional query Options for TCaptionsResource, method Download
TCaptionsDownloadOptions = Record
onBehalfOf : String;
onBehalfOfContentOwner : String;
tfmt : String;
tlang : String;
end;
//Optional query Options for TCaptionsResource, method Insert
TCaptionsInsertOptions = Record
onBehalfOf : String;
onBehalfOfContentOwner : String;
part : String;
sync : boolean;
end;
//Optional query Options for TCaptionsResource, method List
TCaptionsListOptions = Record
id : String;
onBehalfOf : String;
onBehalfOfContentOwner : String;
part : String;
videoId : String;
end;
//Optional query Options for TCaptionsResource, method Update
TCaptionsUpdateOptions = Record
onBehalfOf : String;
onBehalfOfContentOwner : String;
part : String;
sync : boolean;
end;
TCaptionsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TCaptionsdeleteOptions);
Procedure Download(id: string; AQuery : string = '');
Procedure Download(id: string; AQuery : TCaptionsdownloadOptions);
Function Insert(aCaption : TCaption; AQuery : string = '') : TCaption;
Function Insert(aCaption : TCaption; AQuery : TCaptionsinsertOptions) : TCaption;
Function List(AQuery : string = '') : TCaptionListResponse;
Function List(AQuery : TCaptionslistOptions) : TCaptionListResponse;
Function Update(aCaption : TCaption; AQuery : string = '') : TCaption;
Function Update(aCaption : TCaption; AQuery : TCaptionsupdateOptions) : TCaption;
end;
{ --------------------------------------------------------------------
TChannelBannersResource
--------------------------------------------------------------------}
//Optional query Options for TChannelBannersResource, method Insert
TChannelBannersInsertOptions = Record
onBehalfOfContentOwner : String;
end;
TChannelBannersResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Insert(aChannelBannerResource : TChannelBannerResource; AQuery : string = '') : TChannelBannerResource;
Function Insert(aChannelBannerResource : TChannelBannerResource; AQuery : TChannelBannersinsertOptions) : TChannelBannerResource;
end;
{ --------------------------------------------------------------------
TChannelSectionsResource
--------------------------------------------------------------------}
//Optional query Options for TChannelSectionsResource, method Delete
TChannelSectionsDeleteOptions = Record
id : String;
onBehalfOfContentOwner : String;
end;
//Optional query Options for TChannelSectionsResource, method Insert
TChannelSectionsInsertOptions = Record
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
end;
//Optional query Options for TChannelSectionsResource, method List
TChannelSectionsListOptions = Record
channelId : String;
hl : String;
id : String;
mine : boolean;
onBehalfOfContentOwner : String;
part : String;
end;
//Optional query Options for TChannelSectionsResource, method Update
TChannelSectionsUpdateOptions = Record
onBehalfOfContentOwner : String;
part : String;
end;
TChannelSectionsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TChannelSectionsdeleteOptions);
Function Insert(aChannelSection : TChannelSection; AQuery : string = '') : TChannelSection;
Function Insert(aChannelSection : TChannelSection; AQuery : TChannelSectionsinsertOptions) : TChannelSection;
Function List(AQuery : string = '') : TChannelSectionListResponse;
Function List(AQuery : TChannelSectionslistOptions) : TChannelSectionListResponse;
Function Update(aChannelSection : TChannelSection; AQuery : string = '') : TChannelSection;
Function Update(aChannelSection : TChannelSection; AQuery : TChannelSectionsupdateOptions) : TChannelSection;
end;
{ --------------------------------------------------------------------
TChannelsResource
--------------------------------------------------------------------}
//Optional query Options for TChannelsResource, method List
TChannelsListOptions = Record
categoryId : String;
forUsername : String;
hl : String;
id : String;
managedByMe : boolean;
maxResults : integer;
mine : boolean;
mySubscribers : boolean;
onBehalfOfContentOwner : String;
pageToken : String;
part : String;
end;
//Optional query Options for TChannelsResource, method Update
TChannelsUpdateOptions = Record
onBehalfOfContentOwner : String;
part : String;
end;
TChannelsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TChannelListResponse;
Function List(AQuery : TChannelslistOptions) : TChannelListResponse;
Function Update(aChannel : TChannel; AQuery : string = '') : TChannel;
Function Update(aChannel : TChannel; AQuery : TChannelsupdateOptions) : TChannel;
end;
{ --------------------------------------------------------------------
TCommentThreadsResource
--------------------------------------------------------------------}
//Optional query Options for TCommentThreadsResource, method Insert
TCommentThreadsInsertOptions = Record
part : String;
end;
//Optional query Options for TCommentThreadsResource, method List
TCommentThreadsListOptions = Record
allThreadsRelatedToChannelId : String;
channelId : String;
id : String;
maxResults : integer;
moderationStatus : String;
order : String;
pageToken : String;
part : String;
searchTerms : String;
textFormat : String;
videoId : String;
end;
//Optional query Options for TCommentThreadsResource, method Update
TCommentThreadsUpdateOptions = Record
part : String;
end;
TCommentThreadsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Insert(aCommentThread : TCommentThread; AQuery : string = '') : TCommentThread;
Function Insert(aCommentThread : TCommentThread; AQuery : TCommentThreadsinsertOptions) : TCommentThread;
Function List(AQuery : string = '') : TCommentThreadListResponse;
Function List(AQuery : TCommentThreadslistOptions) : TCommentThreadListResponse;
Function Update(aCommentThread : TCommentThread; AQuery : string = '') : TCommentThread;
Function Update(aCommentThread : TCommentThread; AQuery : TCommentThreadsupdateOptions) : TCommentThread;
end;
{ --------------------------------------------------------------------
TCommentsResource
--------------------------------------------------------------------}
//Optional query Options for TCommentsResource, method Delete
TCommentsDeleteOptions = Record
id : String;
end;
//Optional query Options for TCommentsResource, method Insert
TCommentsInsertOptions = Record
part : String;
end;
//Optional query Options for TCommentsResource, method List
TCommentsListOptions = Record
id : String;
maxResults : integer;
pageToken : String;
parentId : String;
part : String;
textFormat : String;
end;
//Optional query Options for TCommentsResource, method MarkAsSpam
TCommentsMarkAsSpamOptions = Record
id : String;
end;
//Optional query Options for TCommentsResource, method SetModerationStatus
TCommentsSetModerationStatusOptions = Record
banAuthor : boolean;
id : String;
moderationStatus : String;
end;
//Optional query Options for TCommentsResource, method Update
TCommentsUpdateOptions = Record
part : String;
end;
TCommentsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TCommentsdeleteOptions);
Function Insert(aComment : TComment; AQuery : string = '') : TComment;
Function Insert(aComment : TComment; AQuery : TCommentsinsertOptions) : TComment;
Function List(AQuery : string = '') : TCommentListResponse;
Function List(AQuery : TCommentslistOptions) : TCommentListResponse;
Procedure MarkAsSpam(AQuery : string = '');
Procedure MarkAsSpam(AQuery : TCommentsmarkAsSpamOptions);
Procedure SetModerationStatus(AQuery : string = '');
Procedure SetModerationStatus(AQuery : TCommentssetModerationStatusOptions);
Function Update(aComment : TComment; AQuery : string = '') : TComment;
Function Update(aComment : TComment; AQuery : TCommentsupdateOptions) : TComment;
end;
{ --------------------------------------------------------------------
TFanFundingEventsResource
--------------------------------------------------------------------}
//Optional query Options for TFanFundingEventsResource, method List
TFanFundingEventsListOptions = Record
hl : String;
maxResults : integer;
pageToken : String;
part : String;
end;
TFanFundingEventsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TFanFundingEventListResponse;
Function List(AQuery : TFanFundingEventslistOptions) : TFanFundingEventListResponse;
end;
{ --------------------------------------------------------------------
TGuideCategoriesResource
--------------------------------------------------------------------}
//Optional query Options for TGuideCategoriesResource, method List
TGuideCategoriesListOptions = Record
hl : String;
id : String;
part : String;
regionCode : String;
end;
TGuideCategoriesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TGuideCategoryListResponse;
Function List(AQuery : TGuideCategorieslistOptions) : TGuideCategoryListResponse;
end;
{ --------------------------------------------------------------------
TI18nLanguagesResource
--------------------------------------------------------------------}
//Optional query Options for TI18nLanguagesResource, method List
TI18nLanguagesListOptions = Record
hl : String;
part : String;
end;
TI18nLanguagesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TI18nLanguageListResponse;
Function List(AQuery : TI18nLanguageslistOptions) : TI18nLanguageListResponse;
end;
{ --------------------------------------------------------------------
TI18nRegionsResource
--------------------------------------------------------------------}
//Optional query Options for TI18nRegionsResource, method List
TI18nRegionsListOptions = Record
hl : String;
part : String;
end;
TI18nRegionsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TI18nRegionListResponse;
Function List(AQuery : TI18nRegionslistOptions) : TI18nRegionListResponse;
end;
{ --------------------------------------------------------------------
TLiveBroadcastsResource
--------------------------------------------------------------------}
//Optional query Options for TLiveBroadcastsResource, method Bind
TLiveBroadcastsBindOptions = Record
id : String;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
streamId : String;
end;
//Optional query Options for TLiveBroadcastsResource, method Control
TLiveBroadcastsControlOptions = Record
displaySlate : boolean;
id : String;
offsetTimeMs : String;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
walltime : TDatetime;
end;
//Optional query Options for TLiveBroadcastsResource, method Delete
TLiveBroadcastsDeleteOptions = Record
id : String;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
end;
//Optional query Options for TLiveBroadcastsResource, method Insert
TLiveBroadcastsInsertOptions = Record
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
end;
//Optional query Options for TLiveBroadcastsResource, method List
TLiveBroadcastsListOptions = Record
broadcastStatus : String;
broadcastType : String;
id : String;
maxResults : integer;
mine : boolean;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
pageToken : String;
part : String;
end;
//Optional query Options for TLiveBroadcastsResource, method Transition
TLiveBroadcastsTransitionOptions = Record
broadcastStatus : String;
id : String;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
end;
//Optional query Options for TLiveBroadcastsResource, method Update
TLiveBroadcastsUpdateOptions = Record
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
end;
TLiveBroadcastsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Bind(AQuery : string = '') : TLiveBroadcast;
Function Bind(AQuery : TLiveBroadcastsbindOptions) : TLiveBroadcast;
Function Control(AQuery : string = '') : TLiveBroadcast;
Function Control(AQuery : TLiveBroadcastscontrolOptions) : TLiveBroadcast;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TLiveBroadcastsdeleteOptions);
Function Insert(aLiveBroadcast : TLiveBroadcast; AQuery : string = '') : TLiveBroadcast;
Function Insert(aLiveBroadcast : TLiveBroadcast; AQuery : TLiveBroadcastsinsertOptions) : TLiveBroadcast;
Function List(AQuery : string = '') : TLiveBroadcastListResponse;
Function List(AQuery : TLiveBroadcastslistOptions) : TLiveBroadcastListResponse;
Function Transition(AQuery : string = '') : TLiveBroadcast;
Function Transition(AQuery : TLiveBroadcaststransitionOptions) : TLiveBroadcast;
Function Update(aLiveBroadcast : TLiveBroadcast; AQuery : string = '') : TLiveBroadcast;
Function Update(aLiveBroadcast : TLiveBroadcast; AQuery : TLiveBroadcastsupdateOptions) : TLiveBroadcast;
end;
{ --------------------------------------------------------------------
TLiveChatBansResource
--------------------------------------------------------------------}
//Optional query Options for TLiveChatBansResource, method Delete
TLiveChatBansDeleteOptions = Record
id : String;
end;
//Optional query Options for TLiveChatBansResource, method Insert
TLiveChatBansInsertOptions = Record
part : String;
end;
TLiveChatBansResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TLiveChatBansdeleteOptions);
Function Insert(aLiveChatBan : TLiveChatBan; AQuery : string = '') : TLiveChatBan;
Function Insert(aLiveChatBan : TLiveChatBan; AQuery : TLiveChatBansinsertOptions) : TLiveChatBan;
end;
{ --------------------------------------------------------------------
TLiveChatMessagesResource
--------------------------------------------------------------------}
//Optional query Options for TLiveChatMessagesResource, method Delete
TLiveChatMessagesDeleteOptions = Record
id : String;
end;
//Optional query Options for TLiveChatMessagesResource, method Insert
TLiveChatMessagesInsertOptions = Record
part : String;
end;
//Optional query Options for TLiveChatMessagesResource, method List
TLiveChatMessagesListOptions = Record
hl : String;
liveChatId : String;
maxResults : integer;
pageToken : String;
part : String;
profileImageSize : integer;
end;
TLiveChatMessagesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TLiveChatMessagesdeleteOptions);
Function Insert(aLiveChatMessage : TLiveChatMessage; AQuery : string = '') : TLiveChatMessage;
Function Insert(aLiveChatMessage : TLiveChatMessage; AQuery : TLiveChatMessagesinsertOptions) : TLiveChatMessage;
Function List(AQuery : string = '') : TLiveChatMessageListResponse;
Function List(AQuery : TLiveChatMessageslistOptions) : TLiveChatMessageListResponse;
end;
{ --------------------------------------------------------------------
TLiveChatModeratorsResource
--------------------------------------------------------------------}
//Optional query Options for TLiveChatModeratorsResource, method Delete
TLiveChatModeratorsDeleteOptions = Record
id : String;
end;
//Optional query Options for TLiveChatModeratorsResource, method Insert
TLiveChatModeratorsInsertOptions = Record
part : String;
end;
//Optional query Options for TLiveChatModeratorsResource, method List
TLiveChatModeratorsListOptions = Record
liveChatId : String;
maxResults : integer;
pageToken : String;
part : String;
end;
TLiveChatModeratorsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TLiveChatModeratorsdeleteOptions);
Function Insert(aLiveChatModerator : TLiveChatModerator; AQuery : string = '') : TLiveChatModerator;
Function Insert(aLiveChatModerator : TLiveChatModerator; AQuery : TLiveChatModeratorsinsertOptions) : TLiveChatModerator;
Function List(AQuery : string = '') : TLiveChatModeratorListResponse;
Function List(AQuery : TLiveChatModeratorslistOptions) : TLiveChatModeratorListResponse;
end;
{ --------------------------------------------------------------------
TLiveStreamsResource
--------------------------------------------------------------------}
//Optional query Options for TLiveStreamsResource, method Delete
TLiveStreamsDeleteOptions = Record
id : String;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
end;
//Optional query Options for TLiveStreamsResource, method Insert
TLiveStreamsInsertOptions = Record
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
end;
//Optional query Options for TLiveStreamsResource, method List
TLiveStreamsListOptions = Record
id : String;
maxResults : integer;
mine : boolean;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
pageToken : String;
part : String;
end;
//Optional query Options for TLiveStreamsResource, method Update
TLiveStreamsUpdateOptions = Record
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
end;
TLiveStreamsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TLiveStreamsdeleteOptions);
Function Insert(aLiveStream : TLiveStream; AQuery : string = '') : TLiveStream;
Function Insert(aLiveStream : TLiveStream; AQuery : TLiveStreamsinsertOptions) : TLiveStream;
Function List(AQuery : string = '') : TLiveStreamListResponse;
Function List(AQuery : TLiveStreamslistOptions) : TLiveStreamListResponse;
Function Update(aLiveStream : TLiveStream; AQuery : string = '') : TLiveStream;
Function Update(aLiveStream : TLiveStream; AQuery : TLiveStreamsupdateOptions) : TLiveStream;
end;
{ --------------------------------------------------------------------
TPlaylistItemsResource
--------------------------------------------------------------------}
//Optional query Options for TPlaylistItemsResource, method Delete
TPlaylistItemsDeleteOptions = Record
id : String;
end;
//Optional query Options for TPlaylistItemsResource, method Insert
TPlaylistItemsInsertOptions = Record
onBehalfOfContentOwner : String;
part : String;
end;
//Optional query Options for TPlaylistItemsResource, method List
TPlaylistItemsListOptions = Record
id : String;
maxResults : integer;
onBehalfOfContentOwner : String;
pageToken : String;
part : String;
playlistId : String;
videoId : String;
end;
//Optional query Options for TPlaylistItemsResource, method Update
TPlaylistItemsUpdateOptions = Record
part : String;
end;
TPlaylistItemsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TPlaylistItemsdeleteOptions);
Function Insert(aPlaylistItem : TPlaylistItem; AQuery : string = '') : TPlaylistItem;
Function Insert(aPlaylistItem : TPlaylistItem; AQuery : TPlaylistItemsinsertOptions) : TPlaylistItem;
Function List(AQuery : string = '') : TPlaylistItemListResponse;
Function List(AQuery : TPlaylistItemslistOptions) : TPlaylistItemListResponse;
Function Update(aPlaylistItem : TPlaylistItem; AQuery : string = '') : TPlaylistItem;
Function Update(aPlaylistItem : TPlaylistItem; AQuery : TPlaylistItemsupdateOptions) : TPlaylistItem;
end;
{ --------------------------------------------------------------------
TPlaylistsResource
--------------------------------------------------------------------}
//Optional query Options for TPlaylistsResource, method Delete
TPlaylistsDeleteOptions = Record
id : String;
onBehalfOfContentOwner : String;
end;
//Optional query Options for TPlaylistsResource, method Insert
TPlaylistsInsertOptions = Record
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
end;
//Optional query Options for TPlaylistsResource, method List
TPlaylistsListOptions = Record
channelId : String;
hl : String;
id : String;
maxResults : integer;
mine : boolean;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
pageToken : String;
part : String;
end;
//Optional query Options for TPlaylistsResource, method Update
TPlaylistsUpdateOptions = Record
onBehalfOfContentOwner : String;
part : String;
end;
TPlaylistsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TPlaylistsdeleteOptions);
Function Insert(aPlaylist : TPlaylist; AQuery : string = '') : TPlaylist;
Function Insert(aPlaylist : TPlaylist; AQuery : TPlaylistsinsertOptions) : TPlaylist;
Function List(AQuery : string = '') : TPlaylistListResponse;
Function List(AQuery : TPlaylistslistOptions) : TPlaylistListResponse;
Function Update(aPlaylist : TPlaylist; AQuery : string = '') : TPlaylist;
Function Update(aPlaylist : TPlaylist; AQuery : TPlaylistsupdateOptions) : TPlaylist;
end;
{ --------------------------------------------------------------------
TSearchResource
--------------------------------------------------------------------}
//Optional query Options for TSearchResource, method List
TSearchListOptions = Record
channelId : String;
channelType : String;
eventType : String;
forContentOwner : boolean;
forDeveloper : boolean;
forMine : boolean;
location : String;
locationRadius : String;
maxResults : integer;
onBehalfOfContentOwner : String;
order : String;
pageToken : String;
part : String;
publishedAfter : TDatetime;
publishedBefore : TDatetime;
q : String;
regionCode : String;
relatedToVideoId : String;
relevanceLanguage : String;
safeSearch : String;
topicId : String;
_type : String;
videoCaption : String;
videoCategoryId : String;
videoDefinition : String;
videoDimension : String;
videoDuration : String;
videoEmbeddable : String;
videoLicense : String;
videoSyndicated : String;
videoType : String;
end;
TSearchResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TSearchListResponse;
Function List(AQuery : TSearchlistOptions) : TSearchListResponse;
end;
{ --------------------------------------------------------------------
TSponsorsResource
--------------------------------------------------------------------}
//Optional query Options for TSponsorsResource, method List
TSponsorsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
part : String;
end;
TSponsorsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TSponsorListResponse;
Function List(AQuery : TSponsorslistOptions) : TSponsorListResponse;
end;
{ --------------------------------------------------------------------
TSubscriptionsResource
--------------------------------------------------------------------}
//Optional query Options for TSubscriptionsResource, method Delete
TSubscriptionsDeleteOptions = Record
id : String;
end;
//Optional query Options for TSubscriptionsResource, method Insert
TSubscriptionsInsertOptions = Record
part : String;
end;
//Optional query Options for TSubscriptionsResource, method List
TSubscriptionsListOptions = Record
channelId : String;
forChannelId : String;
id : String;
maxResults : integer;
mine : boolean;
mySubscribers : boolean;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
order : String;
pageToken : String;
part : String;
end;
TSubscriptionsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TSubscriptionsdeleteOptions);
Function Insert(aSubscription : TSubscription; AQuery : string = '') : TSubscription;
Function Insert(aSubscription : TSubscription; AQuery : TSubscriptionsinsertOptions) : TSubscription;
Function List(AQuery : string = '') : TSubscriptionListResponse;
Function List(AQuery : TSubscriptionslistOptions) : TSubscriptionListResponse;
end;
{ --------------------------------------------------------------------
TThumbnailsResource
--------------------------------------------------------------------}
//Optional query Options for TThumbnailsResource, method Set
TThumbnailsSetOptions = Record
onBehalfOfContentOwner : String;
videoId : String;
end;
TThumbnailsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function _set(AQuery : string = '') : TThumbnailSetResponse;
Function _set(AQuery : TThumbnailssetOptions) : TThumbnailSetResponse;
end;
{ --------------------------------------------------------------------
TVideoAbuseReportReasonsResource
--------------------------------------------------------------------}
//Optional query Options for TVideoAbuseReportReasonsResource, method List
TVideoAbuseReportReasonsListOptions = Record
hl : String;
part : String;
end;
TVideoAbuseReportReasonsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TVideoAbuseReportReasonListResponse;
Function List(AQuery : TVideoAbuseReportReasonslistOptions) : TVideoAbuseReportReasonListResponse;
end;
{ --------------------------------------------------------------------
TVideoCategoriesResource
--------------------------------------------------------------------}
//Optional query Options for TVideoCategoriesResource, method List
TVideoCategoriesListOptions = Record
hl : String;
id : String;
part : String;
regionCode : String;
end;
TVideoCategoriesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TVideoCategoryListResponse;
Function List(AQuery : TVideoCategorieslistOptions) : TVideoCategoryListResponse;
end;
{ --------------------------------------------------------------------
TVideosResource
--------------------------------------------------------------------}
//Optional query Options for TVideosResource, method Delete
TVideosDeleteOptions = Record
id : String;
onBehalfOfContentOwner : String;
end;
//Optional query Options for TVideosResource, method GetRating
TVideosGetRatingOptions = Record
id : String;
onBehalfOfContentOwner : String;
end;
//Optional query Options for TVideosResource, method Insert
TVideosInsertOptions = Record
autoLevels : boolean;
notifySubscribers : boolean;
onBehalfOfContentOwner : String;
onBehalfOfContentOwnerChannel : String;
part : String;
stabilize : boolean;
end;
//Optional query Options for TVideosResource, method List
TVideosListOptions = Record
chart : String;
hl : String;
id : String;
locale : String;
maxResults : integer;
myRating : String;
onBehalfOfContentOwner : String;
pageToken : String;
part : String;
regionCode : String;
videoCategoryId : String;
end;
//Optional query Options for TVideosResource, method Rate
TVideosRateOptions = Record
id : String;
rating : String;
end;
//Optional query Options for TVideosResource, method ReportAbuse
TVideosReportAbuseOptions = Record
onBehalfOfContentOwner : String;
end;
//Optional query Options for TVideosResource, method Update
TVideosUpdateOptions = Record
onBehalfOfContentOwner : String;
part : String;
end;
TVideosResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(AQuery : string = '');
Procedure Delete(AQuery : TVideosdeleteOptions);
Function GetRating(AQuery : string = '') : TVideoGetRatingResponse;
Function GetRating(AQuery : TVideosgetRatingOptions) : TVideoGetRatingResponse;
Function Insert(aVideo : TVideo; AQuery : string = '') : TVideo;
Function Insert(aVideo : TVideo; AQuery : TVideosinsertOptions) : TVideo;
Function List(AQuery : string = '') : TVideoListResponse;
Function List(AQuery : TVideoslistOptions) : TVideoListResponse;
Procedure Rate(AQuery : string = '');
Procedure Rate(AQuery : TVideosrateOptions);
Procedure ReportAbuse(aVideoAbuseReport : TVideoAbuseReport; AQuery : string = '');
Procedure ReportAbuse(aVideoAbuseReport : TVideoAbuseReport; AQuery : TVideosreportAbuseOptions);
Function Update(aVideo : TVideo; AQuery : string = '') : TVideo;
Function Update(aVideo : TVideo; AQuery : TVideosupdateOptions) : TVideo;
end;
{ --------------------------------------------------------------------
TWatermarksResource
--------------------------------------------------------------------}
//Optional query Options for TWatermarksResource, method Set
TWatermarksSetOptions = Record
channelId : String;
onBehalfOfContentOwner : String;
end;
//Optional query Options for TWatermarksResource, method Unset
TWatermarksUnsetOptions = Record
channelId : String;
onBehalfOfContentOwner : String;
end;
TWatermarksResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure _set(aInvideoBranding : TInvideoBranding; AQuery : string = '');
Procedure _set(aInvideoBranding : TInvideoBranding; AQuery : TWatermarkssetOptions);
Procedure Unset(AQuery : string = '');
Procedure Unset(AQuery : TWatermarksunsetOptions);
end;
{ --------------------------------------------------------------------
TYoutubeAPI
--------------------------------------------------------------------}
TYoutubeAPI = Class(TGoogleAPI)
Private
FActivitiesInstance : TActivitiesResource;
FCaptionsInstance : TCaptionsResource;
FChannelBannersInstance : TChannelBannersResource;
FChannelSectionsInstance : TChannelSectionsResource;
FChannelsInstance : TChannelsResource;
FCommentThreadsInstance : TCommentThreadsResource;
FCommentsInstance : TCommentsResource;
FFanFundingEventsInstance : TFanFundingEventsResource;
FGuideCategoriesInstance : TGuideCategoriesResource;
FI18nLanguagesInstance : TI18nLanguagesResource;
FI18nRegionsInstance : TI18nRegionsResource;
FLiveBroadcastsInstance : TLiveBroadcastsResource;
FLiveChatBansInstance : TLiveChatBansResource;
FLiveChatMessagesInstance : TLiveChatMessagesResource;
FLiveChatModeratorsInstance : TLiveChatModeratorsResource;
FLiveStreamsInstance : TLiveStreamsResource;
FPlaylistItemsInstance : TPlaylistItemsResource;
FPlaylistsInstance : TPlaylistsResource;
FSearchInstance : TSearchResource;
FSponsorsInstance : TSponsorsResource;
FSubscriptionsInstance : TSubscriptionsResource;
FThumbnailsInstance : TThumbnailsResource;
FVideoAbuseReportReasonsInstance : TVideoAbuseReportReasonsResource;
FVideoCategoriesInstance : TVideoCategoriesResource;
FVideosInstance : TVideosResource;
FWatermarksInstance : TWatermarksResource;
Function GetActivitiesInstance : TActivitiesResource;virtual;
Function GetCaptionsInstance : TCaptionsResource;virtual;
Function GetChannelBannersInstance : TChannelBannersResource;virtual;
Function GetChannelSectionsInstance : TChannelSectionsResource;virtual;
Function GetChannelsInstance : TChannelsResource;virtual;
Function GetCommentThreadsInstance : TCommentThreadsResource;virtual;
Function GetCommentsInstance : TCommentsResource;virtual;
Function GetFanFundingEventsInstance : TFanFundingEventsResource;virtual;
Function GetGuideCategoriesInstance : TGuideCategoriesResource;virtual;
Function GetI18nLanguagesInstance : TI18nLanguagesResource;virtual;
Function GetI18nRegionsInstance : TI18nRegionsResource;virtual;
Function GetLiveBroadcastsInstance : TLiveBroadcastsResource;virtual;
Function GetLiveChatBansInstance : TLiveChatBansResource;virtual;
Function GetLiveChatMessagesInstance : TLiveChatMessagesResource;virtual;
Function GetLiveChatModeratorsInstance : TLiveChatModeratorsResource;virtual;
Function GetLiveStreamsInstance : TLiveStreamsResource;virtual;
Function GetPlaylistItemsInstance : TPlaylistItemsResource;virtual;
Function GetPlaylistsInstance : TPlaylistsResource;virtual;
Function GetSearchInstance : TSearchResource;virtual;
Function GetSponsorsInstance : TSponsorsResource;virtual;
Function GetSubscriptionsInstance : TSubscriptionsResource;virtual;
Function GetThumbnailsInstance : TThumbnailsResource;virtual;
Function GetVideoAbuseReportReasonsInstance : TVideoAbuseReportReasonsResource;virtual;
Function GetVideoCategoriesInstance : TVideoCategoriesResource;virtual;
Function GetVideosInstance : TVideosResource;virtual;
Function GetWatermarksInstance : TWatermarksResource;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 CreateActivitiesResource(AOwner : TComponent) : TActivitiesResource;virtual;overload;
Function CreateActivitiesResource : TActivitiesResource;virtual;overload;
Function CreateCaptionsResource(AOwner : TComponent) : TCaptionsResource;virtual;overload;
Function CreateCaptionsResource : TCaptionsResource;virtual;overload;
Function CreateChannelBannersResource(AOwner : TComponent) : TChannelBannersResource;virtual;overload;
Function CreateChannelBannersResource : TChannelBannersResource;virtual;overload;
Function CreateChannelSectionsResource(AOwner : TComponent) : TChannelSectionsResource;virtual;overload;
Function CreateChannelSectionsResource : TChannelSectionsResource;virtual;overload;
Function CreateChannelsResource(AOwner : TComponent) : TChannelsResource;virtual;overload;
Function CreateChannelsResource : TChannelsResource;virtual;overload;
Function CreateCommentThreadsResource(AOwner : TComponent) : TCommentThreadsResource;virtual;overload;
Function CreateCommentThreadsResource : TCommentThreadsResource;virtual;overload;
Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload;
Function CreateCommentsResource : TCommentsResource;virtual;overload;
Function CreateFanFundingEventsResource(AOwner : TComponent) : TFanFundingEventsResource;virtual;overload;
Function CreateFanFundingEventsResource : TFanFundingEventsResource;virtual;overload;
Function CreateGuideCategoriesResource(AOwner : TComponent) : TGuideCategoriesResource;virtual;overload;
Function CreateGuideCategoriesResource : TGuideCategoriesResource;virtual;overload;
Function CreateI18nLanguagesResource(AOwner : TComponent) : TI18nLanguagesResource;virtual;overload;
Function CreateI18nLanguagesResource : TI18nLanguagesResource;virtual;overload;
Function CreateI18nRegionsResource(AOwner : TComponent) : TI18nRegionsResource;virtual;overload;
Function CreateI18nRegionsResource : TI18nRegionsResource;virtual;overload;
Function CreateLiveBroadcastsResource(AOwner : TComponent) : TLiveBroadcastsResource;virtual;overload;
Function CreateLiveBroadcastsResource : TLiveBroadcastsResource;virtual;overload;
Function CreateLiveChatBansResource(AOwner : TComponent) : TLiveChatBansResource;virtual;overload;
Function CreateLiveChatBansResource : TLiveChatBansResource;virtual;overload;
Function CreateLiveChatMessagesResource(AOwner : TComponent) : TLiveChatMessagesResource;virtual;overload;
Function CreateLiveChatMessagesResource : TLiveChatMessagesResource;virtual;overload;
Function CreateLiveChatModeratorsResource(AOwner : TComponent) : TLiveChatModeratorsResource;virtual;overload;
Function CreateLiveChatModeratorsResource : TLiveChatModeratorsResource;virtual;overload;
Function CreateLiveStreamsResource(AOwner : TComponent) : TLiveStreamsResource;virtual;overload;
Function CreateLiveStreamsResource : TLiveStreamsResource;virtual;overload;
Function CreatePlaylistItemsResource(AOwner : TComponent) : TPlaylistItemsResource;virtual;overload;
Function CreatePlaylistItemsResource : TPlaylistItemsResource;virtual;overload;
Function CreatePlaylistsResource(AOwner : TComponent) : TPlaylistsResource;virtual;overload;
Function CreatePlaylistsResource : TPlaylistsResource;virtual;overload;
Function CreateSearchResource(AOwner : TComponent) : TSearchResource;virtual;overload;
Function CreateSearchResource : TSearchResource;virtual;overload;
Function CreateSponsorsResource(AOwner : TComponent) : TSponsorsResource;virtual;overload;
Function CreateSponsorsResource : TSponsorsResource;virtual;overload;
Function CreateSubscriptionsResource(AOwner : TComponent) : TSubscriptionsResource;virtual;overload;
Function CreateSubscriptionsResource : TSubscriptionsResource;virtual;overload;
Function CreateThumbnailsResource(AOwner : TComponent) : TThumbnailsResource;virtual;overload;
Function CreateThumbnailsResource : TThumbnailsResource;virtual;overload;
Function CreateVideoAbuseReportReasonsResource(AOwner : TComponent) : TVideoAbuseReportReasonsResource;virtual;overload;
Function CreateVideoAbuseReportReasonsResource : TVideoAbuseReportReasonsResource;virtual;overload;
Function CreateVideoCategoriesResource(AOwner : TComponent) : TVideoCategoriesResource;virtual;overload;
Function CreateVideoCategoriesResource : TVideoCategoriesResource;virtual;overload;
Function CreateVideosResource(AOwner : TComponent) : TVideosResource;virtual;overload;
Function CreateVideosResource : TVideosResource;virtual;overload;
Function CreateWatermarksResource(AOwner : TComponent) : TWatermarksResource;virtual;overload;
Function CreateWatermarksResource : TWatermarksResource;virtual;overload;
//Add default on-demand instances for resources
Property ActivitiesResource : TActivitiesResource Read GetActivitiesInstance;
Property CaptionsResource : TCaptionsResource Read GetCaptionsInstance;
Property ChannelBannersResource : TChannelBannersResource Read GetChannelBannersInstance;
Property ChannelSectionsResource : TChannelSectionsResource Read GetChannelSectionsInstance;
Property ChannelsResource : TChannelsResource Read GetChannelsInstance;
Property CommentThreadsResource : TCommentThreadsResource Read GetCommentThreadsInstance;
Property CommentsResource : TCommentsResource Read GetCommentsInstance;
Property FanFundingEventsResource : TFanFundingEventsResource Read GetFanFundingEventsInstance;
Property GuideCategoriesResource : TGuideCategoriesResource Read GetGuideCategoriesInstance;
Property I18nLanguagesResource : TI18nLanguagesResource Read GetI18nLanguagesInstance;
Property I18nRegionsResource : TI18nRegionsResource Read GetI18nRegionsInstance;
Property LiveBroadcastsResource : TLiveBroadcastsResource Read GetLiveBroadcastsInstance;
Property LiveChatBansResource : TLiveChatBansResource Read GetLiveChatBansInstance;
Property LiveChatMessagesResource : TLiveChatMessagesResource Read GetLiveChatMessagesInstance;
Property LiveChatModeratorsResource : TLiveChatModeratorsResource Read GetLiveChatModeratorsInstance;
Property LiveStreamsResource : TLiveStreamsResource Read GetLiveStreamsInstance;
Property PlaylistItemsResource : TPlaylistItemsResource Read GetPlaylistItemsInstance;
Property PlaylistsResource : TPlaylistsResource Read GetPlaylistsInstance;
Property SearchResource : TSearchResource Read GetSearchInstance;
Property SponsorsResource : TSponsorsResource Read GetSponsorsInstance;
Property SubscriptionsResource : TSubscriptionsResource Read GetSubscriptionsInstance;
Property ThumbnailsResource : TThumbnailsResource Read GetThumbnailsInstance;
Property VideoAbuseReportReasonsResource : TVideoAbuseReportReasonsResource Read GetVideoAbuseReportReasonsInstance;
Property VideoCategoriesResource : TVideoCategoriesResource Read GetVideoCategoriesInstance;
Property VideosResource : TVideosResource Read GetVideosInstance;
Property WatermarksResource : TWatermarksResource Read GetWatermarksInstance;
end;
implementation
{ --------------------------------------------------------------------
TAccessPolicy
--------------------------------------------------------------------}
Procedure TAccessPolicy.Setallowed(AIndex : Integer; const AValue : boolean);
begin
If (Fallowed=AValue) then exit;
Fallowed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAccessPolicy.Setexception(AIndex : Integer; const AValue : TStringArray);
begin
If (Fexception=AValue) then exit;
Fexception:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAccessPolicy.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'exception' : SetLength(Fexception,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TActivity
--------------------------------------------------------------------}
Procedure TActivity.SetcontentDetails(AIndex : Integer; const AValue : TActivityContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivity.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivity.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivity.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivity.Setsnippet(AIndex : Integer; const AValue : TActivitySnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetails
--------------------------------------------------------------------}
Procedure TActivityContentDetails.Setbulletin(AIndex : Integer; const AValue : TActivityContentDetailsBulletin);
begin
If (Fbulletin=AValue) then exit;
Fbulletin:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.SetchannelItem(AIndex : Integer; const AValue : TActivityContentDetailsChannelItem);
begin
If (FchannelItem=AValue) then exit;
FchannelItem:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.Setcomment(AIndex : Integer; const AValue : TActivityContentDetailsComment);
begin
If (Fcomment=AValue) then exit;
Fcomment:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.Setfavorite(AIndex : Integer; const AValue : TActivityContentDetailsFavorite);
begin
If (Ffavorite=AValue) then exit;
Ffavorite:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.Setlike(AIndex : Integer; const AValue : TActivityContentDetailsLike);
begin
If (Flike=AValue) then exit;
Flike:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.SetplaylistItem(AIndex : Integer; const AValue : TActivityContentDetailsPlaylistItem);
begin
If (FplaylistItem=AValue) then exit;
FplaylistItem:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.SetpromotedItem(AIndex : Integer; const AValue : TActivityContentDetailsPromotedItem);
begin
If (FpromotedItem=AValue) then exit;
FpromotedItem:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.Setrecommendation(AIndex : Integer; const AValue : TActivityContentDetailsRecommendation);
begin
If (Frecommendation=AValue) then exit;
Frecommendation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.Setsocial(AIndex : Integer; const AValue : TActivityContentDetailsSocial);
begin
If (Fsocial=AValue) then exit;
Fsocial:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.Setsubscription(AIndex : Integer; const AValue : TActivityContentDetailsSubscription);
begin
If (Fsubscription=AValue) then exit;
Fsubscription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetails.Setupload(AIndex : Integer; const AValue : TActivityContentDetailsUpload);
begin
If (Fupload=AValue) then exit;
Fupload:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsBulletin
--------------------------------------------------------------------}
Procedure TActivityContentDetailsBulletin.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsChannelItem
--------------------------------------------------------------------}
Procedure TActivityContentDetailsChannelItem.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsComment
--------------------------------------------------------------------}
Procedure TActivityContentDetailsComment.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsFavorite
--------------------------------------------------------------------}
Procedure TActivityContentDetailsFavorite.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsLike
--------------------------------------------------------------------}
Procedure TActivityContentDetailsLike.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsPlaylistItem
--------------------------------------------------------------------}
Procedure TActivityContentDetailsPlaylistItem.SetplaylistId(AIndex : Integer; const AValue : String);
begin
If (FplaylistId=AValue) then exit;
FplaylistId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPlaylistItem.SetplaylistItemId(AIndex : Integer; const AValue : String);
begin
If (FplaylistItemId=AValue) then exit;
FplaylistItemId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPlaylistItem.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsPromotedItem
--------------------------------------------------------------------}
Procedure TActivityContentDetailsPromotedItem.SetadTag(AIndex : Integer; const AValue : String);
begin
If (FadTag=AValue) then exit;
FadTag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetclickTrackingUrl(AIndex : Integer; const AValue : String);
begin
If (FclickTrackingUrl=AValue) then exit;
FclickTrackingUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetcreativeViewUrl(AIndex : Integer; const AValue : String);
begin
If (FcreativeViewUrl=AValue) then exit;
FcreativeViewUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetctaType(AIndex : Integer; const AValue : String);
begin
If (FctaType=AValue) then exit;
FctaType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetcustomCtaButtonText(AIndex : Integer; const AValue : String);
begin
If (FcustomCtaButtonText=AValue) then exit;
FcustomCtaButtonText:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetdescriptionText(AIndex : Integer; const AValue : String);
begin
If (FdescriptionText=AValue) then exit;
FdescriptionText:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetdestinationUrl(AIndex : Integer; const AValue : String);
begin
If (FdestinationUrl=AValue) then exit;
FdestinationUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetforecastingUrl(AIndex : Integer; const AValue : TStringArray);
begin
If (FforecastingUrl=AValue) then exit;
FforecastingUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetimpressionUrl(AIndex : Integer; const AValue : TStringArray);
begin
If (FimpressionUrl=AValue) then exit;
FimpressionUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsPromotedItem.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TActivityContentDetailsPromotedItem.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'forecastingurl' : SetLength(FforecastingUrl,ALength);
'impressionurl' : SetLength(FimpressionUrl,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TActivityContentDetailsRecommendation
--------------------------------------------------------------------}
Procedure TActivityContentDetailsRecommendation.Setreason(AIndex : Integer; const AValue : String);
begin
If (Freason=AValue) then exit;
Freason:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsRecommendation.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsRecommendation.SetseedResourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FseedResourceId=AValue) then exit;
FseedResourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsSocial
--------------------------------------------------------------------}
Procedure TActivityContentDetailsSocial.Setauthor(AIndex : Integer; const AValue : String);
begin
If (Fauthor=AValue) then exit;
Fauthor:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsSocial.SetimageUrl(AIndex : Integer; const AValue : String);
begin
If (FimageUrl=AValue) then exit;
FimageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsSocial.SetreferenceUrl(AIndex : Integer; const AValue : String);
begin
If (FreferenceUrl=AValue) then exit;
FreferenceUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsSocial.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityContentDetailsSocial.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TActivityContentDetailsSocial.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TActivityContentDetailsSubscription
--------------------------------------------------------------------}
Procedure TActivityContentDetailsSubscription.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityContentDetailsUpload
--------------------------------------------------------------------}
Procedure TActivityContentDetailsUpload.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivityListResponse
--------------------------------------------------------------------}
Procedure TActivityListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.Setitems(AIndex : Integer; const AValue : TActivityListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivityListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TActivityListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TActivitySnippet
--------------------------------------------------------------------}
Procedure TActivitySnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivitySnippet.SetchannelTitle(AIndex : Integer; const AValue : String);
begin
If (FchannelTitle=AValue) then exit;
FchannelTitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivitySnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivitySnippet.SetgroupId(AIndex : Integer; const AValue : String);
begin
If (FgroupId=AValue) then exit;
FgroupId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivitySnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivitySnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivitySnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TActivitySnippet.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TActivitySnippet.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TCaption
--------------------------------------------------------------------}
Procedure TCaption.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaption.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaption.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaption.Setsnippet(AIndex : Integer; const AValue : TCaptionSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TCaptionListResponse
--------------------------------------------------------------------}
Procedure TCaptionListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionListResponse.Setitems(AIndex : Integer; const AValue : TCaptionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TCaptionListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TCaptionSnippet
--------------------------------------------------------------------}
Procedure TCaptionSnippet.SetaudioTrackType(AIndex : Integer; const AValue : String);
begin
If (FaudioTrackType=AValue) then exit;
FaudioTrackType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetfailureReason(AIndex : Integer; const AValue : String);
begin
If (FfailureReason=AValue) then exit;
FfailureReason:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetisAutoSynced(AIndex : Integer; const AValue : boolean);
begin
If (FisAutoSynced=AValue) then exit;
FisAutoSynced:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetisCC(AIndex : Integer; const AValue : boolean);
begin
If (FisCC=AValue) then exit;
FisCC:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetisDraft(AIndex : Integer; const AValue : boolean);
begin
If (FisDraft=AValue) then exit;
FisDraft:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetisEasyReader(AIndex : Integer; const AValue : boolean);
begin
If (FisEasyReader=AValue) then exit;
FisEasyReader:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetisLarge(AIndex : Integer; const AValue : boolean);
begin
If (FisLarge=AValue) then exit;
FisLarge:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.Setlanguage(AIndex : Integer; const AValue : String);
begin
If (Flanguage=AValue) then exit;
Flanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetlastUpdated(AIndex : Integer; const AValue : TDatetime);
begin
If (FlastUpdated=AValue) then exit;
FlastUpdated:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SettrackKind(AIndex : Integer; const AValue : String);
begin
If (FtrackKind=AValue) then exit;
FtrackKind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCaptionSnippet.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TCdnSettings
--------------------------------------------------------------------}
Procedure TCdnSettings.Setformat(AIndex : Integer; const AValue : String);
begin
If (Fformat=AValue) then exit;
Fformat:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCdnSettings.SetframeRate(AIndex : Integer; const AValue : String);
begin
If (FframeRate=AValue) then exit;
FframeRate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCdnSettings.SetingestionInfo(AIndex : Integer; const AValue : TIngestionInfo);
begin
If (FingestionInfo=AValue) then exit;
FingestionInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCdnSettings.SetingestionType(AIndex : Integer; const AValue : String);
begin
If (FingestionType=AValue) then exit;
FingestionType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCdnSettings.Setresolution(AIndex : Integer; const AValue : String);
begin
If (Fresolution=AValue) then exit;
Fresolution:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelTypelocalizations
--------------------------------------------------------------------}
Class Function TChannelTypelocalizations.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TChannel
--------------------------------------------------------------------}
Procedure TChannel.SetauditDetails(AIndex : Integer; const AValue : TChannelAuditDetails);
begin
If (FauditDetails=AValue) then exit;
FauditDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.SetbrandingSettings(AIndex : Integer; const AValue : TChannelBrandingSettings);
begin
If (FbrandingSettings=AValue) then exit;
FbrandingSettings:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.SetcontentDetails(AIndex : Integer; const AValue : TChannelContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.SetcontentOwnerDetails(AIndex : Integer; const AValue : TChannelContentOwnerDetails);
begin
If (FcontentOwnerDetails=AValue) then exit;
FcontentOwnerDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.SetconversionPings(AIndex : Integer; const AValue : TChannelConversionPings);
begin
If (FconversionPings=AValue) then exit;
FconversionPings:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.SetinvideoPromotion(AIndex : Integer; const AValue : TInvideoPromotion);
begin
If (FinvideoPromotion=AValue) then exit;
FinvideoPromotion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.Setlocalizations(AIndex : Integer; const AValue : TChannelTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
Flocalizations:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.Setsnippet(AIndex : Integer; const AValue : TChannelSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.Setstatistics(AIndex : Integer; const AValue : TChannelStatistics);
begin
If (Fstatistics=AValue) then exit;
Fstatistics:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.Setstatus(AIndex : Integer; const AValue : TChannelStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannel.SettopicDetails(AIndex : Integer; const AValue : TChannelTopicDetails);
begin
If (FtopicDetails=AValue) then exit;
FtopicDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelAuditDetails
--------------------------------------------------------------------}
Procedure TChannelAuditDetails.SetcommunityGuidelinesGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FcommunityGuidelinesGoodStanding=AValue) then exit;
FcommunityGuidelinesGoodStanding:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelAuditDetails.SetcontentIdClaimsGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FcontentIdClaimsGoodStanding=AValue) then exit;
FcontentIdClaimsGoodStanding:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelAuditDetails.SetcopyrightStrikesGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FcopyrightStrikesGoodStanding=AValue) then exit;
FcopyrightStrikesGoodStanding:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelAuditDetails.SetoverallGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FoverallGoodStanding=AValue) then exit;
FoverallGoodStanding:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelBannerResource
--------------------------------------------------------------------}
Procedure TChannelBannerResource.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelBannerResource.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelBannerResource.Seturl(AIndex : Integer; const AValue : String);
begin
If (Furl=AValue) then exit;
Furl:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelBrandingSettings
--------------------------------------------------------------------}
Procedure TChannelBrandingSettings.Setchannel(AIndex : Integer; const AValue : TChannelSettings);
begin
If (Fchannel=AValue) then exit;
Fchannel:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelBrandingSettings.Sethints(AIndex : Integer; const AValue : TChannelBrandingSettingsTypehintsArray);
begin
If (Fhints=AValue) then exit;
Fhints:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelBrandingSettings.Setimage(AIndex : Integer; const AValue : TImageSettings);
begin
If (Fimage=AValue) then exit;
Fimage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelBrandingSettings.Setwatch(AIndex : Integer; const AValue : TWatchSettings);
begin
If (Fwatch=AValue) then exit;
Fwatch:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelBrandingSettings.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'hints' : SetLength(Fhints,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TChannelContentDetailsTyperelatedPlaylists
--------------------------------------------------------------------}
Procedure TChannelContentDetailsTyperelatedPlaylists.Setfavorites(AIndex : Integer; const AValue : String);
begin
If (Ffavorites=AValue) then exit;
Ffavorites:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelContentDetailsTyperelatedPlaylists.Setlikes(AIndex : Integer; const AValue : String);
begin
If (Flikes=AValue) then exit;
Flikes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelContentDetailsTyperelatedPlaylists.Setuploads(AIndex : Integer; const AValue : String);
begin
If (Fuploads=AValue) then exit;
Fuploads:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelContentDetailsTyperelatedPlaylists.SetwatchHistory(AIndex : Integer; const AValue : String);
begin
If (FwatchHistory=AValue) then exit;
FwatchHistory:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelContentDetailsTyperelatedPlaylists.SetwatchLater(AIndex : Integer; const AValue : String);
begin
If (FwatchLater=AValue) then exit;
FwatchLater:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelContentDetails
--------------------------------------------------------------------}
Procedure TChannelContentDetails.SetgooglePlusUserId(AIndex : Integer; const AValue : String);
begin
If (FgooglePlusUserId=AValue) then exit;
FgooglePlusUserId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelContentDetails.SetrelatedPlaylists(AIndex : Integer; const AValue : TChannelContentDetailsTyperelatedPlaylists);
begin
If (FrelatedPlaylists=AValue) then exit;
FrelatedPlaylists:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelContentOwnerDetails
--------------------------------------------------------------------}
Procedure TChannelContentOwnerDetails.SetcontentOwner(AIndex : Integer; const AValue : String);
begin
If (FcontentOwner=AValue) then exit;
FcontentOwner:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelContentOwnerDetails.SettimeLinked(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeLinked=AValue) then exit;
FtimeLinked:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelConversionPing
--------------------------------------------------------------------}
Procedure TChannelConversionPing.Setcontext(AIndex : Integer; const AValue : String);
begin
If (Fcontext=AValue) then exit;
Fcontext:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelConversionPing.SetconversionUrl(AIndex : Integer; const AValue : String);
begin
If (FconversionUrl=AValue) then exit;
FconversionUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelConversionPings
--------------------------------------------------------------------}
Procedure TChannelConversionPings.Setpings(AIndex : Integer; const AValue : TChannelConversionPingsTypepingsArray);
begin
If (Fpings=AValue) then exit;
Fpings:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelConversionPings.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'pings' : SetLength(Fpings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TChannelListResponse
--------------------------------------------------------------------}
Procedure TChannelListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.Setitems(AIndex : Integer; const AValue : TChannelListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TChannelLocalization
--------------------------------------------------------------------}
Procedure TChannelLocalization.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelLocalization.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelProfileDetails
--------------------------------------------------------------------}
Procedure TChannelProfileDetails.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelProfileDetails.SetchannelUrl(AIndex : Integer; const AValue : String);
begin
If (FchannelUrl=AValue) then exit;
FchannelUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelProfileDetails.SetdisplayName(AIndex : Integer; const AValue : String);
begin
If (FdisplayName=AValue) then exit;
FdisplayName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelProfileDetails.SetprofileImageUrl(AIndex : Integer; const AValue : String);
begin
If (FprofileImageUrl=AValue) then exit;
FprofileImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelSectionTypelocalizations
--------------------------------------------------------------------}
Class Function TChannelSectionTypelocalizations.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TChannelSection
--------------------------------------------------------------------}
Procedure TChannelSection.SetcontentDetails(AIndex : Integer; const AValue : TChannelSectionContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSection.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSection.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSection.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSection.Setlocalizations(AIndex : Integer; const AValue : TChannelSectionTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
Flocalizations:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSection.Setsnippet(AIndex : Integer; const AValue : TChannelSectionSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSection.Settargeting(AIndex : Integer; const AValue : TChannelSectionTargeting);
begin
If (Ftargeting=AValue) then exit;
Ftargeting:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelSectionContentDetails
--------------------------------------------------------------------}
Procedure TChannelSectionContentDetails.Setchannels(AIndex : Integer; const AValue : TStringArray);
begin
If (Fchannels=AValue) then exit;
Fchannels:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionContentDetails.Setplaylists(AIndex : Integer; const AValue : TStringArray);
begin
If (Fplaylists=AValue) then exit;
Fplaylists:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelSectionContentDetails.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'channels' : SetLength(Fchannels,ALength);
'playlists' : SetLength(Fplaylists,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TChannelSectionListResponse
--------------------------------------------------------------------}
Procedure TChannelSectionListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionListResponse.Setitems(AIndex : Integer; const AValue : TChannelSectionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelSectionListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TChannelSectionLocalization
--------------------------------------------------------------------}
Procedure TChannelSectionLocalization.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelSectionSnippet
--------------------------------------------------------------------}
Procedure TChannelSectionSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionSnippet.SetdefaultLanguage(AIndex : Integer; const AValue : String);
begin
If (FdefaultLanguage=AValue) then exit;
FdefaultLanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionSnippet.Setlocalized(AIndex : Integer; const AValue : TChannelSectionLocalization);
begin
If (Flocalized=AValue) then exit;
Flocalized:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionSnippet.Setposition(AIndex : Integer; const AValue : integer);
begin
If (Fposition=AValue) then exit;
Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionSnippet.Setstyle(AIndex : Integer; const AValue : String);
begin
If (Fstyle=AValue) then exit;
Fstyle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionSnippet.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TChannelSectionSnippet.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TChannelSectionTargeting
--------------------------------------------------------------------}
Procedure TChannelSectionTargeting.Setcountries(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcountries=AValue) then exit;
Fcountries:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionTargeting.Setlanguages(AIndex : Integer; const AValue : TStringArray);
begin
If (Flanguages=AValue) then exit;
Flanguages:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSectionTargeting.Setregions(AIndex : Integer; const AValue : TStringArray);
begin
If (Fregions=AValue) then exit;
Fregions:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelSectionTargeting.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'countries' : SetLength(Fcountries,ALength);
'languages' : SetLength(Flanguages,ALength);
'regions' : SetLength(Fregions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TChannelSettings
--------------------------------------------------------------------}
Procedure TChannelSettings.Setcountry(AIndex : Integer; const AValue : String);
begin
If (Fcountry=AValue) then exit;
Fcountry:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetdefaultLanguage(AIndex : Integer; const AValue : String);
begin
If (FdefaultLanguage=AValue) then exit;
FdefaultLanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetdefaultTab(AIndex : Integer; const AValue : String);
begin
If (FdefaultTab=AValue) then exit;
FdefaultTab:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetfeaturedChannelsTitle(AIndex : Integer; const AValue : String);
begin
If (FfeaturedChannelsTitle=AValue) then exit;
FfeaturedChannelsTitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetfeaturedChannelsUrls(AIndex : Integer; const AValue : TStringArray);
begin
If (FfeaturedChannelsUrls=AValue) then exit;
FfeaturedChannelsUrls:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.Setkeywords(AIndex : Integer; const AValue : String);
begin
If (Fkeywords=AValue) then exit;
Fkeywords:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetmoderateComments(AIndex : Integer; const AValue : boolean);
begin
If (FmoderateComments=AValue) then exit;
FmoderateComments:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetprofileColor(AIndex : Integer; const AValue : String);
begin
If (FprofileColor=AValue) then exit;
FprofileColor:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetshowBrowseView(AIndex : Integer; const AValue : boolean);
begin
If (FshowBrowseView=AValue) then exit;
FshowBrowseView:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetshowRelatedChannels(AIndex : Integer; const AValue : boolean);
begin
If (FshowRelatedChannels=AValue) then exit;
FshowRelatedChannels:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SettrackingAnalyticsAccountId(AIndex : Integer; const AValue : String);
begin
If (FtrackingAnalyticsAccountId=AValue) then exit;
FtrackingAnalyticsAccountId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSettings.SetunsubscribedTrailer(AIndex : Integer; const AValue : String);
begin
If (FunsubscribedTrailer=AValue) then exit;
FunsubscribedTrailer:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelSettings.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'featuredchannelsurls' : SetLength(FfeaturedChannelsUrls,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TChannelSnippet
--------------------------------------------------------------------}
Procedure TChannelSnippet.Setcountry(AIndex : Integer; const AValue : String);
begin
If (Fcountry=AValue) then exit;
Fcountry:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSnippet.SetcustomUrl(AIndex : Integer; const AValue : String);
begin
If (FcustomUrl=AValue) then exit;
FcustomUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSnippet.SetdefaultLanguage(AIndex : Integer; const AValue : String);
begin
If (FdefaultLanguage=AValue) then exit;
FdefaultLanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSnippet.Setlocalized(AIndex : Integer; const AValue : TChannelLocalization);
begin
If (Flocalized=AValue) then exit;
Flocalized:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelStatistics
--------------------------------------------------------------------}
Procedure TChannelStatistics.SetcommentCount(AIndex : Integer; const AValue : String);
begin
If (FcommentCount=AValue) then exit;
FcommentCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelStatistics.SethiddenSubscriberCount(AIndex : Integer; const AValue : boolean);
begin
If (FhiddenSubscriberCount=AValue) then exit;
FhiddenSubscriberCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelStatistics.SetsubscriberCount(AIndex : Integer; const AValue : String);
begin
If (FsubscriberCount=AValue) then exit;
FsubscriberCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelStatistics.SetvideoCount(AIndex : Integer; const AValue : String);
begin
If (FvideoCount=AValue) then exit;
FvideoCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelStatistics.SetviewCount(AIndex : Integer; const AValue : String);
begin
If (FviewCount=AValue) then exit;
FviewCount:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelStatus
--------------------------------------------------------------------}
Procedure TChannelStatus.SetisLinked(AIndex : Integer; const AValue : boolean);
begin
If (FisLinked=AValue) then exit;
FisLinked:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelStatus.SetlongUploadsStatus(AIndex : Integer; const AValue : String);
begin
If (FlongUploadsStatus=AValue) then exit;
FlongUploadsStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TChannelStatus.SetprivacyStatus(AIndex : Integer; const AValue : String);
begin
If (FprivacyStatus=AValue) then exit;
FprivacyStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TChannelTopicDetails
--------------------------------------------------------------------}
Procedure TChannelTopicDetails.SettopicIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FtopicIds=AValue) then exit;
FtopicIds:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChannelTopicDetails.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'topicids' : SetLength(FtopicIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TComment
--------------------------------------------------------------------}
Procedure TComment.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TComment.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TComment.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TComment.Setsnippet(AIndex : Integer; const AValue : TCommentSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TCommentListResponse
--------------------------------------------------------------------}
Procedure TCommentListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentListResponse.Setitems(AIndex : Integer; const AValue : TCommentListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TCommentListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TCommentSnippet
--------------------------------------------------------------------}
Procedure TCommentSnippet.SetauthorChannelId(AIndex : Integer; const AValue : TJSONSchema);
begin
If (FauthorChannelId=AValue) then exit;
FauthorChannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetauthorChannelUrl(AIndex : Integer; const AValue : String);
begin
If (FauthorChannelUrl=AValue) then exit;
FauthorChannelUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetauthorDisplayName(AIndex : Integer; const AValue : String);
begin
If (FauthorDisplayName=AValue) then exit;
FauthorDisplayName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetauthorGoogleplusProfileUrl(AIndex : Integer; const AValue : String);
begin
If (FauthorGoogleplusProfileUrl=AValue) then exit;
FauthorGoogleplusProfileUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetauthorProfileImageUrl(AIndex : Integer; const AValue : String);
begin
If (FauthorProfileImageUrl=AValue) then exit;
FauthorProfileImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetcanRate(AIndex : Integer; const AValue : boolean);
begin
If (FcanRate=AValue) then exit;
FcanRate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetlikeCount(AIndex : Integer; const AValue : integer);
begin
If (FlikeCount=AValue) then exit;
FlikeCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetmoderationStatus(AIndex : Integer; const AValue : String);
begin
If (FmoderationStatus=AValue) then exit;
FmoderationStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetparentId(AIndex : Integer; const AValue : String);
begin
If (FparentId=AValue) then exit;
FparentId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SettextDisplay(AIndex : Integer; const AValue : String);
begin
If (FtextDisplay=AValue) then exit;
FtextDisplay:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SettextOriginal(AIndex : Integer; const AValue : String);
begin
If (FtextOriginal=AValue) then exit;
FtextOriginal:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetupdatedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FupdatedAt=AValue) then exit;
FupdatedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentSnippet.SetviewerRating(AIndex : Integer; const AValue : String);
begin
If (FviewerRating=AValue) then exit;
FviewerRating:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TCommentThread
--------------------------------------------------------------------}
Procedure TCommentThread.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThread.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThread.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThread.Setreplies(AIndex : Integer; const AValue : TCommentThreadReplies);
begin
If (Freplies=AValue) then exit;
Freplies:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThread.Setsnippet(AIndex : Integer; const AValue : TCommentThreadSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TCommentThreadListResponse
--------------------------------------------------------------------}
Procedure TCommentThreadListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadListResponse.Setitems(AIndex : Integer; const AValue : TCommentThreadListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TCommentThreadListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TCommentThreadReplies
--------------------------------------------------------------------}
Procedure TCommentThreadReplies.Setcomments(AIndex : Integer; const AValue : TCommentThreadRepliesTypecommentsArray);
begin
If (Fcomments=AValue) then exit;
Fcomments:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TCommentThreadReplies.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'comments' : SetLength(Fcomments,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TCommentThreadSnippet
--------------------------------------------------------------------}
Procedure TCommentThreadSnippet.SetcanReply(AIndex : Integer; const AValue : boolean);
begin
If (FcanReply=AValue) then exit;
FcanReply:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadSnippet.SetisPublic(AIndex : Integer; const AValue : boolean);
begin
If (FisPublic=AValue) then exit;
FisPublic:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadSnippet.SettopLevelComment(AIndex : Integer; const AValue : TComment);
begin
If (FtopLevelComment=AValue) then exit;
FtopLevelComment:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadSnippet.SettotalReplyCount(AIndex : Integer; const AValue : integer);
begin
If (FtotalReplyCount=AValue) then exit;
FtotalReplyCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCommentThreadSnippet.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TContentRating
--------------------------------------------------------------------}
Procedure TContentRating.SetacbRating(AIndex : Integer; const AValue : String);
begin
If (FacbRating=AValue) then exit;
FacbRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetagcomRating(AIndex : Integer; const AValue : String);
begin
If (FagcomRating=AValue) then exit;
FagcomRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetanatelRating(AIndex : Integer; const AValue : String);
begin
If (FanatelRating=AValue) then exit;
FanatelRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetbbfcRating(AIndex : Integer; const AValue : String);
begin
If (FbbfcRating=AValue) then exit;
FbbfcRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetbfvcRating(AIndex : Integer; const AValue : String);
begin
If (FbfvcRating=AValue) then exit;
FbfvcRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetbmukkRating(AIndex : Integer; const AValue : String);
begin
If (FbmukkRating=AValue) then exit;
FbmukkRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcatvRating(AIndex : Integer; const AValue : String);
begin
If (FcatvRating=AValue) then exit;
FcatvRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcatvfrRating(AIndex : Integer; const AValue : String);
begin
If (FcatvfrRating=AValue) then exit;
FcatvfrRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcbfcRating(AIndex : Integer; const AValue : String);
begin
If (FcbfcRating=AValue) then exit;
FcbfcRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcccRating(AIndex : Integer; const AValue : String);
begin
If (FcccRating=AValue) then exit;
FcccRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcceRating(AIndex : Integer; const AValue : String);
begin
If (FcceRating=AValue) then exit;
FcceRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetchfilmRating(AIndex : Integer; const AValue : String);
begin
If (FchfilmRating=AValue) then exit;
FchfilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetchvrsRating(AIndex : Integer; const AValue : String);
begin
If (FchvrsRating=AValue) then exit;
FchvrsRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcicfRating(AIndex : Integer; const AValue : String);
begin
If (FcicfRating=AValue) then exit;
FcicfRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcnaRating(AIndex : Integer; const AValue : String);
begin
If (FcnaRating=AValue) then exit;
FcnaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcncRating(AIndex : Integer; const AValue : String);
begin
If (FcncRating=AValue) then exit;
FcncRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcsaRating(AIndex : Integer; const AValue : String);
begin
If (FcsaRating=AValue) then exit;
FcsaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetcscfRating(AIndex : Integer; const AValue : String);
begin
If (FcscfRating=AValue) then exit;
FcscfRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetczfilmRating(AIndex : Integer; const AValue : String);
begin
If (FczfilmRating=AValue) then exit;
FczfilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetdjctqRating(AIndex : Integer; const AValue : String);
begin
If (FdjctqRating=AValue) then exit;
FdjctqRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetdjctqRatingReasons(AIndex : Integer; const AValue : TStringArray);
begin
If (FdjctqRatingReasons=AValue) then exit;
FdjctqRatingReasons:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetecbmctRating(AIndex : Integer; const AValue : String);
begin
If (FecbmctRating=AValue) then exit;
FecbmctRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SeteefilmRating(AIndex : Integer; const AValue : String);
begin
If (FeefilmRating=AValue) then exit;
FeefilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetegfilmRating(AIndex : Integer; const AValue : String);
begin
If (FegfilmRating=AValue) then exit;
FegfilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SeteirinRating(AIndex : Integer; const AValue : String);
begin
If (FeirinRating=AValue) then exit;
FeirinRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetfcbmRating(AIndex : Integer; const AValue : String);
begin
If (FfcbmRating=AValue) then exit;
FfcbmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetfcoRating(AIndex : Integer; const AValue : String);
begin
If (FfcoRating=AValue) then exit;
FfcoRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetfmocRating(AIndex : Integer; const AValue : String);
begin
If (FfmocRating=AValue) then exit;
FfmocRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetfpbRating(AIndex : Integer; const AValue : String);
begin
If (FfpbRating=AValue) then exit;
FfpbRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetfskRating(AIndex : Integer; const AValue : String);
begin
If (FfskRating=AValue) then exit;
FfskRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetgrfilmRating(AIndex : Integer; const AValue : String);
begin
If (FgrfilmRating=AValue) then exit;
FgrfilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SeticaaRating(AIndex : Integer; const AValue : String);
begin
If (FicaaRating=AValue) then exit;
FicaaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetifcoRating(AIndex : Integer; const AValue : String);
begin
If (FifcoRating=AValue) then exit;
FifcoRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetilfilmRating(AIndex : Integer; const AValue : String);
begin
If (FilfilmRating=AValue) then exit;
FilfilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetincaaRating(AIndex : Integer; const AValue : String);
begin
If (FincaaRating=AValue) then exit;
FincaaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetkfcbRating(AIndex : Integer; const AValue : String);
begin
If (FkfcbRating=AValue) then exit;
FkfcbRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetkijkwijzerRating(AIndex : Integer; const AValue : String);
begin
If (FkijkwijzerRating=AValue) then exit;
FkijkwijzerRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetkmrbRating(AIndex : Integer; const AValue : String);
begin
If (FkmrbRating=AValue) then exit;
FkmrbRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetlsfRating(AIndex : Integer; const AValue : String);
begin
If (FlsfRating=AValue) then exit;
FlsfRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmccaaRating(AIndex : Integer; const AValue : String);
begin
If (FmccaaRating=AValue) then exit;
FmccaaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmccypRating(AIndex : Integer; const AValue : String);
begin
If (FmccypRating=AValue) then exit;
FmccypRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmdaRating(AIndex : Integer; const AValue : String);
begin
If (FmdaRating=AValue) then exit;
FmdaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmedietilsynetRating(AIndex : Integer; const AValue : String);
begin
If (FmedietilsynetRating=AValue) then exit;
FmedietilsynetRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmekuRating(AIndex : Integer; const AValue : String);
begin
If (FmekuRating=AValue) then exit;
FmekuRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmibacRating(AIndex : Integer; const AValue : String);
begin
If (FmibacRating=AValue) then exit;
FmibacRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.Set_mocRating(AIndex : Integer; const AValue : String);
begin
If (F_mocRating=AValue) then exit;
F_mocRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmoctwRating(AIndex : Integer; const AValue : String);
begin
If (FmoctwRating=AValue) then exit;
FmoctwRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmpaaRating(AIndex : Integer; const AValue : String);
begin
If (FmpaaRating=AValue) then exit;
FmpaaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetmtrcbRating(AIndex : Integer; const AValue : String);
begin
If (FmtrcbRating=AValue) then exit;
FmtrcbRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetnbcRating(AIndex : Integer; const AValue : String);
begin
If (FnbcRating=AValue) then exit;
FnbcRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetnbcplRating(AIndex : Integer; const AValue : String);
begin
If (FnbcplRating=AValue) then exit;
FnbcplRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetnfrcRating(AIndex : Integer; const AValue : String);
begin
If (FnfrcRating=AValue) then exit;
FnfrcRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetnfvcbRating(AIndex : Integer; const AValue : String);
begin
If (FnfvcbRating=AValue) then exit;
FnfvcbRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetnkclvRating(AIndex : Integer; const AValue : String);
begin
If (FnkclvRating=AValue) then exit;
FnkclvRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetoflcRating(AIndex : Integer; const AValue : String);
begin
If (FoflcRating=AValue) then exit;
FoflcRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetpefilmRating(AIndex : Integer; const AValue : String);
begin
If (FpefilmRating=AValue) then exit;
FpefilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetrcnofRating(AIndex : Integer; const AValue : String);
begin
If (FrcnofRating=AValue) then exit;
FrcnofRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetresorteviolenciaRating(AIndex : Integer; const AValue : String);
begin
If (FresorteviolenciaRating=AValue) then exit;
FresorteviolenciaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetrtcRating(AIndex : Integer; const AValue : String);
begin
If (FrtcRating=AValue) then exit;
FrtcRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetrteRating(AIndex : Integer; const AValue : String);
begin
If (FrteRating=AValue) then exit;
FrteRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetrussiaRating(AIndex : Integer; const AValue : String);
begin
If (FrussiaRating=AValue) then exit;
FrussiaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetskfilmRating(AIndex : Integer; const AValue : String);
begin
If (FskfilmRating=AValue) then exit;
FskfilmRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetsmaisRating(AIndex : Integer; const AValue : String);
begin
If (FsmaisRating=AValue) then exit;
FsmaisRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetsmsaRating(AIndex : Integer; const AValue : String);
begin
If (FsmsaRating=AValue) then exit;
FsmsaRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SettvpgRating(AIndex : Integer; const AValue : String);
begin
If (FtvpgRating=AValue) then exit;
FtvpgRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TContentRating.SetytRating(AIndex : Integer; const AValue : String);
begin
If (FytRating=AValue) then exit;
FytRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TContentRating.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_mocRating' : Result:='mocRating';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TContentRating.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'djctqratingreasons' : SetLength(FdjctqRatingReasons,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TFanFundingEvent
--------------------------------------------------------------------}
Procedure TFanFundingEvent.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEvent.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEvent.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEvent.Setsnippet(AIndex : Integer; const AValue : TFanFundingEventSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TFanFundingEventListResponse
--------------------------------------------------------------------}
Procedure TFanFundingEventListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventListResponse.Setitems(AIndex : Integer; const AValue : TFanFundingEventListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFanFundingEventListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TFanFundingEventSnippet
--------------------------------------------------------------------}
Procedure TFanFundingEventSnippet.SetamountMicros(AIndex : Integer; const AValue : String);
begin
If (FamountMicros=AValue) then exit;
FamountMicros:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventSnippet.SetcommentText(AIndex : Integer; const AValue : String);
begin
If (FcommentText=AValue) then exit;
FcommentText:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventSnippet.SetcreatedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FcreatedAt=AValue) then exit;
FcreatedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventSnippet.Setcurrency(AIndex : Integer; const AValue : String);
begin
If (Fcurrency=AValue) then exit;
Fcurrency:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventSnippet.SetdisplayString(AIndex : Integer; const AValue : String);
begin
If (FdisplayString=AValue) then exit;
FdisplayString:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFanFundingEventSnippet.SetsupporterDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
begin
If (FsupporterDetails=AValue) then exit;
FsupporterDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TGeoPoint
--------------------------------------------------------------------}
Procedure TGeoPoint.Setaltitude(AIndex : Integer; const AValue : double);
begin
If (Faltitude=AValue) then exit;
Faltitude:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGeoPoint.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
Flatitude:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGeoPoint.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
Flongitude:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TGuideCategory
--------------------------------------------------------------------}
Procedure TGuideCategory.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategory.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategory.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategory.Setsnippet(AIndex : Integer; const AValue : TGuideCategorySnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TGuideCategoryListResponse
--------------------------------------------------------------------}
Procedure TGuideCategoryListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.Setitems(AIndex : Integer; const AValue : TGuideCategoryListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategoryListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TGuideCategoryListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TGuideCategorySnippet
--------------------------------------------------------------------}
Procedure TGuideCategorySnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGuideCategorySnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TI18nLanguage
--------------------------------------------------------------------}
Procedure TI18nLanguage.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguage.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguage.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguage.Setsnippet(AIndex : Integer; const AValue : TI18nLanguageSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TI18nLanguageListResponse
--------------------------------------------------------------------}
Procedure TI18nLanguageListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguageListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguageListResponse.Setitems(AIndex : Integer; const AValue : TI18nLanguageListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguageListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguageListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TI18nLanguageListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TI18nLanguageSnippet
--------------------------------------------------------------------}
Procedure TI18nLanguageSnippet.Sethl(AIndex : Integer; const AValue : String);
begin
If (Fhl=AValue) then exit;
Fhl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nLanguageSnippet.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TI18nRegion
--------------------------------------------------------------------}
Procedure TI18nRegion.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegion.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegion.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegion.Setsnippet(AIndex : Integer; const AValue : TI18nRegionSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TI18nRegionListResponse
--------------------------------------------------------------------}
Procedure TI18nRegionListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegionListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegionListResponse.Setitems(AIndex : Integer; const AValue : TI18nRegionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegionListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegionListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TI18nRegionListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TI18nRegionSnippet
--------------------------------------------------------------------}
Procedure TI18nRegionSnippet.Setgl(AIndex : Integer; const AValue : String);
begin
If (Fgl=AValue) then exit;
Fgl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TI18nRegionSnippet.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TImageSettings
--------------------------------------------------------------------}
Procedure TImageSettings.SetbackgroundImageUrl(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FbackgroundImageUrl=AValue) then exit;
FbackgroundImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerExternalUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerExternalUrl=AValue) then exit;
FbannerExternalUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerImageUrl=AValue) then exit;
FbannerImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerMobileExtraHdImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerMobileExtraHdImageUrl=AValue) then exit;
FbannerMobileExtraHdImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerMobileHdImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerMobileHdImageUrl=AValue) then exit;
FbannerMobileHdImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerMobileImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerMobileImageUrl=AValue) then exit;
FbannerMobileImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerMobileLowImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerMobileLowImageUrl=AValue) then exit;
FbannerMobileLowImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerMobileMediumHdImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerMobileMediumHdImageUrl=AValue) then exit;
FbannerMobileMediumHdImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTabletExtraHdImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTabletExtraHdImageUrl=AValue) then exit;
FbannerTabletExtraHdImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTabletHdImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTabletHdImageUrl=AValue) then exit;
FbannerTabletHdImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTabletImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTabletImageUrl=AValue) then exit;
FbannerTabletImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTabletLowImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTabletLowImageUrl=AValue) then exit;
FbannerTabletLowImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTvHighImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTvHighImageUrl=AValue) then exit;
FbannerTvHighImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTvImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTvImageUrl=AValue) then exit;
FbannerTvImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTvLowImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTvLowImageUrl=AValue) then exit;
FbannerTvLowImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetbannerTvMediumImageUrl(AIndex : Integer; const AValue : String);
begin
If (FbannerTvMediumImageUrl=AValue) then exit;
FbannerTvMediumImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetlargeBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FlargeBrandedBannerImageImapScript=AValue) then exit;
FlargeBrandedBannerImageImapScript:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetlargeBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FlargeBrandedBannerImageUrl=AValue) then exit;
FlargeBrandedBannerImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetsmallBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FsmallBrandedBannerImageImapScript=AValue) then exit;
FsmallBrandedBannerImageImapScript:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetsmallBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FsmallBrandedBannerImageUrl=AValue) then exit;
FsmallBrandedBannerImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SettrackingImageUrl(AIndex : Integer; const AValue : String);
begin
If (FtrackingImageUrl=AValue) then exit;
FtrackingImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageSettings.SetwatchIconImageUrl(AIndex : Integer; const AValue : String);
begin
If (FwatchIconImageUrl=AValue) then exit;
FwatchIconImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TIngestionInfo
--------------------------------------------------------------------}
Procedure TIngestionInfo.SetbackupIngestionAddress(AIndex : Integer; const AValue : String);
begin
If (FbackupIngestionAddress=AValue) then exit;
FbackupIngestionAddress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TIngestionInfo.SetingestionAddress(AIndex : Integer; const AValue : String);
begin
If (FingestionAddress=AValue) then exit;
FingestionAddress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TIngestionInfo.SetstreamName(AIndex : Integer; const AValue : String);
begin
If (FstreamName=AValue) then exit;
FstreamName:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInvideoBranding
--------------------------------------------------------------------}
Procedure TInvideoBranding.SetimageBytes(AIndex : Integer; const AValue : String);
begin
If (FimageBytes=AValue) then exit;
FimageBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoBranding.SetimageUrl(AIndex : Integer; const AValue : String);
begin
If (FimageUrl=AValue) then exit;
FimageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoBranding.Setposition(AIndex : Integer; const AValue : TInvideoPosition);
begin
If (Fposition=AValue) then exit;
Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoBranding.SettargetChannelId(AIndex : Integer; const AValue : String);
begin
If (FtargetChannelId=AValue) then exit;
FtargetChannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoBranding.Settiming(AIndex : Integer; const AValue : TInvideoTiming);
begin
If (Ftiming=AValue) then exit;
Ftiming:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInvideoPosition
--------------------------------------------------------------------}
Procedure TInvideoPosition.SetcornerPosition(AIndex : Integer; const AValue : String);
begin
If (FcornerPosition=AValue) then exit;
FcornerPosition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoPosition.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TInvideoPosition.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TInvideoPromotion
--------------------------------------------------------------------}
Procedure TInvideoPromotion.SetdefaultTiming(AIndex : Integer; const AValue : TInvideoTiming);
begin
If (FdefaultTiming=AValue) then exit;
FdefaultTiming:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoPromotion.Setitems(AIndex : Integer; const AValue : TInvideoPromotionTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoPromotion.Setposition(AIndex : Integer; const AValue : TInvideoPosition);
begin
If (Fposition=AValue) then exit;
Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoPromotion.SetuseSmartTiming(AIndex : Integer; const AValue : boolean);
begin
If (FuseSmartTiming=AValue) then exit;
FuseSmartTiming:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInvideoPromotion.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInvideoTiming
--------------------------------------------------------------------}
Procedure TInvideoTiming.SetdurationMs(AIndex : Integer; const AValue : String);
begin
If (FdurationMs=AValue) then exit;
FdurationMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoTiming.SetoffsetMs(AIndex : Integer; const AValue : String);
begin
If (FoffsetMs=AValue) then exit;
FoffsetMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInvideoTiming.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TInvideoTiming.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TLanguageTag
--------------------------------------------------------------------}
Procedure TLanguageTag.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveBroadcast
--------------------------------------------------------------------}
Procedure TLiveBroadcast.SetcontentDetails(AIndex : Integer; const AValue : TLiveBroadcastContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcast.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcast.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcast.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcast.Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcast.Setstatistics(AIndex : Integer; const AValue : TLiveBroadcastStatistics);
begin
If (Fstatistics=AValue) then exit;
Fstatistics:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcast.Setstatus(AIndex : Integer; const AValue : TLiveBroadcastStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcast.SettopicDetails(AIndex : Integer; const AValue : TLiveBroadcastTopicDetails);
begin
If (FtopicDetails=AValue) then exit;
FtopicDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveBroadcastContentDetails
--------------------------------------------------------------------}
Procedure TLiveBroadcastContentDetails.SetboundStreamId(AIndex : Integer; const AValue : String);
begin
If (FboundStreamId=AValue) then exit;
FboundStreamId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetboundStreamLastUpdateTimeMs(AIndex : Integer; const AValue : TDatetime);
begin
If (FboundStreamLastUpdateTimeMs=AValue) then exit;
FboundStreamLastUpdateTimeMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetclosedCaptionsType(AIndex : Integer; const AValue : String);
begin
If (FclosedCaptionsType=AValue) then exit;
FclosedCaptionsType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetenableClosedCaptions(AIndex : Integer; const AValue : boolean);
begin
If (FenableClosedCaptions=AValue) then exit;
FenableClosedCaptions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetenableContentEncryption(AIndex : Integer; const AValue : boolean);
begin
If (FenableContentEncryption=AValue) then exit;
FenableContentEncryption:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetenableDvr(AIndex : Integer; const AValue : boolean);
begin
If (FenableDvr=AValue) then exit;
FenableDvr:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetenableEmbed(AIndex : Integer; const AValue : boolean);
begin
If (FenableEmbed=AValue) then exit;
FenableEmbed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetenableLowLatency(AIndex : Integer; const AValue : boolean);
begin
If (FenableLowLatency=AValue) then exit;
FenableLowLatency:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetmonitorStream(AIndex : Integer; const AValue : TMonitorStreamInfo);
begin
If (FmonitorStream=AValue) then exit;
FmonitorStream:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.Setprojection(AIndex : Integer; const AValue : String);
begin
If (Fprojection=AValue) then exit;
Fprojection:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetrecordFromStart(AIndex : Integer; const AValue : boolean);
begin
If (FrecordFromStart=AValue) then exit;
FrecordFromStart:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastContentDetails.SetstartWithSlate(AIndex : Integer; const AValue : boolean);
begin
If (FstartWithSlate=AValue) then exit;
FstartWithSlate:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveBroadcastListResponse
--------------------------------------------------------------------}
Procedure TLiveBroadcastListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.Setitems(AIndex : Integer; const AValue : TLiveBroadcastListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLiveBroadcastListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TLiveBroadcastSnippet
--------------------------------------------------------------------}
Procedure TLiveBroadcastSnippet.SetactualEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualEndTime=AValue) then exit;
FactualEndTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.SetactualStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualStartTime=AValue) then exit;
FactualStartTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.SetisDefaultBroadcast(AIndex : Integer; const AValue : boolean);
begin
If (FisDefaultBroadcast=AValue) then exit;
FisDefaultBroadcast:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
begin
If (FliveChatId=AValue) then exit;
FliveChatId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledEndTime=AValue) then exit;
FscheduledEndTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledStartTime=AValue) then exit;
FscheduledStartTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveBroadcastStatistics
--------------------------------------------------------------------}
Procedure TLiveBroadcastStatistics.SetconcurrentViewers(AIndex : Integer; const AValue : String);
begin
If (FconcurrentViewers=AValue) then exit;
FconcurrentViewers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastStatistics.SettotalChatCount(AIndex : Integer; const AValue : String);
begin
If (FtotalChatCount=AValue) then exit;
FtotalChatCount:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveBroadcastStatus
--------------------------------------------------------------------}
Procedure TLiveBroadcastStatus.SetlifeCycleStatus(AIndex : Integer; const AValue : String);
begin
If (FlifeCycleStatus=AValue) then exit;
FlifeCycleStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastStatus.SetliveBroadcastPriority(AIndex : Integer; const AValue : String);
begin
If (FliveBroadcastPriority=AValue) then exit;
FliveBroadcastPriority:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastStatus.SetprivacyStatus(AIndex : Integer; const AValue : String);
begin
If (FprivacyStatus=AValue) then exit;
FprivacyStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastStatus.SetrecordingStatus(AIndex : Integer; const AValue : String);
begin
If (FrecordingStatus=AValue) then exit;
FrecordingStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveBroadcastTopic
--------------------------------------------------------------------}
Procedure TLiveBroadcastTopic.Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastTopicSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastTopic.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastTopic.Setunmatched(AIndex : Integer; const AValue : boolean);
begin
If (Funmatched=AValue) then exit;
Funmatched:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TLiveBroadcastTopic.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TLiveBroadcastTopicDetails
--------------------------------------------------------------------}
Procedure TLiveBroadcastTopicDetails.Settopics(AIndex : Integer; const AValue : TLiveBroadcastTopicDetailsTypetopicsArray);
begin
If (Ftopics=AValue) then exit;
Ftopics:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLiveBroadcastTopicDetails.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'topics' : SetLength(Ftopics,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TLiveBroadcastTopicSnippet
--------------------------------------------------------------------}
Procedure TLiveBroadcastTopicSnippet.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveBroadcastTopicSnippet.SetreleaseDate(AIndex : Integer; const AValue : String);
begin
If (FreleaseDate=AValue) then exit;
FreleaseDate:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatBan
--------------------------------------------------------------------}
Procedure TLiveChatBan.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatBan.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatBan.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatBan.Setsnippet(AIndex : Integer; const AValue : TLiveChatBanSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatBanSnippet
--------------------------------------------------------------------}
Procedure TLiveChatBanSnippet.SetbanDurationSeconds(AIndex : Integer; const AValue : String);
begin
If (FbanDurationSeconds=AValue) then exit;
FbanDurationSeconds:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatBanSnippet.SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
begin
If (FbannedUserDetails=AValue) then exit;
FbannedUserDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatBanSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
begin
If (FliveChatId=AValue) then exit;
FliveChatId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatBanSnippet.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TLiveChatBanSnippet.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TLiveChatFanFundingEventDetails
--------------------------------------------------------------------}
Procedure TLiveChatFanFundingEventDetails.SetamountDisplayString(AIndex : Integer; const AValue : String);
begin
If (FamountDisplayString=AValue) then exit;
FamountDisplayString:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatFanFundingEventDetails.SetamountMicros(AIndex : Integer; const AValue : String);
begin
If (FamountMicros=AValue) then exit;
FamountMicros:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatFanFundingEventDetails.Setcurrency(AIndex : Integer; const AValue : String);
begin
If (Fcurrency=AValue) then exit;
Fcurrency:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatFanFundingEventDetails.SetuserComment(AIndex : Integer; const AValue : String);
begin
If (FuserComment=AValue) then exit;
FuserComment:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatMessage
--------------------------------------------------------------------}
Procedure TLiveChatMessage.SetauthorDetails(AIndex : Integer; const AValue : TLiveChatMessageAuthorDetails);
begin
If (FauthorDetails=AValue) then exit;
FauthorDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessage.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessage.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessage.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessage.Setsnippet(AIndex : Integer; const AValue : TLiveChatMessageSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatMessageAuthorDetails
--------------------------------------------------------------------}
Procedure TLiveChatMessageAuthorDetails.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageAuthorDetails.SetchannelUrl(AIndex : Integer; const AValue : String);
begin
If (FchannelUrl=AValue) then exit;
FchannelUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageAuthorDetails.SetdisplayName(AIndex : Integer; const AValue : String);
begin
If (FdisplayName=AValue) then exit;
FdisplayName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageAuthorDetails.SetisChatModerator(AIndex : Integer; const AValue : boolean);
begin
If (FisChatModerator=AValue) then exit;
FisChatModerator:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageAuthorDetails.SetisChatOwner(AIndex : Integer; const AValue : boolean);
begin
If (FisChatOwner=AValue) then exit;
FisChatOwner:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageAuthorDetails.SetisChatSponsor(AIndex : Integer; const AValue : boolean);
begin
If (FisChatSponsor=AValue) then exit;
FisChatSponsor:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageAuthorDetails.SetisVerified(AIndex : Integer; const AValue : boolean);
begin
If (FisVerified=AValue) then exit;
FisVerified:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageAuthorDetails.SetprofileImageUrl(AIndex : Integer; const AValue : String);
begin
If (FprofileImageUrl=AValue) then exit;
FprofileImageUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatMessageDeletedDetails
--------------------------------------------------------------------}
Procedure TLiveChatMessageDeletedDetails.SetdeletedMessageId(AIndex : Integer; const AValue : String);
begin
If (FdeletedMessageId=AValue) then exit;
FdeletedMessageId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatMessageListResponse
--------------------------------------------------------------------}
Procedure TLiveChatMessageListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.Setitems(AIndex : Integer; const AValue : TLiveChatMessageListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.SetofflineAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FofflineAt=AValue) then exit;
FofflineAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.SetpollingIntervalMillis(AIndex : Integer; const AValue : integer);
begin
If (FpollingIntervalMillis=AValue) then exit;
FpollingIntervalMillis:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLiveChatMessageListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TLiveChatMessageRetractedDetails
--------------------------------------------------------------------}
Procedure TLiveChatMessageRetractedDetails.SetretractedMessageId(AIndex : Integer; const AValue : String);
begin
If (FretractedMessageId=AValue) then exit;
FretractedMessageId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatMessageSnippet
--------------------------------------------------------------------}
Procedure TLiveChatMessageSnippet.SetauthorChannelId(AIndex : Integer; const AValue : String);
begin
If (FauthorChannelId=AValue) then exit;
FauthorChannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SetdisplayMessage(AIndex : Integer; const AValue : String);
begin
If (FdisplayMessage=AValue) then exit;
FdisplayMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SetfanFundingEventDetails(AIndex : Integer; const AValue : TLiveChatFanFundingEventDetails);
begin
If (FfanFundingEventDetails=AValue) then exit;
FfanFundingEventDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SethasDisplayContent(AIndex : Integer; const AValue : boolean);
begin
If (FhasDisplayContent=AValue) then exit;
FhasDisplayContent:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
begin
If (FliveChatId=AValue) then exit;
FliveChatId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SetmessageDeletedDetails(AIndex : Integer; const AValue : TLiveChatMessageDeletedDetails);
begin
If (FmessageDeletedDetails=AValue) then exit;
FmessageDeletedDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SetmessageRetractedDetails(AIndex : Integer; const AValue : TLiveChatMessageRetractedDetails);
begin
If (FmessageRetractedDetails=AValue) then exit;
FmessageRetractedDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SettextMessageDetails(AIndex : Integer; const AValue : TLiveChatTextMessageDetails);
begin
If (FtextMessageDetails=AValue) then exit;
FtextMessageDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatMessageSnippet.SetuserBannedDetails(AIndex : Integer; const AValue : TLiveChatUserBannedMessageDetails);
begin
If (FuserBannedDetails=AValue) then exit;
FuserBannedDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TLiveChatMessageSnippet.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TLiveChatModerator
--------------------------------------------------------------------}
Procedure TLiveChatModerator.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModerator.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModerator.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModerator.Setsnippet(AIndex : Integer; const AValue : TLiveChatModeratorSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatModeratorListResponse
--------------------------------------------------------------------}
Procedure TLiveChatModeratorListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.Setitems(AIndex : Integer; const AValue : TLiveChatModeratorListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLiveChatModeratorListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TLiveChatModeratorSnippet
--------------------------------------------------------------------}
Procedure TLiveChatModeratorSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
begin
If (FliveChatId=AValue) then exit;
FliveChatId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatModeratorSnippet.SetmoderatorDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
begin
If (FmoderatorDetails=AValue) then exit;
FmoderatorDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatTextMessageDetails
--------------------------------------------------------------------}
Procedure TLiveChatTextMessageDetails.SetmessageText(AIndex : Integer; const AValue : String);
begin
If (FmessageText=AValue) then exit;
FmessageText:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveChatUserBannedMessageDetails
--------------------------------------------------------------------}
Procedure TLiveChatUserBannedMessageDetails.SetbanDurationSeconds(AIndex : Integer; const AValue : String);
begin
If (FbanDurationSeconds=AValue) then exit;
FbanDurationSeconds:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatUserBannedMessageDetails.SetbanType(AIndex : Integer; const AValue : String);
begin
If (FbanType=AValue) then exit;
FbanType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveChatUserBannedMessageDetails.SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
begin
If (FbannedUserDetails=AValue) then exit;
FbannedUserDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveStream
--------------------------------------------------------------------}
Procedure TLiveStream.Setcdn(AIndex : Integer; const AValue : TCdnSettings);
begin
If (Fcdn=AValue) then exit;
Fcdn:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStream.SetcontentDetails(AIndex : Integer; const AValue : TLiveStreamContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStream.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStream.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStream.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStream.Setsnippet(AIndex : Integer; const AValue : TLiveStreamSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStream.Setstatus(AIndex : Integer; const AValue : TLiveStreamStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveStreamConfigurationIssue
--------------------------------------------------------------------}
Procedure TLiveStreamConfigurationIssue.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamConfigurationIssue.Setreason(AIndex : Integer; const AValue : String);
begin
If (Freason=AValue) then exit;
Freason:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamConfigurationIssue.Setseverity(AIndex : Integer; const AValue : String);
begin
If (Fseverity=AValue) then exit;
Fseverity:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamConfigurationIssue.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TLiveStreamConfigurationIssue.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TLiveStreamContentDetails
--------------------------------------------------------------------}
Procedure TLiveStreamContentDetails.SetclosedCaptionsIngestionUrl(AIndex : Integer; const AValue : String);
begin
If (FclosedCaptionsIngestionUrl=AValue) then exit;
FclosedCaptionsIngestionUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamContentDetails.SetisReusable(AIndex : Integer; const AValue : boolean);
begin
If (FisReusable=AValue) then exit;
FisReusable:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveStreamHealthStatus
--------------------------------------------------------------------}
Procedure TLiveStreamHealthStatus.SetconfigurationIssues(AIndex : Integer; const AValue : TLiveStreamHealthStatusTypeconfigurationIssuesArray);
begin
If (FconfigurationIssues=AValue) then exit;
FconfigurationIssues:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamHealthStatus.SetlastUpdateTimeSeconds(AIndex : Integer; const AValue : String);
begin
If (FlastUpdateTimeSeconds=AValue) then exit;
FlastUpdateTimeSeconds:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamHealthStatus.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLiveStreamHealthStatus.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'configurationissues' : SetLength(FconfigurationIssues,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TLiveStreamListResponse
--------------------------------------------------------------------}
Procedure TLiveStreamListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.Setitems(AIndex : Integer; const AValue : TLiveStreamListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLiveStreamListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TLiveStreamSnippet
--------------------------------------------------------------------}
Procedure TLiveStreamSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamSnippet.SetisDefaultStream(AIndex : Integer; const AValue : boolean);
begin
If (FisDefaultStream=AValue) then exit;
FisDefaultStream:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLiveStreamStatus
--------------------------------------------------------------------}
Procedure TLiveStreamStatus.SethealthStatus(AIndex : Integer; const AValue : TLiveStreamHealthStatus);
begin
If (FhealthStatus=AValue) then exit;
FhealthStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLiveStreamStatus.SetstreamStatus(AIndex : Integer; const AValue : String);
begin
If (FstreamStatus=AValue) then exit;
FstreamStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLocalizedProperty
--------------------------------------------------------------------}
Procedure TLocalizedProperty.Setdefault(AIndex : Integer; const AValue : String);
begin
If (Fdefault=AValue) then exit;
Fdefault:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLocalizedProperty.SetdefaultLanguage(AIndex : Integer; const AValue : TLanguageTag);
begin
If (FdefaultLanguage=AValue) then exit;
FdefaultLanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLocalizedProperty.Setlocalized(AIndex : Integer; const AValue : TLocalizedPropertyTypelocalizedArray);
begin
If (Flocalized=AValue) then exit;
Flocalized:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TLocalizedProperty.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'localized' : SetLength(Flocalized,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TLocalizedString
--------------------------------------------------------------------}
Procedure TLocalizedString.Setlanguage(AIndex : Integer; const AValue : String);
begin
If (Flanguage=AValue) then exit;
Flanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLocalizedString.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TMonitorStreamInfo
--------------------------------------------------------------------}
Procedure TMonitorStreamInfo.SetbroadcastStreamDelayMs(AIndex : Integer; const AValue : integer);
begin
If (FbroadcastStreamDelayMs=AValue) then exit;
FbroadcastStreamDelayMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMonitorStreamInfo.SetembedHtml(AIndex : Integer; const AValue : String);
begin
If (FembedHtml=AValue) then exit;
FembedHtml:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMonitorStreamInfo.SetenableMonitorStream(AIndex : Integer; const AValue : boolean);
begin
If (FenableMonitorStream=AValue) then exit;
FenableMonitorStream:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPageInfo
--------------------------------------------------------------------}
Procedure TPageInfo.SetresultsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FresultsPerPage=AValue) then exit;
FresultsPerPage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
FtotalResults:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistTypelocalizations
--------------------------------------------------------------------}
Class Function TPlaylistTypelocalizations.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TPlaylist
--------------------------------------------------------------------}
Procedure TPlaylist.SetcontentDetails(AIndex : Integer; const AValue : TPlaylistContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylist.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylist.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylist.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylist.Setlocalizations(AIndex : Integer; const AValue : TPlaylistTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
Flocalizations:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylist.Setplayer(AIndex : Integer; const AValue : TPlaylistPlayer);
begin
If (Fplayer=AValue) then exit;
Fplayer:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylist.Setsnippet(AIndex : Integer; const AValue : TPlaylistSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylist.Setstatus(AIndex : Integer; const AValue : TPlaylistStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistContentDetails
--------------------------------------------------------------------}
Procedure TPlaylistContentDetails.SetitemCount(AIndex : Integer; const AValue : integer);
begin
If (FitemCount=AValue) then exit;
FitemCount:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistItem
--------------------------------------------------------------------}
Procedure TPlaylistItem.SetcontentDetails(AIndex : Integer; const AValue : TPlaylistItemContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItem.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItem.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItem.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItem.Setsnippet(AIndex : Integer; const AValue : TPlaylistItemSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItem.Setstatus(AIndex : Integer; const AValue : TPlaylistItemStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistItemContentDetails
--------------------------------------------------------------------}
Procedure TPlaylistItemContentDetails.SetendAt(AIndex : Integer; const AValue : String);
begin
If (FendAt=AValue) then exit;
FendAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemContentDetails.Setnote(AIndex : Integer; const AValue : String);
begin
If (Fnote=AValue) then exit;
Fnote:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemContentDetails.SetstartAt(AIndex : Integer; const AValue : String);
begin
If (FstartAt=AValue) then exit;
FstartAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemContentDetails.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistItemListResponse
--------------------------------------------------------------------}
Procedure TPlaylistItemListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.Setitems(AIndex : Integer; const AValue : TPlaylistItemListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlaylistItemListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TPlaylistItemSnippet
--------------------------------------------------------------------}
Procedure TPlaylistItemSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.SetchannelTitle(AIndex : Integer; const AValue : String);
begin
If (FchannelTitle=AValue) then exit;
FchannelTitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.SetplaylistId(AIndex : Integer; const AValue : String);
begin
If (FplaylistId=AValue) then exit;
FplaylistId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.Setposition(AIndex : Integer; const AValue : integer);
begin
If (Fposition=AValue) then exit;
Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistItemSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistItemStatus
--------------------------------------------------------------------}
Procedure TPlaylistItemStatus.SetprivacyStatus(AIndex : Integer; const AValue : String);
begin
If (FprivacyStatus=AValue) then exit;
FprivacyStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistListResponse
--------------------------------------------------------------------}
Procedure TPlaylistListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.Setitems(AIndex : Integer; const AValue : TPlaylistListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlaylistListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TPlaylistLocalization
--------------------------------------------------------------------}
Procedure TPlaylistLocalization.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistLocalization.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistPlayer
--------------------------------------------------------------------}
Procedure TPlaylistPlayer.SetembedHtml(AIndex : Integer; const AValue : String);
begin
If (FembedHtml=AValue) then exit;
FembedHtml:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPlaylistSnippet
--------------------------------------------------------------------}
Procedure TPlaylistSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.SetchannelTitle(AIndex : Integer; const AValue : String);
begin
If (FchannelTitle=AValue) then exit;
FchannelTitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.SetdefaultLanguage(AIndex : Integer; const AValue : String);
begin
If (FdefaultLanguage=AValue) then exit;
FdefaultLanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.Setlocalized(AIndex : Integer; const AValue : TPlaylistLocalization);
begin
If (Flocalized=AValue) then exit;
Flocalized:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
Ftags:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPlaylistSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPlaylistSnippet.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'tags' : SetLength(Ftags,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TPlaylistStatus
--------------------------------------------------------------------}
Procedure TPlaylistStatus.SetprivacyStatus(AIndex : Integer; const AValue : String);
begin
If (FprivacyStatus=AValue) then exit;
FprivacyStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPromotedItem
--------------------------------------------------------------------}
Procedure TPromotedItem.SetcustomMessage(AIndex : Integer; const AValue : String);
begin
If (FcustomMessage=AValue) then exit;
FcustomMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPromotedItem.Setid(AIndex : Integer; const AValue : TPromotedItemId);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPromotedItem.SetpromotedByContentOwner(AIndex : Integer; const AValue : boolean);
begin
If (FpromotedByContentOwner=AValue) then exit;
FpromotedByContentOwner:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPromotedItem.Settiming(AIndex : Integer; const AValue : TInvideoTiming);
begin
If (Ftiming=AValue) then exit;
Ftiming:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPromotedItemId
--------------------------------------------------------------------}
Procedure TPromotedItemId.SetrecentlyUploadedBy(AIndex : Integer; const AValue : String);
begin
If (FrecentlyUploadedBy=AValue) then exit;
FrecentlyUploadedBy:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPromotedItemId.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPromotedItemId.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPromotedItemId.SetwebsiteUrl(AIndex : Integer; const AValue : String);
begin
If (FwebsiteUrl=AValue) then exit;
FwebsiteUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TPromotedItemId.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TPropertyValue
--------------------------------------------------------------------}
Procedure TPropertyValue.Set_property(AIndex : Integer; const AValue : String);
begin
If (F_property=AValue) then exit;
F_property:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPropertyValue.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TPropertyValue.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_property' : Result:='property';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TResourceId
--------------------------------------------------------------------}
Procedure TResourceId.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TResourceId.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TResourceId.SetplaylistId(AIndex : Integer; const AValue : String);
begin
If (FplaylistId=AValue) then exit;
FplaylistId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TResourceId.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSearchListResponse
--------------------------------------------------------------------}
Procedure TSearchListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.Setitems(AIndex : Integer; const AValue : TSearchListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.SetregionCode(AIndex : Integer; const AValue : String);
begin
If (FregionCode=AValue) then exit;
FregionCode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSearchListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSearchResult
--------------------------------------------------------------------}
Procedure TSearchResult.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResult.Setid(AIndex : Integer; const AValue : TResourceId);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResult.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResult.Setsnippet(AIndex : Integer; const AValue : TSearchResultSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSearchResultSnippet
--------------------------------------------------------------------}
Procedure TSearchResultSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResultSnippet.SetchannelTitle(AIndex : Integer; const AValue : String);
begin
If (FchannelTitle=AValue) then exit;
FchannelTitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResultSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResultSnippet.SetliveBroadcastContent(AIndex : Integer; const AValue : String);
begin
If (FliveBroadcastContent=AValue) then exit;
FliveBroadcastContent:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResultSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResultSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSearchResultSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSponsor
--------------------------------------------------------------------}
Procedure TSponsor.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsor.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsor.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsor.Setsnippet(AIndex : Integer; const AValue : TSponsorSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSponsorListResponse
--------------------------------------------------------------------}
Procedure TSponsorListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorListResponse.Setitems(AIndex : Integer; const AValue : TSponsorListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSponsorListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSponsorSnippet
--------------------------------------------------------------------}
Procedure TSponsorSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorSnippet.SetsponsorDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
begin
If (FsponsorDetails=AValue) then exit;
FsponsorDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSponsorSnippet.SetsponsorSince(AIndex : Integer; const AValue : TDatetime);
begin
If (FsponsorSince=AValue) then exit;
FsponsorSince:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSubscription
--------------------------------------------------------------------}
Procedure TSubscription.SetcontentDetails(AIndex : Integer; const AValue : TSubscriptionContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscription.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscription.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscription.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscription.Setsnippet(AIndex : Integer; const AValue : TSubscriptionSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscription.SetsubscriberSnippet(AIndex : Integer; const AValue : TSubscriptionSubscriberSnippet);
begin
If (FsubscriberSnippet=AValue) then exit;
FsubscriberSnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSubscriptionContentDetails
--------------------------------------------------------------------}
Procedure TSubscriptionContentDetails.SetactivityType(AIndex : Integer; const AValue : String);
begin
If (FactivityType=AValue) then exit;
FactivityType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionContentDetails.SetnewItemCount(AIndex : Integer; const AValue : integer);
begin
If (FnewItemCount=AValue) then exit;
FnewItemCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionContentDetails.SettotalItemCount(AIndex : Integer; const AValue : integer);
begin
If (FtotalItemCount=AValue) then exit;
FtotalItemCount:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSubscriptionListResponse
--------------------------------------------------------------------}
Procedure TSubscriptionListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.Setitems(AIndex : Integer; const AValue : TSubscriptionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSubscriptionListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSubscriptionSnippet
--------------------------------------------------------------------}
Procedure TSubscriptionSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSnippet.SetchannelTitle(AIndex : Integer; const AValue : String);
begin
If (FchannelTitle=AValue) then exit;
FchannelTitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSnippet.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
FresourceId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSubscriptionSubscriberSnippet
--------------------------------------------------------------------}
Procedure TSubscriptionSubscriberSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSubscriberSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSubscriberSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubscriptionSubscriberSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TThumbnail
--------------------------------------------------------------------}
Procedure TThumbnail.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
Fheight:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnail.Seturl(AIndex : Integer; const AValue : String);
begin
If (Furl=AValue) then exit;
Furl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnail.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
Fwidth:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TThumbnailDetails
--------------------------------------------------------------------}
Procedure TThumbnailDetails.Setdefault(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fdefault=AValue) then exit;
Fdefault:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailDetails.Sethigh(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fhigh=AValue) then exit;
Fhigh:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailDetails.Setmaxres(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fmaxres=AValue) then exit;
Fmaxres:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailDetails.Setmedium(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fmedium=AValue) then exit;
Fmedium:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailDetails.Setstandard(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fstandard=AValue) then exit;
Fstandard:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TThumbnailSetResponse
--------------------------------------------------------------------}
Procedure TThumbnailSetResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailSetResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailSetResponse.Setitems(AIndex : Integer; const AValue : TThumbnailSetResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailSetResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnailSetResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TThumbnailSetResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTokenPagination
--------------------------------------------------------------------}
{ --------------------------------------------------------------------
TVideoTypelocalizations
--------------------------------------------------------------------}
Class Function TVideoTypelocalizations.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TVideo
--------------------------------------------------------------------}
Procedure TVideo.SetageGating(AIndex : Integer; const AValue : TVideoAgeGating);
begin
If (FageGating=AValue) then exit;
FageGating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SetcontentDetails(AIndex : Integer; const AValue : TVideoContentDetails);
begin
If (FcontentDetails=AValue) then exit;
FcontentDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SetfileDetails(AIndex : Integer; const AValue : TVideoFileDetails);
begin
If (FfileDetails=AValue) then exit;
FfileDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SetliveStreamingDetails(AIndex : Integer; const AValue : TVideoLiveStreamingDetails);
begin
If (FliveStreamingDetails=AValue) then exit;
FliveStreamingDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setlocalizations(AIndex : Integer; const AValue : TVideoTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
Flocalizations:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SetmonetizationDetails(AIndex : Integer; const AValue : TVideoMonetizationDetails);
begin
If (FmonetizationDetails=AValue) then exit;
FmonetizationDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setplayer(AIndex : Integer; const AValue : TVideoPlayer);
begin
If (Fplayer=AValue) then exit;
Fplayer:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SetprocessingDetails(AIndex : Integer; const AValue : TVideoProcessingDetails);
begin
If (FprocessingDetails=AValue) then exit;
FprocessingDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SetprojectDetails(AIndex : Integer; const AValue : TVideoProjectDetails);
begin
If (FprojectDetails=AValue) then exit;
FprojectDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SetrecordingDetails(AIndex : Integer; const AValue : TVideoRecordingDetails);
begin
If (FrecordingDetails=AValue) then exit;
FrecordingDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setsnippet(AIndex : Integer; const AValue : TVideoSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setstatistics(AIndex : Integer; const AValue : TVideoStatistics);
begin
If (Fstatistics=AValue) then exit;
Fstatistics:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setstatus(AIndex : Integer; const AValue : TVideoStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.Setsuggestions(AIndex : Integer; const AValue : TVideoSuggestions);
begin
If (Fsuggestions=AValue) then exit;
Fsuggestions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideo.SettopicDetails(AIndex : Integer; const AValue : TVideoTopicDetails);
begin
If (FtopicDetails=AValue) then exit;
FtopicDetails:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoAbuseReport
--------------------------------------------------------------------}
Procedure TVideoAbuseReport.Setcomments(AIndex : Integer; const AValue : String);
begin
If (Fcomments=AValue) then exit;
Fcomments:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReport.Setlanguage(AIndex : Integer; const AValue : String);
begin
If (Flanguage=AValue) then exit;
Flanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReport.SetreasonId(AIndex : Integer; const AValue : String);
begin
If (FreasonId=AValue) then exit;
FreasonId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReport.SetsecondaryReasonId(AIndex : Integer; const AValue : String);
begin
If (FsecondaryReasonId=AValue) then exit;
FsecondaryReasonId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReport.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoAbuseReportReason
--------------------------------------------------------------------}
Procedure TVideoAbuseReportReason.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReason.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReason.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReason.Setsnippet(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoAbuseReportReasonListResponse
--------------------------------------------------------------------}
Procedure TVideoAbuseReportReasonListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReasonListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReasonListResponse.Setitems(AIndex : Integer; const AValue : TVideoAbuseReportReasonListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReasonListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReasonListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoAbuseReportReasonListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoAbuseReportReasonSnippet
--------------------------------------------------------------------}
Procedure TVideoAbuseReportReasonSnippet.Set_label(AIndex : Integer; const AValue : String);
begin
If (F_label=AValue) then exit;
F_label:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportReasonSnippet.SetsecondaryReasons(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray);
begin
If (FsecondaryReasons=AValue) then exit;
FsecondaryReasons:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TVideoAbuseReportReasonSnippet.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_label' : Result:='label';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoAbuseReportReasonSnippet.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'secondaryreasons' : SetLength(FsecondaryReasons,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoAbuseReportSecondaryReason
--------------------------------------------------------------------}
Procedure TVideoAbuseReportSecondaryReason.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAbuseReportSecondaryReason.Set_label(AIndex : Integer; const AValue : String);
begin
If (F_label=AValue) then exit;
F_label:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TVideoAbuseReportSecondaryReason.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_label' : Result:='label';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TVideoAgeGating
--------------------------------------------------------------------}
Procedure TVideoAgeGating.SetalcoholContent(AIndex : Integer; const AValue : boolean);
begin
If (FalcoholContent=AValue) then exit;
FalcoholContent:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAgeGating.Setrestricted(AIndex : Integer; const AValue : boolean);
begin
If (Frestricted=AValue) then exit;
Frestricted:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoAgeGating.SetvideoGameRating(AIndex : Integer; const AValue : String);
begin
If (FvideoGameRating=AValue) then exit;
FvideoGameRating:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoCategory
--------------------------------------------------------------------}
Procedure TVideoCategory.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategory.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategory.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategory.Setsnippet(AIndex : Integer; const AValue : TVideoCategorySnippet);
begin
If (Fsnippet=AValue) then exit;
Fsnippet:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoCategoryListResponse
--------------------------------------------------------------------}
Procedure TVideoCategoryListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.Setitems(AIndex : Integer; const AValue : TVideoCategoryListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategoryListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoCategoryListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoCategorySnippet
--------------------------------------------------------------------}
Procedure TVideoCategorySnippet.Setassignable(AIndex : Integer; const AValue : boolean);
begin
If (Fassignable=AValue) then exit;
Fassignable:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategorySnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoCategorySnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoContentDetails
--------------------------------------------------------------------}
Procedure TVideoContentDetails.Setcaption(AIndex : Integer; const AValue : String);
begin
If (Fcaption=AValue) then exit;
Fcaption:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.SetcontentRating(AIndex : Integer; const AValue : TContentRating);
begin
If (FcontentRating=AValue) then exit;
FcontentRating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.SetcountryRestriction(AIndex : Integer; const AValue : TAccessPolicy);
begin
If (FcountryRestriction=AValue) then exit;
FcountryRestriction:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.Setdefinition(AIndex : Integer; const AValue : String);
begin
If (Fdefinition=AValue) then exit;
Fdefinition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.Setdimension(AIndex : Integer; const AValue : String);
begin
If (Fdimension=AValue) then exit;
Fdimension:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.Setduration(AIndex : Integer; const AValue : String);
begin
If (Fduration=AValue) then exit;
Fduration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.SetlicensedContent(AIndex : Integer; const AValue : boolean);
begin
If (FlicensedContent=AValue) then exit;
FlicensedContent:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.Setprojection(AIndex : Integer; const AValue : String);
begin
If (Fprojection=AValue) then exit;
Fprojection:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetails.SetregionRestriction(AIndex : Integer; const AValue : TVideoContentDetailsRegionRestriction);
begin
If (FregionRestriction=AValue) then exit;
FregionRestriction:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoContentDetailsRegionRestriction
--------------------------------------------------------------------}
Procedure TVideoContentDetailsRegionRestriction.Setallowed(AIndex : Integer; const AValue : TStringArray);
begin
If (Fallowed=AValue) then exit;
Fallowed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoContentDetailsRegionRestriction.Setblocked(AIndex : Integer; const AValue : TStringArray);
begin
If (Fblocked=AValue) then exit;
Fblocked:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoContentDetailsRegionRestriction.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'allowed' : SetLength(Fallowed,ALength);
'blocked' : SetLength(Fblocked,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoFileDetails
--------------------------------------------------------------------}
Procedure TVideoFileDetails.SetaudioStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypeaudioStreamsArray);
begin
If (FaudioStreams=AValue) then exit;
FaudioStreams:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetbitrateBps(AIndex : Integer; const AValue : String);
begin
If (FbitrateBps=AValue) then exit;
FbitrateBps:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.Setcontainer(AIndex : Integer; const AValue : String);
begin
If (Fcontainer=AValue) then exit;
Fcontainer:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetcreationTime(AIndex : Integer; const AValue : String);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetdurationMs(AIndex : Integer; const AValue : String);
begin
If (FdurationMs=AValue) then exit;
FdurationMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetfileName(AIndex : Integer; const AValue : String);
begin
If (FfileName=AValue) then exit;
FfileName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetfileSize(AIndex : Integer; const AValue : String);
begin
If (FfileSize=AValue) then exit;
FfileSize:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetfileType(AIndex : Integer; const AValue : String);
begin
If (FfileType=AValue) then exit;
FfileType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetrecordingLocation(AIndex : Integer; const AValue : TGeoPoint);
begin
If (FrecordingLocation=AValue) then exit;
FrecordingLocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetails.SetvideoStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypevideoStreamsArray);
begin
If (FvideoStreams=AValue) then exit;
FvideoStreams:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoFileDetails.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'audiostreams' : SetLength(FaudioStreams,ALength);
'videostreams' : SetLength(FvideoStreams,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoFileDetailsAudioStream
--------------------------------------------------------------------}
Procedure TVideoFileDetailsAudioStream.SetbitrateBps(AIndex : Integer; const AValue : String);
begin
If (FbitrateBps=AValue) then exit;
FbitrateBps:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsAudioStream.SetchannelCount(AIndex : Integer; const AValue : integer);
begin
If (FchannelCount=AValue) then exit;
FchannelCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsAudioStream.Setcodec(AIndex : Integer; const AValue : String);
begin
If (Fcodec=AValue) then exit;
Fcodec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsAudioStream.Setvendor(AIndex : Integer; const AValue : String);
begin
If (Fvendor=AValue) then exit;
Fvendor:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoFileDetailsVideoStream
--------------------------------------------------------------------}
Procedure TVideoFileDetailsVideoStream.SetaspectRatio(AIndex : Integer; const AValue : double);
begin
If (FaspectRatio=AValue) then exit;
FaspectRatio:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsVideoStream.SetbitrateBps(AIndex : Integer; const AValue : String);
begin
If (FbitrateBps=AValue) then exit;
FbitrateBps:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsVideoStream.Setcodec(AIndex : Integer; const AValue : String);
begin
If (Fcodec=AValue) then exit;
Fcodec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsVideoStream.SetframeRateFps(AIndex : Integer; const AValue : double);
begin
If (FframeRateFps=AValue) then exit;
FframeRateFps:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsVideoStream.SetheightPixels(AIndex : Integer; const AValue : integer);
begin
If (FheightPixels=AValue) then exit;
FheightPixels:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsVideoStream.Setrotation(AIndex : Integer; const AValue : String);
begin
If (Frotation=AValue) then exit;
Frotation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsVideoStream.Setvendor(AIndex : Integer; const AValue : String);
begin
If (Fvendor=AValue) then exit;
Fvendor:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoFileDetailsVideoStream.SetwidthPixels(AIndex : Integer; const AValue : integer);
begin
If (FwidthPixels=AValue) then exit;
FwidthPixels:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoGetRatingResponse
--------------------------------------------------------------------}
Procedure TVideoGetRatingResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoGetRatingResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoGetRatingResponse.Setitems(AIndex : Integer; const AValue : TVideoGetRatingResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoGetRatingResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoGetRatingResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoGetRatingResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoListResponse
--------------------------------------------------------------------}
Procedure TVideoListResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.SeteventId(AIndex : Integer; const AValue : String);
begin
If (FeventId=AValue) then exit;
FeventId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.Setitems(AIndex : Integer; const AValue : TVideoListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
FpageInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
begin
If (FprevPageToken=AValue) then exit;
FprevPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
FtokenPagination:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
begin
If (FvisitorId=AValue) then exit;
FvisitorId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoListResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoLiveStreamingDetails
--------------------------------------------------------------------}
Procedure TVideoLiveStreamingDetails.SetactiveLiveChatId(AIndex : Integer; const AValue : String);
begin
If (FactiveLiveChatId=AValue) then exit;
FactiveLiveChatId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoLiveStreamingDetails.SetactualEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualEndTime=AValue) then exit;
FactualEndTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoLiveStreamingDetails.SetactualStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualStartTime=AValue) then exit;
FactualStartTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoLiveStreamingDetails.SetconcurrentViewers(AIndex : Integer; const AValue : String);
begin
If (FconcurrentViewers=AValue) then exit;
FconcurrentViewers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoLiveStreamingDetails.SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledEndTime=AValue) then exit;
FscheduledEndTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoLiveStreamingDetails.SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledStartTime=AValue) then exit;
FscheduledStartTime:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoLocalization
--------------------------------------------------------------------}
Procedure TVideoLocalization.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoLocalization.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoMonetizationDetails
--------------------------------------------------------------------}
Procedure TVideoMonetizationDetails.Setaccess(AIndex : Integer; const AValue : TAccessPolicy);
begin
If (Faccess=AValue) then exit;
Faccess:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoPlayer
--------------------------------------------------------------------}
Procedure TVideoPlayer.SetembedHtml(AIndex : Integer; const AValue : String);
begin
If (FembedHtml=AValue) then exit;
FembedHtml:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoProcessingDetails
--------------------------------------------------------------------}
Procedure TVideoProcessingDetails.SeteditorSuggestionsAvailability(AIndex : Integer; const AValue : String);
begin
If (FeditorSuggestionsAvailability=AValue) then exit;
FeditorSuggestionsAvailability:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetails.SetfileDetailsAvailability(AIndex : Integer; const AValue : String);
begin
If (FfileDetailsAvailability=AValue) then exit;
FfileDetailsAvailability:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetails.SetprocessingFailureReason(AIndex : Integer; const AValue : String);
begin
If (FprocessingFailureReason=AValue) then exit;
FprocessingFailureReason:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetails.SetprocessingIssuesAvailability(AIndex : Integer; const AValue : String);
begin
If (FprocessingIssuesAvailability=AValue) then exit;
FprocessingIssuesAvailability:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetails.SetprocessingProgress(AIndex : Integer; const AValue : TVideoProcessingDetailsProcessingProgress);
begin
If (FprocessingProgress=AValue) then exit;
FprocessingProgress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetails.SetprocessingStatus(AIndex : Integer; const AValue : String);
begin
If (FprocessingStatus=AValue) then exit;
FprocessingStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetails.SettagSuggestionsAvailability(AIndex : Integer; const AValue : String);
begin
If (FtagSuggestionsAvailability=AValue) then exit;
FtagSuggestionsAvailability:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetails.SetthumbnailsAvailability(AIndex : Integer; const AValue : String);
begin
If (FthumbnailsAvailability=AValue) then exit;
FthumbnailsAvailability:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoProcessingDetailsProcessingProgress
--------------------------------------------------------------------}
Procedure TVideoProcessingDetailsProcessingProgress.SetpartsProcessed(AIndex : Integer; const AValue : String);
begin
If (FpartsProcessed=AValue) then exit;
FpartsProcessed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetailsProcessingProgress.SetpartsTotal(AIndex : Integer; const AValue : String);
begin
If (FpartsTotal=AValue) then exit;
FpartsTotal:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoProcessingDetailsProcessingProgress.SettimeLeftMs(AIndex : Integer; const AValue : String);
begin
If (FtimeLeftMs=AValue) then exit;
FtimeLeftMs:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoProjectDetails
--------------------------------------------------------------------}
Procedure TVideoProjectDetails.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
Ftags:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoProjectDetails.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'tags' : SetLength(Ftags,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoRating
--------------------------------------------------------------------}
Procedure TVideoRating.Setrating(AIndex : Integer; const AValue : String);
begin
If (Frating=AValue) then exit;
Frating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoRating.SetvideoId(AIndex : Integer; const AValue : String);
begin
If (FvideoId=AValue) then exit;
FvideoId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoRecordingDetails
--------------------------------------------------------------------}
Procedure TVideoRecordingDetails.Setlocation(AIndex : Integer; const AValue : TGeoPoint);
begin
If (Flocation=AValue) then exit;
Flocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoRecordingDetails.SetlocationDescription(AIndex : Integer; const AValue : String);
begin
If (FlocationDescription=AValue) then exit;
FlocationDescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoRecordingDetails.SetrecordingDate(AIndex : Integer; const AValue : TDatetime);
begin
If (FrecordingDate=AValue) then exit;
FrecordingDate:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoSnippet
--------------------------------------------------------------------}
Procedure TVideoSnippet.SetcategoryId(AIndex : Integer; const AValue : String);
begin
If (FcategoryId=AValue) then exit;
FcategoryId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.SetchannelId(AIndex : Integer; const AValue : String);
begin
If (FchannelId=AValue) then exit;
FchannelId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.SetchannelTitle(AIndex : Integer; const AValue : String);
begin
If (FchannelTitle=AValue) then exit;
FchannelTitle:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.SetdefaultAudioLanguage(AIndex : Integer; const AValue : String);
begin
If (FdefaultAudioLanguage=AValue) then exit;
FdefaultAudioLanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.SetdefaultLanguage(AIndex : Integer; const AValue : String);
begin
If (FdefaultLanguage=AValue) then exit;
FdefaultLanguage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.SetliveBroadcastContent(AIndex : Integer; const AValue : String);
begin
If (FliveBroadcastContent=AValue) then exit;
FliveBroadcastContent:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.Setlocalized(AIndex : Integer; const AValue : TVideoLocalization);
begin
If (Flocalized=AValue) then exit;
Flocalized:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
FpublishedAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
Ftags:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSnippet.Settitle(AIndex : Integer; const AValue : String);
begin
If (Ftitle=AValue) then exit;
Ftitle:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoSnippet.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'tags' : SetLength(Ftags,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoStatistics
--------------------------------------------------------------------}
Procedure TVideoStatistics.SetcommentCount(AIndex : Integer; const AValue : String);
begin
If (FcommentCount=AValue) then exit;
FcommentCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatistics.SetdislikeCount(AIndex : Integer; const AValue : String);
begin
If (FdislikeCount=AValue) then exit;
FdislikeCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatistics.SetfavoriteCount(AIndex : Integer; const AValue : String);
begin
If (FfavoriteCount=AValue) then exit;
FfavoriteCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatistics.SetlikeCount(AIndex : Integer; const AValue : String);
begin
If (FlikeCount=AValue) then exit;
FlikeCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatistics.SetviewCount(AIndex : Integer; const AValue : String);
begin
If (FviewCount=AValue) then exit;
FviewCount:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoStatus
--------------------------------------------------------------------}
Procedure TVideoStatus.Setembeddable(AIndex : Integer; const AValue : boolean);
begin
If (Fembeddable=AValue) then exit;
Fembeddable:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatus.SetfailureReason(AIndex : Integer; const AValue : String);
begin
If (FfailureReason=AValue) then exit;
FfailureReason:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatus.Setlicense(AIndex : Integer; const AValue : String);
begin
If (Flicense=AValue) then exit;
Flicense:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatus.SetprivacyStatus(AIndex : Integer; const AValue : String);
begin
If (FprivacyStatus=AValue) then exit;
FprivacyStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatus.SetpublicStatsViewable(AIndex : Integer; const AValue : boolean);
begin
If (FpublicStatsViewable=AValue) then exit;
FpublicStatsViewable:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatus.SetpublishAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishAt=AValue) then exit;
FpublishAt:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatus.SetrejectionReason(AIndex : Integer; const AValue : String);
begin
If (FrejectionReason=AValue) then exit;
FrejectionReason:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoStatus.SetuploadStatus(AIndex : Integer; const AValue : String);
begin
If (FuploadStatus=AValue) then exit;
FuploadStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVideoSuggestions
--------------------------------------------------------------------}
Procedure TVideoSuggestions.SeteditorSuggestions(AIndex : Integer; const AValue : TStringArray);
begin
If (FeditorSuggestions=AValue) then exit;
FeditorSuggestions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSuggestions.SetprocessingErrors(AIndex : Integer; const AValue : TStringArray);
begin
If (FprocessingErrors=AValue) then exit;
FprocessingErrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSuggestions.SetprocessingHints(AIndex : Integer; const AValue : TStringArray);
begin
If (FprocessingHints=AValue) then exit;
FprocessingHints:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSuggestions.SetprocessingWarnings(AIndex : Integer; const AValue : TStringArray);
begin
If (FprocessingWarnings=AValue) then exit;
FprocessingWarnings:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSuggestions.SettagSuggestions(AIndex : Integer; const AValue : TVideoSuggestionsTypetagSuggestionsArray);
begin
If (FtagSuggestions=AValue) then exit;
FtagSuggestions:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoSuggestions.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'editorsuggestions' : SetLength(FeditorSuggestions,ALength);
'processingerrors' : SetLength(FprocessingErrors,ALength);
'processinghints' : SetLength(FprocessingHints,ALength);
'processingwarnings' : SetLength(FprocessingWarnings,ALength);
'tagsuggestions' : SetLength(FtagSuggestions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoSuggestionsTagSuggestion
--------------------------------------------------------------------}
Procedure TVideoSuggestionsTagSuggestion.SetcategoryRestricts(AIndex : Integer; const AValue : TStringArray);
begin
If (FcategoryRestricts=AValue) then exit;
FcategoryRestricts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoSuggestionsTagSuggestion.Settag(AIndex : Integer; const AValue : String);
begin
If (Ftag=AValue) then exit;
Ftag:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoSuggestionsTagSuggestion.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'categoryrestricts' : SetLength(FcategoryRestricts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVideoTopicDetails
--------------------------------------------------------------------}
Procedure TVideoTopicDetails.SetrelevantTopicIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FrelevantTopicIds=AValue) then exit;
FrelevantTopicIds:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVideoTopicDetails.SettopicIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FtopicIds=AValue) then exit;
FtopicIds:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVideoTopicDetails.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'relevanttopicids' : SetLength(FrelevantTopicIds,ALength);
'topicids' : SetLength(FtopicIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TWatchSettings
--------------------------------------------------------------------}
Procedure TWatchSettings.SetbackgroundColor(AIndex : Integer; const AValue : String);
begin
If (FbackgroundColor=AValue) then exit;
FbackgroundColor:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TWatchSettings.SetfeaturedPlaylistId(AIndex : Integer; const AValue : String);
begin
If (FfeaturedPlaylistId=AValue) then exit;
FfeaturedPlaylistId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TWatchSettings.SettextColor(AIndex : Integer; const AValue : String);
begin
If (FtextColor=AValue) then exit;
FtextColor:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TActivitiesResource
--------------------------------------------------------------------}
Class Function TActivitiesResource.ResourceName : String;
begin
Result:='activities';
end;
Class Function TActivitiesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TActivitiesResource.Insert(aActivity : TActivity; AQuery : string = '') : TActivity;
Const
_HTTPMethod = 'POST';
_Path = 'activities';
_Methodid = 'youtube.activities.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aActivity,TActivity) as TActivity;
end;
Function TActivitiesResource.Insert(aActivity : TActivity; AQuery : TActivitiesinsertOptions) : TActivity;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aActivity,_Q);
end;
Function TActivitiesResource.List(AQuery : string = '') : TActivityListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'activities';
_Methodid = 'youtube.activities.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TActivityListResponse) as TActivityListResponse;
end;
Function TActivitiesResource.List(AQuery : TActivitieslistOptions) : TActivityListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'home',AQuery.home);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'publishedAfter',AQuery.publishedAfter);
AddToQuery(_Q,'publishedBefore',AQuery.publishedBefore);
AddToQuery(_Q,'regionCode',AQuery.regionCode);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TCaptionsResource
--------------------------------------------------------------------}
Class Function TCaptionsResource.ResourceName : String;
begin
Result:='captions';
end;
Class Function TCaptionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TCaptionsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'captions';
_Methodid = 'youtube.captions.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TCaptionsResource.Delete(AQuery : TCaptionsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
Delete(_Q);
end;
Procedure TCaptionsResource.Download(id: string; AQuery : string = '');
Const
_HTTPMethod = 'GET';
_Path = 'captions/{id}';
_Methodid = 'youtube.captions.download';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['id',id]);
ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
end;
Procedure TCaptionsResource.Download(id: string; AQuery : TCaptionsdownloadOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'tfmt',AQuery.tfmt);
AddToQuery(_Q,'tlang',AQuery.tlang);
Download(id,_Q);
end;
Function TCaptionsResource.Insert(aCaption : TCaption; AQuery : string = '') : TCaption;
Const
_HTTPMethod = 'POST';
_Path = 'captions';
_Methodid = 'youtube.captions.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aCaption,TCaption) as TCaption;
end;
Function TCaptionsResource.Insert(aCaption : TCaption; AQuery : TCaptionsinsertOptions) : TCaption;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'sync',AQuery.sync);
Result:=Insert(aCaption,_Q);
end;
Function TCaptionsResource.List(AQuery : string = '') : TCaptionListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'captions';
_Methodid = 'youtube.captions.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TCaptionListResponse) as TCaptionListResponse;
end;
Function TCaptionsResource.List(AQuery : TCaptionslistOptions) : TCaptionListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'videoId',AQuery.videoId);
Result:=List(_Q);
end;
Function TCaptionsResource.Update(aCaption : TCaption; AQuery : string = '') : TCaption;
Const
_HTTPMethod = 'PUT';
_Path = 'captions';
_Methodid = 'youtube.captions.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aCaption,TCaption) as TCaption;
end;
Function TCaptionsResource.Update(aCaption : TCaption; AQuery : TCaptionsupdateOptions) : TCaption;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'sync',AQuery.sync);
Result:=Update(aCaption,_Q);
end;
{ --------------------------------------------------------------------
TChannelBannersResource
--------------------------------------------------------------------}
Class Function TChannelBannersResource.ResourceName : String;
begin
Result:='channelBanners';
end;
Class Function TChannelBannersResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TChannelBannersResource.Insert(aChannelBannerResource : TChannelBannerResource; AQuery : string = '') : TChannelBannerResource;
Const
_HTTPMethod = 'POST';
_Path = 'channelBanners/insert';
_Methodid = 'youtube.channelBanners.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aChannelBannerResource,TChannelBannerResource) as TChannelBannerResource;
end;
Function TChannelBannersResource.Insert(aChannelBannerResource : TChannelBannerResource; AQuery : TChannelBannersinsertOptions) : TChannelBannerResource;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
Result:=Insert(aChannelBannerResource,_Q);
end;
{ --------------------------------------------------------------------
TChannelSectionsResource
--------------------------------------------------------------------}
Class Function TChannelSectionsResource.ResourceName : String;
begin
Result:='channelSections';
end;
Class Function TChannelSectionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TChannelSectionsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'channelSections';
_Methodid = 'youtube.channelSections.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TChannelSectionsResource.Delete(AQuery : TChannelSectionsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
Delete(_Q);
end;
Function TChannelSectionsResource.Insert(aChannelSection : TChannelSection; AQuery : string = '') : TChannelSection;
Const
_HTTPMethod = 'POST';
_Path = 'channelSections';
_Methodid = 'youtube.channelSections.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aChannelSection,TChannelSection) as TChannelSection;
end;
Function TChannelSectionsResource.Insert(aChannelSection : TChannelSection; AQuery : TChannelSectionsinsertOptions) : TChannelSection;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aChannelSection,_Q);
end;
Function TChannelSectionsResource.List(AQuery : string = '') : TChannelSectionListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'channelSections';
_Methodid = 'youtube.channelSections.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TChannelSectionListResponse) as TChannelSectionListResponse;
end;
Function TChannelSectionsResource.List(AQuery : TChannelSectionslistOptions) : TChannelSectionListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
Function TChannelSectionsResource.Update(aChannelSection : TChannelSection; AQuery : string = '') : TChannelSection;
Const
_HTTPMethod = 'PUT';
_Path = 'channelSections';
_Methodid = 'youtube.channelSections.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aChannelSection,TChannelSection) as TChannelSection;
end;
Function TChannelSectionsResource.Update(aChannelSection : TChannelSection; AQuery : TChannelSectionsupdateOptions) : TChannelSection;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aChannelSection,_Q);
end;
{ --------------------------------------------------------------------
TChannelsResource
--------------------------------------------------------------------}
Class Function TChannelsResource.ResourceName : String;
begin
Result:='channels';
end;
Class Function TChannelsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TChannelsResource.List(AQuery : string = '') : TChannelListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'channels';
_Methodid = 'youtube.channels.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TChannelListResponse) as TChannelListResponse;
end;
Function TChannelsResource.List(AQuery : TChannelslistOptions) : TChannelListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'categoryId',AQuery.categoryId);
AddToQuery(_Q,'forUsername',AQuery.forUsername);
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'managedByMe',AQuery.managedByMe);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'mySubscribers',AQuery.mySubscribers);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
Function TChannelsResource.Update(aChannel : TChannel; AQuery : string = '') : TChannel;
Const
_HTTPMethod = 'PUT';
_Path = 'channels';
_Methodid = 'youtube.channels.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aChannel,TChannel) as TChannel;
end;
Function TChannelsResource.Update(aChannel : TChannel; AQuery : TChannelsupdateOptions) : TChannel;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aChannel,_Q);
end;
{ --------------------------------------------------------------------
TCommentThreadsResource
--------------------------------------------------------------------}
Class Function TCommentThreadsResource.ResourceName : String;
begin
Result:='commentThreads';
end;
Class Function TCommentThreadsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TCommentThreadsResource.Insert(aCommentThread : TCommentThread; AQuery : string = '') : TCommentThread;
Const
_HTTPMethod = 'POST';
_Path = 'commentThreads';
_Methodid = 'youtube.commentThreads.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aCommentThread,TCommentThread) as TCommentThread;
end;
Function TCommentThreadsResource.Insert(aCommentThread : TCommentThread; AQuery : TCommentThreadsinsertOptions) : TCommentThread;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aCommentThread,_Q);
end;
Function TCommentThreadsResource.List(AQuery : string = '') : TCommentThreadListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'commentThreads';
_Methodid = 'youtube.commentThreads.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TCommentThreadListResponse) as TCommentThreadListResponse;
end;
Function TCommentThreadsResource.List(AQuery : TCommentThreadslistOptions) : TCommentThreadListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'allThreadsRelatedToChannelId',AQuery.allThreadsRelatedToChannelId);
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'moderationStatus',AQuery.moderationStatus);
AddToQuery(_Q,'order',AQuery.order);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'searchTerms',AQuery.searchTerms);
AddToQuery(_Q,'textFormat',AQuery.textFormat);
AddToQuery(_Q,'videoId',AQuery.videoId);
Result:=List(_Q);
end;
Function TCommentThreadsResource.Update(aCommentThread : TCommentThread; AQuery : string = '') : TCommentThread;
Const
_HTTPMethod = 'PUT';
_Path = 'commentThreads';
_Methodid = 'youtube.commentThreads.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aCommentThread,TCommentThread) as TCommentThread;
end;
Function TCommentThreadsResource.Update(aCommentThread : TCommentThread; AQuery : TCommentThreadsupdateOptions) : TCommentThread;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aCommentThread,_Q);
end;
{ --------------------------------------------------------------------
TCommentsResource
--------------------------------------------------------------------}
Class Function TCommentsResource.ResourceName : String;
begin
Result:='comments';
end;
Class Function TCommentsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TCommentsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'comments';
_Methodid = 'youtube.comments.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TCommentsResource.Delete(AQuery : TCommentsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
Delete(_Q);
end;
Function TCommentsResource.Insert(aComment : TComment; AQuery : string = '') : TComment;
Const
_HTTPMethod = 'POST';
_Path = 'comments';
_Methodid = 'youtube.comments.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aComment,TComment) as TComment;
end;
Function TCommentsResource.Insert(aComment : TComment; AQuery : TCommentsinsertOptions) : TComment;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aComment,_Q);
end;
Function TCommentsResource.List(AQuery : string = '') : TCommentListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'comments';
_Methodid = 'youtube.comments.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TCommentListResponse) as TCommentListResponse;
end;
Function TCommentsResource.List(AQuery : TCommentslistOptions) : TCommentListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'parentId',AQuery.parentId);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'textFormat',AQuery.textFormat);
Result:=List(_Q);
end;
Procedure TCommentsResource.MarkAsSpam(AQuery : string = '');
Const
_HTTPMethod = 'POST';
_Path = 'comments/markAsSpam';
_Methodid = 'youtube.comments.markAsSpam';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TCommentsResource.MarkAsSpam(AQuery : TCommentsmarkAsSpamOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
MarkAsSpam(_Q);
end;
Procedure TCommentsResource.SetModerationStatus(AQuery : string = '');
Const
_HTTPMethod = 'POST';
_Path = 'comments/setModerationStatus';
_Methodid = 'youtube.comments.setModerationStatus';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TCommentsResource.SetModerationStatus(AQuery : TCommentssetModerationStatusOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'banAuthor',AQuery.banAuthor);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'moderationStatus',AQuery.moderationStatus);
SetModerationStatus(_Q);
end;
Function TCommentsResource.Update(aComment : TComment; AQuery : string = '') : TComment;
Const
_HTTPMethod = 'PUT';
_Path = 'comments';
_Methodid = 'youtube.comments.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aComment,TComment) as TComment;
end;
Function TCommentsResource.Update(aComment : TComment; AQuery : TCommentsupdateOptions) : TComment;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aComment,_Q);
end;
{ --------------------------------------------------------------------
TFanFundingEventsResource
--------------------------------------------------------------------}
Class Function TFanFundingEventsResource.ResourceName : String;
begin
Result:='fanFundingEvents';
end;
Class Function TFanFundingEventsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TFanFundingEventsResource.List(AQuery : string = '') : TFanFundingEventListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'fanFundingEvents';
_Methodid = 'youtube.fanFundingEvents.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TFanFundingEventListResponse) as TFanFundingEventListResponse;
end;
Function TFanFundingEventsResource.List(AQuery : TFanFundingEventslistOptions) : TFanFundingEventListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TGuideCategoriesResource
--------------------------------------------------------------------}
Class Function TGuideCategoriesResource.ResourceName : String;
begin
Result:='guideCategories';
end;
Class Function TGuideCategoriesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TGuideCategoriesResource.List(AQuery : string = '') : TGuideCategoryListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'guideCategories';
_Methodid = 'youtube.guideCategories.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGuideCategoryListResponse) as TGuideCategoryListResponse;
end;
Function TGuideCategoriesResource.List(AQuery : TGuideCategorieslistOptions) : TGuideCategoryListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'regionCode',AQuery.regionCode);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TI18nLanguagesResource
--------------------------------------------------------------------}
Class Function TI18nLanguagesResource.ResourceName : String;
begin
Result:='i18nLanguages';
end;
Class Function TI18nLanguagesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TI18nLanguagesResource.List(AQuery : string = '') : TI18nLanguageListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'i18nLanguages';
_Methodid = 'youtube.i18nLanguages.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TI18nLanguageListResponse) as TI18nLanguageListResponse;
end;
Function TI18nLanguagesResource.List(AQuery : TI18nLanguageslistOptions) : TI18nLanguageListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TI18nRegionsResource
--------------------------------------------------------------------}
Class Function TI18nRegionsResource.ResourceName : String;
begin
Result:='i18nRegions';
end;
Class Function TI18nRegionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TI18nRegionsResource.List(AQuery : string = '') : TI18nRegionListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'i18nRegions';
_Methodid = 'youtube.i18nRegions.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TI18nRegionListResponse) as TI18nRegionListResponse;
end;
Function TI18nRegionsResource.List(AQuery : TI18nRegionslistOptions) : TI18nRegionListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TLiveBroadcastsResource
--------------------------------------------------------------------}
Class Function TLiveBroadcastsResource.ResourceName : String;
begin
Result:='liveBroadcasts';
end;
Class Function TLiveBroadcastsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TLiveBroadcastsResource.Bind(AQuery : string = '') : TLiveBroadcast;
Const
_HTTPMethod = 'POST';
_Path = 'liveBroadcasts/bind';
_Methodid = 'youtube.liveBroadcasts.bind';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveBroadcast) as TLiveBroadcast;
end;
Function TLiveBroadcastsResource.Bind(AQuery : TLiveBroadcastsbindOptions) : TLiveBroadcast;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'streamId',AQuery.streamId);
Result:=Bind(_Q);
end;
Function TLiveBroadcastsResource.Control(AQuery : string = '') : TLiveBroadcast;
Const
_HTTPMethod = 'POST';
_Path = 'liveBroadcasts/control';
_Methodid = 'youtube.liveBroadcasts.control';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveBroadcast) as TLiveBroadcast;
end;
Function TLiveBroadcastsResource.Control(AQuery : TLiveBroadcastscontrolOptions) : TLiveBroadcast;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'displaySlate',AQuery.displaySlate);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'offsetTimeMs',AQuery.offsetTimeMs);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'walltime',AQuery.walltime);
Result:=Control(_Q);
end;
Procedure TLiveBroadcastsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'liveBroadcasts';
_Methodid = 'youtube.liveBroadcasts.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TLiveBroadcastsResource.Delete(AQuery : TLiveBroadcastsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
Delete(_Q);
end;
Function TLiveBroadcastsResource.Insert(aLiveBroadcast : TLiveBroadcast; AQuery : string = '') : TLiveBroadcast;
Const
_HTTPMethod = 'POST';
_Path = 'liveBroadcasts';
_Methodid = 'youtube.liveBroadcasts.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveBroadcast,TLiveBroadcast) as TLiveBroadcast;
end;
Function TLiveBroadcastsResource.Insert(aLiveBroadcast : TLiveBroadcast; AQuery : TLiveBroadcastsinsertOptions) : TLiveBroadcast;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aLiveBroadcast,_Q);
end;
Function TLiveBroadcastsResource.List(AQuery : string = '') : TLiveBroadcastListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'liveBroadcasts';
_Methodid = 'youtube.liveBroadcasts.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveBroadcastListResponse) as TLiveBroadcastListResponse;
end;
Function TLiveBroadcastsResource.List(AQuery : TLiveBroadcastslistOptions) : TLiveBroadcastListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'broadcastStatus',AQuery.broadcastStatus);
AddToQuery(_Q,'broadcastType',AQuery.broadcastType);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
Function TLiveBroadcastsResource.Transition(AQuery : string = '') : TLiveBroadcast;
Const
_HTTPMethod = 'POST';
_Path = 'liveBroadcasts/transition';
_Methodid = 'youtube.liveBroadcasts.transition';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveBroadcast) as TLiveBroadcast;
end;
Function TLiveBroadcastsResource.Transition(AQuery : TLiveBroadcaststransitionOptions) : TLiveBroadcast;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'broadcastStatus',AQuery.broadcastStatus);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
Result:=Transition(_Q);
end;
Function TLiveBroadcastsResource.Update(aLiveBroadcast : TLiveBroadcast; AQuery : string = '') : TLiveBroadcast;
Const
_HTTPMethod = 'PUT';
_Path = 'liveBroadcasts';
_Methodid = 'youtube.liveBroadcasts.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveBroadcast,TLiveBroadcast) as TLiveBroadcast;
end;
Function TLiveBroadcastsResource.Update(aLiveBroadcast : TLiveBroadcast; AQuery : TLiveBroadcastsupdateOptions) : TLiveBroadcast;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aLiveBroadcast,_Q);
end;
{ --------------------------------------------------------------------
TLiveChatBansResource
--------------------------------------------------------------------}
Class Function TLiveChatBansResource.ResourceName : String;
begin
Result:='liveChatBans';
end;
Class Function TLiveChatBansResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TLiveChatBansResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'liveChat/bans';
_Methodid = 'youtube.liveChatBans.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TLiveChatBansResource.Delete(AQuery : TLiveChatBansdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
Delete(_Q);
end;
Function TLiveChatBansResource.Insert(aLiveChatBan : TLiveChatBan; AQuery : string = '') : TLiveChatBan;
Const
_HTTPMethod = 'POST';
_Path = 'liveChat/bans';
_Methodid = 'youtube.liveChatBans.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveChatBan,TLiveChatBan) as TLiveChatBan;
end;
Function TLiveChatBansResource.Insert(aLiveChatBan : TLiveChatBan; AQuery : TLiveChatBansinsertOptions) : TLiveChatBan;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aLiveChatBan,_Q);
end;
{ --------------------------------------------------------------------
TLiveChatMessagesResource
--------------------------------------------------------------------}
Class Function TLiveChatMessagesResource.ResourceName : String;
begin
Result:='liveChatMessages';
end;
Class Function TLiveChatMessagesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TLiveChatMessagesResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'liveChat/messages';
_Methodid = 'youtube.liveChatMessages.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TLiveChatMessagesResource.Delete(AQuery : TLiveChatMessagesdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
Delete(_Q);
end;
Function TLiveChatMessagesResource.Insert(aLiveChatMessage : TLiveChatMessage; AQuery : string = '') : TLiveChatMessage;
Const
_HTTPMethod = 'POST';
_Path = 'liveChat/messages';
_Methodid = 'youtube.liveChatMessages.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveChatMessage,TLiveChatMessage) as TLiveChatMessage;
end;
Function TLiveChatMessagesResource.Insert(aLiveChatMessage : TLiveChatMessage; AQuery : TLiveChatMessagesinsertOptions) : TLiveChatMessage;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aLiveChatMessage,_Q);
end;
Function TLiveChatMessagesResource.List(AQuery : string = '') : TLiveChatMessageListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'liveChat/messages';
_Methodid = 'youtube.liveChatMessages.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveChatMessageListResponse) as TLiveChatMessageListResponse;
end;
Function TLiveChatMessagesResource.List(AQuery : TLiveChatMessageslistOptions) : TLiveChatMessageListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'liveChatId',AQuery.liveChatId);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'profileImageSize',AQuery.profileImageSize);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TLiveChatModeratorsResource
--------------------------------------------------------------------}
Class Function TLiveChatModeratorsResource.ResourceName : String;
begin
Result:='liveChatModerators';
end;
Class Function TLiveChatModeratorsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TLiveChatModeratorsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'liveChat/moderators';
_Methodid = 'youtube.liveChatModerators.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TLiveChatModeratorsResource.Delete(AQuery : TLiveChatModeratorsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
Delete(_Q);
end;
Function TLiveChatModeratorsResource.Insert(aLiveChatModerator : TLiveChatModerator; AQuery : string = '') : TLiveChatModerator;
Const
_HTTPMethod = 'POST';
_Path = 'liveChat/moderators';
_Methodid = 'youtube.liveChatModerators.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveChatModerator,TLiveChatModerator) as TLiveChatModerator;
end;
Function TLiveChatModeratorsResource.Insert(aLiveChatModerator : TLiveChatModerator; AQuery : TLiveChatModeratorsinsertOptions) : TLiveChatModerator;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aLiveChatModerator,_Q);
end;
Function TLiveChatModeratorsResource.List(AQuery : string = '') : TLiveChatModeratorListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'liveChat/moderators';
_Methodid = 'youtube.liveChatModerators.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveChatModeratorListResponse) as TLiveChatModeratorListResponse;
end;
Function TLiveChatModeratorsResource.List(AQuery : TLiveChatModeratorslistOptions) : TLiveChatModeratorListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'liveChatId',AQuery.liveChatId);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TLiveStreamsResource
--------------------------------------------------------------------}
Class Function TLiveStreamsResource.ResourceName : String;
begin
Result:='liveStreams';
end;
Class Function TLiveStreamsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TLiveStreamsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'liveStreams';
_Methodid = 'youtube.liveStreams.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TLiveStreamsResource.Delete(AQuery : TLiveStreamsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
Delete(_Q);
end;
Function TLiveStreamsResource.Insert(aLiveStream : TLiveStream; AQuery : string = '') : TLiveStream;
Const
_HTTPMethod = 'POST';
_Path = 'liveStreams';
_Methodid = 'youtube.liveStreams.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveStream,TLiveStream) as TLiveStream;
end;
Function TLiveStreamsResource.Insert(aLiveStream : TLiveStream; AQuery : TLiveStreamsinsertOptions) : TLiveStream;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aLiveStream,_Q);
end;
Function TLiveStreamsResource.List(AQuery : string = '') : TLiveStreamListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'liveStreams';
_Methodid = 'youtube.liveStreams.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveStreamListResponse) as TLiveStreamListResponse;
end;
Function TLiveStreamsResource.List(AQuery : TLiveStreamslistOptions) : TLiveStreamListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
Function TLiveStreamsResource.Update(aLiveStream : TLiveStream; AQuery : string = '') : TLiveStream;
Const
_HTTPMethod = 'PUT';
_Path = 'liveStreams';
_Methodid = 'youtube.liveStreams.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveStream,TLiveStream) as TLiveStream;
end;
Function TLiveStreamsResource.Update(aLiveStream : TLiveStream; AQuery : TLiveStreamsupdateOptions) : TLiveStream;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aLiveStream,_Q);
end;
{ --------------------------------------------------------------------
TPlaylistItemsResource
--------------------------------------------------------------------}
Class Function TPlaylistItemsResource.ResourceName : String;
begin
Result:='playlistItems';
end;
Class Function TPlaylistItemsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TPlaylistItemsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'playlistItems';
_Methodid = 'youtube.playlistItems.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TPlaylistItemsResource.Delete(AQuery : TPlaylistItemsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
Delete(_Q);
end;
Function TPlaylistItemsResource.Insert(aPlaylistItem : TPlaylistItem; AQuery : string = '') : TPlaylistItem;
Const
_HTTPMethod = 'POST';
_Path = 'playlistItems';
_Methodid = 'youtube.playlistItems.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aPlaylistItem,TPlaylistItem) as TPlaylistItem;
end;
Function TPlaylistItemsResource.Insert(aPlaylistItem : TPlaylistItem; AQuery : TPlaylistItemsinsertOptions) : TPlaylistItem;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aPlaylistItem,_Q);
end;
Function TPlaylistItemsResource.List(AQuery : string = '') : TPlaylistItemListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'playlistItems';
_Methodid = 'youtube.playlistItems.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPlaylistItemListResponse) as TPlaylistItemListResponse;
end;
Function TPlaylistItemsResource.List(AQuery : TPlaylistItemslistOptions) : TPlaylistItemListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'playlistId',AQuery.playlistId);
AddToQuery(_Q,'videoId',AQuery.videoId);
Result:=List(_Q);
end;
Function TPlaylistItemsResource.Update(aPlaylistItem : TPlaylistItem; AQuery : string = '') : TPlaylistItem;
Const
_HTTPMethod = 'PUT';
_Path = 'playlistItems';
_Methodid = 'youtube.playlistItems.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aPlaylistItem,TPlaylistItem) as TPlaylistItem;
end;
Function TPlaylistItemsResource.Update(aPlaylistItem : TPlaylistItem; AQuery : TPlaylistItemsupdateOptions) : TPlaylistItem;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aPlaylistItem,_Q);
end;
{ --------------------------------------------------------------------
TPlaylistsResource
--------------------------------------------------------------------}
Class Function TPlaylistsResource.ResourceName : String;
begin
Result:='playlists';
end;
Class Function TPlaylistsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TPlaylistsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'playlists';
_Methodid = 'youtube.playlists.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TPlaylistsResource.Delete(AQuery : TPlaylistsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
Delete(_Q);
end;
Function TPlaylistsResource.Insert(aPlaylist : TPlaylist; AQuery : string = '') : TPlaylist;
Const
_HTTPMethod = 'POST';
_Path = 'playlists';
_Methodid = 'youtube.playlists.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aPlaylist,TPlaylist) as TPlaylist;
end;
Function TPlaylistsResource.Insert(aPlaylist : TPlaylist; AQuery : TPlaylistsinsertOptions) : TPlaylist;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aPlaylist,_Q);
end;
Function TPlaylistsResource.List(AQuery : string = '') : TPlaylistListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'playlists';
_Methodid = 'youtube.playlists.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPlaylistListResponse) as TPlaylistListResponse;
end;
Function TPlaylistsResource.List(AQuery : TPlaylistslistOptions) : TPlaylistListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
Function TPlaylistsResource.Update(aPlaylist : TPlaylist; AQuery : string = '') : TPlaylist;
Const
_HTTPMethod = 'PUT';
_Path = 'playlists';
_Methodid = 'youtube.playlists.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aPlaylist,TPlaylist) as TPlaylist;
end;
Function TPlaylistsResource.Update(aPlaylist : TPlaylist; AQuery : TPlaylistsupdateOptions) : TPlaylist;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aPlaylist,_Q);
end;
{ --------------------------------------------------------------------
TSearchResource
--------------------------------------------------------------------}
Class Function TSearchResource.ResourceName : String;
begin
Result:='search';
end;
Class Function TSearchResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TSearchResource.List(AQuery : string = '') : TSearchListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'search';
_Methodid = 'youtube.search.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSearchListResponse) as TSearchListResponse;
end;
Function TSearchResource.List(AQuery : TSearchlistOptions) : TSearchListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'channelType',AQuery.channelType);
AddToQuery(_Q,'eventType',AQuery.eventType);
AddToQuery(_Q,'forContentOwner',AQuery.forContentOwner);
AddToQuery(_Q,'forDeveloper',AQuery.forDeveloper);
AddToQuery(_Q,'forMine',AQuery.forMine);
AddToQuery(_Q,'location',AQuery.location);
AddToQuery(_Q,'locationRadius',AQuery.locationRadius);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'order',AQuery.order);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'publishedAfter',AQuery.publishedAfter);
AddToQuery(_Q,'publishedBefore',AQuery.publishedBefore);
AddToQuery(_Q,'q',AQuery.q);
AddToQuery(_Q,'regionCode',AQuery.regionCode);
AddToQuery(_Q,'relatedToVideoId',AQuery.relatedToVideoId);
AddToQuery(_Q,'relevanceLanguage',AQuery.relevanceLanguage);
AddToQuery(_Q,'safeSearch',AQuery.safeSearch);
AddToQuery(_Q,'topicId',AQuery.topicId);
AddToQuery(_Q,'type',AQuery._type);
AddToQuery(_Q,'videoCaption',AQuery.videoCaption);
AddToQuery(_Q,'videoCategoryId',AQuery.videoCategoryId);
AddToQuery(_Q,'videoDefinition',AQuery.videoDefinition);
AddToQuery(_Q,'videoDimension',AQuery.videoDimension);
AddToQuery(_Q,'videoDuration',AQuery.videoDuration);
AddToQuery(_Q,'videoEmbeddable',AQuery.videoEmbeddable);
AddToQuery(_Q,'videoLicense',AQuery.videoLicense);
AddToQuery(_Q,'videoSyndicated',AQuery.videoSyndicated);
AddToQuery(_Q,'videoType',AQuery.videoType);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TSponsorsResource
--------------------------------------------------------------------}
Class Function TSponsorsResource.ResourceName : String;
begin
Result:='sponsors';
end;
Class Function TSponsorsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TSponsorsResource.List(AQuery : string = '') : TSponsorListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'sponsors';
_Methodid = 'youtube.sponsors.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSponsorListResponse) as TSponsorListResponse;
end;
Function TSponsorsResource.List(AQuery : TSponsorslistOptions) : TSponsorListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TSubscriptionsResource
--------------------------------------------------------------------}
Class Function TSubscriptionsResource.ResourceName : String;
begin
Result:='subscriptions';
end;
Class Function TSubscriptionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TSubscriptionsResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'subscriptions';
_Methodid = 'youtube.subscriptions.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TSubscriptionsResource.Delete(AQuery : TSubscriptionsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
Delete(_Q);
end;
Function TSubscriptionsResource.Insert(aSubscription : TSubscription; AQuery : string = '') : TSubscription;
Const
_HTTPMethod = 'POST';
_Path = 'subscriptions';
_Methodid = 'youtube.subscriptions.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aSubscription,TSubscription) as TSubscription;
end;
Function TSubscriptionsResource.Insert(aSubscription : TSubscription; AQuery : TSubscriptionsinsertOptions) : TSubscription;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
Result:=Insert(aSubscription,_Q);
end;
Function TSubscriptionsResource.List(AQuery : string = '') : TSubscriptionListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'subscriptions';
_Methodid = 'youtube.subscriptions.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSubscriptionListResponse) as TSubscriptionListResponse;
end;
Function TSubscriptionsResource.List(AQuery : TSubscriptionslistOptions) : TSubscriptionListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'forChannelId',AQuery.forChannelId);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'mySubscribers',AQuery.mySubscribers);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'order',AQuery.order);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TThumbnailsResource
--------------------------------------------------------------------}
Class Function TThumbnailsResource.ResourceName : String;
begin
Result:='thumbnails';
end;
Class Function TThumbnailsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TThumbnailsResource._set(AQuery : string = '') : TThumbnailSetResponse;
Const
_HTTPMethod = 'POST';
_Path = 'thumbnails/set';
_Methodid = 'youtube.thumbnails.set';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TThumbnailSetResponse) as TThumbnailSetResponse;
end;
Function TThumbnailsResource._set(AQuery : TThumbnailssetOptions) : TThumbnailSetResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'videoId',AQuery.videoId);
Result:=_set(_Q);
end;
{ --------------------------------------------------------------------
TVideoAbuseReportReasonsResource
--------------------------------------------------------------------}
Class Function TVideoAbuseReportReasonsResource.ResourceName : String;
begin
Result:='videoAbuseReportReasons';
end;
Class Function TVideoAbuseReportReasonsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TVideoAbuseReportReasonsResource.List(AQuery : string = '') : TVideoAbuseReportReasonListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'videoAbuseReportReasons';
_Methodid = 'youtube.videoAbuseReportReasons.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVideoAbuseReportReasonListResponse) as TVideoAbuseReportReasonListResponse;
end;
Function TVideoAbuseReportReasonsResource.List(AQuery : TVideoAbuseReportReasonslistOptions) : TVideoAbuseReportReasonListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'part',AQuery.part);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TVideoCategoriesResource
--------------------------------------------------------------------}
Class Function TVideoCategoriesResource.ResourceName : String;
begin
Result:='videoCategories';
end;
Class Function TVideoCategoriesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Function TVideoCategoriesResource.List(AQuery : string = '') : TVideoCategoryListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'videoCategories';
_Methodid = 'youtube.videoCategories.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVideoCategoryListResponse) as TVideoCategoryListResponse;
end;
Function TVideoCategoriesResource.List(AQuery : TVideoCategorieslistOptions) : TVideoCategoryListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'regionCode',AQuery.regionCode);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TVideosResource
--------------------------------------------------------------------}
Class Function TVideosResource.ResourceName : String;
begin
Result:='videos';
end;
Class Function TVideosResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TVideosResource.Delete(AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'videos';
_Methodid = 'youtube.videos.delete';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TVideosResource.Delete(AQuery : TVideosdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
Delete(_Q);
end;
Function TVideosResource.GetRating(AQuery : string = '') : TVideoGetRatingResponse;
Const
_HTTPMethod = 'GET';
_Path = 'videos/getRating';
_Methodid = 'youtube.videos.getRating';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVideoGetRatingResponse) as TVideoGetRatingResponse;
end;
Function TVideosResource.GetRating(AQuery : TVideosgetRatingOptions) : TVideoGetRatingResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
Result:=GetRating(_Q);
end;
Function TVideosResource.Insert(aVideo : TVideo; AQuery : string = '') : TVideo;
Const
_HTTPMethod = 'POST';
_Path = 'videos';
_Methodid = 'youtube.videos.insert';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aVideo,TVideo) as TVideo;
end;
Function TVideosResource.Insert(aVideo : TVideo; AQuery : TVideosinsertOptions) : TVideo;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'autoLevels',AQuery.autoLevels);
AddToQuery(_Q,'notifySubscribers',AQuery.notifySubscribers);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'onBehalfOfContentOwnerChannel',AQuery.onBehalfOfContentOwnerChannel);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'stabilize',AQuery.stabilize);
Result:=Insert(aVideo,_Q);
end;
Function TVideosResource.List(AQuery : string = '') : TVideoListResponse;
Const
_HTTPMethod = 'GET';
_Path = 'videos';
_Methodid = 'youtube.videos.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TVideoListResponse) as TVideoListResponse;
end;
Function TVideosResource.List(AQuery : TVideoslistOptions) : TVideoListResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'chart',AQuery.chart);
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'locale',AQuery.locale);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'myRating',AQuery.myRating);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'part',AQuery.part);
AddToQuery(_Q,'regionCode',AQuery.regionCode);
AddToQuery(_Q,'videoCategoryId',AQuery.videoCategoryId);
Result:=List(_Q);
end;
Procedure TVideosResource.Rate(AQuery : string = '');
Const
_HTTPMethod = 'POST';
_Path = 'videos/rate';
_Methodid = 'youtube.videos.rate';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TVideosResource.Rate(AQuery : TVideosrateOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'rating',AQuery.rating);
Rate(_Q);
end;
Procedure TVideosResource.ReportAbuse(aVideoAbuseReport : TVideoAbuseReport; AQuery : string = '');
Const
_HTTPMethod = 'POST';
_Path = 'videos/reportAbuse';
_Methodid = 'youtube.videos.reportAbuse';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,aVideoAbuseReport,Nil);
end;
Procedure TVideosResource.ReportAbuse(aVideoAbuseReport : TVideoAbuseReport; AQuery : TVideosreportAbuseOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
ReportAbuse(aVideoAbuseReport,_Q);
end;
Function TVideosResource.Update(aVideo : TVideo; AQuery : string = '') : TVideo;
Const
_HTTPMethod = 'PUT';
_Path = 'videos';
_Methodid = 'youtube.videos.update';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aVideo,TVideo) as TVideo;
end;
Function TVideosResource.Update(aVideo : TVideo; AQuery : TVideosupdateOptions) : TVideo;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
Result:=Update(aVideo,_Q);
end;
{ --------------------------------------------------------------------
TWatermarksResource
--------------------------------------------------------------------}
Class Function TWatermarksResource.ResourceName : String;
begin
Result:='watermarks';
end;
Class Function TWatermarksResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TyoutubeAPI;
end;
Procedure TWatermarksResource._set(aInvideoBranding : TInvideoBranding; AQuery : string = '');
Const
_HTTPMethod = 'POST';
_Path = 'watermarks/set';
_Methodid = 'youtube.watermarks.set';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,aInvideoBranding,Nil);
end;
Procedure TWatermarksResource._set(aInvideoBranding : TInvideoBranding; AQuery : TWatermarkssetOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
_set(aInvideoBranding,_Q);
end;
Procedure TWatermarksResource.Unset(AQuery : string = '');
Const
_HTTPMethod = 'POST';
_Path = 'watermarks/unset';
_Methodid = 'youtube.watermarks.unset';
begin
ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
end;
Procedure TWatermarksResource.Unset(AQuery : TWatermarksunsetOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'channelId',AQuery.channelId);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
Unset(_Q);
end;
{ --------------------------------------------------------------------
TYoutubeAPI
--------------------------------------------------------------------}
Class Function TYoutubeAPI.APIName : String;
begin
Result:='youtube';
end;
Class Function TYoutubeAPI.APIVersion : String;
begin
Result:='v3';
end;
Class Function TYoutubeAPI.APIRevision : String;
begin
Result:='20160509';
end;
Class Function TYoutubeAPI.APIID : String;
begin
Result:='youtube:v3';
end;
Class Function TYoutubeAPI.APITitle : String;
begin
Result:='YouTube Data API';
end;
Class Function TYoutubeAPI.APIDescription : String;
begin
Result:='Supports core YouTube features, such as uploading videos, creating and managing playlists, searching for content, and much more.';
end;
Class Function TYoutubeAPI.APIOwnerDomain : String;
begin
Result:='google.com';
end;
Class Function TYoutubeAPI.APIOwnerName : String;
begin
Result:='Google';
end;
Class Function TYoutubeAPI.APIIcon16 : String;
begin
Result:='https://www.google.com/images/icons/product/youtube-16.png';
end;
Class Function TYoutubeAPI.APIIcon32 : String;
begin
Result:='https://www.google.com/images/icons/product/youtube-32.png';
end;
Class Function TYoutubeAPI.APIdocumentationLink : String;
begin
Result:='https://developers.google.com/youtube/v3';
end;
Class Function TYoutubeAPI.APIrootUrl : string;
begin
Result:='https://www.googleapis.com/';
end;
Class Function TYoutubeAPI.APIbasePath : string;
begin
Result:='/youtube/v3/';
end;
Class Function TYoutubeAPI.APIbaseURL : String;
begin
Result:='https://www.googleapis.com/youtube/v3/';
end;
Class Function TYoutubeAPI.APIProtocol : string;
begin
Result:='rest';
end;
Class Function TYoutubeAPI.APIservicePath : string;
begin
Result:='youtube/v3/';
end;
Class Function TYoutubeAPI.APIbatchPath : String;
begin
Result:='batch';
end;
Class Function TYoutubeAPI.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,6);
Result[0].Name:='https://www.googleapis.com/auth/youtube';
Result[0].Description:='Manage your YouTube account';
Result[1].Name:='https://www.googleapis.com/auth/youtube.force-ssl';
Result[1].Description:='Manage your YouTube account';
Result[2].Name:='https://www.googleapis.com/auth/youtube.readonly';
Result[2].Description:='View your YouTube account';
Result[3].Name:='https://www.googleapis.com/auth/youtube.upload';
Result[3].Description:='Manage your YouTube videos';
Result[4].Name:='https://www.googleapis.com/auth/youtubepartner';
Result[4].Description:='View and manage your assets and associated content on YouTube';
Result[5].Name:='https://www.googleapis.com/auth/youtubepartner-channel-audit';
Result[5].Description:='View private information of your YouTube channel relevant during the audit process with a YouTube partner';
end;
Class Function TYoutubeAPI.APINeedsAuth : Boolean;
begin
Result:=True;
end;
Class Procedure TYoutubeAPI.RegisterAPIResources;
begin
TAccessPolicy.RegisterObject;
TActivity.RegisterObject;
TActivityContentDetails.RegisterObject;
TActivityContentDetailsBulletin.RegisterObject;
TActivityContentDetailsChannelItem.RegisterObject;
TActivityContentDetailsComment.RegisterObject;
TActivityContentDetailsFavorite.RegisterObject;
TActivityContentDetailsLike.RegisterObject;
TActivityContentDetailsPlaylistItem.RegisterObject;
TActivityContentDetailsPromotedItem.RegisterObject;
TActivityContentDetailsRecommendation.RegisterObject;
TActivityContentDetailsSocial.RegisterObject;
TActivityContentDetailsSubscription.RegisterObject;
TActivityContentDetailsUpload.RegisterObject;
TActivityListResponse.RegisterObject;
TActivitySnippet.RegisterObject;
TCaption.RegisterObject;
TCaptionListResponse.RegisterObject;
TCaptionSnippet.RegisterObject;
TCdnSettings.RegisterObject;
TChannelTypelocalizations.RegisterObject;
TChannel.RegisterObject;
TChannelAuditDetails.RegisterObject;
TChannelBannerResource.RegisterObject;
TChannelBrandingSettings.RegisterObject;
TChannelContentDetailsTyperelatedPlaylists.RegisterObject;
TChannelContentDetails.RegisterObject;
TChannelContentOwnerDetails.RegisterObject;
TChannelConversionPing.RegisterObject;
TChannelConversionPings.RegisterObject;
TChannelListResponse.RegisterObject;
TChannelLocalization.RegisterObject;
TChannelProfileDetails.RegisterObject;
TChannelSectionTypelocalizations.RegisterObject;
TChannelSection.RegisterObject;
TChannelSectionContentDetails.RegisterObject;
TChannelSectionListResponse.RegisterObject;
TChannelSectionLocalization.RegisterObject;
TChannelSectionSnippet.RegisterObject;
TChannelSectionTargeting.RegisterObject;
TChannelSettings.RegisterObject;
TChannelSnippet.RegisterObject;
TChannelStatistics.RegisterObject;
TChannelStatus.RegisterObject;
TChannelTopicDetails.RegisterObject;
TComment.RegisterObject;
TCommentListResponse.RegisterObject;
TCommentSnippet.RegisterObject;
TCommentThread.RegisterObject;
TCommentThreadListResponse.RegisterObject;
TCommentThreadReplies.RegisterObject;
TCommentThreadSnippet.RegisterObject;
TContentRating.RegisterObject;
TFanFundingEvent.RegisterObject;
TFanFundingEventListResponse.RegisterObject;
TFanFundingEventSnippet.RegisterObject;
TGeoPoint.RegisterObject;
TGuideCategory.RegisterObject;
TGuideCategoryListResponse.RegisterObject;
TGuideCategorySnippet.RegisterObject;
TI18nLanguage.RegisterObject;
TI18nLanguageListResponse.RegisterObject;
TI18nLanguageSnippet.RegisterObject;
TI18nRegion.RegisterObject;
TI18nRegionListResponse.RegisterObject;
TI18nRegionSnippet.RegisterObject;
TImageSettings.RegisterObject;
TIngestionInfo.RegisterObject;
TInvideoBranding.RegisterObject;
TInvideoPosition.RegisterObject;
TInvideoPromotion.RegisterObject;
TInvideoTiming.RegisterObject;
TLanguageTag.RegisterObject;
TLiveBroadcast.RegisterObject;
TLiveBroadcastContentDetails.RegisterObject;
TLiveBroadcastListResponse.RegisterObject;
TLiveBroadcastSnippet.RegisterObject;
TLiveBroadcastStatistics.RegisterObject;
TLiveBroadcastStatus.RegisterObject;
TLiveBroadcastTopic.RegisterObject;
TLiveBroadcastTopicDetails.RegisterObject;
TLiveBroadcastTopicSnippet.RegisterObject;
TLiveChatBan.RegisterObject;
TLiveChatBanSnippet.RegisterObject;
TLiveChatFanFundingEventDetails.RegisterObject;
TLiveChatMessage.RegisterObject;
TLiveChatMessageAuthorDetails.RegisterObject;
TLiveChatMessageDeletedDetails.RegisterObject;
TLiveChatMessageListResponse.RegisterObject;
TLiveChatMessageRetractedDetails.RegisterObject;
TLiveChatMessageSnippet.RegisterObject;
TLiveChatModerator.RegisterObject;
TLiveChatModeratorListResponse.RegisterObject;
TLiveChatModeratorSnippet.RegisterObject;
TLiveChatTextMessageDetails.RegisterObject;
TLiveChatUserBannedMessageDetails.RegisterObject;
TLiveStream.RegisterObject;
TLiveStreamConfigurationIssue.RegisterObject;
TLiveStreamContentDetails.RegisterObject;
TLiveStreamHealthStatus.RegisterObject;
TLiveStreamListResponse.RegisterObject;
TLiveStreamSnippet.RegisterObject;
TLiveStreamStatus.RegisterObject;
TLocalizedProperty.RegisterObject;
TLocalizedString.RegisterObject;
TMonitorStreamInfo.RegisterObject;
TPageInfo.RegisterObject;
TPlaylistTypelocalizations.RegisterObject;
TPlaylist.RegisterObject;
TPlaylistContentDetails.RegisterObject;
TPlaylistItem.RegisterObject;
TPlaylistItemContentDetails.RegisterObject;
TPlaylistItemListResponse.RegisterObject;
TPlaylistItemSnippet.RegisterObject;
TPlaylistItemStatus.RegisterObject;
TPlaylistListResponse.RegisterObject;
TPlaylistLocalization.RegisterObject;
TPlaylistPlayer.RegisterObject;
TPlaylistSnippet.RegisterObject;
TPlaylistStatus.RegisterObject;
TPromotedItem.RegisterObject;
TPromotedItemId.RegisterObject;
TPropertyValue.RegisterObject;
TResourceId.RegisterObject;
TSearchListResponse.RegisterObject;
TSearchResult.RegisterObject;
TSearchResultSnippet.RegisterObject;
TSponsor.RegisterObject;
TSponsorListResponse.RegisterObject;
TSponsorSnippet.RegisterObject;
TSubscription.RegisterObject;
TSubscriptionContentDetails.RegisterObject;
TSubscriptionListResponse.RegisterObject;
TSubscriptionSnippet.RegisterObject;
TSubscriptionSubscriberSnippet.RegisterObject;
TThumbnail.RegisterObject;
TThumbnailDetails.RegisterObject;
TThumbnailSetResponse.RegisterObject;
TTokenPagination.RegisterObject;
TVideoTypelocalizations.RegisterObject;
TVideo.RegisterObject;
TVideoAbuseReport.RegisterObject;
TVideoAbuseReportReason.RegisterObject;
TVideoAbuseReportReasonListResponse.RegisterObject;
TVideoAbuseReportReasonSnippet.RegisterObject;
TVideoAbuseReportSecondaryReason.RegisterObject;
TVideoAgeGating.RegisterObject;
TVideoCategory.RegisterObject;
TVideoCategoryListResponse.RegisterObject;
TVideoCategorySnippet.RegisterObject;
TVideoContentDetails.RegisterObject;
TVideoContentDetailsRegionRestriction.RegisterObject;
TVideoFileDetails.RegisterObject;
TVideoFileDetailsAudioStream.RegisterObject;
TVideoFileDetailsVideoStream.RegisterObject;
TVideoGetRatingResponse.RegisterObject;
TVideoListResponse.RegisterObject;
TVideoLiveStreamingDetails.RegisterObject;
TVideoLocalization.RegisterObject;
TVideoMonetizationDetails.RegisterObject;
TVideoPlayer.RegisterObject;
TVideoProcessingDetails.RegisterObject;
TVideoProcessingDetailsProcessingProgress.RegisterObject;
TVideoProjectDetails.RegisterObject;
TVideoRating.RegisterObject;
TVideoRecordingDetails.RegisterObject;
TVideoSnippet.RegisterObject;
TVideoStatistics.RegisterObject;
TVideoStatus.RegisterObject;
TVideoSuggestions.RegisterObject;
TVideoSuggestionsTagSuggestion.RegisterObject;
TVideoTopicDetails.RegisterObject;
TWatchSettings.RegisterObject;
end;
Function TYoutubeAPI.GetActivitiesInstance : TActivitiesResource;
begin
if (FActivitiesInstance=Nil) then
FActivitiesInstance:=CreateActivitiesResource;
Result:=FActivitiesInstance;
end;
Function TYoutubeAPI.CreateActivitiesResource : TActivitiesResource;
begin
Result:=CreateActivitiesResource(Self);
end;
Function TYoutubeAPI.CreateActivitiesResource(AOwner : TComponent) : TActivitiesResource;
begin
Result:=TActivitiesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetCaptionsInstance : TCaptionsResource;
begin
if (FCaptionsInstance=Nil) then
FCaptionsInstance:=CreateCaptionsResource;
Result:=FCaptionsInstance;
end;
Function TYoutubeAPI.CreateCaptionsResource : TCaptionsResource;
begin
Result:=CreateCaptionsResource(Self);
end;
Function TYoutubeAPI.CreateCaptionsResource(AOwner : TComponent) : TCaptionsResource;
begin
Result:=TCaptionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetChannelBannersInstance : TChannelBannersResource;
begin
if (FChannelBannersInstance=Nil) then
FChannelBannersInstance:=CreateChannelBannersResource;
Result:=FChannelBannersInstance;
end;
Function TYoutubeAPI.CreateChannelBannersResource : TChannelBannersResource;
begin
Result:=CreateChannelBannersResource(Self);
end;
Function TYoutubeAPI.CreateChannelBannersResource(AOwner : TComponent) : TChannelBannersResource;
begin
Result:=TChannelBannersResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetChannelSectionsInstance : TChannelSectionsResource;
begin
if (FChannelSectionsInstance=Nil) then
FChannelSectionsInstance:=CreateChannelSectionsResource;
Result:=FChannelSectionsInstance;
end;
Function TYoutubeAPI.CreateChannelSectionsResource : TChannelSectionsResource;
begin
Result:=CreateChannelSectionsResource(Self);
end;
Function TYoutubeAPI.CreateChannelSectionsResource(AOwner : TComponent) : TChannelSectionsResource;
begin
Result:=TChannelSectionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetChannelsInstance : TChannelsResource;
begin
if (FChannelsInstance=Nil) then
FChannelsInstance:=CreateChannelsResource;
Result:=FChannelsInstance;
end;
Function TYoutubeAPI.CreateChannelsResource : TChannelsResource;
begin
Result:=CreateChannelsResource(Self);
end;
Function TYoutubeAPI.CreateChannelsResource(AOwner : TComponent) : TChannelsResource;
begin
Result:=TChannelsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetCommentThreadsInstance : TCommentThreadsResource;
begin
if (FCommentThreadsInstance=Nil) then
FCommentThreadsInstance:=CreateCommentThreadsResource;
Result:=FCommentThreadsInstance;
end;
Function TYoutubeAPI.CreateCommentThreadsResource : TCommentThreadsResource;
begin
Result:=CreateCommentThreadsResource(Self);
end;
Function TYoutubeAPI.CreateCommentThreadsResource(AOwner : TComponent) : TCommentThreadsResource;
begin
Result:=TCommentThreadsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetCommentsInstance : TCommentsResource;
begin
if (FCommentsInstance=Nil) then
FCommentsInstance:=CreateCommentsResource;
Result:=FCommentsInstance;
end;
Function TYoutubeAPI.CreateCommentsResource : TCommentsResource;
begin
Result:=CreateCommentsResource(Self);
end;
Function TYoutubeAPI.CreateCommentsResource(AOwner : TComponent) : TCommentsResource;
begin
Result:=TCommentsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetFanFundingEventsInstance : TFanFundingEventsResource;
begin
if (FFanFundingEventsInstance=Nil) then
FFanFundingEventsInstance:=CreateFanFundingEventsResource;
Result:=FFanFundingEventsInstance;
end;
Function TYoutubeAPI.CreateFanFundingEventsResource : TFanFundingEventsResource;
begin
Result:=CreateFanFundingEventsResource(Self);
end;
Function TYoutubeAPI.CreateFanFundingEventsResource(AOwner : TComponent) : TFanFundingEventsResource;
begin
Result:=TFanFundingEventsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetGuideCategoriesInstance : TGuideCategoriesResource;
begin
if (FGuideCategoriesInstance=Nil) then
FGuideCategoriesInstance:=CreateGuideCategoriesResource;
Result:=FGuideCategoriesInstance;
end;
Function TYoutubeAPI.CreateGuideCategoriesResource : TGuideCategoriesResource;
begin
Result:=CreateGuideCategoriesResource(Self);
end;
Function TYoutubeAPI.CreateGuideCategoriesResource(AOwner : TComponent) : TGuideCategoriesResource;
begin
Result:=TGuideCategoriesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetI18nLanguagesInstance : TI18nLanguagesResource;
begin
if (FI18nLanguagesInstance=Nil) then
FI18nLanguagesInstance:=CreateI18nLanguagesResource;
Result:=FI18nLanguagesInstance;
end;
Function TYoutubeAPI.CreateI18nLanguagesResource : TI18nLanguagesResource;
begin
Result:=CreateI18nLanguagesResource(Self);
end;
Function TYoutubeAPI.CreateI18nLanguagesResource(AOwner : TComponent) : TI18nLanguagesResource;
begin
Result:=TI18nLanguagesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetI18nRegionsInstance : TI18nRegionsResource;
begin
if (FI18nRegionsInstance=Nil) then
FI18nRegionsInstance:=CreateI18nRegionsResource;
Result:=FI18nRegionsInstance;
end;
Function TYoutubeAPI.CreateI18nRegionsResource : TI18nRegionsResource;
begin
Result:=CreateI18nRegionsResource(Self);
end;
Function TYoutubeAPI.CreateI18nRegionsResource(AOwner : TComponent) : TI18nRegionsResource;
begin
Result:=TI18nRegionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetLiveBroadcastsInstance : TLiveBroadcastsResource;
begin
if (FLiveBroadcastsInstance=Nil) then
FLiveBroadcastsInstance:=CreateLiveBroadcastsResource;
Result:=FLiveBroadcastsInstance;
end;
Function TYoutubeAPI.CreateLiveBroadcastsResource : TLiveBroadcastsResource;
begin
Result:=CreateLiveBroadcastsResource(Self);
end;
Function TYoutubeAPI.CreateLiveBroadcastsResource(AOwner : TComponent) : TLiveBroadcastsResource;
begin
Result:=TLiveBroadcastsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetLiveChatBansInstance : TLiveChatBansResource;
begin
if (FLiveChatBansInstance=Nil) then
FLiveChatBansInstance:=CreateLiveChatBansResource;
Result:=FLiveChatBansInstance;
end;
Function TYoutubeAPI.CreateLiveChatBansResource : TLiveChatBansResource;
begin
Result:=CreateLiveChatBansResource(Self);
end;
Function TYoutubeAPI.CreateLiveChatBansResource(AOwner : TComponent) : TLiveChatBansResource;
begin
Result:=TLiveChatBansResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetLiveChatMessagesInstance : TLiveChatMessagesResource;
begin
if (FLiveChatMessagesInstance=Nil) then
FLiveChatMessagesInstance:=CreateLiveChatMessagesResource;
Result:=FLiveChatMessagesInstance;
end;
Function TYoutubeAPI.CreateLiveChatMessagesResource : TLiveChatMessagesResource;
begin
Result:=CreateLiveChatMessagesResource(Self);
end;
Function TYoutubeAPI.CreateLiveChatMessagesResource(AOwner : TComponent) : TLiveChatMessagesResource;
begin
Result:=TLiveChatMessagesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetLiveChatModeratorsInstance : TLiveChatModeratorsResource;
begin
if (FLiveChatModeratorsInstance=Nil) then
FLiveChatModeratorsInstance:=CreateLiveChatModeratorsResource;
Result:=FLiveChatModeratorsInstance;
end;
Function TYoutubeAPI.CreateLiveChatModeratorsResource : TLiveChatModeratorsResource;
begin
Result:=CreateLiveChatModeratorsResource(Self);
end;
Function TYoutubeAPI.CreateLiveChatModeratorsResource(AOwner : TComponent) : TLiveChatModeratorsResource;
begin
Result:=TLiveChatModeratorsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetLiveStreamsInstance : TLiveStreamsResource;
begin
if (FLiveStreamsInstance=Nil) then
FLiveStreamsInstance:=CreateLiveStreamsResource;
Result:=FLiveStreamsInstance;
end;
Function TYoutubeAPI.CreateLiveStreamsResource : TLiveStreamsResource;
begin
Result:=CreateLiveStreamsResource(Self);
end;
Function TYoutubeAPI.CreateLiveStreamsResource(AOwner : TComponent) : TLiveStreamsResource;
begin
Result:=TLiveStreamsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetPlaylistItemsInstance : TPlaylistItemsResource;
begin
if (FPlaylistItemsInstance=Nil) then
FPlaylistItemsInstance:=CreatePlaylistItemsResource;
Result:=FPlaylistItemsInstance;
end;
Function TYoutubeAPI.CreatePlaylistItemsResource : TPlaylistItemsResource;
begin
Result:=CreatePlaylistItemsResource(Self);
end;
Function TYoutubeAPI.CreatePlaylistItemsResource(AOwner : TComponent) : TPlaylistItemsResource;
begin
Result:=TPlaylistItemsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetPlaylistsInstance : TPlaylistsResource;
begin
if (FPlaylistsInstance=Nil) then
FPlaylistsInstance:=CreatePlaylistsResource;
Result:=FPlaylistsInstance;
end;
Function TYoutubeAPI.CreatePlaylistsResource : TPlaylistsResource;
begin
Result:=CreatePlaylistsResource(Self);
end;
Function TYoutubeAPI.CreatePlaylistsResource(AOwner : TComponent) : TPlaylistsResource;
begin
Result:=TPlaylistsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetSearchInstance : TSearchResource;
begin
if (FSearchInstance=Nil) then
FSearchInstance:=CreateSearchResource;
Result:=FSearchInstance;
end;
Function TYoutubeAPI.CreateSearchResource : TSearchResource;
begin
Result:=CreateSearchResource(Self);
end;
Function TYoutubeAPI.CreateSearchResource(AOwner : TComponent) : TSearchResource;
begin
Result:=TSearchResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetSponsorsInstance : TSponsorsResource;
begin
if (FSponsorsInstance=Nil) then
FSponsorsInstance:=CreateSponsorsResource;
Result:=FSponsorsInstance;
end;
Function TYoutubeAPI.CreateSponsorsResource : TSponsorsResource;
begin
Result:=CreateSponsorsResource(Self);
end;
Function TYoutubeAPI.CreateSponsorsResource(AOwner : TComponent) : TSponsorsResource;
begin
Result:=TSponsorsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetSubscriptionsInstance : TSubscriptionsResource;
begin
if (FSubscriptionsInstance=Nil) then
FSubscriptionsInstance:=CreateSubscriptionsResource;
Result:=FSubscriptionsInstance;
end;
Function TYoutubeAPI.CreateSubscriptionsResource : TSubscriptionsResource;
begin
Result:=CreateSubscriptionsResource(Self);
end;
Function TYoutubeAPI.CreateSubscriptionsResource(AOwner : TComponent) : TSubscriptionsResource;
begin
Result:=TSubscriptionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetThumbnailsInstance : TThumbnailsResource;
begin
if (FThumbnailsInstance=Nil) then
FThumbnailsInstance:=CreateThumbnailsResource;
Result:=FThumbnailsInstance;
end;
Function TYoutubeAPI.CreateThumbnailsResource : TThumbnailsResource;
begin
Result:=CreateThumbnailsResource(Self);
end;
Function TYoutubeAPI.CreateThumbnailsResource(AOwner : TComponent) : TThumbnailsResource;
begin
Result:=TThumbnailsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetVideoAbuseReportReasonsInstance : TVideoAbuseReportReasonsResource;
begin
if (FVideoAbuseReportReasonsInstance=Nil) then
FVideoAbuseReportReasonsInstance:=CreateVideoAbuseReportReasonsResource;
Result:=FVideoAbuseReportReasonsInstance;
end;
Function TYoutubeAPI.CreateVideoAbuseReportReasonsResource : TVideoAbuseReportReasonsResource;
begin
Result:=CreateVideoAbuseReportReasonsResource(Self);
end;
Function TYoutubeAPI.CreateVideoAbuseReportReasonsResource(AOwner : TComponent) : TVideoAbuseReportReasonsResource;
begin
Result:=TVideoAbuseReportReasonsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetVideoCategoriesInstance : TVideoCategoriesResource;
begin
if (FVideoCategoriesInstance=Nil) then
FVideoCategoriesInstance:=CreateVideoCategoriesResource;
Result:=FVideoCategoriesInstance;
end;
Function TYoutubeAPI.CreateVideoCategoriesResource : TVideoCategoriesResource;
begin
Result:=CreateVideoCategoriesResource(Self);
end;
Function TYoutubeAPI.CreateVideoCategoriesResource(AOwner : TComponent) : TVideoCategoriesResource;
begin
Result:=TVideoCategoriesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetVideosInstance : TVideosResource;
begin
if (FVideosInstance=Nil) then
FVideosInstance:=CreateVideosResource;
Result:=FVideosInstance;
end;
Function TYoutubeAPI.CreateVideosResource : TVideosResource;
begin
Result:=CreateVideosResource(Self);
end;
Function TYoutubeAPI.CreateVideosResource(AOwner : TComponent) : TVideosResource;
begin
Result:=TVideosResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TYoutubeAPI.GetWatermarksInstance : TWatermarksResource;
begin
if (FWatermarksInstance=Nil) then
FWatermarksInstance:=CreateWatermarksResource;
Result:=FWatermarksInstance;
end;
Function TYoutubeAPI.CreateWatermarksResource : TWatermarksResource;
begin
Result:=CreateWatermarksResource(Self);
end;
Function TYoutubeAPI.CreateWatermarksResource(AOwner : TComponent) : TWatermarksResource;
begin
Result:=TWatermarksResource.Create(AOwner);
Result.API:=Self.API;
end;
initialization
TYoutubeAPI.RegisterAPI;
end.