diff options
Diffstat (limited to 'packages/googleapi/src/googleyoutubereporting.pp')
| -rw-r--r-- | packages/googleapi/src/googleyoutubereporting.pp | 1274 |
1 files changed, 1274 insertions, 0 deletions
diff --git a/packages/googleapi/src/googleyoutubereporting.pp b/packages/googleapi/src/googleyoutubereporting.pp new file mode 100644 index 0000000000..5192f33f61 --- /dev/null +++ b/packages/googleapi/src/googleyoutubereporting.pp @@ -0,0 +1,1274 @@ +unit googleyoutubereporting; +{$MODE objfpc} +{$H+} + +interface + +uses sysutils, classes, googleservice, restbase, googlebase; + +type + + //Top-level schema types + TMedia = Class; + TListReportTypesResponse = Class; + TReportType = Class; + TJob = Class; + TListJobsResponse = Class; + TEmpty = Class; + TListReportsResponse = Class; + TReport = Class; + TMediaArray = Array of TMedia; + TListReportTypesResponseArray = Array of TListReportTypesResponse; + TReportTypeArray = Array of TReportType; + TJobArray = Array of TJob; + TListJobsResponseArray = Array of TListJobsResponse; + TEmptyArray = Array of TEmpty; + TListReportsResponseArray = Array of TListReportsResponse; + TReportArray = Array of TReport; + //Anonymous types, using auto-generated names + TListReportTypesResponseTypereportTypesArray = Array of TReportType; + TListJobsResponseTypejobsArray = Array of TJob; + TListReportsResponseTypereportsArray = Array of TReport; + + { -------------------------------------------------------------------- + TMedia + --------------------------------------------------------------------} + + TMedia = Class(TGoogleBaseObject) + Private + FresourceName : String; + Protected + //Property setters + Procedure SetresourceName(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property resourceName : String Index 0 Read FresourceName Write SetresourceName; + end; + TMediaClass = Class of TMedia; + + { -------------------------------------------------------------------- + TListReportTypesResponse + --------------------------------------------------------------------} + + TListReportTypesResponse = Class(TGoogleBaseObject) + Private + FreportTypes : TListReportTypesResponseTypereportTypesArray; + FnextPageToken : String; + Protected + //Property setters + Procedure SetreportTypes(AIndex : Integer; const AValue : TListReportTypesResponseTypereportTypesArray); virtual; + Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property reportTypes : TListReportTypesResponseTypereportTypesArray Index 0 Read FreportTypes Write SetreportTypes; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListReportTypesResponseClass = Class of TListReportTypesResponse; + + { -------------------------------------------------------------------- + TReportType + --------------------------------------------------------------------} + + TReportType = Class(TGoogleBaseObject) + Private + Fid : String; + Fname : String; + FdeprecateTime : String; + FsystemManaged : boolean; + Protected + //Property setters + Procedure Setid(AIndex : Integer; const AValue : String); virtual; + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure SetdeprecateTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetsystemManaged(AIndex : Integer; const AValue : boolean); virtual; + Public + Published + Property id : String Index 0 Read Fid Write Setid; + Property name : String Index 8 Read Fname Write Setname; + Property deprecateTime : String Index 16 Read FdeprecateTime Write SetdeprecateTime; + Property systemManaged : boolean Index 24 Read FsystemManaged Write SetsystemManaged; + end; + TReportTypeClass = Class of TReportType; + + { -------------------------------------------------------------------- + TJob + --------------------------------------------------------------------} + + TJob = Class(TGoogleBaseObject) + Private + Fid : String; + FreportTypeId : String; + Fname : String; + FcreateTime : String; + FexpireTime : String; + FsystemManaged : boolean; + Protected + //Property setters + Procedure Setid(AIndex : Integer; const AValue : String); virtual; + Procedure SetreportTypeId(AIndex : Integer; const AValue : String); virtual; + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetexpireTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetsystemManaged(AIndex : Integer; const AValue : boolean); virtual; + Public + Published + Property id : String Index 0 Read Fid Write Setid; + Property reportTypeId : String Index 8 Read FreportTypeId Write SetreportTypeId; + Property name : String Index 16 Read Fname Write Setname; + Property createTime : String Index 24 Read FcreateTime Write SetcreateTime; + Property expireTime : String Index 32 Read FexpireTime Write SetexpireTime; + Property systemManaged : boolean Index 40 Read FsystemManaged Write SetsystemManaged; + end; + TJobClass = Class of TJob; + + { -------------------------------------------------------------------- + TListJobsResponse + --------------------------------------------------------------------} + + TListJobsResponse = Class(TGoogleBaseObject) + Private + Fjobs : TListJobsResponseTypejobsArray; + FnextPageToken : String; + Protected + //Property setters + Procedure Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray); virtual; + Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property jobs : TListJobsResponseTypejobsArray Index 0 Read Fjobs Write Setjobs; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListJobsResponseClass = Class of TListJobsResponse; + + { -------------------------------------------------------------------- + TEmpty + --------------------------------------------------------------------} + + TEmpty = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Published + end; + TEmptyClass = Class of TEmpty; + + { -------------------------------------------------------------------- + TListReportsResponse + --------------------------------------------------------------------} + + TListReportsResponse = Class(TGoogleBaseObject) + Private + Freports : TListReportsResponseTypereportsArray; + FnextPageToken : String; + Protected + //Property setters + Procedure Setreports(AIndex : Integer; const AValue : TListReportsResponseTypereportsArray); virtual; + Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property reports : TListReportsResponseTypereportsArray Index 0 Read Freports Write Setreports; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListReportsResponseClass = Class of TListReportsResponse; + + { -------------------------------------------------------------------- + TReport + --------------------------------------------------------------------} + + TReport = Class(TGoogleBaseObject) + Private + Fid : String; + FjobId : String; + FjobExpireTime : String; + FstartTime : String; + FendTime : String; + FcreateTime : String; + FdownloadUrl : String; + Protected + //Property setters + Procedure Setid(AIndex : Integer; const AValue : String); virtual; + Procedure SetjobId(AIndex : Integer; const AValue : String); virtual; + Procedure SetjobExpireTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetendTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetdownloadUrl(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property id : String Index 0 Read Fid Write Setid; + Property jobId : String Index 8 Read FjobId Write SetjobId; + Property jobExpireTime : String Index 16 Read FjobExpireTime Write SetjobExpireTime; + Property startTime : String Index 24 Read FstartTime Write SetstartTime; + Property endTime : String Index 32 Read FendTime Write SetendTime; + Property createTime : String Index 40 Read FcreateTime Write SetcreateTime; + Property downloadUrl : String Index 48 Read FdownloadUrl Write SetdownloadUrl; + end; + TReportClass = Class of TReport; + + { -------------------------------------------------------------------- + TMediaResource + --------------------------------------------------------------------} + + TMediaResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function Download(_resourceName: string) : TMedia; + end; + + + { -------------------------------------------------------------------- + TReportTypesResource + --------------------------------------------------------------------} + + + //Optional query Options for TReportTypesResource, method List + + TReportTypesListOptions = Record + onBehalfOfContentOwner : String; + pageSize : integer; + pageToken : String; + includeSystemManaged : boolean; + end; + + TReportTypesResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function List(AQuery : string = '') : TListReportTypesResponse; + Function List(AQuery : TReportTypeslistOptions) : TListReportTypesResponse; + end; + + + { -------------------------------------------------------------------- + TJobsReportsResource + --------------------------------------------------------------------} + + + //Optional query Options for TJobsReportsResource, method List + + TJobsReportsListOptions = Record + onBehalfOfContentOwner : String; + pageSize : integer; + pageToken : String; + createdAfter : String; + startTimeAtOrAfter : String; + startTimeBefore : String; + end; + + + //Optional query Options for TJobsReportsResource, method Get + + TJobsReportsGetOptions = Record + onBehalfOfContentOwner : String; + end; + + TJobsReportsResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function List(jobId: string; AQuery : string = '') : TListReportsResponse; + Function List(jobId: string; AQuery : TJobsReportslistOptions) : TListReportsResponse; + Function Get(jobId: string; reportId: string; AQuery : string = '') : TReport; + Function Get(jobId: string; reportId: string; AQuery : TJobsReportsgetOptions) : TReport; + end; + + + { -------------------------------------------------------------------- + TJobsResource + --------------------------------------------------------------------} + + + //Optional query Options for TJobsResource, method Create + + TJobsCreateOptions = Record + onBehalfOfContentOwner : String; + end; + + + //Optional query Options for TJobsResource, method List + + TJobsListOptions = Record + onBehalfOfContentOwner : String; + pageSize : integer; + pageToken : String; + includeSystemManaged : boolean; + end; + + + //Optional query Options for TJobsResource, method Get + + TJobsGetOptions = Record + onBehalfOfContentOwner : String; + end; + + + //Optional query Options for TJobsResource, method Delete + + TJobsDeleteOptions = Record + onBehalfOfContentOwner : String; + end; + + TJobsResource = Class(TGoogleResource) + Private + FReportsInstance : TJobsReportsResource; + Function GetReportsInstance : TJobsReportsResource;virtual; + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function Create(aJob : TJob; AQuery : string = '') : TJob;overload; + Function Create(aJob : TJob; AQuery : TJobscreateOptions) : TJob;overload; + Function List(AQuery : string = '') : TListJobsResponse; + Function List(AQuery : TJobslistOptions) : TListJobsResponse; + Function Get(jobId: string; AQuery : string = '') : TJob; + Function Get(jobId: string; AQuery : TJobsgetOptions) : TJob; + Function Delete(jobId: string; AQuery : string = '') : TEmpty; + Function Delete(jobId: string; AQuery : TJobsdeleteOptions) : TEmpty; + Function CreateReportsResource(AOwner : TComponent) : TJobsReportsResource;virtual;overload; + Function CreateReportsResource : TJobsReportsResource;virtual;overload; + Property ReportsResource : TJobsReportsResource Read GetReportsInstance; + end; + + + { -------------------------------------------------------------------- + TYoutubereportingAPI + --------------------------------------------------------------------} + + TYoutubereportingAPI = Class(TGoogleAPI) + Private + FMediaInstance : TMediaResource; + FReportTypesInstance : TReportTypesResource; + FJobsReportsInstance : TJobsReportsResource; + FJobsInstance : TJobsResource; + Function GetMediaInstance : TMediaResource;virtual; + Function GetReportTypesInstance : TReportTypesResource;virtual; + Function GetJobsReportsInstance : TJobsReportsResource;virtual; + Function GetJobsInstance : TJobsResource;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 CreateMediaResource(AOwner : TComponent) : TMediaResource;virtual;overload; + Function CreateMediaResource : TMediaResource;virtual;overload; + Function CreateReportTypesResource(AOwner : TComponent) : TReportTypesResource;virtual;overload; + Function CreateReportTypesResource : TReportTypesResource;virtual;overload; + Function CreateJobsReportsResource(AOwner : TComponent) : TJobsReportsResource;virtual;overload; + Function CreateJobsReportsResource : TJobsReportsResource;virtual;overload; + Function CreateJobsResource(AOwner : TComponent) : TJobsResource;virtual;overload; + Function CreateJobsResource : TJobsResource;virtual;overload; + //Add default on-demand instances for resources + Property MediaResource : TMediaResource Read GetMediaInstance; + Property ReportTypesResource : TReportTypesResource Read GetReportTypesInstance; + Property JobsReportsResource : TJobsReportsResource Read GetJobsReportsInstance; + Property JobsResource : TJobsResource Read GetJobsInstance; + end; + +implementation + + +{ -------------------------------------------------------------------- + TMedia + --------------------------------------------------------------------} + + +Procedure TMedia.SetresourceName(AIndex : Integer; const AValue : String); + +begin + If (FresourceName=AValue) then exit; + FresourceName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TListReportTypesResponse + --------------------------------------------------------------------} + + +Procedure TListReportTypesResponse.SetreportTypes(AIndex : Integer; const AValue : TListReportTypesResponseTypereportTypesArray); + +begin + If (FreportTypes=AValue) then exit; + FreportTypes:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListReportTypesResponse.SetnextPageToken(AIndex : Integer; const AValue : String); + +begin + If (FnextPageToken=AValue) then exit; + FnextPageToken:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TListReportTypesResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'reporttypes' : SetLength(FreportTypes,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TReportType + --------------------------------------------------------------------} + + +Procedure TReportType.Setid(AIndex : Integer; const AValue : String); + +begin + If (Fid=AValue) then exit; + Fid:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReportType.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReportType.SetdeprecateTime(AIndex : Integer; const AValue : String); + +begin + If (FdeprecateTime=AValue) then exit; + FdeprecateTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReportType.SetsystemManaged(AIndex : Integer; const AValue : boolean); + +begin + If (FsystemManaged=AValue) then exit; + FsystemManaged:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TJob + --------------------------------------------------------------------} + + +Procedure TJob.Setid(AIndex : Integer; const AValue : String); + +begin + If (Fid=AValue) then exit; + Fid:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetreportTypeId(AIndex : Integer; const AValue : String); + +begin + If (FreportTypeId=AValue) then exit; + FreportTypeId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetcreateTime(AIndex : Integer; const AValue : String); + +begin + If (FcreateTime=AValue) then exit; + FcreateTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetexpireTime(AIndex : Integer; const AValue : String); + +begin + If (FexpireTime=AValue) then exit; + FexpireTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TJob.SetsystemManaged(AIndex : Integer; const AValue : boolean); + +begin + If (FsystemManaged=AValue) then exit; + FsystemManaged:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TListJobsResponse + --------------------------------------------------------------------} + + +Procedure TListJobsResponse.Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray); + +begin + If (Fjobs=AValue) then exit; + Fjobs:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListJobsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); + +begin + If (FnextPageToken=AValue) then exit; + FnextPageToken:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TListJobsResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'jobs' : SetLength(Fjobs,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TEmpty + --------------------------------------------------------------------} + + + + +{ -------------------------------------------------------------------- + TListReportsResponse + --------------------------------------------------------------------} + + +Procedure TListReportsResponse.Setreports(AIndex : Integer; const AValue : TListReportsResponseTypereportsArray); + +begin + If (Freports=AValue) then exit; + Freports:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListReportsResponse.SetnextPageToken(AIndex : Integer; const AValue : String); + +begin + If (FnextPageToken=AValue) then exit; + FnextPageToken:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TListReportsResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'reports' : SetLength(Freports,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TReport + --------------------------------------------------------------------} + + +Procedure TReport.Setid(AIndex : Integer; const AValue : String); + +begin + If (Fid=AValue) then exit; + Fid:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReport.SetjobId(AIndex : Integer; const AValue : String); + +begin + If (FjobId=AValue) then exit; + FjobId:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReport.SetjobExpireTime(AIndex : Integer; const AValue : String); + +begin + If (FjobExpireTime=AValue) then exit; + FjobExpireTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReport.SetstartTime(AIndex : Integer; const AValue : String); + +begin + If (FstartTime=AValue) then exit; + FstartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReport.SetendTime(AIndex : Integer; const AValue : String); + +begin + If (FendTime=AValue) then exit; + FendTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReport.SetcreateTime(AIndex : Integer; const AValue : String); + +begin + If (FcreateTime=AValue) then exit; + FcreateTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TReport.SetdownloadUrl(AIndex : Integer; const AValue : String); + +begin + If (FdownloadUrl=AValue) then exit; + FdownloadUrl:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TMediaResource + --------------------------------------------------------------------} + + +Class Function TMediaResource.ResourceName : String; + +begin + Result:='media'; +end; + +Class Function TMediaResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TyoutubereportingAPI; +end; + +Function TMediaResource.Download(_resourceName: string) : TMedia; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/media/{+resourceName}'; + _Methodid = 'youtubereporting.media.download'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['resourceName',_resourceName]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMedia) as TMedia; +end; + + + +{ -------------------------------------------------------------------- + TReportTypesResource + --------------------------------------------------------------------} + + +Class Function TReportTypesResource.ResourceName : String; + +begin + Result:='reportTypes'; +end; + +Class Function TReportTypesResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TyoutubereportingAPI; +end; + +Function TReportTypesResource.List(AQuery : string = '') : TListReportTypesResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/reportTypes'; + _Methodid = 'youtubereporting.reportTypes.list'; + +begin + Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListReportTypesResponse) as TListReportTypesResponse; +end; + + +Function TReportTypesResource.List(AQuery : TReportTypeslistOptions) : TListReportTypesResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + AddToQuery(_Q,'includeSystemManaged',AQuery.includeSystemManaged); + Result:=List(_Q); +end; + + + +{ -------------------------------------------------------------------- + TJobsReportsResource + --------------------------------------------------------------------} + + +Class Function TJobsReportsResource.ResourceName : String; + +begin + Result:='reports'; +end; + +Class Function TJobsReportsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TyoutubereportingAPI; +end; + +Function TJobsReportsResource.List(jobId: string; AQuery : string = '') : TListReportsResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/jobs/{jobId}/reports'; + _Methodid = 'youtubereporting.jobs.reports.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['jobId',jobId]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListReportsResponse) as TListReportsResponse; +end; + + +Function TJobsReportsResource.List(jobId: string; AQuery : TJobsReportslistOptions) : TListReportsResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + AddToQuery(_Q,'createdAfter',AQuery.createdAfter); + AddToQuery(_Q,'startTimeAtOrAfter',AQuery.startTimeAtOrAfter); + AddToQuery(_Q,'startTimeBefore',AQuery.startTimeBefore); + Result:=List(jobId,_Q); +end; + +Function TJobsReportsResource.Get(jobId: string; reportId: string; AQuery : string = '') : TReport; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/jobs/{jobId}/reports/{reportId}'; + _Methodid = 'youtubereporting.jobs.reports.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['jobId',jobId,'reportId',reportId]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReport) as TReport; +end; + + +Function TJobsReportsResource.Get(jobId: string; reportId: string; AQuery : TJobsReportsgetOptions) : TReport; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner); + Result:=Get(jobId,reportId,_Q); +end; + + + +{ -------------------------------------------------------------------- + TJobsResource + --------------------------------------------------------------------} + + +Class Function TJobsResource.ResourceName : String; + +begin + Result:='jobs'; +end; + +Class Function TJobsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TyoutubereportingAPI; +end; + +Function TJobsResource.Create(aJob : TJob; AQuery : string = '') : TJob; + +Const + _HTTPMethod = 'POST'; + _Path = 'v1/jobs'; + _Methodid = 'youtubereporting.jobs.create'; + +begin + Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aJob,TJob) as TJob; +end; + + +Function TJobsResource.Create(aJob : TJob; AQuery : TJobscreateOptions) : TJob; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner); + Result:=Create(aJob,_Q); +end; + +Function TJobsResource.List(AQuery : string = '') : TListJobsResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/jobs'; + _Methodid = 'youtubereporting.jobs.list'; + +begin + Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListJobsResponse) as TListJobsResponse; +end; + + +Function TJobsResource.List(AQuery : TJobslistOptions) : TListJobsResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + AddToQuery(_Q,'includeSystemManaged',AQuery.includeSystemManaged); + Result:=List(_Q); +end; + +Function TJobsResource.Get(jobId: string; AQuery : string = '') : TJob; + +Const + _HTTPMethod = 'GET'; + _Path = 'v1/jobs/{jobId}'; + _Methodid = 'youtubereporting.jobs.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['jobId',jobId]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TJob) as TJob; +end; + + +Function TJobsResource.Get(jobId: string; AQuery : TJobsgetOptions) : TJob; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner); + Result:=Get(jobId,_Q); +end; + +Function TJobsResource.Delete(jobId: string; AQuery : string = '') : TEmpty; + +Const + _HTTPMethod = 'DELETE'; + _Path = 'v1/jobs/{jobId}'; + _Methodid = 'youtubereporting.jobs.delete'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['jobId',jobId]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty; +end; + + +Function TJobsResource.Delete(jobId: string; AQuery : TJobsdeleteOptions) : TEmpty; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner); + Result:=Delete(jobId,_Q); +end; + + + +Function TJobsResource.GetReportsInstance : TJobsReportsResource; + +begin + if (FReportsInstance=Nil) then + FReportsInstance:=CreateReportsResource; + Result:=FReportsInstance; +end; + +Function TJobsResource.CreateReportsResource : TJobsReportsResource; + +begin + Result:=CreateReportsResource(Self); +end; + + +Function TJobsResource.CreateReportsResource(AOwner : TComponent) : TJobsReportsResource; + +begin + Result:=TJobsReportsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +{ -------------------------------------------------------------------- + TYoutubereportingAPI + --------------------------------------------------------------------} + +Class Function TYoutubereportingAPI.APIName : String; + +begin + Result:='youtubereporting'; +end; + +Class Function TYoutubereportingAPI.APIVersion : String; + +begin + Result:='v1'; +end; + +Class Function TYoutubereportingAPI.APIRevision : String; + +begin + Result:='20160517'; +end; + +Class Function TYoutubereportingAPI.APIID : String; + +begin + Result:='youtubereporting:v1'; +end; + +Class Function TYoutubereportingAPI.APITitle : String; + +begin + Result:='YouTube Reporting API'; +end; + +Class Function TYoutubereportingAPI.APIDescription : String; + +begin + Result:='Schedules reporting jobs containing your YouTube Analytics data and downloads the resulting bulk data reports in the form of CSV files.'; +end; + +Class Function TYoutubereportingAPI.APIOwnerDomain : String; + +begin + Result:='google.com'; +end; + +Class Function TYoutubereportingAPI.APIOwnerName : String; + +begin + Result:='Google'; +end; + +Class Function TYoutubereportingAPI.APIIcon16 : String; + +begin + Result:='http://www.google.com/images/icons/product/search-16.gif'; +end; + +Class Function TYoutubereportingAPI.APIIcon32 : String; + +begin + Result:='http://www.google.com/images/icons/product/search-32.gif'; +end; + +Class Function TYoutubereportingAPI.APIdocumentationLink : String; + +begin + Result:='https://developers.google.com/youtube/reporting/v1/reports/'; +end; + +Class Function TYoutubereportingAPI.APIrootUrl : string; + +begin + Result:='https://youtubereporting.googleapis.com/'; +end; + +Class Function TYoutubereportingAPI.APIbasePath : string; + +begin + Result:=''; +end; + +Class Function TYoutubereportingAPI.APIbaseURL : String; + +begin + Result:='https://youtubereporting.googleapis.com/'; +end; + +Class Function TYoutubereportingAPI.APIProtocol : string; + +begin + Result:='rest'; +end; + +Class Function TYoutubereportingAPI.APIservicePath : string; + +begin + Result:=''; +end; + +Class Function TYoutubereportingAPI.APIbatchPath : String; + +begin + Result:='batch'; +end; + +Class Function TYoutubereportingAPI.APIAuthScopes : TScopeInfoArray; + +begin + SetLength(Result,2); + Result[0].Name:='https://www.googleapis.com/auth/yt-analytics-monetary.readonly'; + Result[0].Description:='View monetary and non-monetary YouTube Analytics reports for your YouTube content'; + Result[1].Name:='https://www.googleapis.com/auth/yt-analytics.readonly'; + Result[1].Description:='View YouTube Analytics reports for your YouTube content'; + +end; + +Class Function TYoutubereportingAPI.APINeedsAuth : Boolean; + +begin + Result:=True; +end; + +Class Procedure TYoutubereportingAPI.RegisterAPIResources; + +begin + TMedia.RegisterObject; + TListReportTypesResponse.RegisterObject; + TReportType.RegisterObject; + TJob.RegisterObject; + TListJobsResponse.RegisterObject; + TEmpty.RegisterObject; + TListReportsResponse.RegisterObject; + TReport.RegisterObject; +end; + + +Function TYoutubereportingAPI.GetMediaInstance : TMediaResource; + +begin + if (FMediaInstance=Nil) then + FMediaInstance:=CreateMediaResource; + Result:=FMediaInstance; +end; + +Function TYoutubereportingAPI.CreateMediaResource : TMediaResource; + +begin + Result:=CreateMediaResource(Self); +end; + + +Function TYoutubereportingAPI.CreateMediaResource(AOwner : TComponent) : TMediaResource; + +begin + Result:=TMediaResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TYoutubereportingAPI.GetReportTypesInstance : TReportTypesResource; + +begin + if (FReportTypesInstance=Nil) then + FReportTypesInstance:=CreateReportTypesResource; + Result:=FReportTypesInstance; +end; + +Function TYoutubereportingAPI.CreateReportTypesResource : TReportTypesResource; + +begin + Result:=CreateReportTypesResource(Self); +end; + + +Function TYoutubereportingAPI.CreateReportTypesResource(AOwner : TComponent) : TReportTypesResource; + +begin + Result:=TReportTypesResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TYoutubereportingAPI.GetJobsReportsInstance : TJobsReportsResource; + +begin + if (FJobsReportsInstance=Nil) then + FJobsReportsInstance:=CreateJobsReportsResource; + Result:=FJobsReportsInstance; +end; + +Function TYoutubereportingAPI.CreateJobsReportsResource : TJobsReportsResource; + +begin + Result:=CreateJobsReportsResource(Self); +end; + + +Function TYoutubereportingAPI.CreateJobsReportsResource(AOwner : TComponent) : TJobsReportsResource; + +begin + Result:=TJobsReportsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TYoutubereportingAPI.GetJobsInstance : TJobsResource; + +begin + if (FJobsInstance=Nil) then + FJobsInstance:=CreateJobsResource; + Result:=FJobsInstance; +end; + +Function TYoutubereportingAPI.CreateJobsResource : TJobsResource; + +begin + Result:=CreateJobsResource(Self); +end; + + +Function TYoutubereportingAPI.CreateJobsResource(AOwner : TComponent) : TJobsResource; + +begin + Result:=TJobsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +initialization + TYoutubereportingAPI.RegisterAPI; +end. |