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.