unit googleanalytics; { ********************************************************************** This file is part of the Free Component Library (FCL) Copyright (c) 2015 The free pascal team. See the file COPYING.FPC, included in this distribution, for details about the copyright. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. ********************************************************************** } //Generated on: 16-5-15 08:52:58 {$MODE objfpc} {$H+} interface uses sysutils, classes, googleservice, restbase, googlebase; type //Top-level schema types TAccount = Class; TAccountRef = Class; TAccountSummaries = Class; TAccountSummary = Class; TAccountTicket = Class; TAccounts = Class; TAdWordsAccount = Class; TAnalyticsDataimportDeleteUploadDataRequest = Class; TColumn = Class; TColumns = Class; TCustomDataSource = Class; TCustomDataSources = Class; TCustomDimension = Class; TCustomDimensions = Class; TCustomMetric = Class; TCustomMetrics = Class; TEntityAdWordsLink = Class; TEntityAdWordsLinks = Class; TEntityUserLink = Class; TEntityUserLinks = Class; TExperiment = Class; TExperiments = Class; TFilter = Class; TFilterExpression = Class; TFilterRef = Class; TFilters = Class; TGaData = Class; TGoal = Class; TGoals = Class; TMcfData = Class; TProfile = Class; TProfileFilterLink = Class; TProfileFilterLinks = Class; TProfileRef = Class; TProfileSummary = Class; TProfiles = Class; TRealtimeData = Class; TSegment = Class; TSegments = Class; TUnsampledReport = Class; TUnsampledReports = Class; TUpload = Class; TUploads = Class; TUserRef = Class; TWebPropertyRef = Class; TWebPropertySummary = Class; TWebproperties = Class; TWebproperty = Class; TAccountArray = Array of TAccount; TAccountRefArray = Array of TAccountRef; TAccountSummariesArray = Array of TAccountSummaries; TAccountSummaryArray = Array of TAccountSummary; TAccountTicketArray = Array of TAccountTicket; TAccountsArray = Array of TAccounts; TAdWordsAccountArray = Array of TAdWordsAccount; TAnalyticsDataimportDeleteUploadDataRequestArray = Array of TAnalyticsDataimportDeleteUploadDataRequest; TColumnArray = Array of TColumn; TColumnsArray = Array of TColumns; TCustomDataSourceArray = Array of TCustomDataSource; TCustomDataSourcesArray = Array of TCustomDataSources; TCustomDimensionArray = Array of TCustomDimension; TCustomDimensionsArray = Array of TCustomDimensions; TCustomMetricArray = Array of TCustomMetric; TCustomMetricsArray = Array of TCustomMetrics; TEntityAdWordsLinkArray = Array of TEntityAdWordsLink; TEntityAdWordsLinksArray = Array of TEntityAdWordsLinks; TEntityUserLinkArray = Array of TEntityUserLink; TEntityUserLinksArray = Array of TEntityUserLinks; TExperimentArray = Array of TExperiment; TExperimentsArray = Array of TExperiments; TFilterArray = Array of TFilter; TFilterExpressionArray = Array of TFilterExpression; TFilterRefArray = Array of TFilterRef; TFiltersArray = Array of TFilters; TGaDataArray = Array of TGaData; TGoalArray = Array of TGoal; TGoalsArray = Array of TGoals; TMcfDataArray = Array of TMcfData; TProfileArray = Array of TProfile; TProfileFilterLinkArray = Array of TProfileFilterLink; TProfileFilterLinksArray = Array of TProfileFilterLinks; TProfileRefArray = Array of TProfileRef; TProfileSummaryArray = Array of TProfileSummary; TProfilesArray = Array of TProfiles; TRealtimeDataArray = Array of TRealtimeData; TSegmentArray = Array of TSegment; TSegmentsArray = Array of TSegments; TUnsampledReportArray = Array of TUnsampledReport; TUnsampledReportsArray = Array of TUnsampledReports; TUploadArray = Array of TUpload; TUploadsArray = Array of TUploads; TUserRefArray = Array of TUserRef; TWebPropertyRefArray = Array of TWebPropertyRef; TWebPropertySummaryArray = Array of TWebPropertySummary; TWebpropertiesArray = Array of TWebproperties; TWebpropertyArray = Array of TWebproperty; //Anonymous types, using auto-generated names TAccountTypechildLink = Class; TAccountTypepermissions = Class; TColumnTypeattributes = Class; TCustomDataSourceTypechildLink = Class; TCustomDataSourceTypeparentLink = Class; TCustomDimensionTypeparentLink = Class; TCustomMetricTypeparentLink = Class; TEntityAdWordsLinkTypeentity = Class; TEntityUserLinkTypeentity = Class; TEntityUserLinkTypepermissions = Class; TExperimentTypeparentLink = Class; TExperimentTypevariationsItem = Class; TFilterTypeadvancedDetails = Class; TFilterTypelowercaseDetails = Class; TFilterTypeparentLink = Class; TFilterTypesearchAndReplaceDetails = Class; TFilterTypeuppercaseDetails = Class; TGaDataTypecolumnHeadersItem = Class; TGaDataTypedataTableTypecolsItem = Class; TGaDataTypedataTableTyperowsItemTypecItem = Class; TGaDataTypedataTableTyperowsItem = Class; TGaDataTypedataTable = Class; TGaDataTypeprofileInfo = Class; TGaDataTypequery = Class; TGaDataTypetotalsForAllResults = Class; TGoalTypeeventDetailsTypeeventConditionsItem = Class; TGoalTypeeventDetails = Class; TGoalTypeparentLink = Class; TGoalTypeurlDestinationDetailsTypestepsItem = Class; TGoalTypeurlDestinationDetails = Class; TGoalTypevisitNumPagesDetails = Class; TGoalTypevisitTimeOnSiteDetails = Class; TMcfDataTypecolumnHeadersItem = Class; TMcfDataTypeprofileInfo = Class; TMcfDataTypequery = Class; TMcfDataTyperowsItemItemTypeconversionPathValueItem = Class; TMcfDataTyperowsItemItem = Class; TMcfDataTypetotalsForAllResults = Class; TProfileTypechildLink = Class; TProfileTypeparentLink = Class; TProfileTypepermissions = Class; TRealtimeDataTypecolumnHeadersItem = Class; TRealtimeDataTypeprofileInfo = Class; TRealtimeDataTypequery = Class; TRealtimeDataTypetotalsForAllResults = Class; TUnsampledReportTypecloudStorageDownloadDetails = Class; TUnsampledReportTypedriveDownloadDetails = Class; TWebpropertyTypechildLink = Class; TWebpropertyTypeparentLink = Class; TWebpropertyTypepermissions = Class; TAccountSummariesTypeitemsArray = Array of TAccountSummary; TAccountSummaryTypewebPropertiesArray = Array of TWebPropertySummary; TAccountsTypeitemsArray = Array of TAccount; TColumnsTypeitemsArray = Array of TColumn; TCustomDataSourcesTypeitemsArray = Array of TCustomDataSource; TCustomDimensionsTypeitemsArray = Array of TCustomDimension; TCustomMetricsTypeitemsArray = Array of TCustomMetric; TEntityAdWordsLinkTypeadWordsAccountsArray = Array of TAdWordsAccount; TEntityAdWordsLinksTypeitemsArray = Array of TEntityAdWordsLink; TEntityUserLinksTypeitemsArray = Array of TEntityUserLink; TExperimentTypevariationsArray = Array of TExperimentTypevariationsItem; TExperimentsTypeitemsArray = Array of TExperiment; TFiltersTypeitemsArray = Array of TFilter; TGaDataTypecolumnHeadersArray = Array of TGaDataTypecolumnHeadersItem; TGaDataTypedataTableTypecolsArray = Array of TGaDataTypedataTableTypecolsItem; TGaDataTypedataTableTyperowsItemTypecArray = Array of TGaDataTypedataTableTyperowsItemTypecItem; TGaDataTypedataTableTyperowsArray = Array of TGaDataTypedataTableTyperowsItem; TGaDataTyperowsArray = Array of TStringArray; TGoalTypeeventDetailsTypeeventConditionsArray = Array of TGoalTypeeventDetailsTypeeventConditionsItem; TGoalTypeurlDestinationDetailsTypestepsArray = Array of TGoalTypeurlDestinationDetailsTypestepsItem; TGoalsTypeitemsArray = Array of TGoal; TMcfDataTypecolumnHeadersArray = Array of TMcfDataTypecolumnHeadersItem; TMcfDataTyperowsItemItemTypeconversionPathValueArray = Array of TMcfDataTyperowsItemItemTypeconversionPathValueItem; TMcfDataTyperowsItemArray = Array of TMcfDataTyperowsItemItem; TMcfDataTyperowsArray = Array of TMcfDataTyperowsItemArray; TProfileFilterLinksTypeitemsArray = Array of TProfileFilterLink; TProfilesTypeitemsArray = Array of TProfile; TRealtimeDataTypecolumnHeadersArray = Array of TRealtimeDataTypecolumnHeadersItem; TRealtimeDataTyperowsArray = Array of TStringArray; TSegmentsTypeitemsArray = Array of TSegment; TUnsampledReportsTypeitemsArray = Array of TUnsampledReport; TUploadsTypeitemsArray = Array of TUpload; TWebPropertySummaryTypeprofilesArray = Array of TProfileSummary; TWebpropertiesTypeitemsArray = Array of TWebproperty; { -------------------------------------------------------------------- TAccountTypechildLink --------------------------------------------------------------------} TAccountTypechildLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TAccountTypechildLinkClass = Class of TAccountTypechildLink; { -------------------------------------------------------------------- TAccountTypepermissions --------------------------------------------------------------------} TAccountTypepermissions = Class(TGoogleBaseObject) Private Feffective : TStringArray; Protected //Property setters Procedure Seteffective(AIndex : Integer; 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 effective : TStringArray Index 0 Read Feffective Write Seteffective; end; TAccountTypepermissionsClass = Class of TAccountTypepermissions; { -------------------------------------------------------------------- TAccount --------------------------------------------------------------------} TAccount = Class(TGoogleBaseObject) Private FchildLink : TAccountTypechildLink; Fcreated : TDatetime; Fid : String; Fkind : String; Fname : String; Fpermissions : TAccountTypepermissions; FselfLink : String; Fupdated : TDatetime; Protected //Property setters Procedure SetchildLink(AIndex : Integer; AValue : TAccountTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Setpermissions(AIndex : Integer; AValue : TAccountTypepermissions); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Public Published Property childLink : TAccountTypechildLink Index 0 Read FchildLink Write SetchildLink; Property created : TDatetime Index 8 Read Fcreated Write Setcreated; Property id : String Index 16 Read Fid Write Setid; Property kind : String Index 24 Read Fkind Write Setkind; Property name : String Index 32 Read Fname Write Setname; Property permissions : TAccountTypepermissions Index 40 Read Fpermissions Write Setpermissions; Property selfLink : String Index 48 Read FselfLink Write SetselfLink; Property updated : TDatetime Index 56 Read Fupdated Write Setupdated; end; TAccountClass = Class of TAccount; { -------------------------------------------------------------------- TAccountRef --------------------------------------------------------------------} TAccountRef = Class(TGoogleBaseObject) Private Fhref : String; Fid : String; Fkind : String; Fname : String; Protected //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property id : String Index 8 Read Fid Write Setid; Property kind : String Index 16 Read Fkind Write Setkind; Property name : String Index 24 Read Fname Write Setname; end; TAccountRefClass = Class of TAccountRef; { -------------------------------------------------------------------- TAccountSummaries --------------------------------------------------------------------} TAccountSummaries = Class(TGoogleBaseObject) Private Fitems : TAccountSummariesTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TAccountSummariesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TAccountSummariesTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TAccountSummariesClass = Class of TAccountSummaries; { -------------------------------------------------------------------- TAccountSummary --------------------------------------------------------------------} TAccountSummary = Class(TGoogleBaseObject) Private Fid : String; Fkind : String; Fname : String; FwebProperties : TAccountSummaryTypewebPropertiesArray; Protected //Property setters Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetwebProperties(AIndex : Integer; AValue : TAccountSummaryTypewebPropertiesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property id : String Index 0 Read Fid Write Setid; Property kind : String Index 8 Read Fkind Write Setkind; Property name : String Index 16 Read Fname Write Setname; Property webProperties : TAccountSummaryTypewebPropertiesArray Index 24 Read FwebProperties Write SetwebProperties; end; TAccountSummaryClass = Class of TAccountSummary; { -------------------------------------------------------------------- TAccountTicket --------------------------------------------------------------------} TAccountTicket = Class(TGoogleBaseObject) Private Faccount : TAccount; Fid : String; Fkind : String; Fprofile : TProfile; FredirectUri : String; Fwebproperty : TWebproperty; Protected //Property setters Procedure Setaccount(AIndex : Integer; AValue : TAccount); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setprofile(AIndex : Integer; AValue : TProfile); virtual; Procedure SetredirectUri(AIndex : Integer; const AValue : String); virtual; Procedure Setwebproperty(AIndex : Integer; AValue : TWebproperty); virtual; Public Published Property account : TAccount Index 0 Read Faccount Write Setaccount; Property id : String Index 8 Read Fid Write Setid; Property kind : String Index 16 Read Fkind Write Setkind; Property profile : TProfile Index 24 Read Fprofile Write Setprofile; Property redirectUri : String Index 32 Read FredirectUri Write SetredirectUri; Property webproperty : TWebproperty Index 40 Read Fwebproperty Write Setwebproperty; end; TAccountTicketClass = Class of TAccountTicket; { -------------------------------------------------------------------- TAccounts --------------------------------------------------------------------} TAccounts = Class(TGoogleBaseObject) Private Fitems : TAccountsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TAccountsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TAccountsClass = Class of TAccounts; { -------------------------------------------------------------------- TAdWordsAccount --------------------------------------------------------------------} TAdWordsAccount = Class(TGoogleBaseObject) Private FautoTaggingEnabled : boolean; FcustomerId : String; Fkind : String; Protected //Property setters Procedure SetautoTaggingEnabled(AIndex : Integer; AValue : boolean); virtual; Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property autoTaggingEnabled : boolean Index 0 Read FautoTaggingEnabled Write SetautoTaggingEnabled; Property customerId : String Index 8 Read FcustomerId Write SetcustomerId; Property kind : String Index 16 Read Fkind Write Setkind; end; TAdWordsAccountClass = Class of TAdWordsAccount; { -------------------------------------------------------------------- TAnalyticsDataimportDeleteUploadDataRequest --------------------------------------------------------------------} TAnalyticsDataimportDeleteUploadDataRequest = Class(TGoogleBaseObject) Private FcustomDataImportUids : TStringArray; Protected //Property setters Procedure SetcustomDataImportUids(AIndex : Integer; 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 customDataImportUids : TStringArray Index 0 Read FcustomDataImportUids Write SetcustomDataImportUids; end; TAnalyticsDataimportDeleteUploadDataRequestClass = Class of TAnalyticsDataimportDeleteUploadDataRequest; { -------------------------------------------------------------------- TColumnTypeattributes --------------------------------------------------------------------} TColumnTypeattributes = Class(TGoogleBaseObject) Private Protected //Property setters Public Class Function AllowAdditionalProperties : Boolean; override; Published end; TColumnTypeattributesClass = Class of TColumnTypeattributes; { -------------------------------------------------------------------- TColumn --------------------------------------------------------------------} TColumn = Class(TGoogleBaseObject) Private Fattributes : TColumnTypeattributes; Fid : String; Fkind : String; Protected //Property setters Procedure Setattributes(AIndex : Integer; AValue : TColumnTypeattributes); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property attributes : TColumnTypeattributes Index 0 Read Fattributes Write Setattributes; Property id : String Index 8 Read Fid Write Setid; Property kind : String Index 16 Read Fkind Write Setkind; end; TColumnClass = Class of TColumn; { -------------------------------------------------------------------- TColumns --------------------------------------------------------------------} TColumns = Class(TGoogleBaseObject) Private FattributeNames : TStringArray; Fetag : String; Fitems : TColumnsTypeitemsArray; Fkind : String; FtotalResults : integer; Protected //Property setters Procedure SetattributeNames(AIndex : Integer; AValue : TStringArray); virtual; Procedure Setetag(AIndex : Integer; const AValue : String); virtual; Procedure Setitems(AIndex : Integer; AValue : TColumnsTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property attributeNames : TStringArray Index 0 Read FattributeNames Write SetattributeNames; Property etag : String Index 8 Read Fetag Write Setetag; Property items : TColumnsTypeitemsArray Index 16 Read Fitems Write Setitems; Property kind : String Index 24 Read Fkind Write Setkind; Property totalResults : integer Index 32 Read FtotalResults Write SettotalResults; end; TColumnsClass = Class of TColumns; { -------------------------------------------------------------------- TCustomDataSourceTypechildLink --------------------------------------------------------------------} TCustomDataSourceTypechildLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TCustomDataSourceTypechildLinkClass = Class of TCustomDataSourceTypechildLink; { -------------------------------------------------------------------- TCustomDataSourceTypeparentLink --------------------------------------------------------------------} TCustomDataSourceTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TCustomDataSourceTypeparentLinkClass = Class of TCustomDataSourceTypeparentLink; { -------------------------------------------------------------------- TCustomDataSource --------------------------------------------------------------------} TCustomDataSource = Class(TGoogleBaseObject) Private FaccountId : String; FchildLink : TCustomDataSourceTypechildLink; Fcreated : TDatetime; Fdescription : String; Fid : String; FimportBehavior : String; Fkind : String; Fname : String; FparentLink : TCustomDataSourceTypeparentLink; FprofilesLinked : TStringArray; FselfLink : String; F_type : String; Fupdated : TDatetime; FuploadType : String; FwebPropertyId : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetchildLink(AIndex : Integer; AValue : TCustomDataSourceTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetimportBehavior(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TCustomDataSourceTypeparentLink); virtual; Procedure SetprofilesLinked(AIndex : Integer; AValue : TStringArray); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetuploadType(AIndex : Integer; const AValue : String); virtual; Procedure SetwebPropertyId(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 accountId : String Index 0 Read FaccountId Write SetaccountId; Property childLink : TCustomDataSourceTypechildLink Index 8 Read FchildLink Write SetchildLink; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property description : String Index 24 Read Fdescription Write Setdescription; Property id : String Index 32 Read Fid Write Setid; Property importBehavior : String Index 40 Read FimportBehavior Write SetimportBehavior; Property kind : String Index 48 Read Fkind Write Setkind; Property name : String Index 56 Read Fname Write Setname; Property parentLink : TCustomDataSourceTypeparentLink Index 64 Read FparentLink Write SetparentLink; Property profilesLinked : TStringArray Index 72 Read FprofilesLinked Write SetprofilesLinked; Property selfLink : String Index 80 Read FselfLink Write SetselfLink; Property _type : String Index 88 Read F_type Write Set_type; Property updated : TDatetime Index 96 Read Fupdated Write Setupdated; Property uploadType : String Index 104 Read FuploadType Write SetuploadType; Property webPropertyId : String Index 112 Read FwebPropertyId Write SetwebPropertyId; end; TCustomDataSourceClass = Class of TCustomDataSource; { -------------------------------------------------------------------- TCustomDataSources --------------------------------------------------------------------} TCustomDataSources = Class(TGoogleBaseObject) Private Fitems : TCustomDataSourcesTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TCustomDataSourcesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TCustomDataSourcesTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TCustomDataSourcesClass = Class of TCustomDataSources; { -------------------------------------------------------------------- TCustomDimensionTypeparentLink --------------------------------------------------------------------} TCustomDimensionTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TCustomDimensionTypeparentLinkClass = Class of TCustomDimensionTypeparentLink; { -------------------------------------------------------------------- TCustomDimension --------------------------------------------------------------------} TCustomDimension = Class(TGoogleBaseObject) Private FaccountId : String; Factive : boolean; Fcreated : TDatetime; Fid : String; Findex : integer; Fkind : String; Fname : String; FparentLink : TCustomDimensionTypeparentLink; Fscope : String; FselfLink : String; Fupdated : TDatetime; FwebPropertyId : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Setactive(AIndex : Integer; AValue : boolean); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setindex(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TCustomDimensionTypeparentLink); virtual; Procedure Setscope(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property active : boolean Index 8 Read Factive Write Setactive; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property id : String Index 24 Read Fid Write Setid; Property index : integer Index 32 Read Findex Write Setindex; Property kind : String Index 40 Read Fkind Write Setkind; Property name : String Index 48 Read Fname Write Setname; Property parentLink : TCustomDimensionTypeparentLink Index 56 Read FparentLink Write SetparentLink; Property scope : String Index 64 Read Fscope Write Setscope; Property selfLink : String Index 72 Read FselfLink Write SetselfLink; Property updated : TDatetime Index 80 Read Fupdated Write Setupdated; Property webPropertyId : String Index 88 Read FwebPropertyId Write SetwebPropertyId; end; TCustomDimensionClass = Class of TCustomDimension; { -------------------------------------------------------------------- TCustomDimensions --------------------------------------------------------------------} TCustomDimensions = Class(TGoogleBaseObject) Private Fitems : TCustomDimensionsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TCustomDimensionsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TCustomDimensionsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TCustomDimensionsClass = Class of TCustomDimensions; { -------------------------------------------------------------------- TCustomMetricTypeparentLink --------------------------------------------------------------------} TCustomMetricTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TCustomMetricTypeparentLinkClass = Class of TCustomMetricTypeparentLink; { -------------------------------------------------------------------- TCustomMetric --------------------------------------------------------------------} TCustomMetric = Class(TGoogleBaseObject) Private FaccountId : String; Factive : boolean; Fcreated : TDatetime; Fid : String; Findex : integer; Fkind : String; Fmax_value : String; Fmin_value : String; Fname : String; FparentLink : TCustomMetricTypeparentLink; Fscope : String; FselfLink : String; F_type : String; Fupdated : TDatetime; FwebPropertyId : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Setactive(AIndex : Integer; AValue : boolean); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setindex(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setmax_value(AIndex : Integer; const AValue : String); virtual; Procedure Setmin_value(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TCustomMetricTypeparentLink); virtual; Procedure Setscope(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property active : boolean Index 8 Read Factive Write Setactive; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property id : String Index 24 Read Fid Write Setid; Property index : integer Index 32 Read Findex Write Setindex; Property kind : String Index 40 Read Fkind Write Setkind; Property max_value : String Index 48 Read Fmax_value Write Setmax_value; Property min_value : String Index 56 Read Fmin_value Write Setmin_value; Property name : String Index 64 Read Fname Write Setname; Property parentLink : TCustomMetricTypeparentLink Index 72 Read FparentLink Write SetparentLink; Property scope : String Index 80 Read Fscope Write Setscope; Property selfLink : String Index 88 Read FselfLink Write SetselfLink; Property _type : String Index 96 Read F_type Write Set_type; Property updated : TDatetime Index 104 Read Fupdated Write Setupdated; Property webPropertyId : String Index 112 Read FwebPropertyId Write SetwebPropertyId; end; TCustomMetricClass = Class of TCustomMetric; { -------------------------------------------------------------------- TCustomMetrics --------------------------------------------------------------------} TCustomMetrics = Class(TGoogleBaseObject) Private Fitems : TCustomMetricsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TCustomMetricsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TCustomMetricsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TCustomMetricsClass = Class of TCustomMetrics; { -------------------------------------------------------------------- TEntityAdWordsLinkTypeentity --------------------------------------------------------------------} TEntityAdWordsLinkTypeentity = Class(TGoogleBaseObject) Private FwebPropertyRef : TWebPropertyRef; Protected //Property setters Procedure SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef); virtual; Public Published Property webPropertyRef : TWebPropertyRef Index 0 Read FwebPropertyRef Write SetwebPropertyRef; end; TEntityAdWordsLinkTypeentityClass = Class of TEntityAdWordsLinkTypeentity; { -------------------------------------------------------------------- TEntityAdWordsLink --------------------------------------------------------------------} TEntityAdWordsLink = Class(TGoogleBaseObject) Private FadWordsAccounts : TEntityAdWordsLinkTypeadWordsAccountsArray; Fentity : TEntityAdWordsLinkTypeentity; Fid : String; Fkind : String; Fname : String; FprofileIds : TStringArray; FselfLink : String; Protected //Property setters Procedure SetadWordsAccounts(AIndex : Integer; AValue : TEntityAdWordsLinkTypeadWordsAccountsArray); virtual; Procedure Setentity(AIndex : Integer; AValue : TEntityAdWordsLinkTypeentity); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileIds(AIndex : Integer; AValue : TStringArray); virtual; Procedure SetselfLink(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 adWordsAccounts : TEntityAdWordsLinkTypeadWordsAccountsArray Index 0 Read FadWordsAccounts Write SetadWordsAccounts; Property entity : TEntityAdWordsLinkTypeentity Index 8 Read Fentity Write Setentity; Property id : String Index 16 Read Fid Write Setid; Property kind : String Index 24 Read Fkind Write Setkind; Property name : String Index 32 Read Fname Write Setname; Property profileIds : TStringArray Index 40 Read FprofileIds Write SetprofileIds; Property selfLink : String Index 48 Read FselfLink Write SetselfLink; end; TEntityAdWordsLinkClass = Class of TEntityAdWordsLink; { -------------------------------------------------------------------- TEntityAdWordsLinks --------------------------------------------------------------------} TEntityAdWordsLinks = Class(TGoogleBaseObject) Private Fitems : TEntityAdWordsLinksTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TEntityAdWordsLinksTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TEntityAdWordsLinksTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; end; TEntityAdWordsLinksClass = Class of TEntityAdWordsLinks; { -------------------------------------------------------------------- TEntityUserLinkTypeentity --------------------------------------------------------------------} TEntityUserLinkTypeentity = Class(TGoogleBaseObject) Private FaccountRef : TAccountRef; FprofileRef : TProfileRef; FwebPropertyRef : TWebPropertyRef; Protected //Property setters Procedure SetaccountRef(AIndex : Integer; AValue : TAccountRef); virtual; Procedure SetprofileRef(AIndex : Integer; AValue : TProfileRef); virtual; Procedure SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef); virtual; Public Published Property accountRef : TAccountRef Index 0 Read FaccountRef Write SetaccountRef; Property profileRef : TProfileRef Index 8 Read FprofileRef Write SetprofileRef; Property webPropertyRef : TWebPropertyRef Index 16 Read FwebPropertyRef Write SetwebPropertyRef; end; TEntityUserLinkTypeentityClass = Class of TEntityUserLinkTypeentity; { -------------------------------------------------------------------- TEntityUserLinkTypepermissions --------------------------------------------------------------------} TEntityUserLinkTypepermissions = Class(TGoogleBaseObject) Private Feffective : TStringArray; Flocal : TStringArray; Protected //Property setters Procedure Seteffective(AIndex : Integer; AValue : TStringArray); virtual; Procedure Setlocal(AIndex : Integer; 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 effective : TStringArray Index 0 Read Feffective Write Seteffective; Property local : TStringArray Index 8 Read Flocal Write Setlocal; end; TEntityUserLinkTypepermissionsClass = Class of TEntityUserLinkTypepermissions; { -------------------------------------------------------------------- TEntityUserLink --------------------------------------------------------------------} TEntityUserLink = Class(TGoogleBaseObject) Private Fentity : TEntityUserLinkTypeentity; Fid : String; Fkind : String; Fpermissions : TEntityUserLinkTypepermissions; FselfLink : String; FuserRef : TUserRef; Protected //Property setters Procedure Setentity(AIndex : Integer; AValue : TEntityUserLinkTypeentity); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setpermissions(AIndex : Integer; AValue : TEntityUserLinkTypepermissions); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SetuserRef(AIndex : Integer; AValue : TUserRef); virtual; Public Published Property entity : TEntityUserLinkTypeentity Index 0 Read Fentity Write Setentity; Property id : String Index 8 Read Fid Write Setid; Property kind : String Index 16 Read Fkind Write Setkind; Property permissions : TEntityUserLinkTypepermissions Index 24 Read Fpermissions Write Setpermissions; Property selfLink : String Index 32 Read FselfLink Write SetselfLink; Property userRef : TUserRef Index 40 Read FuserRef Write SetuserRef; end; TEntityUserLinkClass = Class of TEntityUserLink; { -------------------------------------------------------------------- TEntityUserLinks --------------------------------------------------------------------} TEntityUserLinks = Class(TGoogleBaseObject) Private Fitems : TEntityUserLinksTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TEntityUserLinksTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TEntityUserLinksTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; end; TEntityUserLinksClass = Class of TEntityUserLinks; { -------------------------------------------------------------------- TExperimentTypeparentLink --------------------------------------------------------------------} TExperimentTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TExperimentTypeparentLinkClass = Class of TExperimentTypeparentLink; { -------------------------------------------------------------------- TExperimentTypevariationsItem --------------------------------------------------------------------} TExperimentTypevariationsItem = Class(TGoogleBaseObject) Private Fname : String; Fstatus : String; Furl : String; Fweight : double; Fwon : boolean; Protected //Property setters Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Procedure Setweight(AIndex : Integer; AValue : double); virtual; Procedure Setwon(AIndex : Integer; AValue : boolean); virtual; Public Published Property name : String Index 0 Read Fname Write Setname; Property status : String Index 8 Read Fstatus Write Setstatus; Property url : String Index 16 Read Furl Write Seturl; Property weight : double Index 24 Read Fweight Write Setweight; Property won : boolean Index 32 Read Fwon Write Setwon; end; TExperimentTypevariationsItemClass = Class of TExperimentTypevariationsItem; { -------------------------------------------------------------------- TExperiment --------------------------------------------------------------------} TExperiment = Class(TGoogleBaseObject) Private FaccountId : String; Fcreated : TDatetime; Fdescription : String; FeditableInGaUi : boolean; FendTime : TDatetime; FequalWeighting : boolean; Fid : String; FinternalWebPropertyId : String; Fkind : String; FminimumExperimentLengthInDays : integer; Fname : String; FobjectiveMetric : String; FoptimizationType : String; FparentLink : TExperimentTypeparentLink; FprofileId : String; FreasonExperimentEnded : String; FrewriteVariationUrlsAsOriginal : boolean; FselfLink : String; FservingFramework : String; Fsnippet : String; FstartTime : TDatetime; Fstatus : String; FtrafficCoverage : double; Fupdated : TDatetime; Fvariations : TExperimentTypevariationsArray; FwebPropertyId : String; FwinnerConfidenceLevel : double; FwinnerFound : boolean; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure SeteditableInGaUi(AIndex : Integer; AValue : boolean); virtual; Procedure SetendTime(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetequalWeighting(AIndex : Integer; AValue : boolean); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetminimumExperimentLengthInDays(AIndex : Integer; AValue : integer); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetobjectiveMetric(AIndex : Integer; const AValue : String); virtual; Procedure SetoptimizationType(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TExperimentTypeparentLink); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonExperimentEnded(AIndex : Integer; const AValue : String); virtual; Procedure SetrewriteVariationUrlsAsOriginal(AIndex : Integer; AValue : boolean); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SetservingFramework(AIndex : Integer; const AValue : String); virtual; Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual; Procedure SetstartTime(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Procedure SettrafficCoverage(AIndex : Integer; AValue : double); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setvariations(AIndex : Integer; AValue : TExperimentTypevariationsArray); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure SetwinnerConfidenceLevel(AIndex : Integer; AValue : double); virtual; Procedure SetwinnerFound(AIndex : Integer; 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 accountId : String Index 0 Read FaccountId Write SetaccountId; Property created : TDatetime Index 8 Read Fcreated Write Setcreated; Property description : String Index 16 Read Fdescription Write Setdescription; Property editableInGaUi : boolean Index 24 Read FeditableInGaUi Write SeteditableInGaUi; Property endTime : TDatetime Index 32 Read FendTime Write SetendTime; Property equalWeighting : boolean Index 40 Read FequalWeighting Write SetequalWeighting; Property id : String Index 48 Read Fid Write Setid; Property internalWebPropertyId : String Index 56 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 64 Read Fkind Write Setkind; Property minimumExperimentLengthInDays : integer Index 72 Read FminimumExperimentLengthInDays Write SetminimumExperimentLengthInDays; Property name : String Index 80 Read Fname Write Setname; Property objectiveMetric : String Index 88 Read FobjectiveMetric Write SetobjectiveMetric; Property optimizationType : String Index 96 Read FoptimizationType Write SetoptimizationType; Property parentLink : TExperimentTypeparentLink Index 104 Read FparentLink Write SetparentLink; Property profileId : String Index 112 Read FprofileId Write SetprofileId; Property reasonExperimentEnded : String Index 120 Read FreasonExperimentEnded Write SetreasonExperimentEnded; Property rewriteVariationUrlsAsOriginal : boolean Index 128 Read FrewriteVariationUrlsAsOriginal Write SetrewriteVariationUrlsAsOriginal; Property selfLink : String Index 136 Read FselfLink Write SetselfLink; Property servingFramework : String Index 144 Read FservingFramework Write SetservingFramework; Property snippet : String Index 152 Read Fsnippet Write Setsnippet; Property startTime : TDatetime Index 160 Read FstartTime Write SetstartTime; Property status : String Index 168 Read Fstatus Write Setstatus; Property trafficCoverage : double Index 176 Read FtrafficCoverage Write SettrafficCoverage; Property updated : TDatetime Index 184 Read Fupdated Write Setupdated; Property variations : TExperimentTypevariationsArray Index 192 Read Fvariations Write Setvariations; Property webPropertyId : String Index 200 Read FwebPropertyId Write SetwebPropertyId; Property winnerConfidenceLevel : double Index 208 Read FwinnerConfidenceLevel Write SetwinnerConfidenceLevel; Property winnerFound : boolean Index 216 Read FwinnerFound Write SetwinnerFound; end; TExperimentClass = Class of TExperiment; { -------------------------------------------------------------------- TExperiments --------------------------------------------------------------------} TExperiments = Class(TGoogleBaseObject) Private Fitems : TExperimentsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TExperimentsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TExperimentsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TExperimentsClass = Class of TExperiments; { -------------------------------------------------------------------- TFilterTypeadvancedDetails --------------------------------------------------------------------} TFilterTypeadvancedDetails = Class(TGoogleBaseObject) Private FcaseSensitive : boolean; FextractA : String; FextractB : String; FfieldA : String; FfieldAIndex : integer; FfieldARequired : boolean; FfieldB : String; FfieldBIndex : integer; FfieldBRequired : boolean; FoutputConstructor : String; FoutputToField : String; FoutputToFieldIndex : integer; FoverrideOutputField : boolean; Protected //Property setters Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual; Procedure SetextractA(AIndex : Integer; const AValue : String); virtual; Procedure SetextractB(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldA(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldAIndex(AIndex : Integer; AValue : integer); virtual; Procedure SetfieldARequired(AIndex : Integer; AValue : boolean); virtual; Procedure SetfieldB(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldBIndex(AIndex : Integer; AValue : integer); virtual; Procedure SetfieldBRequired(AIndex : Integer; AValue : boolean); virtual; Procedure SetoutputConstructor(AIndex : Integer; const AValue : String); virtual; Procedure SetoutputToField(AIndex : Integer; const AValue : String); virtual; Procedure SetoutputToFieldIndex(AIndex : Integer; AValue : integer); virtual; Procedure SetoverrideOutputField(AIndex : Integer; AValue : boolean); virtual; Public Published Property caseSensitive : boolean Index 0 Read FcaseSensitive Write SetcaseSensitive; Property extractA : String Index 8 Read FextractA Write SetextractA; Property extractB : String Index 16 Read FextractB Write SetextractB; Property fieldA : String Index 24 Read FfieldA Write SetfieldA; Property fieldAIndex : integer Index 32 Read FfieldAIndex Write SetfieldAIndex; Property fieldARequired : boolean Index 40 Read FfieldARequired Write SetfieldARequired; Property fieldB : String Index 48 Read FfieldB Write SetfieldB; Property fieldBIndex : integer Index 56 Read FfieldBIndex Write SetfieldBIndex; Property fieldBRequired : boolean Index 64 Read FfieldBRequired Write SetfieldBRequired; Property outputConstructor : String Index 72 Read FoutputConstructor Write SetoutputConstructor; Property outputToField : String Index 80 Read FoutputToField Write SetoutputToField; Property outputToFieldIndex : integer Index 88 Read FoutputToFieldIndex Write SetoutputToFieldIndex; Property overrideOutputField : boolean Index 96 Read FoverrideOutputField Write SetoverrideOutputField; end; TFilterTypeadvancedDetailsClass = Class of TFilterTypeadvancedDetails; { -------------------------------------------------------------------- TFilterTypelowercaseDetails --------------------------------------------------------------------} TFilterTypelowercaseDetails = Class(TGoogleBaseObject) Private Ffield : String; FfieldIndex : integer; Protected //Property setters Procedure Setfield(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual; Public Published Property field : String Index 0 Read Ffield Write Setfield; Property fieldIndex : integer Index 8 Read FfieldIndex Write SetfieldIndex; end; TFilterTypelowercaseDetailsClass = Class of TFilterTypelowercaseDetails; { -------------------------------------------------------------------- TFilterTypeparentLink --------------------------------------------------------------------} TFilterTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TFilterTypeparentLinkClass = Class of TFilterTypeparentLink; { -------------------------------------------------------------------- TFilterTypesearchAndReplaceDetails --------------------------------------------------------------------} TFilterTypesearchAndReplaceDetails = Class(TGoogleBaseObject) Private FcaseSensitive : boolean; Ffield : String; FfieldIndex : integer; FreplaceString : String; FsearchString : String; Protected //Property setters Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual; Procedure Setfield(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual; Procedure SetreplaceString(AIndex : Integer; const AValue : String); virtual; Procedure SetsearchString(AIndex : Integer; const AValue : String); virtual; Public Published Property caseSensitive : boolean Index 0 Read FcaseSensitive Write SetcaseSensitive; Property field : String Index 8 Read Ffield Write Setfield; Property fieldIndex : integer Index 16 Read FfieldIndex Write SetfieldIndex; Property replaceString : String Index 24 Read FreplaceString Write SetreplaceString; Property searchString : String Index 32 Read FsearchString Write SetsearchString; end; TFilterTypesearchAndReplaceDetailsClass = Class of TFilterTypesearchAndReplaceDetails; { -------------------------------------------------------------------- TFilterTypeuppercaseDetails --------------------------------------------------------------------} TFilterTypeuppercaseDetails = Class(TGoogleBaseObject) Private Ffield : String; FfieldIndex : integer; Protected //Property setters Procedure Setfield(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual; Public Published Property field : String Index 0 Read Ffield Write Setfield; Property fieldIndex : integer Index 8 Read FfieldIndex Write SetfieldIndex; end; TFilterTypeuppercaseDetailsClass = Class of TFilterTypeuppercaseDetails; { -------------------------------------------------------------------- TFilter --------------------------------------------------------------------} TFilter = Class(TGoogleBaseObject) Private FaccountId : String; FadvancedDetails : TFilterTypeadvancedDetails; Fcreated : TDatetime; FexcludeDetails : TFilterExpression; Fid : String; FincludeDetails : TFilterExpression; Fkind : String; FlowercaseDetails : TFilterTypelowercaseDetails; Fname : String; FparentLink : TFilterTypeparentLink; FsearchAndReplaceDetails : TFilterTypesearchAndReplaceDetails; FselfLink : String; F_type : String; Fupdated : TDatetime; FuppercaseDetails : TFilterTypeuppercaseDetails; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetadvancedDetails(AIndex : Integer; AValue : TFilterTypeadvancedDetails); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetexcludeDetails(AIndex : Integer; AValue : TFilterExpression); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetincludeDetails(AIndex : Integer; AValue : TFilterExpression); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlowercaseDetails(AIndex : Integer; AValue : TFilterTypelowercaseDetails); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TFilterTypeparentLink); virtual; Procedure SetsearchAndReplaceDetails(AIndex : Integer; AValue : TFilterTypesearchAndReplaceDetails); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetuppercaseDetails(AIndex : Integer; AValue : TFilterTypeuppercaseDetails); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property advancedDetails : TFilterTypeadvancedDetails Index 8 Read FadvancedDetails Write SetadvancedDetails; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property excludeDetails : TFilterExpression Index 24 Read FexcludeDetails Write SetexcludeDetails; Property id : String Index 32 Read Fid Write Setid; Property includeDetails : TFilterExpression Index 40 Read FincludeDetails Write SetincludeDetails; Property kind : String Index 48 Read Fkind Write Setkind; Property lowercaseDetails : TFilterTypelowercaseDetails Index 56 Read FlowercaseDetails Write SetlowercaseDetails; Property name : String Index 64 Read Fname Write Setname; Property parentLink : TFilterTypeparentLink Index 72 Read FparentLink Write SetparentLink; Property searchAndReplaceDetails : TFilterTypesearchAndReplaceDetails Index 80 Read FsearchAndReplaceDetails Write SetsearchAndReplaceDetails; Property selfLink : String Index 88 Read FselfLink Write SetselfLink; Property _type : String Index 96 Read F_type Write Set_type; Property updated : TDatetime Index 104 Read Fupdated Write Setupdated; Property uppercaseDetails : TFilterTypeuppercaseDetails Index 112 Read FuppercaseDetails Write SetuppercaseDetails; end; TFilterClass = Class of TFilter; { -------------------------------------------------------------------- TFilterExpression --------------------------------------------------------------------} TFilterExpression = Class(TGoogleBaseObject) Private FcaseSensitive : boolean; FexpressionValue : String; Ffield : String; FfieldIndex : integer; Fkind : String; FmatchType : String; Protected //Property setters Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual; Procedure SetexpressionValue(AIndex : Integer; const AValue : String); virtual; Procedure Setfield(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetmatchType(AIndex : Integer; const AValue : String); virtual; Public Published Property caseSensitive : boolean Index 0 Read FcaseSensitive Write SetcaseSensitive; Property expressionValue : String Index 8 Read FexpressionValue Write SetexpressionValue; Property field : String Index 16 Read Ffield Write Setfield; Property fieldIndex : integer Index 24 Read FfieldIndex Write SetfieldIndex; Property kind : String Index 32 Read Fkind Write Setkind; Property matchType : String Index 40 Read FmatchType Write SetmatchType; end; TFilterExpressionClass = Class of TFilterExpression; { -------------------------------------------------------------------- TFilterRef --------------------------------------------------------------------} TFilterRef = Class(TGoogleBaseObject) Private FaccountId : String; Fhref : String; Fid : String; Fkind : String; Fname : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property href : String Index 8 Read Fhref Write Sethref; Property id : String Index 16 Read Fid Write Setid; Property kind : String Index 24 Read Fkind Write Setkind; Property name : String Index 32 Read Fname Write Setname; end; TFilterRefClass = Class of TFilterRef; { -------------------------------------------------------------------- TFilters --------------------------------------------------------------------} TFilters = Class(TGoogleBaseObject) Private Fitems : TFiltersTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TFiltersTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TFiltersTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TFiltersClass = Class of TFilters; { -------------------------------------------------------------------- TGaDataTypecolumnHeadersItem --------------------------------------------------------------------} TGaDataTypecolumnHeadersItem = Class(TGoogleBaseObject) Private FcolumnType : String; FdataType : String; Fname : String; Protected //Property setters Procedure SetcolumnType(AIndex : Integer; const AValue : String); virtual; Procedure SetdataType(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property columnType : String Index 0 Read FcolumnType Write SetcolumnType; Property dataType : String Index 8 Read FdataType Write SetdataType; Property name : String Index 16 Read Fname Write Setname; end; TGaDataTypecolumnHeadersItemClass = Class of TGaDataTypecolumnHeadersItem; { -------------------------------------------------------------------- TGaDataTypedataTableTypecolsItem --------------------------------------------------------------------} TGaDataTypedataTableTypecolsItem = Class(TGoogleBaseObject) Private Fid : String; F_label : String; F_type : 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; Procedure Set_type(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; Property _type : String Index 16 Read F_type Write Set_type; end; TGaDataTypedataTableTypecolsItemClass = Class of TGaDataTypedataTableTypecolsItem; { -------------------------------------------------------------------- TGaDataTypedataTableTyperowsItemTypecItem --------------------------------------------------------------------} TGaDataTypedataTableTyperowsItemTypecItem = Class(TGoogleBaseObject) Private Fv : String; Protected //Property setters Procedure Setv(AIndex : Integer; const AValue : String); virtual; Public Published Property v : String Index 0 Read Fv Write Setv; end; TGaDataTypedataTableTyperowsItemTypecItemClass = Class of TGaDataTypedataTableTyperowsItemTypecItem; { -------------------------------------------------------------------- TGaDataTypedataTableTyperowsItem --------------------------------------------------------------------} TGaDataTypedataTableTyperowsItem = Class(TGoogleBaseObject) Private Fc : TGaDataTypedataTableTyperowsItemTypecArray; Protected //Property setters Procedure Setc(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsItemTypecArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property c : TGaDataTypedataTableTyperowsItemTypecArray Index 0 Read Fc Write Setc; end; TGaDataTypedataTableTyperowsItemClass = Class of TGaDataTypedataTableTyperowsItem; { -------------------------------------------------------------------- TGaDataTypedataTable --------------------------------------------------------------------} TGaDataTypedataTable = Class(TGoogleBaseObject) Private Fcols : TGaDataTypedataTableTypecolsArray; Frows : TGaDataTypedataTableTyperowsArray; Protected //Property setters Procedure Setcols(AIndex : Integer; AValue : TGaDataTypedataTableTypecolsArray); virtual; Procedure Setrows(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property cols : TGaDataTypedataTableTypecolsArray Index 0 Read Fcols Write Setcols; Property rows : TGaDataTypedataTableTyperowsArray Index 8 Read Frows Write Setrows; end; TGaDataTypedataTableClass = Class of TGaDataTypedataTable; { -------------------------------------------------------------------- TGaDataTypeprofileInfo --------------------------------------------------------------------} TGaDataTypeprofileInfo = Class(TGoogleBaseObject) Private FaccountId : String; FinternalWebPropertyId : String; FprofileId : String; FprofileName : String; FtableId : String; FwebPropertyId : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileName(AIndex : Integer; const AValue : String); virtual; Procedure SettableId(AIndex : Integer; const AValue : String); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property internalWebPropertyId : String Index 8 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property profileId : String Index 16 Read FprofileId Write SetprofileId; Property profileName : String Index 24 Read FprofileName Write SetprofileName; Property tableId : String Index 32 Read FtableId Write SettableId; Property webPropertyId : String Index 40 Read FwebPropertyId Write SetwebPropertyId; end; TGaDataTypeprofileInfoClass = Class of TGaDataTypeprofileInfo; { -------------------------------------------------------------------- TGaDataTypequery --------------------------------------------------------------------} TGaDataTypequery = Class(TGoogleBaseObject) Private Fdimensions : String; Fenddate : String; Ffilters : String; Fids : String; Fmaxresults : integer; Fmetrics : TStringArray; FsamplingLevel : String; Fsegment : String; Fsort : TStringArray; Fstartdate : String; Fstartindex : integer; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setdimensions(AIndex : Integer; const AValue : String); virtual; Procedure Setenddate(AIndex : Integer; const AValue : String); virtual; Procedure Setfilters(AIndex : Integer; const AValue : String); virtual; Procedure Setids(AIndex : Integer; const AValue : String); virtual; Procedure Setmaxresults(AIndex : Integer; AValue : integer); virtual; Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual; Procedure SetsamplingLevel(AIndex : Integer; const AValue : String); virtual; Procedure Setsegment(AIndex : Integer; const AValue : String); virtual; Procedure Setsort(AIndex : Integer; AValue : TStringArray); virtual; Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual; Procedure Setstartindex(AIndex : Integer; AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property dimensions : String Index 0 Read Fdimensions Write Setdimensions; Property enddate : String Index 8 Read Fenddate Write Setenddate; Property filters : String Index 16 Read Ffilters Write Setfilters; Property ids : String Index 24 Read Fids Write Setids; Property maxresults : integer Index 32 Read Fmaxresults Write Setmaxresults; Property metrics : TStringArray Index 40 Read Fmetrics Write Setmetrics; Property samplingLevel : String Index 48 Read FsamplingLevel Write SetsamplingLevel; Property segment : String Index 56 Read Fsegment Write Setsegment; Property sort : TStringArray Index 64 Read Fsort Write Setsort; Property startdate : String Index 72 Read Fstartdate Write Setstartdate; Property startindex : integer Index 80 Read Fstartindex Write Setstartindex; end; TGaDataTypequeryClass = Class of TGaDataTypequery; { -------------------------------------------------------------------- TGaDataTypetotalsForAllResults --------------------------------------------------------------------} TGaDataTypetotalsForAllResults = Class(TGoogleBaseObject) Private Protected //Property setters Public Class Function AllowAdditionalProperties : Boolean; override; Published end; TGaDataTypetotalsForAllResultsClass = Class of TGaDataTypetotalsForAllResults; { -------------------------------------------------------------------- TGaData --------------------------------------------------------------------} TGaData = Class(TGoogleBaseObject) Private FcolumnHeaders : TGaDataTypecolumnHeadersArray; FcontainsSampledData : boolean; FdataTable : TGaDataTypedataTable; Fid : String; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FprofileInfo : TGaDataTypeprofileInfo; Fquery : TGaDataTypequery; Frows : TGaDataTyperowsArray; FsampleSize : String; FsampleSpace : String; FselfLink : String; FtotalResults : integer; FtotalsForAllResults : TGaDataTypetotalsForAllResults; Protected //Property setters Procedure SetcolumnHeaders(AIndex : Integer; AValue : TGaDataTypecolumnHeadersArray); virtual; Procedure SetcontainsSampledData(AIndex : Integer; AValue : boolean); virtual; Procedure SetdataTable(AIndex : Integer; AValue : TGaDataTypedataTable); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileInfo(AIndex : Integer; AValue : TGaDataTypeprofileInfo); virtual; Procedure Setquery(AIndex : Integer; AValue : TGaDataTypequery); virtual; Procedure Setrows(AIndex : Integer; AValue : TGaDataTyperowsArray); virtual; Procedure SetsampleSize(AIndex : Integer; const AValue : String); virtual; Procedure SetsampleSpace(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure SettotalsForAllResults(AIndex : Integer; AValue : TGaDataTypetotalsForAllResults); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property columnHeaders : TGaDataTypecolumnHeadersArray Index 0 Read FcolumnHeaders Write SetcolumnHeaders; Property containsSampledData : boolean Index 8 Read FcontainsSampledData Write SetcontainsSampledData; Property dataTable : TGaDataTypedataTable Index 16 Read FdataTable Write SetdataTable; Property id : String Index 24 Read Fid Write Setid; Property itemsPerPage : integer Index 32 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 40 Read Fkind Write Setkind; Property nextLink : String Index 48 Read FnextLink Write SetnextLink; Property previousLink : String Index 56 Read FpreviousLink Write SetpreviousLink; Property profileInfo : TGaDataTypeprofileInfo Index 64 Read FprofileInfo Write SetprofileInfo; Property query : TGaDataTypequery Index 72 Read Fquery Write Setquery; Property rows : TGaDataTyperowsArray Index 80 Read Frows Write Setrows; Property sampleSize : String Index 88 Read FsampleSize Write SetsampleSize; Property sampleSpace : String Index 96 Read FsampleSpace Write SetsampleSpace; Property selfLink : String Index 104 Read FselfLink Write SetselfLink; Property totalResults : integer Index 112 Read FtotalResults Write SettotalResults; Property totalsForAllResults : TGaDataTypetotalsForAllResults Index 120 Read FtotalsForAllResults Write SettotalsForAllResults; end; TGaDataClass = Class of TGaData; { -------------------------------------------------------------------- TGoalTypeeventDetailsTypeeventConditionsItem --------------------------------------------------------------------} TGoalTypeeventDetailsTypeeventConditionsItem = Class(TGoogleBaseObject) Private FcomparisonType : String; FcomparisonValue : String; Fexpression : String; FmatchType : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetcomparisonType(AIndex : Integer; const AValue : String); virtual; Procedure SetcomparisonValue(AIndex : Integer; const AValue : String); virtual; Procedure Setexpression(AIndex : Integer; const AValue : String); virtual; Procedure SetmatchType(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property comparisonType : String Index 0 Read FcomparisonType Write SetcomparisonType; Property comparisonValue : String Index 8 Read FcomparisonValue Write SetcomparisonValue; Property expression : String Index 16 Read Fexpression Write Setexpression; Property matchType : String Index 24 Read FmatchType Write SetmatchType; Property _type : String Index 32 Read F_type Write Set_type; end; TGoalTypeeventDetailsTypeeventConditionsItemClass = Class of TGoalTypeeventDetailsTypeeventConditionsItem; { -------------------------------------------------------------------- TGoalTypeeventDetails --------------------------------------------------------------------} TGoalTypeeventDetails = Class(TGoogleBaseObject) Private FeventConditions : TGoalTypeeventDetailsTypeeventConditionsArray; FuseEventValue : boolean; Protected //Property setters Procedure SeteventConditions(AIndex : Integer; AValue : TGoalTypeeventDetailsTypeeventConditionsArray); virtual; Procedure SetuseEventValue(AIndex : Integer; 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 eventConditions : TGoalTypeeventDetailsTypeeventConditionsArray Index 0 Read FeventConditions Write SeteventConditions; Property useEventValue : boolean Index 8 Read FuseEventValue Write SetuseEventValue; end; TGoalTypeeventDetailsClass = Class of TGoalTypeeventDetails; { -------------------------------------------------------------------- TGoalTypeparentLink --------------------------------------------------------------------} TGoalTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TGoalTypeparentLinkClass = Class of TGoalTypeparentLink; { -------------------------------------------------------------------- TGoalTypeurlDestinationDetailsTypestepsItem --------------------------------------------------------------------} TGoalTypeurlDestinationDetailsTypestepsItem = Class(TGoogleBaseObject) Private Fname : String; Fnumber : integer; Furl : String; Protected //Property setters Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Setnumber(AIndex : Integer; AValue : integer); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property name : String Index 0 Read Fname Write Setname; Property number : integer Index 8 Read Fnumber Write Setnumber; Property url : String Index 16 Read Furl Write Seturl; end; TGoalTypeurlDestinationDetailsTypestepsItemClass = Class of TGoalTypeurlDestinationDetailsTypestepsItem; { -------------------------------------------------------------------- TGoalTypeurlDestinationDetails --------------------------------------------------------------------} TGoalTypeurlDestinationDetails = Class(TGoogleBaseObject) Private FcaseSensitive : boolean; FfirstStepRequired : boolean; FmatchType : String; Fsteps : TGoalTypeurlDestinationDetailsTypestepsArray; Furl : String; Protected //Property setters Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual; Procedure SetfirstStepRequired(AIndex : Integer; AValue : boolean); virtual; Procedure SetmatchType(AIndex : Integer; const AValue : String); virtual; Procedure Setsteps(AIndex : Integer; AValue : TGoalTypeurlDestinationDetailsTypestepsArray); virtual; Procedure Seturl(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 caseSensitive : boolean Index 0 Read FcaseSensitive Write SetcaseSensitive; Property firstStepRequired : boolean Index 8 Read FfirstStepRequired Write SetfirstStepRequired; Property matchType : String Index 16 Read FmatchType Write SetmatchType; Property steps : TGoalTypeurlDestinationDetailsTypestepsArray Index 24 Read Fsteps Write Setsteps; Property url : String Index 32 Read Furl Write Seturl; end; TGoalTypeurlDestinationDetailsClass = Class of TGoalTypeurlDestinationDetails; { -------------------------------------------------------------------- TGoalTypevisitNumPagesDetails --------------------------------------------------------------------} TGoalTypevisitNumPagesDetails = Class(TGoogleBaseObject) Private FcomparisonType : String; FcomparisonValue : String; Protected //Property setters Procedure SetcomparisonType(AIndex : Integer; const AValue : String); virtual; Procedure SetcomparisonValue(AIndex : Integer; const AValue : String); virtual; Public Published Property comparisonType : String Index 0 Read FcomparisonType Write SetcomparisonType; Property comparisonValue : String Index 8 Read FcomparisonValue Write SetcomparisonValue; end; TGoalTypevisitNumPagesDetailsClass = Class of TGoalTypevisitNumPagesDetails; { -------------------------------------------------------------------- TGoalTypevisitTimeOnSiteDetails --------------------------------------------------------------------} TGoalTypevisitTimeOnSiteDetails = Class(TGoogleBaseObject) Private FcomparisonType : String; FcomparisonValue : String; Protected //Property setters Procedure SetcomparisonType(AIndex : Integer; const AValue : String); virtual; Procedure SetcomparisonValue(AIndex : Integer; const AValue : String); virtual; Public Published Property comparisonType : String Index 0 Read FcomparisonType Write SetcomparisonType; Property comparisonValue : String Index 8 Read FcomparisonValue Write SetcomparisonValue; end; TGoalTypevisitTimeOnSiteDetailsClass = Class of TGoalTypevisitTimeOnSiteDetails; { -------------------------------------------------------------------- TGoal --------------------------------------------------------------------} TGoal = Class(TGoogleBaseObject) Private FaccountId : String; Factive : boolean; Fcreated : TDatetime; FeventDetails : TGoalTypeeventDetails; Fid : String; FinternalWebPropertyId : String; Fkind : String; Fname : String; FparentLink : TGoalTypeparentLink; FprofileId : String; FselfLink : String; F_type : String; Fupdated : TDatetime; FurlDestinationDetails : TGoalTypeurlDestinationDetails; Fvalue : integer; FvisitNumPagesDetails : TGoalTypevisitNumPagesDetails; FvisitTimeOnSiteDetails : TGoalTypevisitTimeOnSiteDetails; FwebPropertyId : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Setactive(AIndex : Integer; AValue : boolean); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SeteventDetails(AIndex : Integer; AValue : TGoalTypeeventDetails); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TGoalTypeparentLink); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SeturlDestinationDetails(AIndex : Integer; AValue : TGoalTypeurlDestinationDetails); virtual; Procedure Setvalue(AIndex : Integer; AValue : integer); virtual; Procedure SetvisitNumPagesDetails(AIndex : Integer; AValue : TGoalTypevisitNumPagesDetails); virtual; Procedure SetvisitTimeOnSiteDetails(AIndex : Integer; AValue : TGoalTypevisitTimeOnSiteDetails); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property active : boolean Index 8 Read Factive Write Setactive; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property eventDetails : TGoalTypeeventDetails Index 24 Read FeventDetails Write SeteventDetails; Property id : String Index 32 Read Fid Write Setid; Property internalWebPropertyId : String Index 40 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 48 Read Fkind Write Setkind; Property name : String Index 56 Read Fname Write Setname; Property parentLink : TGoalTypeparentLink Index 64 Read FparentLink Write SetparentLink; Property profileId : String Index 72 Read FprofileId Write SetprofileId; Property selfLink : String Index 80 Read FselfLink Write SetselfLink; Property _type : String Index 88 Read F_type Write Set_type; Property updated : TDatetime Index 96 Read Fupdated Write Setupdated; Property urlDestinationDetails : TGoalTypeurlDestinationDetails Index 104 Read FurlDestinationDetails Write SeturlDestinationDetails; Property value : integer Index 112 Read Fvalue Write Setvalue; Property visitNumPagesDetails : TGoalTypevisitNumPagesDetails Index 120 Read FvisitNumPagesDetails Write SetvisitNumPagesDetails; Property visitTimeOnSiteDetails : TGoalTypevisitTimeOnSiteDetails Index 128 Read FvisitTimeOnSiteDetails Write SetvisitTimeOnSiteDetails; Property webPropertyId : String Index 136 Read FwebPropertyId Write SetwebPropertyId; end; TGoalClass = Class of TGoal; { -------------------------------------------------------------------- TGoals --------------------------------------------------------------------} TGoals = Class(TGoogleBaseObject) Private Fitems : TGoalsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TGoalsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TGoalsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TGoalsClass = Class of TGoals; { -------------------------------------------------------------------- TMcfDataTypecolumnHeadersItem --------------------------------------------------------------------} TMcfDataTypecolumnHeadersItem = Class(TGoogleBaseObject) Private FcolumnType : String; FdataType : String; Fname : String; Protected //Property setters Procedure SetcolumnType(AIndex : Integer; const AValue : String); virtual; Procedure SetdataType(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property columnType : String Index 0 Read FcolumnType Write SetcolumnType; Property dataType : String Index 8 Read FdataType Write SetdataType; Property name : String Index 16 Read Fname Write Setname; end; TMcfDataTypecolumnHeadersItemClass = Class of TMcfDataTypecolumnHeadersItem; { -------------------------------------------------------------------- TMcfDataTypeprofileInfo --------------------------------------------------------------------} TMcfDataTypeprofileInfo = Class(TGoogleBaseObject) Private FaccountId : String; FinternalWebPropertyId : String; FprofileId : String; FprofileName : String; FtableId : String; FwebPropertyId : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileName(AIndex : Integer; const AValue : String); virtual; Procedure SettableId(AIndex : Integer; const AValue : String); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property internalWebPropertyId : String Index 8 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property profileId : String Index 16 Read FprofileId Write SetprofileId; Property profileName : String Index 24 Read FprofileName Write SetprofileName; Property tableId : String Index 32 Read FtableId Write SettableId; Property webPropertyId : String Index 40 Read FwebPropertyId Write SetwebPropertyId; end; TMcfDataTypeprofileInfoClass = Class of TMcfDataTypeprofileInfo; { -------------------------------------------------------------------- TMcfDataTypequery --------------------------------------------------------------------} TMcfDataTypequery = Class(TGoogleBaseObject) Private Fdimensions : String; Fenddate : String; Ffilters : String; Fids : String; Fmaxresults : integer; Fmetrics : TStringArray; FsamplingLevel : String; Fsegment : String; Fsort : TStringArray; Fstartdate : String; Fstartindex : integer; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setdimensions(AIndex : Integer; const AValue : String); virtual; Procedure Setenddate(AIndex : Integer; const AValue : String); virtual; Procedure Setfilters(AIndex : Integer; const AValue : String); virtual; Procedure Setids(AIndex : Integer; const AValue : String); virtual; Procedure Setmaxresults(AIndex : Integer; AValue : integer); virtual; Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual; Procedure SetsamplingLevel(AIndex : Integer; const AValue : String); virtual; Procedure Setsegment(AIndex : Integer; const AValue : String); virtual; Procedure Setsort(AIndex : Integer; AValue : TStringArray); virtual; Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual; Procedure Setstartindex(AIndex : Integer; AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property dimensions : String Index 0 Read Fdimensions Write Setdimensions; Property enddate : String Index 8 Read Fenddate Write Setenddate; Property filters : String Index 16 Read Ffilters Write Setfilters; Property ids : String Index 24 Read Fids Write Setids; Property maxresults : integer Index 32 Read Fmaxresults Write Setmaxresults; Property metrics : TStringArray Index 40 Read Fmetrics Write Setmetrics; Property samplingLevel : String Index 48 Read FsamplingLevel Write SetsamplingLevel; Property segment : String Index 56 Read Fsegment Write Setsegment; Property sort : TStringArray Index 64 Read Fsort Write Setsort; Property startdate : String Index 72 Read Fstartdate Write Setstartdate; Property startindex : integer Index 80 Read Fstartindex Write Setstartindex; end; TMcfDataTypequeryClass = Class of TMcfDataTypequery; { -------------------------------------------------------------------- TMcfDataTyperowsItemItemTypeconversionPathValueItem --------------------------------------------------------------------} TMcfDataTyperowsItemItemTypeconversionPathValueItem = Class(TGoogleBaseObject) Private FinteractionType : String; FnodeValue : String; Protected //Property setters Procedure SetinteractionType(AIndex : Integer; const AValue : String); virtual; Procedure SetnodeValue(AIndex : Integer; const AValue : String); virtual; Public Published Property interactionType : String Index 0 Read FinteractionType Write SetinteractionType; Property nodeValue : String Index 8 Read FnodeValue Write SetnodeValue; end; TMcfDataTyperowsItemItemTypeconversionPathValueItemClass = Class of TMcfDataTyperowsItemItemTypeconversionPathValueItem; { -------------------------------------------------------------------- TMcfDataTyperowsItemItem --------------------------------------------------------------------} TMcfDataTyperowsItemItem = Class(TGoogleBaseObject) Private FconversionPathValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray; FprimitiveValue : String; Protected //Property setters Procedure SetconversionPathValue(AIndex : Integer; AValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray); virtual; Procedure SetprimitiveValue(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 conversionPathValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray Index 0 Read FconversionPathValue Write SetconversionPathValue; Property primitiveValue : String Index 8 Read FprimitiveValue Write SetprimitiveValue; end; TMcfDataTyperowsItemItemClass = Class of TMcfDataTyperowsItemItem; { -------------------------------------------------------------------- TMcfDataTypetotalsForAllResults --------------------------------------------------------------------} TMcfDataTypetotalsForAllResults = Class(TGoogleBaseObject) Private Protected //Property setters Public Class Function AllowAdditionalProperties : Boolean; override; Published end; TMcfDataTypetotalsForAllResultsClass = Class of TMcfDataTypetotalsForAllResults; { -------------------------------------------------------------------- TMcfData --------------------------------------------------------------------} TMcfData = Class(TGoogleBaseObject) Private FcolumnHeaders : TMcfDataTypecolumnHeadersArray; FcontainsSampledData : boolean; Fid : String; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FprofileInfo : TMcfDataTypeprofileInfo; Fquery : TMcfDataTypequery; Frows : TMcfDataTyperowsArray; FsampleSize : String; FsampleSpace : String; FselfLink : String; FtotalResults : integer; FtotalsForAllResults : TMcfDataTypetotalsForAllResults; Protected //Property setters Procedure SetcolumnHeaders(AIndex : Integer; AValue : TMcfDataTypecolumnHeadersArray); virtual; Procedure SetcontainsSampledData(AIndex : Integer; AValue : boolean); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileInfo(AIndex : Integer; AValue : TMcfDataTypeprofileInfo); virtual; Procedure Setquery(AIndex : Integer; AValue : TMcfDataTypequery); virtual; Procedure Setrows(AIndex : Integer; AValue : TMcfDataTyperowsArray); virtual; Procedure SetsampleSize(AIndex : Integer; const AValue : String); virtual; Procedure SetsampleSpace(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure SettotalsForAllResults(AIndex : Integer; AValue : TMcfDataTypetotalsForAllResults); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property columnHeaders : TMcfDataTypecolumnHeadersArray Index 0 Read FcolumnHeaders Write SetcolumnHeaders; Property containsSampledData : boolean Index 8 Read FcontainsSampledData Write SetcontainsSampledData; Property id : String Index 16 Read Fid Write Setid; Property itemsPerPage : integer Index 24 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 32 Read Fkind Write Setkind; Property nextLink : String Index 40 Read FnextLink Write SetnextLink; Property previousLink : String Index 48 Read FpreviousLink Write SetpreviousLink; Property profileInfo : TMcfDataTypeprofileInfo Index 56 Read FprofileInfo Write SetprofileInfo; Property query : TMcfDataTypequery Index 64 Read Fquery Write Setquery; Property rows : TMcfDataTyperowsArray Index 72 Read Frows Write Setrows; Property sampleSize : String Index 80 Read FsampleSize Write SetsampleSize; Property sampleSpace : String Index 88 Read FsampleSpace Write SetsampleSpace; Property selfLink : String Index 96 Read FselfLink Write SetselfLink; Property totalResults : integer Index 104 Read FtotalResults Write SettotalResults; Property totalsForAllResults : TMcfDataTypetotalsForAllResults Index 112 Read FtotalsForAllResults Write SettotalsForAllResults; end; TMcfDataClass = Class of TMcfData; { -------------------------------------------------------------------- TProfileTypechildLink --------------------------------------------------------------------} TProfileTypechildLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TProfileTypechildLinkClass = Class of TProfileTypechildLink; { -------------------------------------------------------------------- TProfileTypeparentLink --------------------------------------------------------------------} TProfileTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TProfileTypeparentLinkClass = Class of TProfileTypeparentLink; { -------------------------------------------------------------------- TProfileTypepermissions --------------------------------------------------------------------} TProfileTypepermissions = Class(TGoogleBaseObject) Private Feffective : TStringArray; Protected //Property setters Procedure Seteffective(AIndex : Integer; 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 effective : TStringArray Index 0 Read Feffective Write Seteffective; end; TProfileTypepermissionsClass = Class of TProfileTypepermissions; { -------------------------------------------------------------------- TProfile --------------------------------------------------------------------} TProfile = Class(TGoogleBaseObject) Private FaccountId : String; FchildLink : TProfileTypechildLink; Fcreated : TDatetime; Fcurrency : String; FdefaultPage : String; FeCommerceTracking : boolean; FenhancedECommerceTracking : boolean; FexcludeQueryParameters : String; Fid : String; FinternalWebPropertyId : String; Fkind : String; Fname : String; FparentLink : TProfileTypeparentLink; Fpermissions : TProfileTypepermissions; FselfLink : String; FsiteSearchCategoryParameters : String; FsiteSearchQueryParameters : String; FstripSiteSearchCategoryParameters : boolean; FstripSiteSearchQueryParameters : boolean; Ftimezone : String; F_type : String; Fupdated : TDatetime; FwebPropertyId : String; FwebsiteUrl : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetchildLink(AIndex : Integer; AValue : TProfileTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual; Procedure SetdefaultPage(AIndex : Integer; const AValue : String); virtual; Procedure SeteCommerceTracking(AIndex : Integer; AValue : boolean); virtual; Procedure SetenhancedECommerceTracking(AIndex : Integer; AValue : boolean); virtual; Procedure SetexcludeQueryParameters(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TProfileTypeparentLink); virtual; Procedure Setpermissions(AIndex : Integer; AValue : TProfileTypepermissions); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SetsiteSearchCategoryParameters(AIndex : Integer; const AValue : String); virtual; Procedure SetsiteSearchQueryParameters(AIndex : Integer; const AValue : String); virtual; Procedure SetstripSiteSearchCategoryParameters(AIndex : Integer; AValue : boolean); virtual; Procedure SetstripSiteSearchQueryParameters(AIndex : Integer; AValue : boolean); virtual; Procedure Settimezone(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property childLink : TProfileTypechildLink Index 8 Read FchildLink Write SetchildLink; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property currency : String Index 24 Read Fcurrency Write Setcurrency; Property defaultPage : String Index 32 Read FdefaultPage Write SetdefaultPage; Property eCommerceTracking : boolean Index 40 Read FeCommerceTracking Write SeteCommerceTracking; Property enhancedECommerceTracking : boolean Index 48 Read FenhancedECommerceTracking Write SetenhancedECommerceTracking; Property excludeQueryParameters : String Index 56 Read FexcludeQueryParameters Write SetexcludeQueryParameters; Property id : String Index 64 Read Fid Write Setid; Property internalWebPropertyId : String Index 72 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 80 Read Fkind Write Setkind; Property name : String Index 88 Read Fname Write Setname; Property parentLink : TProfileTypeparentLink Index 96 Read FparentLink Write SetparentLink; Property permissions : TProfileTypepermissions Index 104 Read Fpermissions Write Setpermissions; Property selfLink : String Index 112 Read FselfLink Write SetselfLink; Property siteSearchCategoryParameters : String Index 120 Read FsiteSearchCategoryParameters Write SetsiteSearchCategoryParameters; Property siteSearchQueryParameters : String Index 128 Read FsiteSearchQueryParameters Write SetsiteSearchQueryParameters; Property stripSiteSearchCategoryParameters : boolean Index 136 Read FstripSiteSearchCategoryParameters Write SetstripSiteSearchCategoryParameters; Property stripSiteSearchQueryParameters : boolean Index 144 Read FstripSiteSearchQueryParameters Write SetstripSiteSearchQueryParameters; Property timezone : String Index 152 Read Ftimezone Write Settimezone; Property _type : String Index 160 Read F_type Write Set_type; Property updated : TDatetime Index 168 Read Fupdated Write Setupdated; Property webPropertyId : String Index 176 Read FwebPropertyId Write SetwebPropertyId; Property websiteUrl : String Index 184 Read FwebsiteUrl Write SetwebsiteUrl; end; TProfileClass = Class of TProfile; { -------------------------------------------------------------------- TProfileFilterLink --------------------------------------------------------------------} TProfileFilterLink = Class(TGoogleBaseObject) Private FfilterRef : TFilterRef; Fid : String; Fkind : String; FprofileRef : TProfileRef; Frank : integer; FselfLink : String; Protected //Property setters Procedure SetfilterRef(AIndex : Integer; AValue : TFilterRef); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileRef(AIndex : Integer; AValue : TProfileRef); virtual; Procedure Setrank(AIndex : Integer; AValue : integer); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Public Published Property filterRef : TFilterRef Index 0 Read FfilterRef Write SetfilterRef; Property id : String Index 8 Read Fid Write Setid; Property kind : String Index 16 Read Fkind Write Setkind; Property profileRef : TProfileRef Index 24 Read FprofileRef Write SetprofileRef; Property rank : integer Index 32 Read Frank Write Setrank; Property selfLink : String Index 40 Read FselfLink Write SetselfLink; end; TProfileFilterLinkClass = Class of TProfileFilterLink; { -------------------------------------------------------------------- TProfileFilterLinks --------------------------------------------------------------------} TProfileFilterLinks = Class(TGoogleBaseObject) Private Fitems : TProfileFilterLinksTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TProfileFilterLinksTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TProfileFilterLinksTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TProfileFilterLinksClass = Class of TProfileFilterLinks; { -------------------------------------------------------------------- TProfileRef --------------------------------------------------------------------} TProfileRef = Class(TGoogleBaseObject) Private FaccountId : String; Fhref : String; Fid : String; FinternalWebPropertyId : String; Fkind : String; Fname : String; FwebPropertyId : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property href : String Index 8 Read Fhref Write Sethref; Property id : String Index 16 Read Fid Write Setid; Property internalWebPropertyId : String Index 24 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 32 Read Fkind Write Setkind; Property name : String Index 40 Read Fname Write Setname; Property webPropertyId : String Index 48 Read FwebPropertyId Write SetwebPropertyId; end; TProfileRefClass = Class of TProfileRef; { -------------------------------------------------------------------- TProfileSummary --------------------------------------------------------------------} TProfileSummary = Class(TGoogleBaseObject) Private Fid : String; Fkind : String; Fname : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property id : String Index 0 Read Fid Write Setid; Property kind : String Index 8 Read Fkind Write Setkind; Property name : String Index 16 Read Fname Write Setname; Property _type : String Index 24 Read F_type Write Set_type; end; TProfileSummaryClass = Class of TProfileSummary; { -------------------------------------------------------------------- TProfiles --------------------------------------------------------------------} TProfiles = Class(TGoogleBaseObject) Private Fitems : TProfilesTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TProfilesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TProfilesTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TProfilesClass = Class of TProfiles; { -------------------------------------------------------------------- TRealtimeDataTypecolumnHeadersItem --------------------------------------------------------------------} TRealtimeDataTypecolumnHeadersItem = Class(TGoogleBaseObject) Private FcolumnType : String; FdataType : String; Fname : String; Protected //Property setters Procedure SetcolumnType(AIndex : Integer; const AValue : String); virtual; Procedure SetdataType(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property columnType : String Index 0 Read FcolumnType Write SetcolumnType; Property dataType : String Index 8 Read FdataType Write SetdataType; Property name : String Index 16 Read Fname Write Setname; end; TRealtimeDataTypecolumnHeadersItemClass = Class of TRealtimeDataTypecolumnHeadersItem; { -------------------------------------------------------------------- TRealtimeDataTypeprofileInfo --------------------------------------------------------------------} TRealtimeDataTypeprofileInfo = Class(TGoogleBaseObject) Private FaccountId : String; FinternalWebPropertyId : String; FprofileId : String; FprofileName : String; FtableId : String; FwebPropertyId : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileName(AIndex : Integer; const AValue : String); virtual; Procedure SettableId(AIndex : Integer; const AValue : String); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property internalWebPropertyId : String Index 8 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property profileId : String Index 16 Read FprofileId Write SetprofileId; Property profileName : String Index 24 Read FprofileName Write SetprofileName; Property tableId : String Index 32 Read FtableId Write SettableId; Property webPropertyId : String Index 40 Read FwebPropertyId Write SetwebPropertyId; end; TRealtimeDataTypeprofileInfoClass = Class of TRealtimeDataTypeprofileInfo; { -------------------------------------------------------------------- TRealtimeDataTypequery --------------------------------------------------------------------} TRealtimeDataTypequery = Class(TGoogleBaseObject) Private Fdimensions : String; Ffilters : String; Fids : String; Fmaxresults : integer; Fmetrics : TStringArray; Fsort : TStringArray; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setdimensions(AIndex : Integer; const AValue : String); virtual; Procedure Setfilters(AIndex : Integer; const AValue : String); virtual; Procedure Setids(AIndex : Integer; const AValue : String); virtual; Procedure Setmaxresults(AIndex : Integer; AValue : integer); virtual; Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual; Procedure Setsort(AIndex : Integer; 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 dimensions : String Index 0 Read Fdimensions Write Setdimensions; Property filters : String Index 8 Read Ffilters Write Setfilters; Property ids : String Index 16 Read Fids Write Setids; Property maxresults : integer Index 24 Read Fmaxresults Write Setmaxresults; Property metrics : TStringArray Index 32 Read Fmetrics Write Setmetrics; Property sort : TStringArray Index 40 Read Fsort Write Setsort; end; TRealtimeDataTypequeryClass = Class of TRealtimeDataTypequery; { -------------------------------------------------------------------- TRealtimeDataTypetotalsForAllResults --------------------------------------------------------------------} TRealtimeDataTypetotalsForAllResults = Class(TGoogleBaseObject) Private Protected //Property setters Public Class Function AllowAdditionalProperties : Boolean; override; Published end; TRealtimeDataTypetotalsForAllResultsClass = Class of TRealtimeDataTypetotalsForAllResults; { -------------------------------------------------------------------- TRealtimeData --------------------------------------------------------------------} TRealtimeData = Class(TGoogleBaseObject) Private FcolumnHeaders : TRealtimeDataTypecolumnHeadersArray; Fid : String; Fkind : String; FprofileInfo : TRealtimeDataTypeprofileInfo; Fquery : TRealtimeDataTypequery; Frows : TRealtimeDataTyperowsArray; FselfLink : String; FtotalResults : integer; FtotalsForAllResults : TRealtimeDataTypetotalsForAllResults; Protected //Property setters Procedure SetcolumnHeaders(AIndex : Integer; AValue : TRealtimeDataTypecolumnHeadersArray); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileInfo(AIndex : Integer; AValue : TRealtimeDataTypeprofileInfo); virtual; Procedure Setquery(AIndex : Integer; AValue : TRealtimeDataTypequery); virtual; Procedure Setrows(AIndex : Integer; AValue : TRealtimeDataTyperowsArray); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure SettotalsForAllResults(AIndex : Integer; AValue : TRealtimeDataTypetotalsForAllResults); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property columnHeaders : TRealtimeDataTypecolumnHeadersArray Index 0 Read FcolumnHeaders Write SetcolumnHeaders; Property id : String Index 8 Read Fid Write Setid; Property kind : String Index 16 Read Fkind Write Setkind; Property profileInfo : TRealtimeDataTypeprofileInfo Index 24 Read FprofileInfo Write SetprofileInfo; Property query : TRealtimeDataTypequery Index 32 Read Fquery Write Setquery; Property rows : TRealtimeDataTyperowsArray Index 40 Read Frows Write Setrows; Property selfLink : String Index 48 Read FselfLink Write SetselfLink; Property totalResults : integer Index 56 Read FtotalResults Write SettotalResults; Property totalsForAllResults : TRealtimeDataTypetotalsForAllResults Index 64 Read FtotalsForAllResults Write SettotalsForAllResults; end; TRealtimeDataClass = Class of TRealtimeData; { -------------------------------------------------------------------- TSegment --------------------------------------------------------------------} TSegment = Class(TGoogleBaseObject) Private Fcreated : TDatetime; Fdefinition : String; Fid : String; Fkind : String; Fname : String; FsegmentId : String; FselfLink : String; F_type : String; Fupdated : TDatetime; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setdefinition(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetsegmentId(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Public Published Property created : TDatetime Index 0 Read Fcreated Write Setcreated; Property definition : String Index 8 Read Fdefinition Write Setdefinition; Property id : String Index 16 Read Fid Write Setid; Property kind : String Index 24 Read Fkind Write Setkind; Property name : String Index 32 Read Fname Write Setname; Property segmentId : String Index 40 Read FsegmentId Write SetsegmentId; Property selfLink : String Index 48 Read FselfLink Write SetselfLink; Property _type : String Index 56 Read F_type Write Set_type; Property updated : TDatetime Index 64 Read Fupdated Write Setupdated; end; TSegmentClass = Class of TSegment; { -------------------------------------------------------------------- TSegments --------------------------------------------------------------------} TSegments = Class(TGoogleBaseObject) Private Fitems : TSegmentsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TSegmentsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TSegmentsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TSegmentsClass = Class of TSegments; { -------------------------------------------------------------------- TUnsampledReportTypecloudStorageDownloadDetails --------------------------------------------------------------------} TUnsampledReportTypecloudStorageDownloadDetails = Class(TGoogleBaseObject) Private FbucketId : String; FobjectId : String; Protected //Property setters Procedure SetbucketId(AIndex : Integer; const AValue : String); virtual; Procedure SetobjectId(AIndex : Integer; const AValue : String); virtual; Public Published Property bucketId : String Index 0 Read FbucketId Write SetbucketId; Property objectId : String Index 8 Read FobjectId Write SetobjectId; end; TUnsampledReportTypecloudStorageDownloadDetailsClass = Class of TUnsampledReportTypecloudStorageDownloadDetails; { -------------------------------------------------------------------- TUnsampledReportTypedriveDownloadDetails --------------------------------------------------------------------} TUnsampledReportTypedriveDownloadDetails = Class(TGoogleBaseObject) Private FdocumentId : String; Protected //Property setters Procedure SetdocumentId(AIndex : Integer; const AValue : String); virtual; Public Published Property documentId : String Index 0 Read FdocumentId Write SetdocumentId; end; TUnsampledReportTypedriveDownloadDetailsClass = Class of TUnsampledReportTypedriveDownloadDetails; { -------------------------------------------------------------------- TUnsampledReport --------------------------------------------------------------------} TUnsampledReport = Class(TGoogleBaseObject) Private FaccountId : String; FcloudStorageDownloadDetails : TUnsampledReportTypecloudStorageDownloadDetails; Fcreated : TDatetime; Fdimensions : String; FdownloadType : String; FdriveDownloadDetails : TUnsampledReportTypedriveDownloadDetails; Fenddate : String; Ffilters : String; Fid : String; Fkind : String; Fmetrics : String; FprofileId : String; Fsegment : String; FselfLink : String; Fstartdate : String; Fstatus : String; Ftitle : String; Fupdated : TDatetime; FwebPropertyId : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetcloudStorageDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypecloudStorageDownloadDetails); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure Setdimensions(AIndex : Integer; const AValue : String); virtual; Procedure SetdownloadType(AIndex : Integer; const AValue : String); virtual; Procedure SetdriveDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypedriveDownloadDetails); virtual; Procedure Setenddate(AIndex : Integer; const AValue : String); virtual; Procedure Setfilters(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setmetrics(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual; Procedure Setsegment(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Procedure Settitle(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property cloudStorageDownloadDetails : TUnsampledReportTypecloudStorageDownloadDetails Index 8 Read FcloudStorageDownloadDetails Write SetcloudStorageDownloadDetails; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property dimensions : String Index 24 Read Fdimensions Write Setdimensions; Property downloadType : String Index 32 Read FdownloadType Write SetdownloadType; Property driveDownloadDetails : TUnsampledReportTypedriveDownloadDetails Index 40 Read FdriveDownloadDetails Write SetdriveDownloadDetails; Property enddate : String Index 48 Read Fenddate Write Setenddate; Property filters : String Index 56 Read Ffilters Write Setfilters; Property id : String Index 64 Read Fid Write Setid; Property kind : String Index 72 Read Fkind Write Setkind; Property metrics : String Index 80 Read Fmetrics Write Setmetrics; Property profileId : String Index 88 Read FprofileId Write SetprofileId; Property segment : String Index 96 Read Fsegment Write Setsegment; Property selfLink : String Index 104 Read FselfLink Write SetselfLink; Property startdate : String Index 112 Read Fstartdate Write Setstartdate; Property status : String Index 120 Read Fstatus Write Setstatus; Property title : String Index 128 Read Ftitle Write Settitle; Property updated : TDatetime Index 136 Read Fupdated Write Setupdated; Property webPropertyId : String Index 144 Read FwebPropertyId Write SetwebPropertyId; end; TUnsampledReportClass = Class of TUnsampledReport; { -------------------------------------------------------------------- TUnsampledReports --------------------------------------------------------------------} TUnsampledReports = Class(TGoogleBaseObject) Private Fitems : TUnsampledReportsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TUnsampledReportsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TUnsampledReportsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TUnsampledReportsClass = Class of TUnsampledReports; { -------------------------------------------------------------------- TUpload --------------------------------------------------------------------} TUpload = Class(TGoogleBaseObject) Private FaccountId : String; FcustomDataSourceId : String; Ferrors : TStringArray; Fid : String; Fkind : String; Fstatus : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetcustomDataSourceId(AIndex : Integer; const AValue : String); virtual; Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(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 accountId : String Index 0 Read FaccountId Write SetaccountId; Property customDataSourceId : String Index 8 Read FcustomDataSourceId Write SetcustomDataSourceId; Property errors : TStringArray Index 16 Read Ferrors Write Seterrors; Property id : String Index 24 Read Fid Write Setid; Property kind : String Index 32 Read Fkind Write Setkind; Property status : String Index 40 Read Fstatus Write Setstatus; end; TUploadClass = Class of TUpload; { -------------------------------------------------------------------- TUploads --------------------------------------------------------------------} TUploads = Class(TGoogleBaseObject) Private Fitems : TUploadsTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TUploadsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TUploadsTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; end; TUploadsClass = Class of TUploads; { -------------------------------------------------------------------- TUserRef --------------------------------------------------------------------} TUserRef = Class(TGoogleBaseObject) Private Femail : String; Fid : String; Fkind : String; Protected //Property setters Procedure Setemail(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Public Published Property email : String Index 0 Read Femail Write Setemail; Property id : String Index 8 Read Fid Write Setid; Property kind : String Index 16 Read Fkind Write Setkind; end; TUserRefClass = Class of TUserRef; { -------------------------------------------------------------------- TWebPropertyRef --------------------------------------------------------------------} TWebPropertyRef = Class(TGoogleBaseObject) Private FaccountId : String; Fhref : String; Fid : String; FinternalWebPropertyId : String; Fkind : String; Fname : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property href : String Index 8 Read Fhref Write Sethref; Property id : String Index 16 Read Fid Write Setid; Property internalWebPropertyId : String Index 24 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 32 Read Fkind Write Setkind; Property name : String Index 40 Read Fname Write Setname; end; TWebPropertyRefClass = Class of TWebPropertyRef; { -------------------------------------------------------------------- TWebPropertySummary --------------------------------------------------------------------} TWebPropertySummary = Class(TGoogleBaseObject) Private Fid : String; FinternalWebPropertyId : String; Fkind : String; Flevel : String; Fname : String; Fprofiles : TWebPropertySummaryTypeprofilesArray; FwebsiteUrl : String; Protected //Property setters Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlevel(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Setprofiles(AIndex : Integer; AValue : TWebPropertySummaryTypeprofilesArray); virtual; Procedure SetwebsiteUrl(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 id : String Index 0 Read Fid Write Setid; Property internalWebPropertyId : String Index 8 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 16 Read Fkind Write Setkind; Property level : String Index 24 Read Flevel Write Setlevel; Property name : String Index 32 Read Fname Write Setname; Property profiles : TWebPropertySummaryTypeprofilesArray Index 40 Read Fprofiles Write Setprofiles; Property websiteUrl : String Index 48 Read FwebsiteUrl Write SetwebsiteUrl; end; TWebPropertySummaryClass = Class of TWebPropertySummary; { -------------------------------------------------------------------- TWebproperties --------------------------------------------------------------------} TWebproperties = Class(TGoogleBaseObject) Private Fitems : TWebpropertiesTypeitemsArray; FitemsPerPage : integer; Fkind : String; FnextLink : String; FpreviousLink : String; FstartIndex : integer; FtotalResults : integer; Fusername : String; Protected //Property setters Procedure Setitems(AIndex : Integer; AValue : TWebpropertiesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual; Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual; Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual; Procedure Setusername(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TWebpropertiesTypeitemsArray Index 0 Read Fitems Write Setitems; Property itemsPerPage : integer Index 8 Read FitemsPerPage Write SetitemsPerPage; Property kind : String Index 16 Read Fkind Write Setkind; Property nextLink : String Index 24 Read FnextLink Write SetnextLink; Property previousLink : String Index 32 Read FpreviousLink Write SetpreviousLink; Property startIndex : integer Index 40 Read FstartIndex Write SetstartIndex; Property totalResults : integer Index 48 Read FtotalResults Write SettotalResults; Property username : String Index 56 Read Fusername Write Setusername; end; TWebpropertiesClass = Class of TWebproperties; { -------------------------------------------------------------------- TWebpropertyTypechildLink --------------------------------------------------------------------} TWebpropertyTypechildLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TWebpropertyTypechildLinkClass = Class of TWebpropertyTypechildLink; { -------------------------------------------------------------------- TWebpropertyTypeparentLink --------------------------------------------------------------------} TWebpropertyTypeparentLink = Class(TGoogleBaseObject) Private Fhref : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Sethref(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property href : String Index 0 Read Fhref Write Sethref; Property _type : String Index 8 Read F_type Write Set_type; end; TWebpropertyTypeparentLinkClass = Class of TWebpropertyTypeparentLink; { -------------------------------------------------------------------- TWebpropertyTypepermissions --------------------------------------------------------------------} TWebpropertyTypepermissions = Class(TGoogleBaseObject) Private Feffective : TStringArray; Protected //Property setters Procedure Seteffective(AIndex : Integer; 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 effective : TStringArray Index 0 Read Feffective Write Seteffective; end; TWebpropertyTypepermissionsClass = Class of TWebpropertyTypepermissions; { -------------------------------------------------------------------- TWebproperty --------------------------------------------------------------------} TWebproperty = Class(TGoogleBaseObject) Private FaccountId : String; FchildLink : TWebpropertyTypechildLink; Fcreated : TDatetime; FdefaultProfileId : String; Fid : String; FindustryVertical : String; FinternalWebPropertyId : String; Fkind : String; Flevel : String; Fname : String; FparentLink : TWebpropertyTypeparentLink; Fpermissions : TWebpropertyTypepermissions; FprofileCount : integer; FselfLink : String; Fupdated : TDatetime; FwebsiteUrl : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetchildLink(AIndex : Integer; AValue : TWebpropertyTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetdefaultProfileId(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetindustryVertical(AIndex : Integer; const AValue : String); virtual; Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlevel(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; AValue : TWebpropertyTypeparentLink); virtual; Procedure Setpermissions(AIndex : Integer; AValue : TWebpropertyTypepermissions); virtual; Procedure SetprofileCount(AIndex : Integer; AValue : integer); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual; Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property childLink : TWebpropertyTypechildLink Index 8 Read FchildLink Write SetchildLink; Property created : TDatetime Index 16 Read Fcreated Write Setcreated; Property defaultProfileId : String Index 24 Read FdefaultProfileId Write SetdefaultProfileId; Property id : String Index 32 Read Fid Write Setid; Property industryVertical : String Index 40 Read FindustryVertical Write SetindustryVertical; Property internalWebPropertyId : String Index 48 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 56 Read Fkind Write Setkind; Property level : String Index 64 Read Flevel Write Setlevel; Property name : String Index 72 Read Fname Write Setname; Property parentLink : TWebpropertyTypeparentLink Index 80 Read FparentLink Write SetparentLink; Property permissions : TWebpropertyTypepermissions Index 88 Read Fpermissions Write Setpermissions; Property profileCount : integer Index 96 Read FprofileCount Write SetprofileCount; Property selfLink : String Index 104 Read FselfLink Write SetselfLink; Property updated : TDatetime Index 112 Read Fupdated Write Setupdated; Property websiteUrl : String Index 120 Read FwebsiteUrl Write SetwebsiteUrl; end; TWebpropertyClass = Class of TWebproperty; { -------------------------------------------------------------------- TDataGaResource --------------------------------------------------------------------} //Optional query Options for TDataGaResource, method Get TDataGaGetOptions = Record dimensions : String; enddate : String; filters : String; ids : String; maxresults : integer; metrics : String; output : String; samplingLevel : String; segment : String; sort : String; startdate : String; startindex : integer; end; TDataGaResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(AQuery : string = '') : TGaData; Function Get(AQuery : TDataGagetOptions) : TGaData; end; { -------------------------------------------------------------------- TDataMcfResource --------------------------------------------------------------------} //Optional query Options for TDataMcfResource, method Get TDataMcfGetOptions = Record dimensions : String; enddate : String; filters : String; ids : String; maxresults : integer; metrics : String; samplingLevel : String; sort : String; startdate : String; startindex : integer; end; TDataMcfResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(AQuery : string = '') : TMcfData; Function Get(AQuery : TDataMcfgetOptions) : TMcfData; end; { -------------------------------------------------------------------- TDataRealtimeResource --------------------------------------------------------------------} //Optional query Options for TDataRealtimeResource, method Get TDataRealtimeGetOptions = Record dimensions : String; filters : String; ids : String; maxresults : integer; metrics : String; sort : String; end; TDataRealtimeResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(AQuery : string = '') : TRealtimeData; Function Get(AQuery : TDataRealtimegetOptions) : TRealtimeData; end; { -------------------------------------------------------------------- TDataResource --------------------------------------------------------------------} TDataResource = Class(TGoogleResource) Private FGaInstance : TDataGaResource; FMcfInstance : TDataMcfResource; FRealtimeInstance : TDataRealtimeResource; Function GetGaInstance : TDataGaResource;virtual; Function GetMcfInstance : TDataMcfResource;virtual; Function GetRealtimeInstance : TDataRealtimeResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function CreateGaResource(AOwner : TComponent) : TDataGaResource;virtual;overload; Function CreateGaResource : TDataGaResource;virtual;overload; Function CreateMcfResource(AOwner : TComponent) : TDataMcfResource;virtual;overload; Function CreateMcfResource : TDataMcfResource;virtual;overload; Function CreateRealtimeResource(AOwner : TComponent) : TDataRealtimeResource;virtual;overload; Function CreateRealtimeResource : TDataRealtimeResource;virtual;overload; Property GaResource : TDataGaResource Read GetGaInstance; Property McfResource : TDataMcfResource Read GetMcfInstance; Property RealtimeResource : TDataRealtimeResource Read GetRealtimeInstance; end; { -------------------------------------------------------------------- TManagementAccountSummariesResource --------------------------------------------------------------------} //Optional query Options for TManagementAccountSummariesResource, method List TManagementAccountSummariesListOptions = Record maxresults : integer; startindex : integer; end; TManagementAccountSummariesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TAccountSummaries; Function List(AQuery : TManagementAccountSummarieslistOptions) : TAccountSummaries; end; { -------------------------------------------------------------------- TManagementAccountUserLinksResource --------------------------------------------------------------------} //Optional query Options for TManagementAccountUserLinksResource, method List TManagementAccountUserLinksListOptions = Record maxresults : integer; startindex : integer; end; TManagementAccountUserLinksResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; linkId: string); Function Insert(accountId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Function List(accountId: string; AQuery : string = '') : TEntityUserLinks; Function List(accountId: string; AQuery : TManagementAccountUserLinkslistOptions) : TEntityUserLinks; Function Update(accountId: string; linkId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; end; { -------------------------------------------------------------------- TManagementAccountsResource --------------------------------------------------------------------} //Optional query Options for TManagementAccountsResource, method List TManagementAccountsListOptions = Record maxresults : integer; startindex : integer; end; TManagementAccountsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TAccounts; Function List(AQuery : TManagementAccountslistOptions) : TAccounts; end; { -------------------------------------------------------------------- TManagementCustomDataSourcesResource --------------------------------------------------------------------} //Optional query Options for TManagementCustomDataSourcesResource, method List TManagementCustomDataSourcesListOptions = Record maxresults : integer; startindex : integer; end; TManagementCustomDataSourcesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(accountId: string; webPropertyId: string; AQuery : string = '') : TCustomDataSources; Function List(accountId: string; webPropertyId: string; AQuery : TManagementCustomDataSourceslistOptions) : TCustomDataSources; end; { -------------------------------------------------------------------- TManagementCustomDimensionsResource --------------------------------------------------------------------} //Optional query Options for TManagementCustomDimensionsResource, method List TManagementCustomDimensionsListOptions = Record maxresults : integer; startindex : integer; end; //Optional query Options for TManagementCustomDimensionsResource, method Patch TManagementCustomDimensionsPatchOptions = Record ignoreCustomDataSourceLinks : boolean; end; //Optional query Options for TManagementCustomDimensionsResource, method Update TManagementCustomDimensionsUpdateOptions = Record ignoreCustomDataSourceLinks : boolean; end; TManagementCustomDimensionsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(accountId: string; customDimensionId: string; webPropertyId: string) : TCustomDimension; Function Insert(accountId: string; webPropertyId: string; aCustomDimension : TCustomDimension) : TCustomDimension; Function List(accountId: string; webPropertyId: string; AQuery : string = '') : TCustomDimensions; Function List(accountId: string; webPropertyId: string; AQuery : TManagementCustomDimensionslistOptions) : TCustomDimensions; Function Patch(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : string = '') : TCustomDimension; Function Patch(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : TManagementCustomDimensionspatchOptions) : TCustomDimension; Function Update(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : string = '') : TCustomDimension; Function Update(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : TManagementCustomDimensionsupdateOptions) : TCustomDimension; end; { -------------------------------------------------------------------- TManagementCustomMetricsResource --------------------------------------------------------------------} //Optional query Options for TManagementCustomMetricsResource, method List TManagementCustomMetricsListOptions = Record maxresults : integer; startindex : integer; end; //Optional query Options for TManagementCustomMetricsResource, method Patch TManagementCustomMetricsPatchOptions = Record ignoreCustomDataSourceLinks : boolean; end; //Optional query Options for TManagementCustomMetricsResource, method Update TManagementCustomMetricsUpdateOptions = Record ignoreCustomDataSourceLinks : boolean; end; TManagementCustomMetricsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(accountId: string; customMetricId: string; webPropertyId: string) : TCustomMetric; Function Insert(accountId: string; webPropertyId: string; aCustomMetric : TCustomMetric) : TCustomMetric; Function List(accountId: string; webPropertyId: string; AQuery : string = '') : TCustomMetrics; Function List(accountId: string; webPropertyId: string; AQuery : TManagementCustomMetricslistOptions) : TCustomMetrics; Function Patch(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : string = '') : TCustomMetric; Function Patch(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : TManagementCustomMetricspatchOptions) : TCustomMetric; Function Update(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : string = '') : TCustomMetric; Function Update(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : TManagementCustomMetricsupdateOptions) : TCustomMetric; end; { -------------------------------------------------------------------- TManagementExperimentsResource --------------------------------------------------------------------} //Optional query Options for TManagementExperimentsResource, method List TManagementExperimentsListOptions = Record maxresults : integer; startindex : integer; end; TManagementExperimentsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; experimentId: string; profileId: string; webPropertyId: string); Function Get(accountId: string; experimentId: string; profileId: string; webPropertyId: string) : TExperiment; Function Insert(accountId: string; profileId: string; webPropertyId: string; aExperiment : TExperiment) : TExperiment; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TExperiments; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementExperimentslistOptions) : TExperiments; Function Patch(accountId: string; experimentId: string; profileId: string; webPropertyId: string; aExperiment : TExperiment) : TExperiment; Function Update(accountId: string; experimentId: string; profileId: string; webPropertyId: string; aExperiment : TExperiment) : TExperiment; end; { -------------------------------------------------------------------- TManagementFiltersResource --------------------------------------------------------------------} //Optional query Options for TManagementFiltersResource, method List TManagementFiltersListOptions = Record maxresults : integer; startindex : integer; end; TManagementFiltersResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Delete(accountId: string; filterId: string) : TFilter; Function Get(accountId: string; filterId: string) : TFilter; Function Insert(accountId: string; aFilter : TFilter) : TFilter; Function List(accountId: string; AQuery : string = '') : TFilters; Function List(accountId: string; AQuery : TManagementFilterslistOptions) : TFilters; Function Patch(accountId: string; filterId: string; aFilter : TFilter) : TFilter; Function Update(accountId: string; filterId: string; aFilter : TFilter) : TFilter; end; { -------------------------------------------------------------------- TManagementGoalsResource --------------------------------------------------------------------} //Optional query Options for TManagementGoalsResource, method List TManagementGoalsListOptions = Record maxresults : integer; startindex : integer; end; TManagementGoalsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(accountId: string; goalId: string; profileId: string; webPropertyId: string) : TGoal; Function Insert(accountId: string; profileId: string; webPropertyId: string; aGoal : TGoal) : TGoal; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TGoals; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementGoalslistOptions) : TGoals; Function Patch(accountId: string; goalId: string; profileId: string; webPropertyId: string; aGoal : TGoal) : TGoal; Function Update(accountId: string; goalId: string; profileId: string; webPropertyId: string; aGoal : TGoal) : TGoal; end; { -------------------------------------------------------------------- TManagementProfileFilterLinksResource --------------------------------------------------------------------} //Optional query Options for TManagementProfileFilterLinksResource, method List TManagementProfileFilterLinksListOptions = Record maxresults : integer; startindex : integer; end; TManagementProfileFilterLinksResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; linkId: string; profileId: string; webPropertyId: string); Function Get(accountId: string; linkId: string; profileId: string; webPropertyId: string) : TProfileFilterLink; Function Insert(accountId: string; profileId: string; webPropertyId: string; aProfileFilterLink : TProfileFilterLink) : TProfileFilterLink; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TProfileFilterLinks; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementProfileFilterLinkslistOptions) : TProfileFilterLinks; Function Patch(accountId: string; linkId: string; profileId: string; webPropertyId: string; aProfileFilterLink : TProfileFilterLink) : TProfileFilterLink; Function Update(accountId: string; linkId: string; profileId: string; webPropertyId: string; aProfileFilterLink : TProfileFilterLink) : TProfileFilterLink; end; { -------------------------------------------------------------------- TManagementProfileUserLinksResource --------------------------------------------------------------------} //Optional query Options for TManagementProfileUserLinksResource, method List TManagementProfileUserLinksListOptions = Record maxresults : integer; startindex : integer; end; TManagementProfileUserLinksResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; linkId: string; profileId: string; webPropertyId: string); Function Insert(accountId: string; profileId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TEntityUserLinks; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementProfileUserLinkslistOptions) : TEntityUserLinks; Function Update(accountId: string; linkId: string; profileId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; end; { -------------------------------------------------------------------- TManagementProfilesResource --------------------------------------------------------------------} //Optional query Options for TManagementProfilesResource, method List TManagementProfilesListOptions = Record maxresults : integer; startindex : integer; end; TManagementProfilesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; profileId: string; webPropertyId: string); Function Get(accountId: string; profileId: string; webPropertyId: string) : TProfile; Function Insert(accountId: string; webPropertyId: string; aProfile : TProfile) : TProfile; Function List(accountId: string; webPropertyId: string; AQuery : string = '') : TProfiles; Function List(accountId: string; webPropertyId: string; AQuery : TManagementProfileslistOptions) : TProfiles; Function Patch(accountId: string; profileId: string; webPropertyId: string; aProfile : TProfile) : TProfile; Function Update(accountId: string; profileId: string; webPropertyId: string; aProfile : TProfile) : TProfile; end; { -------------------------------------------------------------------- TManagementSegmentsResource --------------------------------------------------------------------} //Optional query Options for TManagementSegmentsResource, method List TManagementSegmentsListOptions = Record maxresults : integer; startindex : integer; end; TManagementSegmentsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TSegments; Function List(AQuery : TManagementSegmentslistOptions) : TSegments; end; { -------------------------------------------------------------------- TManagementUnsampledReportsResource --------------------------------------------------------------------} //Optional query Options for TManagementUnsampledReportsResource, method List TManagementUnsampledReportsListOptions = Record maxresults : integer; startindex : integer; end; TManagementUnsampledReportsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string) : TUnsampledReport; Function Insert(accountId: string; profileId: string; webPropertyId: string; aUnsampledReport : TUnsampledReport) : TUnsampledReport; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TUnsampledReports; Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementUnsampledReportslistOptions) : TUnsampledReports; end; { -------------------------------------------------------------------- TManagementUploadsResource --------------------------------------------------------------------} //Optional query Options for TManagementUploadsResource, method List TManagementUploadsListOptions = Record maxresults : integer; startindex : integer; end; TManagementUploadsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure DeleteUploadData(accountId: string; customDataSourceId: string; webPropertyId: string; aAnalyticsDataimportDeleteUploadDataRequest : TAnalyticsDataimportDeleteUploadDataRequest); Function Get(accountId: string; customDataSourceId: string; uploadId: string; webPropertyId: string) : TUpload; Function List(accountId: string; customDataSourceId: string; webPropertyId: string; AQuery : string = '') : TUploads; Function List(accountId: string; customDataSourceId: string; webPropertyId: string; AQuery : TManagementUploadslistOptions) : TUploads; Function UploadData(accountId: string; customDataSourceId: string; webPropertyId: string) : TUpload; end; { -------------------------------------------------------------------- TManagementWebPropertyAdWordsLinksResource --------------------------------------------------------------------} //Optional query Options for TManagementWebPropertyAdWordsLinksResource, method List TManagementWebPropertyAdWordsLinksListOptions = Record maxresults : integer; startindex : integer; end; TManagementWebPropertyAdWordsLinksResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string); Function Get(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string) : TEntityAdWordsLink; Function Insert(accountId: string; webPropertyId: string; aEntityAdWordsLink : TEntityAdWordsLink) : TEntityAdWordsLink; Function List(accountId: string; webPropertyId: string; AQuery : string = '') : TEntityAdWordsLinks; Function List(accountId: string; webPropertyId: string; AQuery : TManagementWebPropertyAdWordsLinkslistOptions) : TEntityAdWordsLinks; Function Patch(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string; aEntityAdWordsLink : TEntityAdWordsLink) : TEntityAdWordsLink; Function Update(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string; aEntityAdWordsLink : TEntityAdWordsLink) : TEntityAdWordsLink; end; { -------------------------------------------------------------------- TManagementWebpropertiesResource --------------------------------------------------------------------} //Optional query Options for TManagementWebpropertiesResource, method List TManagementWebpropertiesListOptions = Record maxresults : integer; startindex : integer; end; TManagementWebpropertiesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(accountId: string; webPropertyId: string) : TWebproperty; Function Insert(accountId: string; aWebproperty : TWebproperty) : TWebproperty; Function List(accountId: string; AQuery : string = '') : TWebproperties; Function List(accountId: string; AQuery : TManagementWebpropertieslistOptions) : TWebproperties; Function Patch(accountId: string; webPropertyId: string; aWebproperty : TWebproperty) : TWebproperty; Function Update(accountId: string; webPropertyId: string; aWebproperty : TWebproperty) : TWebproperty; end; { -------------------------------------------------------------------- TManagementWebpropertyUserLinksResource --------------------------------------------------------------------} //Optional query Options for TManagementWebpropertyUserLinksResource, method List TManagementWebpropertyUserLinksListOptions = Record maxresults : integer; startindex : integer; end; TManagementWebpropertyUserLinksResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; linkId: string; webPropertyId: string); Function Insert(accountId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Function List(accountId: string; webPropertyId: string; AQuery : string = '') : TEntityUserLinks; Function List(accountId: string; webPropertyId: string; AQuery : TManagementWebpropertyUserLinkslistOptions) : TEntityUserLinks; Function Update(accountId: string; linkId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; end; { -------------------------------------------------------------------- TManagementResource --------------------------------------------------------------------} TManagementResource = Class(TGoogleResource) Private FAccountSummariesInstance : TManagementAccountSummariesResource; FAccountUserLinksInstance : TManagementAccountUserLinksResource; FAccountsInstance : TManagementAccountsResource; FCustomDataSourcesInstance : TManagementCustomDataSourcesResource; FCustomDimensionsInstance : TManagementCustomDimensionsResource; FCustomMetricsInstance : TManagementCustomMetricsResource; FExperimentsInstance : TManagementExperimentsResource; FFiltersInstance : TManagementFiltersResource; FGoalsInstance : TManagementGoalsResource; FProfileFilterLinksInstance : TManagementProfileFilterLinksResource; FProfileUserLinksInstance : TManagementProfileUserLinksResource; FProfilesInstance : TManagementProfilesResource; FSegmentsInstance : TManagementSegmentsResource; FUnsampledReportsInstance : TManagementUnsampledReportsResource; FUploadsInstance : TManagementUploadsResource; FWebPropertyAdWordsLinksInstance : TManagementWebPropertyAdWordsLinksResource; FWebpropertiesInstance : TManagementWebpropertiesResource; FWebpropertyUserLinksInstance : TManagementWebpropertyUserLinksResource; Function GetAccountSummariesInstance : TManagementAccountSummariesResource;virtual; Function GetAccountUserLinksInstance : TManagementAccountUserLinksResource;virtual; Function GetAccountsInstance : TManagementAccountsResource;virtual; Function GetCustomDataSourcesInstance : TManagementCustomDataSourcesResource;virtual; Function GetCustomDimensionsInstance : TManagementCustomDimensionsResource;virtual; Function GetCustomMetricsInstance : TManagementCustomMetricsResource;virtual; Function GetExperimentsInstance : TManagementExperimentsResource;virtual; Function GetFiltersInstance : TManagementFiltersResource;virtual; Function GetGoalsInstance : TManagementGoalsResource;virtual; Function GetProfileFilterLinksInstance : TManagementProfileFilterLinksResource;virtual; Function GetProfileUserLinksInstance : TManagementProfileUserLinksResource;virtual; Function GetProfilesInstance : TManagementProfilesResource;virtual; Function GetSegmentsInstance : TManagementSegmentsResource;virtual; Function GetUnsampledReportsInstance : TManagementUnsampledReportsResource;virtual; Function GetUploadsInstance : TManagementUploadsResource;virtual; Function GetWebPropertyAdWordsLinksInstance : TManagementWebPropertyAdWordsLinksResource;virtual; Function GetWebpropertiesInstance : TManagementWebpropertiesResource;virtual; Function GetWebpropertyUserLinksInstance : TManagementWebpropertyUserLinksResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function CreateAccountSummariesResource(AOwner : TComponent) : TManagementAccountSummariesResource;virtual;overload; Function CreateAccountSummariesResource : TManagementAccountSummariesResource;virtual;overload; Function CreateAccountUserLinksResource(AOwner : TComponent) : TManagementAccountUserLinksResource;virtual;overload; Function CreateAccountUserLinksResource : TManagementAccountUserLinksResource;virtual;overload; Function CreateAccountsResource(AOwner : TComponent) : TManagementAccountsResource;virtual;overload; Function CreateAccountsResource : TManagementAccountsResource;virtual;overload; Function CreateCustomDataSourcesResource(AOwner : TComponent) : TManagementCustomDataSourcesResource;virtual;overload; Function CreateCustomDataSourcesResource : TManagementCustomDataSourcesResource;virtual;overload; Function CreateCustomDimensionsResource(AOwner : TComponent) : TManagementCustomDimensionsResource;virtual;overload; Function CreateCustomDimensionsResource : TManagementCustomDimensionsResource;virtual;overload; Function CreateCustomMetricsResource(AOwner : TComponent) : TManagementCustomMetricsResource;virtual;overload; Function CreateCustomMetricsResource : TManagementCustomMetricsResource;virtual;overload; Function CreateExperimentsResource(AOwner : TComponent) : TManagementExperimentsResource;virtual;overload; Function CreateExperimentsResource : TManagementExperimentsResource;virtual;overload; Function CreateFiltersResource(AOwner : TComponent) : TManagementFiltersResource;virtual;overload; Function CreateFiltersResource : TManagementFiltersResource;virtual;overload; Function CreateGoalsResource(AOwner : TComponent) : TManagementGoalsResource;virtual;overload; Function CreateGoalsResource : TManagementGoalsResource;virtual;overload; Function CreateProfileFilterLinksResource(AOwner : TComponent) : TManagementProfileFilterLinksResource;virtual;overload; Function CreateProfileFilterLinksResource : TManagementProfileFilterLinksResource;virtual;overload; Function CreateProfileUserLinksResource(AOwner : TComponent) : TManagementProfileUserLinksResource;virtual;overload; Function CreateProfileUserLinksResource : TManagementProfileUserLinksResource;virtual;overload; Function CreateProfilesResource(AOwner : TComponent) : TManagementProfilesResource;virtual;overload; Function CreateProfilesResource : TManagementProfilesResource;virtual;overload; Function CreateSegmentsResource(AOwner : TComponent) : TManagementSegmentsResource;virtual;overload; Function CreateSegmentsResource : TManagementSegmentsResource;virtual;overload; Function CreateUnsampledReportsResource(AOwner : TComponent) : TManagementUnsampledReportsResource;virtual;overload; Function CreateUnsampledReportsResource : TManagementUnsampledReportsResource;virtual;overload; Function CreateUploadsResource(AOwner : TComponent) : TManagementUploadsResource;virtual;overload; Function CreateUploadsResource : TManagementUploadsResource;virtual;overload; Function CreateWebPropertyAdWordsLinksResource(AOwner : TComponent) : TManagementWebPropertyAdWordsLinksResource;virtual;overload; Function CreateWebPropertyAdWordsLinksResource : TManagementWebPropertyAdWordsLinksResource;virtual;overload; Function CreateWebpropertiesResource(AOwner : TComponent) : TManagementWebpropertiesResource;virtual;overload; Function CreateWebpropertiesResource : TManagementWebpropertiesResource;virtual;overload; Function CreateWebpropertyUserLinksResource(AOwner : TComponent) : TManagementWebpropertyUserLinksResource;virtual;overload; Function CreateWebpropertyUserLinksResource : TManagementWebpropertyUserLinksResource;virtual;overload; Property AccountSummariesResource : TManagementAccountSummariesResource Read GetAccountSummariesInstance; Property AccountUserLinksResource : TManagementAccountUserLinksResource Read GetAccountUserLinksInstance; Property AccountsResource : TManagementAccountsResource Read GetAccountsInstance; Property CustomDataSourcesResource : TManagementCustomDataSourcesResource Read GetCustomDataSourcesInstance; Property CustomDimensionsResource : TManagementCustomDimensionsResource Read GetCustomDimensionsInstance; Property CustomMetricsResource : TManagementCustomMetricsResource Read GetCustomMetricsInstance; Property ExperimentsResource : TManagementExperimentsResource Read GetExperimentsInstance; Property FiltersResource : TManagementFiltersResource Read GetFiltersInstance; Property GoalsResource : TManagementGoalsResource Read GetGoalsInstance; Property ProfileFilterLinksResource : TManagementProfileFilterLinksResource Read GetProfileFilterLinksInstance; Property ProfileUserLinksResource : TManagementProfileUserLinksResource Read GetProfileUserLinksInstance; Property ProfilesResource : TManagementProfilesResource Read GetProfilesInstance; Property SegmentsResource : TManagementSegmentsResource Read GetSegmentsInstance; Property UnsampledReportsResource : TManagementUnsampledReportsResource Read GetUnsampledReportsInstance; Property UploadsResource : TManagementUploadsResource Read GetUploadsInstance; Property WebPropertyAdWordsLinksResource : TManagementWebPropertyAdWordsLinksResource Read GetWebPropertyAdWordsLinksInstance; Property WebpropertiesResource : TManagementWebpropertiesResource Read GetWebpropertiesInstance; Property WebpropertyUserLinksResource : TManagementWebpropertyUserLinksResource Read GetWebpropertyUserLinksInstance; end; { -------------------------------------------------------------------- TMetadataColumnsResource --------------------------------------------------------------------} TMetadataColumnsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(reportType: string) : TColumns; end; { -------------------------------------------------------------------- TMetadataResource --------------------------------------------------------------------} TMetadataResource = Class(TGoogleResource) Private FColumnsInstance : TMetadataColumnsResource; Function GetColumnsInstance : TMetadataColumnsResource;virtual; Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function CreateColumnsResource(AOwner : TComponent) : TMetadataColumnsResource;virtual;overload; Function CreateColumnsResource : TMetadataColumnsResource;virtual;overload; Property ColumnsResource : TMetadataColumnsResource Read GetColumnsInstance; end; { -------------------------------------------------------------------- TProvisioningResource --------------------------------------------------------------------} TProvisioningResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function CreateAccountTicket(aAccountTicket : TAccountTicket) : TAccountTicket; end; { -------------------------------------------------------------------- TAnalyticsAPI --------------------------------------------------------------------} TAnalyticsAPI = Class(TGoogleAPI) Private FDataGaInstance : TDataGaResource; FDataMcfInstance : TDataMcfResource; FDataRealtimeInstance : TDataRealtimeResource; FDataInstance : TDataResource; FManagementAccountSummariesInstance : TManagementAccountSummariesResource; FManagementAccountUserLinksInstance : TManagementAccountUserLinksResource; FManagementAccountsInstance : TManagementAccountsResource; FManagementCustomDataSourcesInstance : TManagementCustomDataSourcesResource; FManagementCustomDimensionsInstance : TManagementCustomDimensionsResource; FManagementCustomMetricsInstance : TManagementCustomMetricsResource; FManagementExperimentsInstance : TManagementExperimentsResource; FManagementFiltersInstance : TManagementFiltersResource; FManagementGoalsInstance : TManagementGoalsResource; FManagementProfileFilterLinksInstance : TManagementProfileFilterLinksResource; FManagementProfileUserLinksInstance : TManagementProfileUserLinksResource; FManagementProfilesInstance : TManagementProfilesResource; FManagementSegmentsInstance : TManagementSegmentsResource; FManagementUnsampledReportsInstance : TManagementUnsampledReportsResource; FManagementUploadsInstance : TManagementUploadsResource; FManagementWebPropertyAdWordsLinksInstance : TManagementWebPropertyAdWordsLinksResource; FManagementWebpropertiesInstance : TManagementWebpropertiesResource; FManagementWebpropertyUserLinksInstance : TManagementWebpropertyUserLinksResource; FManagementInstance : TManagementResource; FMetadataColumnsInstance : TMetadataColumnsResource; FMetadataInstance : TMetadataResource; FProvisioningInstance : TProvisioningResource; Function GetDataGaInstance : TDataGaResource;virtual; Function GetDataMcfInstance : TDataMcfResource;virtual; Function GetDataRealtimeInstance : TDataRealtimeResource;virtual; Function GetDataInstance : TDataResource;virtual; Function GetManagementAccountSummariesInstance : TManagementAccountSummariesResource;virtual; Function GetManagementAccountUserLinksInstance : TManagementAccountUserLinksResource;virtual; Function GetManagementAccountsInstance : TManagementAccountsResource;virtual; Function GetManagementCustomDataSourcesInstance : TManagementCustomDataSourcesResource;virtual; Function GetManagementCustomDimensionsInstance : TManagementCustomDimensionsResource;virtual; Function GetManagementCustomMetricsInstance : TManagementCustomMetricsResource;virtual; Function GetManagementExperimentsInstance : TManagementExperimentsResource;virtual; Function GetManagementFiltersInstance : TManagementFiltersResource;virtual; Function GetManagementGoalsInstance : TManagementGoalsResource;virtual; Function GetManagementProfileFilterLinksInstance : TManagementProfileFilterLinksResource;virtual; Function GetManagementProfileUserLinksInstance : TManagementProfileUserLinksResource;virtual; Function GetManagementProfilesInstance : TManagementProfilesResource;virtual; Function GetManagementSegmentsInstance : TManagementSegmentsResource;virtual; Function GetManagementUnsampledReportsInstance : TManagementUnsampledReportsResource;virtual; Function GetManagementUploadsInstance : TManagementUploadsResource;virtual; Function GetManagementWebPropertyAdWordsLinksInstance : TManagementWebPropertyAdWordsLinksResource;virtual; Function GetManagementWebpropertiesInstance : TManagementWebpropertiesResource;virtual; Function GetManagementWebpropertyUserLinksInstance : TManagementWebpropertyUserLinksResource;virtual; Function GetManagementInstance : TManagementResource;virtual; Function GetMetadataColumnsInstance : TMetadataColumnsResource;virtual; Function GetMetadataInstance : TMetadataResource;virtual; Function GetProvisioningInstance : TProvisioningResource;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 CreateDataGaResource(AOwner : TComponent) : TDataGaResource;virtual;overload; Function CreateDataGaResource : TDataGaResource;virtual;overload; Function CreateDataMcfResource(AOwner : TComponent) : TDataMcfResource;virtual;overload; Function CreateDataMcfResource : TDataMcfResource;virtual;overload; Function CreateDataRealtimeResource(AOwner : TComponent) : TDataRealtimeResource;virtual;overload; Function CreateDataRealtimeResource : TDataRealtimeResource;virtual;overload; Function CreateDataResource(AOwner : TComponent) : TDataResource;virtual;overload; Function CreateDataResource : TDataResource;virtual;overload; Function CreateManagementAccountSummariesResource(AOwner : TComponent) : TManagementAccountSummariesResource;virtual;overload; Function CreateManagementAccountSummariesResource : TManagementAccountSummariesResource;virtual;overload; Function CreateManagementAccountUserLinksResource(AOwner : TComponent) : TManagementAccountUserLinksResource;virtual;overload; Function CreateManagementAccountUserLinksResource : TManagementAccountUserLinksResource;virtual;overload; Function CreateManagementAccountsResource(AOwner : TComponent) : TManagementAccountsResource;virtual;overload; Function CreateManagementAccountsResource : TManagementAccountsResource;virtual;overload; Function CreateManagementCustomDataSourcesResource(AOwner : TComponent) : TManagementCustomDataSourcesResource;virtual;overload; Function CreateManagementCustomDataSourcesResource : TManagementCustomDataSourcesResource;virtual;overload; Function CreateManagementCustomDimensionsResource(AOwner : TComponent) : TManagementCustomDimensionsResource;virtual;overload; Function CreateManagementCustomDimensionsResource : TManagementCustomDimensionsResource;virtual;overload; Function CreateManagementCustomMetricsResource(AOwner : TComponent) : TManagementCustomMetricsResource;virtual;overload; Function CreateManagementCustomMetricsResource : TManagementCustomMetricsResource;virtual;overload; Function CreateManagementExperimentsResource(AOwner : TComponent) : TManagementExperimentsResource;virtual;overload; Function CreateManagementExperimentsResource : TManagementExperimentsResource;virtual;overload; Function CreateManagementFiltersResource(AOwner : TComponent) : TManagementFiltersResource;virtual;overload; Function CreateManagementFiltersResource : TManagementFiltersResource;virtual;overload; Function CreateManagementGoalsResource(AOwner : TComponent) : TManagementGoalsResource;virtual;overload; Function CreateManagementGoalsResource : TManagementGoalsResource;virtual;overload; Function CreateManagementProfileFilterLinksResource(AOwner : TComponent) : TManagementProfileFilterLinksResource;virtual;overload; Function CreateManagementProfileFilterLinksResource : TManagementProfileFilterLinksResource;virtual;overload; Function CreateManagementProfileUserLinksResource(AOwner : TComponent) : TManagementProfileUserLinksResource;virtual;overload; Function CreateManagementProfileUserLinksResource : TManagementProfileUserLinksResource;virtual;overload; Function CreateManagementProfilesResource(AOwner : TComponent) : TManagementProfilesResource;virtual;overload; Function CreateManagementProfilesResource : TManagementProfilesResource;virtual;overload; Function CreateManagementSegmentsResource(AOwner : TComponent) : TManagementSegmentsResource;virtual;overload; Function CreateManagementSegmentsResource : TManagementSegmentsResource;virtual;overload; Function CreateManagementUnsampledReportsResource(AOwner : TComponent) : TManagementUnsampledReportsResource;virtual;overload; Function CreateManagementUnsampledReportsResource : TManagementUnsampledReportsResource;virtual;overload; Function CreateManagementUploadsResource(AOwner : TComponent) : TManagementUploadsResource;virtual;overload; Function CreateManagementUploadsResource : TManagementUploadsResource;virtual;overload; Function CreateManagementWebPropertyAdWordsLinksResource(AOwner : TComponent) : TManagementWebPropertyAdWordsLinksResource;virtual;overload; Function CreateManagementWebPropertyAdWordsLinksResource : TManagementWebPropertyAdWordsLinksResource;virtual;overload; Function CreateManagementWebpropertiesResource(AOwner : TComponent) : TManagementWebpropertiesResource;virtual;overload; Function CreateManagementWebpropertiesResource : TManagementWebpropertiesResource;virtual;overload; Function CreateManagementWebpropertyUserLinksResource(AOwner : TComponent) : TManagementWebpropertyUserLinksResource;virtual;overload; Function CreateManagementWebpropertyUserLinksResource : TManagementWebpropertyUserLinksResource;virtual;overload; Function CreateManagementResource(AOwner : TComponent) : TManagementResource;virtual;overload; Function CreateManagementResource : TManagementResource;virtual;overload; Function CreateMetadataColumnsResource(AOwner : TComponent) : TMetadataColumnsResource;virtual;overload; Function CreateMetadataColumnsResource : TMetadataColumnsResource;virtual;overload; Function CreateMetadataResource(AOwner : TComponent) : TMetadataResource;virtual;overload; Function CreateMetadataResource : TMetadataResource;virtual;overload; Function CreateProvisioningResource(AOwner : TComponent) : TProvisioningResource;virtual;overload; Function CreateProvisioningResource : TProvisioningResource;virtual;overload; //Add default on-demand instances for resources Property DataGaResource : TDataGaResource Read GetDataGaInstance; Property DataMcfResource : TDataMcfResource Read GetDataMcfInstance; Property DataRealtimeResource : TDataRealtimeResource Read GetDataRealtimeInstance; Property DataResource : TDataResource Read GetDataInstance; Property ManagementAccountSummariesResource : TManagementAccountSummariesResource Read GetManagementAccountSummariesInstance; Property ManagementAccountUserLinksResource : TManagementAccountUserLinksResource Read GetManagementAccountUserLinksInstance; Property ManagementAccountsResource : TManagementAccountsResource Read GetManagementAccountsInstance; Property ManagementCustomDataSourcesResource : TManagementCustomDataSourcesResource Read GetManagementCustomDataSourcesInstance; Property ManagementCustomDimensionsResource : TManagementCustomDimensionsResource Read GetManagementCustomDimensionsInstance; Property ManagementCustomMetricsResource : TManagementCustomMetricsResource Read GetManagementCustomMetricsInstance; Property ManagementExperimentsResource : TManagementExperimentsResource Read GetManagementExperimentsInstance; Property ManagementFiltersResource : TManagementFiltersResource Read GetManagementFiltersInstance; Property ManagementGoalsResource : TManagementGoalsResource Read GetManagementGoalsInstance; Property ManagementProfileFilterLinksResource : TManagementProfileFilterLinksResource Read GetManagementProfileFilterLinksInstance; Property ManagementProfileUserLinksResource : TManagementProfileUserLinksResource Read GetManagementProfileUserLinksInstance; Property ManagementProfilesResource : TManagementProfilesResource Read GetManagementProfilesInstance; Property ManagementSegmentsResource : TManagementSegmentsResource Read GetManagementSegmentsInstance; Property ManagementUnsampledReportsResource : TManagementUnsampledReportsResource Read GetManagementUnsampledReportsInstance; Property ManagementUploadsResource : TManagementUploadsResource Read GetManagementUploadsInstance; Property ManagementWebPropertyAdWordsLinksResource : TManagementWebPropertyAdWordsLinksResource Read GetManagementWebPropertyAdWordsLinksInstance; Property ManagementWebpropertiesResource : TManagementWebpropertiesResource Read GetManagementWebpropertiesInstance; Property ManagementWebpropertyUserLinksResource : TManagementWebpropertyUserLinksResource Read GetManagementWebpropertyUserLinksInstance; Property ManagementResource : TManagementResource Read GetManagementInstance; Property MetadataColumnsResource : TMetadataColumnsResource Read GetMetadataColumnsInstance; Property MetadataResource : TMetadataResource Read GetMetadataInstance; Property ProvisioningResource : TProvisioningResource Read GetProvisioningInstance; end; implementation { -------------------------------------------------------------------- TAccountTypechildLink --------------------------------------------------------------------} Procedure TAccountTypechildLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTypechildLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TAccountTypechildLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TAccountTypepermissions --------------------------------------------------------------------} Procedure TAccountTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray); begin If (Feffective=AValue) then exit; Feffective:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountTypepermissions.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'effective' : SetLength(Feffective,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccount --------------------------------------------------------------------} Procedure TAccount.SetchildLink(AIndex : Integer; AValue : TAccountTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setpermissions(AIndex : Integer; AValue : TAccountTypepermissions); begin If (Fpermissions=AValue) then exit; Fpermissions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountRef --------------------------------------------------------------------} Procedure TAccountRef.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountRef.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountRef.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountRef.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountSummaries --------------------------------------------------------------------} Procedure TAccountSummaries.Setitems(AIndex : Integer; AValue : TAccountSummariesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountSummaries.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountSummary --------------------------------------------------------------------} Procedure TAccountSummary.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummary.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummary.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummary.SetwebProperties(AIndex : Integer; AValue : TAccountSummaryTypewebPropertiesArray); begin If (FwebProperties=AValue) then exit; FwebProperties:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountSummary.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'webproperties' : SetLength(FwebProperties,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountTicket --------------------------------------------------------------------} Procedure TAccountTicket.Setaccount(AIndex : Integer; AValue : TAccount); begin If (Faccount=AValue) then exit; Faccount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTicket.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTicket.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTicket.Setprofile(AIndex : Integer; AValue : TProfile); begin If (Fprofile=AValue) then exit; Fprofile:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTicket.SetredirectUri(AIndex : Integer; const AValue : String); begin If (FredirectUri=AValue) then exit; FredirectUri:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTicket.Setwebproperty(AIndex : Integer; AValue : TWebproperty); begin If (Fwebproperty=AValue) then exit; Fwebproperty:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccounts --------------------------------------------------------------------} Procedure TAccounts.Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccounts.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAdWordsAccount --------------------------------------------------------------------} Procedure TAdWordsAccount.SetautoTaggingEnabled(AIndex : Integer; AValue : boolean); begin If (FautoTaggingEnabled=AValue) then exit; FautoTaggingEnabled:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAdWordsAccount.SetcustomerId(AIndex : Integer; const AValue : String); begin If (FcustomerId=AValue) then exit; FcustomerId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAdWordsAccount.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAnalyticsDataimportDeleteUploadDataRequest --------------------------------------------------------------------} Procedure TAnalyticsDataimportDeleteUploadDataRequest.SetcustomDataImportUids(AIndex : Integer; AValue : TStringArray); begin If (FcustomDataImportUids=AValue) then exit; FcustomDataImportUids:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAnalyticsDataimportDeleteUploadDataRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'customdataimportuids' : SetLength(FcustomDataImportUids,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TColumnTypeattributes --------------------------------------------------------------------} Class Function TColumnTypeattributes.AllowAdditionalProperties : Boolean; begin Result:=True; end; { -------------------------------------------------------------------- TColumn --------------------------------------------------------------------} Procedure TColumn.Setattributes(AIndex : Integer; AValue : TColumnTypeattributes); begin If (Fattributes=AValue) then exit; Fattributes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TColumn.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TColumn.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TColumns --------------------------------------------------------------------} Procedure TColumns.SetattributeNames(AIndex : Integer; AValue : TStringArray); begin If (FattributeNames=AValue) then exit; FattributeNames:=AValue; MarkPropertyChanged(AIndex); end; Procedure TColumns.Setetag(AIndex : Integer; const AValue : String); begin If (Fetag=AValue) then exit; Fetag:=AValue; MarkPropertyChanged(AIndex); end; Procedure TColumns.Setitems(AIndex : Integer; AValue : TColumnsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TColumns.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TColumns.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TColumns.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'attributenames' : SetLength(FattributeNames,ALength); 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCustomDataSourceTypechildLink --------------------------------------------------------------------} Procedure TCustomDataSourceTypechildLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSourceTypechildLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TCustomDataSourceTypechildLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TCustomDataSourceTypeparentLink --------------------------------------------------------------------} Procedure TCustomDataSourceTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSourceTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TCustomDataSourceTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TCustomDataSource --------------------------------------------------------------------} Procedure TCustomDataSource.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetchildLink(AIndex : Integer; AValue : TCustomDataSourceTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetimportBehavior(AIndex : Integer; const AValue : String); begin If (FimportBehavior=AValue) then exit; FimportBehavior:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetparentLink(AIndex : Integer; AValue : TCustomDataSourceTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetprofilesLinked(AIndex : Integer; AValue : TStringArray); begin If (FprofilesLinked=AValue) then exit; FprofilesLinked:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetuploadType(AIndex : Integer; const AValue : String); begin If (FuploadType=AValue) then exit; FuploadType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Class Function TCustomDataSource.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCustomDataSource.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'profileslinked' : SetLength(FprofilesLinked,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCustomDataSources --------------------------------------------------------------------} Procedure TCustomDataSources.Setitems(AIndex : Integer; AValue : TCustomDataSourcesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCustomDataSources.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCustomDimensionTypeparentLink --------------------------------------------------------------------} Procedure TCustomDimensionTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensionTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TCustomDimensionTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TCustomDimension --------------------------------------------------------------------} Procedure TCustomDimension.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setactive(AIndex : Integer; AValue : boolean); begin If (Factive=AValue) then exit; Factive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setindex(AIndex : Integer; AValue : integer); begin If (Findex=AValue) then exit; Findex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.SetparentLink(AIndex : Integer; AValue : TCustomDimensionTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setscope(AIndex : Integer; const AValue : String); begin If (Fscope=AValue) then exit; Fscope:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCustomDimensions --------------------------------------------------------------------} Procedure TCustomDimensions.Setitems(AIndex : Integer; AValue : TCustomDimensionsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCustomDimensions.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCustomMetricTypeparentLink --------------------------------------------------------------------} Procedure TCustomMetricTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetricTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TCustomMetricTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TCustomMetric --------------------------------------------------------------------} Procedure TCustomMetric.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setactive(AIndex : Integer; AValue : boolean); begin If (Factive=AValue) then exit; Factive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setindex(AIndex : Integer; AValue : integer); begin If (Findex=AValue) then exit; Findex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setmax_value(AIndex : Integer; const AValue : String); begin If (Fmax_value=AValue) then exit; Fmax_value:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setmin_value(AIndex : Integer; const AValue : String); begin If (Fmin_value=AValue) then exit; Fmin_value:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.SetparentLink(AIndex : Integer; AValue : TCustomMetricTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setscope(AIndex : Integer; const AValue : String); begin If (Fscope=AValue) then exit; Fscope:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Class Function TCustomMetric.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TCustomMetrics --------------------------------------------------------------------} Procedure TCustomMetrics.Setitems(AIndex : Integer; AValue : TCustomMetricsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCustomMetrics.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TEntityAdWordsLinkTypeentity --------------------------------------------------------------------} Procedure TEntityAdWordsLinkTypeentity.SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef); begin If (FwebPropertyRef=AValue) then exit; FwebPropertyRef:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEntityAdWordsLink --------------------------------------------------------------------} Procedure TEntityAdWordsLink.SetadWordsAccounts(AIndex : Integer; AValue : TEntityAdWordsLinkTypeadWordsAccountsArray); begin If (FadWordsAccounts=AValue) then exit; FadWordsAccounts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLink.Setentity(AIndex : Integer; AValue : TEntityAdWordsLinkTypeentity); begin If (Fentity=AValue) then exit; Fentity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLink.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLink.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLink.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLink.SetprofileIds(AIndex : Integer; AValue : TStringArray); begin If (FprofileIds=AValue) then exit; FprofileIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLink.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TEntityAdWordsLink.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'adwordsaccounts' : SetLength(FadWordsAccounts,ALength); 'profileids' : SetLength(FprofileIds,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TEntityAdWordsLinks --------------------------------------------------------------------} Procedure TEntityAdWordsLinks.Setitems(AIndex : Integer; AValue : TEntityAdWordsLinksTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TEntityAdWordsLinks.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TEntityUserLinkTypeentity --------------------------------------------------------------------} Procedure TEntityUserLinkTypeentity.SetaccountRef(AIndex : Integer; AValue : TAccountRef); begin If (FaccountRef=AValue) then exit; FaccountRef:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinkTypeentity.SetprofileRef(AIndex : Integer; AValue : TProfileRef); begin If (FprofileRef=AValue) then exit; FprofileRef:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinkTypeentity.SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef); begin If (FwebPropertyRef=AValue) then exit; FwebPropertyRef:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEntityUserLinkTypepermissions --------------------------------------------------------------------} Procedure TEntityUserLinkTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray); begin If (Feffective=AValue) then exit; Feffective:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinkTypepermissions.Setlocal(AIndex : Integer; AValue : TStringArray); begin If (Flocal=AValue) then exit; Flocal:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TEntityUserLinkTypepermissions.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'effective' : SetLength(Feffective,ALength); 'local' : SetLength(Flocal,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TEntityUserLink --------------------------------------------------------------------} Procedure TEntityUserLink.Setentity(AIndex : Integer; AValue : TEntityUserLinkTypeentity); begin If (Fentity=AValue) then exit; Fentity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLink.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLink.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLink.Setpermissions(AIndex : Integer; AValue : TEntityUserLinkTypepermissions); begin If (Fpermissions=AValue) then exit; Fpermissions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLink.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLink.SetuserRef(AIndex : Integer; AValue : TUserRef); begin If (FuserRef=AValue) then exit; FuserRef:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEntityUserLinks --------------------------------------------------------------------} Procedure TEntityUserLinks.Setitems(AIndex : Integer; AValue : TEntityUserLinksTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TEntityUserLinks.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TExperimentTypeparentLink --------------------------------------------------------------------} Procedure TExperimentTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperimentTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TExperimentTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TExperimentTypevariationsItem --------------------------------------------------------------------} Procedure TExperimentTypevariationsItem.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperimentTypevariationsItem.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperimentTypevariationsItem.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperimentTypevariationsItem.Setweight(AIndex : Integer; AValue : double); begin If (Fweight=AValue) then exit; Fweight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperimentTypevariationsItem.Setwon(AIndex : Integer; AValue : boolean); begin If (Fwon=AValue) then exit; Fwon:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TExperiment --------------------------------------------------------------------} Procedure TExperiment.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SeteditableInGaUi(AIndex : Integer; AValue : boolean); begin If (FeditableInGaUi=AValue) then exit; FeditableInGaUi:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetendTime(AIndex : Integer; AValue : TDatetime); begin If (FendTime=AValue) then exit; FendTime:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetequalWeighting(AIndex : Integer; AValue : boolean); begin If (FequalWeighting=AValue) then exit; FequalWeighting:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetminimumExperimentLengthInDays(AIndex : Integer; AValue : integer); begin If (FminimumExperimentLengthInDays=AValue) then exit; FminimumExperimentLengthInDays:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetobjectiveMetric(AIndex : Integer; const AValue : String); begin If (FobjectiveMetric=AValue) then exit; FobjectiveMetric:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetoptimizationType(AIndex : Integer; const AValue : String); begin If (FoptimizationType=AValue) then exit; FoptimizationType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetparentLink(AIndex : Integer; AValue : TExperimentTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetprofileId(AIndex : Integer; const AValue : String); begin If (FprofileId=AValue) then exit; FprofileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetreasonExperimentEnded(AIndex : Integer; const AValue : String); begin If (FreasonExperimentEnded=AValue) then exit; FreasonExperimentEnded:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetrewriteVariationUrlsAsOriginal(AIndex : Integer; AValue : boolean); begin If (FrewriteVariationUrlsAsOriginal=AValue) then exit; FrewriteVariationUrlsAsOriginal:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetservingFramework(AIndex : Integer; const AValue : String); begin If (FservingFramework=AValue) then exit; FservingFramework:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setsnippet(AIndex : Integer; const AValue : String); begin If (Fsnippet=AValue) then exit; Fsnippet:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetstartTime(AIndex : Integer; AValue : TDatetime); begin If (FstartTime=AValue) then exit; FstartTime:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SettrafficCoverage(AIndex : Integer; AValue : double); begin If (FtrafficCoverage=AValue) then exit; FtrafficCoverage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setvariations(AIndex : Integer; AValue : TExperimentTypevariationsArray); begin If (Fvariations=AValue) then exit; Fvariations:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetwinnerConfidenceLevel(AIndex : Integer; AValue : double); begin If (FwinnerConfidenceLevel=AValue) then exit; FwinnerConfidenceLevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetwinnerFound(AIndex : Integer; AValue : boolean); begin If (FwinnerFound=AValue) then exit; FwinnerFound:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TExperiment.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'variations' : SetLength(Fvariations,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TExperiments --------------------------------------------------------------------} Procedure TExperiments.Setitems(AIndex : Integer; AValue : TExperimentsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TExperiments.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TFilterTypeadvancedDetails --------------------------------------------------------------------} Procedure TFilterTypeadvancedDetails.SetcaseSensitive(AIndex : Integer; AValue : boolean); begin If (FcaseSensitive=AValue) then exit; FcaseSensitive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetextractA(AIndex : Integer; const AValue : String); begin If (FextractA=AValue) then exit; FextractA:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetextractB(AIndex : Integer; const AValue : String); begin If (FextractB=AValue) then exit; FextractB:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldA(AIndex : Integer; const AValue : String); begin If (FfieldA=AValue) then exit; FfieldA:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldAIndex(AIndex : Integer; AValue : integer); begin If (FfieldAIndex=AValue) then exit; FfieldAIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldARequired(AIndex : Integer; AValue : boolean); begin If (FfieldARequired=AValue) then exit; FfieldARequired:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldB(AIndex : Integer; const AValue : String); begin If (FfieldB=AValue) then exit; FfieldB:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldBIndex(AIndex : Integer; AValue : integer); begin If (FfieldBIndex=AValue) then exit; FfieldBIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldBRequired(AIndex : Integer; AValue : boolean); begin If (FfieldBRequired=AValue) then exit; FfieldBRequired:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetoutputConstructor(AIndex : Integer; const AValue : String); begin If (FoutputConstructor=AValue) then exit; FoutputConstructor:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetoutputToField(AIndex : Integer; const AValue : String); begin If (FoutputToField=AValue) then exit; FoutputToField:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetoutputToFieldIndex(AIndex : Integer; AValue : integer); begin If (FoutputToFieldIndex=AValue) then exit; FoutputToFieldIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetoverrideOutputField(AIndex : Integer; AValue : boolean); begin If (FoverrideOutputField=AValue) then exit; FoverrideOutputField:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TFilterTypelowercaseDetails --------------------------------------------------------------------} Procedure TFilterTypelowercaseDetails.Setfield(AIndex : Integer; const AValue : String); begin If (Ffield=AValue) then exit; Ffield:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypelowercaseDetails.SetfieldIndex(AIndex : Integer; AValue : integer); begin If (FfieldIndex=AValue) then exit; FfieldIndex:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TFilterTypeparentLink --------------------------------------------------------------------} Procedure TFilterTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TFilterTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TFilterTypesearchAndReplaceDetails --------------------------------------------------------------------} Procedure TFilterTypesearchAndReplaceDetails.SetcaseSensitive(AIndex : Integer; AValue : boolean); begin If (FcaseSensitive=AValue) then exit; FcaseSensitive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypesearchAndReplaceDetails.Setfield(AIndex : Integer; const AValue : String); begin If (Ffield=AValue) then exit; Ffield:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypesearchAndReplaceDetails.SetfieldIndex(AIndex : Integer; AValue : integer); begin If (FfieldIndex=AValue) then exit; FfieldIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypesearchAndReplaceDetails.SetreplaceString(AIndex : Integer; const AValue : String); begin If (FreplaceString=AValue) then exit; FreplaceString:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypesearchAndReplaceDetails.SetsearchString(AIndex : Integer; const AValue : String); begin If (FsearchString=AValue) then exit; FsearchString:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TFilterTypeuppercaseDetails --------------------------------------------------------------------} Procedure TFilterTypeuppercaseDetails.Setfield(AIndex : Integer; const AValue : String); begin If (Ffield=AValue) then exit; Ffield:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeuppercaseDetails.SetfieldIndex(AIndex : Integer; AValue : integer); begin If (FfieldIndex=AValue) then exit; FfieldIndex:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TFilter --------------------------------------------------------------------} Procedure TFilter.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetadvancedDetails(AIndex : Integer; AValue : TFilterTypeadvancedDetails); begin If (FadvancedDetails=AValue) then exit; FadvancedDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetexcludeDetails(AIndex : Integer; AValue : TFilterExpression); begin If (FexcludeDetails=AValue) then exit; FexcludeDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetincludeDetails(AIndex : Integer; AValue : TFilterExpression); begin If (FincludeDetails=AValue) then exit; FincludeDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetlowercaseDetails(AIndex : Integer; AValue : TFilterTypelowercaseDetails); begin If (FlowercaseDetails=AValue) then exit; FlowercaseDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetparentLink(AIndex : Integer; AValue : TFilterTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetsearchAndReplaceDetails(AIndex : Integer; AValue : TFilterTypesearchAndReplaceDetails); begin If (FsearchAndReplaceDetails=AValue) then exit; FsearchAndReplaceDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetuppercaseDetails(AIndex : Integer; AValue : TFilterTypeuppercaseDetails); begin If (FuppercaseDetails=AValue) then exit; FuppercaseDetails:=AValue; MarkPropertyChanged(AIndex); end; Class Function TFilter.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TFilterExpression --------------------------------------------------------------------} Procedure TFilterExpression.SetcaseSensitive(AIndex : Integer; AValue : boolean); begin If (FcaseSensitive=AValue) then exit; FcaseSensitive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterExpression.SetexpressionValue(AIndex : Integer; const AValue : String); begin If (FexpressionValue=AValue) then exit; FexpressionValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterExpression.Setfield(AIndex : Integer; const AValue : String); begin If (Ffield=AValue) then exit; Ffield:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterExpression.SetfieldIndex(AIndex : Integer; AValue : integer); begin If (FfieldIndex=AValue) then exit; FfieldIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterExpression.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterExpression.SetmatchType(AIndex : Integer; const AValue : String); begin If (FmatchType=AValue) then exit; FmatchType:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TFilterRef --------------------------------------------------------------------} Procedure TFilterRef.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterRef.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterRef.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterRef.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterRef.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TFilters --------------------------------------------------------------------} Procedure TFilters.Setitems(AIndex : Integer; AValue : TFiltersTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TFilters.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGaDataTypecolumnHeadersItem --------------------------------------------------------------------} Procedure TGaDataTypecolumnHeadersItem.SetcolumnType(AIndex : Integer; const AValue : String); begin If (FcolumnType=AValue) then exit; FcolumnType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypecolumnHeadersItem.SetdataType(AIndex : Integer; const AValue : String); begin If (FdataType=AValue) then exit; FdataType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypecolumnHeadersItem.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGaDataTypedataTableTypecolsItem --------------------------------------------------------------------} Procedure TGaDataTypedataTableTypecolsItem.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypedataTableTypecolsItem.Set_label(AIndex : Integer; const AValue : String); begin If (F_label=AValue) then exit; F_label:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypedataTableTypecolsItem.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TGaDataTypedataTableTypecolsItem.ExportPropertyName(Const AName : String) :String; begin Case AName of '_label' : Result:='label'; '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TGaDataTypedataTableTyperowsItemTypecItem --------------------------------------------------------------------} Procedure TGaDataTypedataTableTyperowsItemTypecItem.Setv(AIndex : Integer; const AValue : String); begin If (Fv=AValue) then exit; Fv:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGaDataTypedataTableTyperowsItem --------------------------------------------------------------------} Procedure TGaDataTypedataTableTyperowsItem.Setc(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsItemTypecArray); begin If (Fc=AValue) then exit; Fc:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGaDataTypedataTableTyperowsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'c' : SetLength(Fc,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGaDataTypedataTable --------------------------------------------------------------------} Procedure TGaDataTypedataTable.Setcols(AIndex : Integer; AValue : TGaDataTypedataTableTypecolsArray); begin If (Fcols=AValue) then exit; Fcols:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypedataTable.Setrows(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsArray); begin If (Frows=AValue) then exit; Frows:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGaDataTypedataTable.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'cols' : SetLength(Fcols,ALength); 'rows' : SetLength(Frows,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGaDataTypeprofileInfo --------------------------------------------------------------------} Procedure TGaDataTypeprofileInfo.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypeprofileInfo.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypeprofileInfo.SetprofileId(AIndex : Integer; const AValue : String); begin If (FprofileId=AValue) then exit; FprofileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypeprofileInfo.SetprofileName(AIndex : Integer; const AValue : String); begin If (FprofileName=AValue) then exit; FprofileName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypeprofileInfo.SettableId(AIndex : Integer; const AValue : String); begin If (FtableId=AValue) then exit; FtableId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypeprofileInfo.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGaDataTypequery --------------------------------------------------------------------} Procedure TGaDataTypequery.Setdimensions(AIndex : Integer; const AValue : String); begin If (Fdimensions=AValue) then exit; Fdimensions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setenddate(AIndex : Integer; const AValue : String); begin If (Fenddate=AValue) then exit; Fenddate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setfilters(AIndex : Integer; const AValue : String); begin If (Ffilters=AValue) then exit; Ffilters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setids(AIndex : Integer; const AValue : String); begin If (Fids=AValue) then exit; Fids:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setmaxresults(AIndex : Integer; AValue : integer); begin If (Fmaxresults=AValue) then exit; Fmaxresults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setmetrics(AIndex : Integer; AValue : TStringArray); begin If (Fmetrics=AValue) then exit; Fmetrics:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.SetsamplingLevel(AIndex : Integer; const AValue : String); begin If (FsamplingLevel=AValue) then exit; FsamplingLevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setsegment(AIndex : Integer; const AValue : String); begin If (Fsegment=AValue) then exit; Fsegment:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setsort(AIndex : Integer; AValue : TStringArray); begin If (Fsort=AValue) then exit; Fsort:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setstartdate(AIndex : Integer; const AValue : String); begin If (Fstartdate=AValue) then exit; Fstartdate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setstartindex(AIndex : Integer; AValue : integer); begin If (Fstartindex=AValue) then exit; Fstartindex:=AValue; MarkPropertyChanged(AIndex); end; Class Function TGaDataTypequery.ExportPropertyName(Const AName : String) :String; begin Case AName of 'enddate' : Result:='end-date'; 'maxresults' : Result:='max-results'; 'startdate' : Result:='start-date'; 'startindex' : Result:='start-index'; else Result:=Inherited ExportPropertyName(AName); end; end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGaDataTypequery.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'metrics' : SetLength(Fmetrics,ALength); 'sort' : SetLength(Fsort,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGaDataTypetotalsForAllResults --------------------------------------------------------------------} Class Function TGaDataTypetotalsForAllResults.AllowAdditionalProperties : Boolean; begin Result:=True; end; { -------------------------------------------------------------------- TGaData --------------------------------------------------------------------} Procedure TGaData.SetcolumnHeaders(AIndex : Integer; AValue : TGaDataTypecolumnHeadersArray); begin If (FcolumnHeaders=AValue) then exit; FcolumnHeaders:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetcontainsSampledData(AIndex : Integer; AValue : boolean); begin If (FcontainsSampledData=AValue) then exit; FcontainsSampledData:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetdataTable(AIndex : Integer; AValue : TGaDataTypedataTable); begin If (FdataTable=AValue) then exit; FdataTable:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetprofileInfo(AIndex : Integer; AValue : TGaDataTypeprofileInfo); begin If (FprofileInfo=AValue) then exit; FprofileInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.Setquery(AIndex : Integer; AValue : TGaDataTypequery); begin If (Fquery=AValue) then exit; Fquery:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.Setrows(AIndex : Integer; AValue : TGaDataTyperowsArray); begin If (Frows=AValue) then exit; Frows:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetsampleSize(AIndex : Integer; const AValue : String); begin If (FsampleSize=AValue) then exit; FsampleSize:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetsampleSpace(AIndex : Integer; const AValue : String); begin If (FsampleSpace=AValue) then exit; FsampleSpace:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SettotalsForAllResults(AIndex : Integer; AValue : TGaDataTypetotalsForAllResults); begin If (FtotalsForAllResults=AValue) then exit; FtotalsForAllResults:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGaData.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'columnheaders' : SetLength(FcolumnHeaders,ALength); 'rows' : SetLength(Frows,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGoalTypeeventDetailsTypeeventConditionsItem --------------------------------------------------------------------} Procedure TGoalTypeeventDetailsTypeeventConditionsItem.SetcomparisonType(AIndex : Integer; const AValue : String); begin If (FcomparisonType=AValue) then exit; FcomparisonType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeeventDetailsTypeeventConditionsItem.SetcomparisonValue(AIndex : Integer; const AValue : String); begin If (FcomparisonValue=AValue) then exit; FcomparisonValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeeventDetailsTypeeventConditionsItem.Setexpression(AIndex : Integer; const AValue : String); begin If (Fexpression=AValue) then exit; Fexpression:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeeventDetailsTypeeventConditionsItem.SetmatchType(AIndex : Integer; const AValue : String); begin If (FmatchType=AValue) then exit; FmatchType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeeventDetailsTypeeventConditionsItem.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TGoalTypeeventDetailsTypeeventConditionsItem.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TGoalTypeeventDetails --------------------------------------------------------------------} Procedure TGoalTypeeventDetails.SeteventConditions(AIndex : Integer; AValue : TGoalTypeeventDetailsTypeeventConditionsArray); begin If (FeventConditions=AValue) then exit; FeventConditions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeeventDetails.SetuseEventValue(AIndex : Integer; AValue : boolean); begin If (FuseEventValue=AValue) then exit; FuseEventValue:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGoalTypeeventDetails.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'eventconditions' : SetLength(FeventConditions,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGoalTypeparentLink --------------------------------------------------------------------} Procedure TGoalTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TGoalTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TGoalTypeurlDestinationDetailsTypestepsItem --------------------------------------------------------------------} Procedure TGoalTypeurlDestinationDetailsTypestepsItem.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeurlDestinationDetailsTypestepsItem.Setnumber(AIndex : Integer; AValue : integer); begin If (Fnumber=AValue) then exit; Fnumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeurlDestinationDetailsTypestepsItem.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGoalTypeurlDestinationDetails --------------------------------------------------------------------} Procedure TGoalTypeurlDestinationDetails.SetcaseSensitive(AIndex : Integer; AValue : boolean); begin If (FcaseSensitive=AValue) then exit; FcaseSensitive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeurlDestinationDetails.SetfirstStepRequired(AIndex : Integer; AValue : boolean); begin If (FfirstStepRequired=AValue) then exit; FfirstStepRequired:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeurlDestinationDetails.SetmatchType(AIndex : Integer; const AValue : String); begin If (FmatchType=AValue) then exit; FmatchType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeurlDestinationDetails.Setsteps(AIndex : Integer; AValue : TGoalTypeurlDestinationDetailsTypestepsArray); begin If (Fsteps=AValue) then exit; Fsteps:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeurlDestinationDetails.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGoalTypeurlDestinationDetails.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'steps' : SetLength(Fsteps,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGoalTypevisitNumPagesDetails --------------------------------------------------------------------} Procedure TGoalTypevisitNumPagesDetails.SetcomparisonType(AIndex : Integer; const AValue : String); begin If (FcomparisonType=AValue) then exit; FcomparisonType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypevisitNumPagesDetails.SetcomparisonValue(AIndex : Integer; const AValue : String); begin If (FcomparisonValue=AValue) then exit; FcomparisonValue:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGoalTypevisitTimeOnSiteDetails --------------------------------------------------------------------} Procedure TGoalTypevisitTimeOnSiteDetails.SetcomparisonType(AIndex : Integer; const AValue : String); begin If (FcomparisonType=AValue) then exit; FcomparisonType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypevisitTimeOnSiteDetails.SetcomparisonValue(AIndex : Integer; const AValue : String); begin If (FcomparisonValue=AValue) then exit; FcomparisonValue:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TGoal --------------------------------------------------------------------} Procedure TGoal.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setactive(AIndex : Integer; AValue : boolean); begin If (Factive=AValue) then exit; Factive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SeteventDetails(AIndex : Integer; AValue : TGoalTypeeventDetails); begin If (FeventDetails=AValue) then exit; FeventDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetparentLink(AIndex : Integer; AValue : TGoalTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetprofileId(AIndex : Integer; const AValue : String); begin If (FprofileId=AValue) then exit; FprofileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SeturlDestinationDetails(AIndex : Integer; AValue : TGoalTypeurlDestinationDetails); begin If (FurlDestinationDetails=AValue) then exit; FurlDestinationDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setvalue(AIndex : Integer; AValue : integer); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetvisitNumPagesDetails(AIndex : Integer; AValue : TGoalTypevisitNumPagesDetails); begin If (FvisitNumPagesDetails=AValue) then exit; FvisitNumPagesDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetvisitTimeOnSiteDetails(AIndex : Integer; AValue : TGoalTypevisitTimeOnSiteDetails); begin If (FvisitTimeOnSiteDetails=AValue) then exit; FvisitTimeOnSiteDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Class Function TGoal.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TGoals --------------------------------------------------------------------} Procedure TGoals.Setitems(AIndex : Integer; AValue : TGoalsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGoals.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TMcfDataTypecolumnHeadersItem --------------------------------------------------------------------} Procedure TMcfDataTypecolumnHeadersItem.SetcolumnType(AIndex : Integer; const AValue : String); begin If (FcolumnType=AValue) then exit; FcolumnType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypecolumnHeadersItem.SetdataType(AIndex : Integer; const AValue : String); begin If (FdataType=AValue) then exit; FdataType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypecolumnHeadersItem.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TMcfDataTypeprofileInfo --------------------------------------------------------------------} Procedure TMcfDataTypeprofileInfo.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypeprofileInfo.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypeprofileInfo.SetprofileId(AIndex : Integer; const AValue : String); begin If (FprofileId=AValue) then exit; FprofileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypeprofileInfo.SetprofileName(AIndex : Integer; const AValue : String); begin If (FprofileName=AValue) then exit; FprofileName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypeprofileInfo.SettableId(AIndex : Integer; const AValue : String); begin If (FtableId=AValue) then exit; FtableId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypeprofileInfo.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TMcfDataTypequery --------------------------------------------------------------------} Procedure TMcfDataTypequery.Setdimensions(AIndex : Integer; const AValue : String); begin If (Fdimensions=AValue) then exit; Fdimensions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setenddate(AIndex : Integer; const AValue : String); begin If (Fenddate=AValue) then exit; Fenddate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setfilters(AIndex : Integer; const AValue : String); begin If (Ffilters=AValue) then exit; Ffilters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setids(AIndex : Integer; const AValue : String); begin If (Fids=AValue) then exit; Fids:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setmaxresults(AIndex : Integer; AValue : integer); begin If (Fmaxresults=AValue) then exit; Fmaxresults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setmetrics(AIndex : Integer; AValue : TStringArray); begin If (Fmetrics=AValue) then exit; Fmetrics:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.SetsamplingLevel(AIndex : Integer; const AValue : String); begin If (FsamplingLevel=AValue) then exit; FsamplingLevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setsegment(AIndex : Integer; const AValue : String); begin If (Fsegment=AValue) then exit; Fsegment:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setsort(AIndex : Integer; AValue : TStringArray); begin If (Fsort=AValue) then exit; Fsort:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setstartdate(AIndex : Integer; const AValue : String); begin If (Fstartdate=AValue) then exit; Fstartdate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setstartindex(AIndex : Integer; AValue : integer); begin If (Fstartindex=AValue) then exit; Fstartindex:=AValue; MarkPropertyChanged(AIndex); end; Class Function TMcfDataTypequery.ExportPropertyName(Const AName : String) :String; begin Case AName of 'enddate' : Result:='end-date'; 'maxresults' : Result:='max-results'; 'startdate' : Result:='start-date'; 'startindex' : Result:='start-index'; else Result:=Inherited ExportPropertyName(AName); end; end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TMcfDataTypequery.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'metrics' : SetLength(Fmetrics,ALength); 'sort' : SetLength(Fsort,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TMcfDataTyperowsItemItemTypeconversionPathValueItem --------------------------------------------------------------------} Procedure TMcfDataTyperowsItemItemTypeconversionPathValueItem.SetinteractionType(AIndex : Integer; const AValue : String); begin If (FinteractionType=AValue) then exit; FinteractionType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTyperowsItemItemTypeconversionPathValueItem.SetnodeValue(AIndex : Integer; const AValue : String); begin If (FnodeValue=AValue) then exit; FnodeValue:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TMcfDataTyperowsItemItem --------------------------------------------------------------------} Procedure TMcfDataTyperowsItemItem.SetconversionPathValue(AIndex : Integer; AValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray); begin If (FconversionPathValue=AValue) then exit; FconversionPathValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTyperowsItemItem.SetprimitiveValue(AIndex : Integer; const AValue : String); begin If (FprimitiveValue=AValue) then exit; FprimitiveValue:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TMcfDataTyperowsItemItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'conversionpathvalue' : SetLength(FconversionPathValue,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TMcfDataTypetotalsForAllResults --------------------------------------------------------------------} Class Function TMcfDataTypetotalsForAllResults.AllowAdditionalProperties : Boolean; begin Result:=True; end; { -------------------------------------------------------------------- TMcfData --------------------------------------------------------------------} Procedure TMcfData.SetcolumnHeaders(AIndex : Integer; AValue : TMcfDataTypecolumnHeadersArray); begin If (FcolumnHeaders=AValue) then exit; FcolumnHeaders:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetcontainsSampledData(AIndex : Integer; AValue : boolean); begin If (FcontainsSampledData=AValue) then exit; FcontainsSampledData:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetprofileInfo(AIndex : Integer; AValue : TMcfDataTypeprofileInfo); begin If (FprofileInfo=AValue) then exit; FprofileInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.Setquery(AIndex : Integer; AValue : TMcfDataTypequery); begin If (Fquery=AValue) then exit; Fquery:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.Setrows(AIndex : Integer; AValue : TMcfDataTyperowsArray); begin If (Frows=AValue) then exit; Frows:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetsampleSize(AIndex : Integer; const AValue : String); begin If (FsampleSize=AValue) then exit; FsampleSize:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetsampleSpace(AIndex : Integer; const AValue : String); begin If (FsampleSpace=AValue) then exit; FsampleSpace:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SettotalsForAllResults(AIndex : Integer; AValue : TMcfDataTypetotalsForAllResults); begin If (FtotalsForAllResults=AValue) then exit; FtotalsForAllResults:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TMcfData.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'columnheaders' : SetLength(FcolumnHeaders,ALength); 'rows' : SetLength(Frows,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProfileTypechildLink --------------------------------------------------------------------} Procedure TProfileTypechildLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileTypechildLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProfileTypechildLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProfileTypeparentLink --------------------------------------------------------------------} Procedure TProfileTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProfileTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProfileTypepermissions --------------------------------------------------------------------} Procedure TProfileTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray); begin If (Feffective=AValue) then exit; Feffective:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProfileTypepermissions.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'effective' : SetLength(Feffective,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProfile --------------------------------------------------------------------} Procedure TProfile.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetchildLink(AIndex : Integer; AValue : TProfileTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setcurrency(AIndex : Integer; const AValue : String); begin If (Fcurrency=AValue) then exit; Fcurrency:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetdefaultPage(AIndex : Integer; const AValue : String); begin If (FdefaultPage=AValue) then exit; FdefaultPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SeteCommerceTracking(AIndex : Integer; AValue : boolean); begin If (FeCommerceTracking=AValue) then exit; FeCommerceTracking:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetenhancedECommerceTracking(AIndex : Integer; AValue : boolean); begin If (FenhancedECommerceTracking=AValue) then exit; FenhancedECommerceTracking:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetexcludeQueryParameters(AIndex : Integer; const AValue : String); begin If (FexcludeQueryParameters=AValue) then exit; FexcludeQueryParameters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetparentLink(AIndex : Integer; AValue : TProfileTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setpermissions(AIndex : Integer; AValue : TProfileTypepermissions); begin If (Fpermissions=AValue) then exit; Fpermissions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetsiteSearchCategoryParameters(AIndex : Integer; const AValue : String); begin If (FsiteSearchCategoryParameters=AValue) then exit; FsiteSearchCategoryParameters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetsiteSearchQueryParameters(AIndex : Integer; const AValue : String); begin If (FsiteSearchQueryParameters=AValue) then exit; FsiteSearchQueryParameters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetstripSiteSearchCategoryParameters(AIndex : Integer; AValue : boolean); begin If (FstripSiteSearchCategoryParameters=AValue) then exit; FstripSiteSearchCategoryParameters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetstripSiteSearchQueryParameters(AIndex : Integer; AValue : boolean); begin If (FstripSiteSearchQueryParameters=AValue) then exit; FstripSiteSearchQueryParameters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Settimezone(AIndex : Integer; const AValue : String); begin If (Ftimezone=AValue) then exit; Ftimezone:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetwebsiteUrl(AIndex : Integer; const AValue : String); begin If (FwebsiteUrl=AValue) then exit; FwebsiteUrl:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProfile.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProfileFilterLink --------------------------------------------------------------------} Procedure TProfileFilterLink.SetfilterRef(AIndex : Integer; AValue : TFilterRef); begin If (FfilterRef=AValue) then exit; FfilterRef:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLink.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLink.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLink.SetprofileRef(AIndex : Integer; AValue : TProfileRef); begin If (FprofileRef=AValue) then exit; FprofileRef:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLink.Setrank(AIndex : Integer; AValue : integer); begin If (Frank=AValue) then exit; Frank:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLink.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProfileFilterLinks --------------------------------------------------------------------} Procedure TProfileFilterLinks.Setitems(AIndex : Integer; AValue : TProfileFilterLinksTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProfileFilterLinks.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProfileRef --------------------------------------------------------------------} Procedure TProfileRef.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileRef.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileRef.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileRef.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileRef.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileRef.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileRef.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProfileSummary --------------------------------------------------------------------} Procedure TProfileSummary.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileSummary.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileSummary.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileSummary.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TProfileSummary.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TProfiles --------------------------------------------------------------------} Procedure TProfiles.Setitems(AIndex : Integer; AValue : TProfilesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProfiles.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TRealtimeDataTypecolumnHeadersItem --------------------------------------------------------------------} Procedure TRealtimeDataTypecolumnHeadersItem.SetcolumnType(AIndex : Integer; const AValue : String); begin If (FcolumnType=AValue) then exit; FcolumnType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypecolumnHeadersItem.SetdataType(AIndex : Integer; const AValue : String); begin If (FdataType=AValue) then exit; FdataType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypecolumnHeadersItem.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TRealtimeDataTypeprofileInfo --------------------------------------------------------------------} Procedure TRealtimeDataTypeprofileInfo.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypeprofileInfo.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypeprofileInfo.SetprofileId(AIndex : Integer; const AValue : String); begin If (FprofileId=AValue) then exit; FprofileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypeprofileInfo.SetprofileName(AIndex : Integer; const AValue : String); begin If (FprofileName=AValue) then exit; FprofileName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypeprofileInfo.SettableId(AIndex : Integer; const AValue : String); begin If (FtableId=AValue) then exit; FtableId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypeprofileInfo.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TRealtimeDataTypequery --------------------------------------------------------------------} Procedure TRealtimeDataTypequery.Setdimensions(AIndex : Integer; const AValue : String); begin If (Fdimensions=AValue) then exit; Fdimensions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypequery.Setfilters(AIndex : Integer; const AValue : String); begin If (Ffilters=AValue) then exit; Ffilters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypequery.Setids(AIndex : Integer; const AValue : String); begin If (Fids=AValue) then exit; Fids:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypequery.Setmaxresults(AIndex : Integer; AValue : integer); begin If (Fmaxresults=AValue) then exit; Fmaxresults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypequery.Setmetrics(AIndex : Integer; AValue : TStringArray); begin If (Fmetrics=AValue) then exit; Fmetrics:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypequery.Setsort(AIndex : Integer; AValue : TStringArray); begin If (Fsort=AValue) then exit; Fsort:=AValue; MarkPropertyChanged(AIndex); end; Class Function TRealtimeDataTypequery.ExportPropertyName(Const AName : String) :String; begin Case AName of 'maxresults' : Result:='max-results'; else Result:=Inherited ExportPropertyName(AName); end; end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TRealtimeDataTypequery.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'metrics' : SetLength(Fmetrics,ALength); 'sort' : SetLength(Fsort,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TRealtimeDataTypetotalsForAllResults --------------------------------------------------------------------} Class Function TRealtimeDataTypetotalsForAllResults.AllowAdditionalProperties : Boolean; begin Result:=True; end; { -------------------------------------------------------------------- TRealtimeData --------------------------------------------------------------------} Procedure TRealtimeData.SetcolumnHeaders(AIndex : Integer; AValue : TRealtimeDataTypecolumnHeadersArray); begin If (FcolumnHeaders=AValue) then exit; FcolumnHeaders:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.SetprofileInfo(AIndex : Integer; AValue : TRealtimeDataTypeprofileInfo); begin If (FprofileInfo=AValue) then exit; FprofileInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.Setquery(AIndex : Integer; AValue : TRealtimeDataTypequery); begin If (Fquery=AValue) then exit; Fquery:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.Setrows(AIndex : Integer; AValue : TRealtimeDataTyperowsArray); begin If (Frows=AValue) then exit; Frows:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.SettotalsForAllResults(AIndex : Integer; AValue : TRealtimeDataTypetotalsForAllResults); begin If (FtotalsForAllResults=AValue) then exit; FtotalsForAllResults:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TRealtimeData.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'columnheaders' : SetLength(FcolumnHeaders,ALength); 'rows' : SetLength(Frows,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TSegment --------------------------------------------------------------------} Procedure TSegment.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.Setdefinition(AIndex : Integer; const AValue : String); begin If (Fdefinition=AValue) then exit; Fdefinition:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.SetsegmentId(AIndex : Integer; const AValue : String); begin If (FsegmentId=AValue) then exit; FsegmentId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegment.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Class Function TSegment.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TSegments --------------------------------------------------------------------} Procedure TSegments.Setitems(AIndex : Integer; AValue : TSegmentsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TSegments.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TUnsampledReportTypecloudStorageDownloadDetails --------------------------------------------------------------------} Procedure TUnsampledReportTypecloudStorageDownloadDetails.SetbucketId(AIndex : Integer; const AValue : String); begin If (FbucketId=AValue) then exit; FbucketId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReportTypecloudStorageDownloadDetails.SetobjectId(AIndex : Integer; const AValue : String); begin If (FobjectId=AValue) then exit; FobjectId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TUnsampledReportTypedriveDownloadDetails --------------------------------------------------------------------} Procedure TUnsampledReportTypedriveDownloadDetails.SetdocumentId(AIndex : Integer; const AValue : String); begin If (FdocumentId=AValue) then exit; FdocumentId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TUnsampledReport --------------------------------------------------------------------} Procedure TUnsampledReport.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.SetcloudStorageDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypecloudStorageDownloadDetails); begin If (FcloudStorageDownloadDetails=AValue) then exit; FcloudStorageDownloadDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setdimensions(AIndex : Integer; const AValue : String); begin If (Fdimensions=AValue) then exit; Fdimensions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.SetdownloadType(AIndex : Integer; const AValue : String); begin If (FdownloadType=AValue) then exit; FdownloadType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.SetdriveDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypedriveDownloadDetails); begin If (FdriveDownloadDetails=AValue) then exit; FdriveDownloadDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setenddate(AIndex : Integer; const AValue : String); begin If (Fenddate=AValue) then exit; Fenddate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setfilters(AIndex : Integer; const AValue : String); begin If (Ffilters=AValue) then exit; Ffilters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setmetrics(AIndex : Integer; const AValue : String); begin If (Fmetrics=AValue) then exit; Fmetrics:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.SetprofileId(AIndex : Integer; const AValue : String); begin If (FprofileId=AValue) then exit; FprofileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setsegment(AIndex : Integer; const AValue : String); begin If (Fsegment=AValue) then exit; Fsegment:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setstartdate(AIndex : Integer; const AValue : String); begin If (Fstartdate=AValue) then exit; Fstartdate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setstatus(AIndex : Integer; const AValue : String); begin If (Fstatus=AValue) then exit; Fstatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Settitle(AIndex : Integer; const AValue : String); begin If (Ftitle=AValue) then exit; Ftitle:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.SetwebPropertyId(AIndex : Integer; const AValue : String); begin If (FwebPropertyId=AValue) then exit; FwebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Class Function TUnsampledReport.ExportPropertyName(Const AName : String) :String; begin Case AName of 'enddate' : Result:='end-date'; 'startdate' : Result:='start-date'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TUnsampledReports --------------------------------------------------------------------} Procedure TUnsampledReports.Setitems(AIndex : Integer; AValue : TUnsampledReportsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TUnsampledReports.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TUpload --------------------------------------------------------------------} Procedure TUpload.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpload.SetcustomDataSourceId(AIndex : Integer; const AValue : String); begin If (FcustomDataSourceId=AValue) then exit; FcustomDataSourceId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpload.Seterrors(AIndex : Integer; AValue : TStringArray); begin If (Ferrors=AValue) then exit; Ferrors:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpload.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpload.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpload.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 TUpload.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'errors' : SetLength(Ferrors,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TUploads --------------------------------------------------------------------} Procedure TUploads.Setitems(AIndex : Integer; AValue : TUploadsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TUploads.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TUserRef --------------------------------------------------------------------} Procedure TUserRef.Setemail(AIndex : Integer; const AValue : String); begin If (Femail=AValue) then exit; Femail:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUserRef.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUserRef.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TWebPropertyRef --------------------------------------------------------------------} Procedure TWebPropertyRef.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertyRef.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertyRef.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertyRef.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertyRef.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertyRef.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TWebPropertySummary --------------------------------------------------------------------} Procedure TWebPropertySummary.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertySummary.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertySummary.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertySummary.Setlevel(AIndex : Integer; const AValue : String); begin If (Flevel=AValue) then exit; Flevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertySummary.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertySummary.Setprofiles(AIndex : Integer; AValue : TWebPropertySummaryTypeprofilesArray); begin If (Fprofiles=AValue) then exit; Fprofiles:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertySummary.SetwebsiteUrl(AIndex : Integer; const AValue : String); begin If (FwebsiteUrl=AValue) then exit; FwebsiteUrl:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TWebPropertySummary.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'profiles' : SetLength(Fprofiles,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TWebproperties --------------------------------------------------------------------} Procedure TWebproperties.Setitems(AIndex : Integer; AValue : TWebpropertiesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.SetitemsPerPage(AIndex : Integer; AValue : integer); begin If (FitemsPerPage=AValue) then exit; FitemsPerPage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.SetnextLink(AIndex : Integer; const AValue : String); begin If (FnextLink=AValue) then exit; FnextLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.SetpreviousLink(AIndex : Integer; const AValue : String); begin If (FpreviousLink=AValue) then exit; FpreviousLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.SetstartIndex(AIndex : Integer; AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.SettotalResults(AIndex : Integer; AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.Setusername(AIndex : Integer; const AValue : String); begin If (Fusername=AValue) then exit; Fusername:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TWebproperties.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TWebpropertyTypechildLink --------------------------------------------------------------------} Procedure TWebpropertyTypechildLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebpropertyTypechildLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TWebpropertyTypechildLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TWebpropertyTypeparentLink --------------------------------------------------------------------} Procedure TWebpropertyTypeparentLink.Sethref(AIndex : Integer; const AValue : String); begin If (Fhref=AValue) then exit; Fhref:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebpropertyTypeparentLink.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TWebpropertyTypeparentLink.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TWebpropertyTypepermissions --------------------------------------------------------------------} Procedure TWebpropertyTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray); begin If (Feffective=AValue) then exit; Feffective:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TWebpropertyTypepermissions.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'effective' : SetLength(Feffective,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TWebproperty --------------------------------------------------------------------} Procedure TWebproperty.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetchildLink(AIndex : Integer; AValue : TWebpropertyTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setcreated(AIndex : Integer; AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetdefaultProfileId(AIndex : Integer; const AValue : String); begin If (FdefaultProfileId=AValue) then exit; FdefaultProfileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetindustryVertical(AIndex : Integer; const AValue : String); begin If (FindustryVertical=AValue) then exit; FindustryVertical:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetinternalWebPropertyId(AIndex : Integer; const AValue : String); begin If (FinternalWebPropertyId=AValue) then exit; FinternalWebPropertyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setlevel(AIndex : Integer; const AValue : String); begin If (Flevel=AValue) then exit; Flevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetparentLink(AIndex : Integer; AValue : TWebpropertyTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setpermissions(AIndex : Integer; AValue : TWebpropertyTypepermissions); begin If (Fpermissions=AValue) then exit; Fpermissions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetprofileCount(AIndex : Integer; AValue : integer); begin If (FprofileCount=AValue) then exit; FprofileCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetselfLink(AIndex : Integer; const AValue : String); begin If (FselfLink=AValue) then exit; FselfLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setupdated(AIndex : Integer; AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetwebsiteUrl(AIndex : Integer; const AValue : String); begin If (FwebsiteUrl=AValue) then exit; FwebsiteUrl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDataGaResource --------------------------------------------------------------------} Class Function TDataGaResource.ResourceName : String; begin Result:='ga'; end; Class Function TDataGaResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TDataGaResource.Get(AQuery : string = '') : TGaData; Const _HTTPMethod = 'GET'; _Path = 'data/ga'; _Methodid = 'analytics.data.ga.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGaData) as TGaData; end; Function TDataGaResource.Get(AQuery : TDataGagetOptions) : TGaData; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dimensions',AQuery.dimensions); AddToQuery(_Q,'end-date',AQuery.enddate); AddToQuery(_Q,'filters',AQuery.filters); AddToQuery(_Q,'ids',AQuery.ids); AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'metrics',AQuery.metrics); AddToQuery(_Q,'output',AQuery.output); AddToQuery(_Q,'samplingLevel',AQuery.samplingLevel); AddToQuery(_Q,'segment',AQuery.segment); AddToQuery(_Q,'sort',AQuery.sort); AddToQuery(_Q,'start-date',AQuery.startdate); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=Get(_Q); end; { -------------------------------------------------------------------- TDataMcfResource --------------------------------------------------------------------} Class Function TDataMcfResource.ResourceName : String; begin Result:='mcf'; end; Class Function TDataMcfResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TDataMcfResource.Get(AQuery : string = '') : TMcfData; Const _HTTPMethod = 'GET'; _Path = 'data/mcf'; _Methodid = 'analytics.data.mcf.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TMcfData) as TMcfData; end; Function TDataMcfResource.Get(AQuery : TDataMcfgetOptions) : TMcfData; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dimensions',AQuery.dimensions); AddToQuery(_Q,'end-date',AQuery.enddate); AddToQuery(_Q,'filters',AQuery.filters); AddToQuery(_Q,'ids',AQuery.ids); AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'metrics',AQuery.metrics); AddToQuery(_Q,'samplingLevel',AQuery.samplingLevel); AddToQuery(_Q,'sort',AQuery.sort); AddToQuery(_Q,'start-date',AQuery.startdate); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=Get(_Q); end; { -------------------------------------------------------------------- TDataRealtimeResource --------------------------------------------------------------------} Class Function TDataRealtimeResource.ResourceName : String; begin Result:='realtime'; end; Class Function TDataRealtimeResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TDataRealtimeResource.Get(AQuery : string = '') : TRealtimeData; Const _HTTPMethod = 'GET'; _Path = 'data/realtime'; _Methodid = 'analytics.data.realtime.get'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TRealtimeData) as TRealtimeData; end; Function TDataRealtimeResource.Get(AQuery : TDataRealtimegetOptions) : TRealtimeData; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'dimensions',AQuery.dimensions); AddToQuery(_Q,'filters',AQuery.filters); AddToQuery(_Q,'ids',AQuery.ids); AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'metrics',AQuery.metrics); AddToQuery(_Q,'sort',AQuery.sort); Result:=Get(_Q); end; { -------------------------------------------------------------------- TDataResource --------------------------------------------------------------------} Class Function TDataResource.ResourceName : String; begin Result:='data'; end; Class Function TDataResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TDataResource.GetGaInstance : TDataGaResource; begin if (FGaInstance=Nil) then FGaInstance:=CreateGaResource; Result:=FGaInstance; end; Function TDataResource.CreateGaResource : TDataGaResource; begin Result:=CreateGaResource(Self); end; Function TDataResource.CreateGaResource(AOwner : TComponent) : TDataGaResource; begin Result:=TDataGaResource.Create(AOwner); Result.API:=Self.API; end; Function TDataResource.GetMcfInstance : TDataMcfResource; begin if (FMcfInstance=Nil) then FMcfInstance:=CreateMcfResource; Result:=FMcfInstance; end; Function TDataResource.CreateMcfResource : TDataMcfResource; begin Result:=CreateMcfResource(Self); end; Function TDataResource.CreateMcfResource(AOwner : TComponent) : TDataMcfResource; begin Result:=TDataMcfResource.Create(AOwner); Result.API:=Self.API; end; Function TDataResource.GetRealtimeInstance : TDataRealtimeResource; begin if (FRealtimeInstance=Nil) then FRealtimeInstance:=CreateRealtimeResource; Result:=FRealtimeInstance; end; Function TDataResource.CreateRealtimeResource : TDataRealtimeResource; begin Result:=CreateRealtimeResource(Self); end; Function TDataResource.CreateRealtimeResource(AOwner : TComponent) : TDataRealtimeResource; begin Result:=TDataRealtimeResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TManagementAccountSummariesResource --------------------------------------------------------------------} Class Function TManagementAccountSummariesResource.ResourceName : String; begin Result:='accountSummaries'; end; Class Function TManagementAccountSummariesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementAccountSummariesResource.List(AQuery : string = '') : TAccountSummaries; Const _HTTPMethod = 'GET'; _Path = 'management/accountSummaries'; _Methodid = 'analytics.management.accountSummaries.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAccountSummaries) as TAccountSummaries; end; Function TManagementAccountSummariesResource.List(AQuery : TManagementAccountSummarieslistOptions) : TAccountSummaries; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(_Q); end; { -------------------------------------------------------------------- TManagementAccountUserLinksResource --------------------------------------------------------------------} Class Function TManagementAccountUserLinksResource.ResourceName : String; begin Result:='accountUserLinks'; end; Class Function TManagementAccountUserLinksResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementAccountUserLinksResource.Delete(accountId: string; linkId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/entityUserLinks/{linkId}'; _Methodid = 'analytics.management.accountUserLinks.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TManagementAccountUserLinksResource.Insert(accountId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/entityUserLinks'; _Methodid = 'analytics.management.accountUserLinks.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityUserLink,TEntityUserLink) as TEntityUserLink; end; Function TManagementAccountUserLinksResource.List(accountId: string; AQuery : string = '') : TEntityUserLinks; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/entityUserLinks'; _Methodid = 'analytics.management.accountUserLinks.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEntityUserLinks) as TEntityUserLinks; end; Function TManagementAccountUserLinksResource.List(accountId: string; AQuery : TManagementAccountUserLinkslistOptions) : TEntityUserLinks; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,_Q); end; Function TManagementAccountUserLinksResource.Update(accountId: string; linkId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/entityUserLinks/{linkId}'; _Methodid = 'analytics.management.accountUserLinks.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityUserLink,TEntityUserLink) as TEntityUserLink; end; { -------------------------------------------------------------------- TManagementAccountsResource --------------------------------------------------------------------} Class Function TManagementAccountsResource.ResourceName : String; begin Result:='accounts'; end; Class Function TManagementAccountsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementAccountsResource.List(AQuery : string = '') : TAccounts; Const _HTTPMethod = 'GET'; _Path = 'management/accounts'; _Methodid = 'analytics.management.accounts.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAccounts) as TAccounts; end; Function TManagementAccountsResource.List(AQuery : TManagementAccountslistOptions) : TAccounts; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(_Q); end; { -------------------------------------------------------------------- TManagementCustomDataSourcesResource --------------------------------------------------------------------} Class Function TManagementCustomDataSourcesResource.ResourceName : String; begin Result:='customDataSources'; end; Class Function TManagementCustomDataSourcesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementCustomDataSourcesResource.List(accountId: string; webPropertyId: string; AQuery : string = '') : TCustomDataSources; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDataSources'; _Methodid = 'analytics.management.customDataSources.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCustomDataSources) as TCustomDataSources; end; Function TManagementCustomDataSourcesResource.List(accountId: string; webPropertyId: string; AQuery : TManagementCustomDataSourceslistOptions) : TCustomDataSources; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,webPropertyId,_Q); end; { -------------------------------------------------------------------- TManagementCustomDimensionsResource --------------------------------------------------------------------} Class Function TManagementCustomDimensionsResource.ResourceName : String; begin Result:='customDimensions'; end; Class Function TManagementCustomDimensionsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementCustomDimensionsResource.Get(accountId: string; customDimensionId: string; webPropertyId: string) : TCustomDimension; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDimensions/{customDimensionId}'; _Methodid = 'analytics.management.customDimensions.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customDimensionId',customDimensionId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCustomDimension) as TCustomDimension; end; Function TManagementCustomDimensionsResource.Insert(accountId: string; webPropertyId: string; aCustomDimension : TCustomDimension) : TCustomDimension; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDimensions'; _Methodid = 'analytics.management.customDimensions.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aCustomDimension,TCustomDimension) as TCustomDimension; end; Function TManagementCustomDimensionsResource.List(accountId: string; webPropertyId: string; AQuery : string = '') : TCustomDimensions; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDimensions'; _Methodid = 'analytics.management.customDimensions.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCustomDimensions) as TCustomDimensions; end; Function TManagementCustomDimensionsResource.List(accountId: string; webPropertyId: string; AQuery : TManagementCustomDimensionslistOptions) : TCustomDimensions; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,webPropertyId,_Q); end; Function TManagementCustomDimensionsResource.Patch(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : string = '') : TCustomDimension; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDimensions/{customDimensionId}'; _Methodid = 'analytics.management.customDimensions.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customDimensionId',customDimensionId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCustomDimension,TCustomDimension) as TCustomDimension; end; Function TManagementCustomDimensionsResource.Patch(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : TManagementCustomDimensionspatchOptions) : TCustomDimension; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'ignoreCustomDataSourceLinks',AQuery.ignoreCustomDataSourceLinks); Result:=Patch(accountId,customDimensionId,webPropertyId,aCustomDimension,_Q); end; Function TManagementCustomDimensionsResource.Update(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : string = '') : TCustomDimension; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDimensions/{customDimensionId}'; _Methodid = 'analytics.management.customDimensions.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customDimensionId',customDimensionId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCustomDimension,TCustomDimension) as TCustomDimension; end; Function TManagementCustomDimensionsResource.Update(accountId: string; customDimensionId: string; webPropertyId: string; aCustomDimension : TCustomDimension; AQuery : TManagementCustomDimensionsupdateOptions) : TCustomDimension; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'ignoreCustomDataSourceLinks',AQuery.ignoreCustomDataSourceLinks); Result:=Update(accountId,customDimensionId,webPropertyId,aCustomDimension,_Q); end; { -------------------------------------------------------------------- TManagementCustomMetricsResource --------------------------------------------------------------------} Class Function TManagementCustomMetricsResource.ResourceName : String; begin Result:='customMetrics'; end; Class Function TManagementCustomMetricsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementCustomMetricsResource.Get(accountId: string; customMetricId: string; webPropertyId: string) : TCustomMetric; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customMetrics/{customMetricId}'; _Methodid = 'analytics.management.customMetrics.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customMetricId',customMetricId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCustomMetric) as TCustomMetric; end; Function TManagementCustomMetricsResource.Insert(accountId: string; webPropertyId: string; aCustomMetric : TCustomMetric) : TCustomMetric; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customMetrics'; _Methodid = 'analytics.management.customMetrics.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aCustomMetric,TCustomMetric) as TCustomMetric; end; Function TManagementCustomMetricsResource.List(accountId: string; webPropertyId: string; AQuery : string = '') : TCustomMetrics; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customMetrics'; _Methodid = 'analytics.management.customMetrics.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCustomMetrics) as TCustomMetrics; end; Function TManagementCustomMetricsResource.List(accountId: string; webPropertyId: string; AQuery : TManagementCustomMetricslistOptions) : TCustomMetrics; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,webPropertyId,_Q); end; Function TManagementCustomMetricsResource.Patch(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : string = '') : TCustomMetric; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customMetrics/{customMetricId}'; _Methodid = 'analytics.management.customMetrics.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customMetricId',customMetricId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCustomMetric,TCustomMetric) as TCustomMetric; end; Function TManagementCustomMetricsResource.Patch(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : TManagementCustomMetricspatchOptions) : TCustomMetric; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'ignoreCustomDataSourceLinks',AQuery.ignoreCustomDataSourceLinks); Result:=Patch(accountId,customMetricId,webPropertyId,aCustomMetric,_Q); end; Function TManagementCustomMetricsResource.Update(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : string = '') : TCustomMetric; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customMetrics/{customMetricId}'; _Methodid = 'analytics.management.customMetrics.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customMetricId',customMetricId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCustomMetric,TCustomMetric) as TCustomMetric; end; Function TManagementCustomMetricsResource.Update(accountId: string; customMetricId: string; webPropertyId: string; aCustomMetric : TCustomMetric; AQuery : TManagementCustomMetricsupdateOptions) : TCustomMetric; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'ignoreCustomDataSourceLinks',AQuery.ignoreCustomDataSourceLinks); Result:=Update(accountId,customMetricId,webPropertyId,aCustomMetric,_Q); end; { -------------------------------------------------------------------- TManagementExperimentsResource --------------------------------------------------------------------} Class Function TManagementExperimentsResource.ResourceName : String; begin Result:='experiments'; end; Class Function TManagementExperimentsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementExperimentsResource.Delete(accountId: string; experimentId: string; profileId: string; webPropertyId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/experiments/{experimentId}'; _Methodid = 'analytics.management.experiments.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'experimentId',experimentId,'profileId',profileId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TManagementExperimentsResource.Get(accountId: string; experimentId: string; profileId: string; webPropertyId: string) : TExperiment; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/experiments/{experimentId}'; _Methodid = 'analytics.management.experiments.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'experimentId',experimentId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TExperiment) as TExperiment; end; Function TManagementExperimentsResource.Insert(accountId: string; profileId: string; webPropertyId: string; aExperiment : TExperiment) : TExperiment; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/experiments'; _Methodid = 'analytics.management.experiments.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aExperiment,TExperiment) as TExperiment; end; Function TManagementExperimentsResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TExperiments; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/experiments'; _Methodid = 'analytics.management.experiments.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TExperiments) as TExperiments; end; Function TManagementExperimentsResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementExperimentslistOptions) : TExperiments; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,profileId,webPropertyId,_Q); end; Function TManagementExperimentsResource.Patch(accountId: string; experimentId: string; profileId: string; webPropertyId: string; aExperiment : TExperiment) : TExperiment; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/experiments/{experimentId}'; _Methodid = 'analytics.management.experiments.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'experimentId',experimentId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aExperiment,TExperiment) as TExperiment; end; Function TManagementExperimentsResource.Update(accountId: string; experimentId: string; profileId: string; webPropertyId: string; aExperiment : TExperiment) : TExperiment; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/experiments/{experimentId}'; _Methodid = 'analytics.management.experiments.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'experimentId',experimentId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aExperiment,TExperiment) as TExperiment; end; { -------------------------------------------------------------------- TManagementFiltersResource --------------------------------------------------------------------} Class Function TManagementFiltersResource.ResourceName : String; begin Result:='filters'; end; Class Function TManagementFiltersResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementFiltersResource.Delete(accountId: string; filterId: string) : TFilter; Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/filters/{filterId}'; _Methodid = 'analytics.management.filters.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'filterId',filterId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFilter) as TFilter; end; Function TManagementFiltersResource.Get(accountId: string; filterId: string) : TFilter; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/filters/{filterId}'; _Methodid = 'analytics.management.filters.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'filterId',filterId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFilter) as TFilter; end; Function TManagementFiltersResource.Insert(accountId: string; aFilter : TFilter) : TFilter; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/filters'; _Methodid = 'analytics.management.filters.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,'',aFilter,TFilter) as TFilter; end; Function TManagementFiltersResource.List(accountId: string; AQuery : string = '') : TFilters; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/filters'; _Methodid = 'analytics.management.filters.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFilters) as TFilters; end; Function TManagementFiltersResource.List(accountId: string; AQuery : TManagementFilterslistOptions) : TFilters; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,_Q); end; Function TManagementFiltersResource.Patch(accountId: string; filterId: string; aFilter : TFilter) : TFilter; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/filters/{filterId}'; _Methodid = 'analytics.management.filters.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'filterId',filterId]); Result:=ServiceCall(_HTTPMethod,_P,'',aFilter,TFilter) as TFilter; end; Function TManagementFiltersResource.Update(accountId: string; filterId: string; aFilter : TFilter) : TFilter; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/filters/{filterId}'; _Methodid = 'analytics.management.filters.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'filterId',filterId]); Result:=ServiceCall(_HTTPMethod,_P,'',aFilter,TFilter) as TFilter; end; { -------------------------------------------------------------------- TManagementGoalsResource --------------------------------------------------------------------} Class Function TManagementGoalsResource.ResourceName : String; begin Result:='goals'; end; Class Function TManagementGoalsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementGoalsResource.Get(accountId: string; goalId: string; profileId: string; webPropertyId: string) : TGoal; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/goals/{goalId}'; _Methodid = 'analytics.management.goals.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'goalId',goalId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGoal) as TGoal; end; Function TManagementGoalsResource.Insert(accountId: string; profileId: string; webPropertyId: string; aGoal : TGoal) : TGoal; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/goals'; _Methodid = 'analytics.management.goals.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aGoal,TGoal) as TGoal; end; Function TManagementGoalsResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TGoals; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/goals'; _Methodid = 'analytics.management.goals.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGoals) as TGoals; end; Function TManagementGoalsResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementGoalslistOptions) : TGoals; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,profileId,webPropertyId,_Q); end; Function TManagementGoalsResource.Patch(accountId: string; goalId: string; profileId: string; webPropertyId: string; aGoal : TGoal) : TGoal; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/goals/{goalId}'; _Methodid = 'analytics.management.goals.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'goalId',goalId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aGoal,TGoal) as TGoal; end; Function TManagementGoalsResource.Update(accountId: string; goalId: string; profileId: string; webPropertyId: string; aGoal : TGoal) : TGoal; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/goals/{goalId}'; _Methodid = 'analytics.management.goals.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'goalId',goalId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aGoal,TGoal) as TGoal; end; { -------------------------------------------------------------------- TManagementProfileFilterLinksResource --------------------------------------------------------------------} Class Function TManagementProfileFilterLinksResource.ResourceName : String; begin Result:='profileFilterLinks'; end; Class Function TManagementProfileFilterLinksResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementProfileFilterLinksResource.Delete(accountId: string; linkId: string; profileId: string; webPropertyId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/profileFilterLinks/{linkId}'; _Methodid = 'analytics.management.profileFilterLinks.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'profileId',profileId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TManagementProfileFilterLinksResource.Get(accountId: string; linkId: string; profileId: string; webPropertyId: string) : TProfileFilterLink; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/profileFilterLinks/{linkId}'; _Methodid = 'analytics.management.profileFilterLinks.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProfileFilterLink) as TProfileFilterLink; end; Function TManagementProfileFilterLinksResource.Insert(accountId: string; profileId: string; webPropertyId: string; aProfileFilterLink : TProfileFilterLink) : TProfileFilterLink; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/profileFilterLinks'; _Methodid = 'analytics.management.profileFilterLinks.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aProfileFilterLink,TProfileFilterLink) as TProfileFilterLink; end; Function TManagementProfileFilterLinksResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TProfileFilterLinks; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/profileFilterLinks'; _Methodid = 'analytics.management.profileFilterLinks.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TProfileFilterLinks) as TProfileFilterLinks; end; Function TManagementProfileFilterLinksResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementProfileFilterLinkslistOptions) : TProfileFilterLinks; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,profileId,webPropertyId,_Q); end; Function TManagementProfileFilterLinksResource.Patch(accountId: string; linkId: string; profileId: string; webPropertyId: string; aProfileFilterLink : TProfileFilterLink) : TProfileFilterLink; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/profileFilterLinks/{linkId}'; _Methodid = 'analytics.management.profileFilterLinks.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aProfileFilterLink,TProfileFilterLink) as TProfileFilterLink; end; Function TManagementProfileFilterLinksResource.Update(accountId: string; linkId: string; profileId: string; webPropertyId: string; aProfileFilterLink : TProfileFilterLink) : TProfileFilterLink; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/profileFilterLinks/{linkId}'; _Methodid = 'analytics.management.profileFilterLinks.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aProfileFilterLink,TProfileFilterLink) as TProfileFilterLink; end; { -------------------------------------------------------------------- TManagementProfileUserLinksResource --------------------------------------------------------------------} Class Function TManagementProfileUserLinksResource.ResourceName : String; begin Result:='profileUserLinks'; end; Class Function TManagementProfileUserLinksResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementProfileUserLinksResource.Delete(accountId: string; linkId: string; profileId: string; webPropertyId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/entityUserLinks/{linkId}'; _Methodid = 'analytics.management.profileUserLinks.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'profileId',profileId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TManagementProfileUserLinksResource.Insert(accountId: string; profileId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/entityUserLinks'; _Methodid = 'analytics.management.profileUserLinks.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityUserLink,TEntityUserLink) as TEntityUserLink; end; Function TManagementProfileUserLinksResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TEntityUserLinks; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/entityUserLinks'; _Methodid = 'analytics.management.profileUserLinks.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEntityUserLinks) as TEntityUserLinks; end; Function TManagementProfileUserLinksResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementProfileUserLinkslistOptions) : TEntityUserLinks; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,profileId,webPropertyId,_Q); end; Function TManagementProfileUserLinksResource.Update(accountId: string; linkId: string; profileId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/entityUserLinks/{linkId}'; _Methodid = 'analytics.management.profileUserLinks.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityUserLink,TEntityUserLink) as TEntityUserLink; end; { -------------------------------------------------------------------- TManagementProfilesResource --------------------------------------------------------------------} Class Function TManagementProfilesResource.ResourceName : String; begin Result:='profiles'; end; Class Function TManagementProfilesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementProfilesResource.Delete(accountId: string; profileId: string; webPropertyId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}'; _Methodid = 'analytics.management.profiles.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TManagementProfilesResource.Get(accountId: string; profileId: string; webPropertyId: string) : TProfile; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}'; _Methodid = 'analytics.management.profiles.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProfile) as TProfile; end; Function TManagementProfilesResource.Insert(accountId: string; webPropertyId: string; aProfile : TProfile) : TProfile; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles'; _Methodid = 'analytics.management.profiles.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aProfile,TProfile) as TProfile; end; Function TManagementProfilesResource.List(accountId: string; webPropertyId: string; AQuery : string = '') : TProfiles; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles'; _Methodid = 'analytics.management.profiles.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TProfiles) as TProfiles; end; Function TManagementProfilesResource.List(accountId: string; webPropertyId: string; AQuery : TManagementProfileslistOptions) : TProfiles; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,webPropertyId,_Q); end; Function TManagementProfilesResource.Patch(accountId: string; profileId: string; webPropertyId: string; aProfile : TProfile) : TProfile; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}'; _Methodid = 'analytics.management.profiles.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aProfile,TProfile) as TProfile; end; Function TManagementProfilesResource.Update(accountId: string; profileId: string; webPropertyId: string; aProfile : TProfile) : TProfile; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}'; _Methodid = 'analytics.management.profiles.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aProfile,TProfile) as TProfile; end; { -------------------------------------------------------------------- TManagementSegmentsResource --------------------------------------------------------------------} Class Function TManagementSegmentsResource.ResourceName : String; begin Result:='segments'; end; Class Function TManagementSegmentsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementSegmentsResource.List(AQuery : string = '') : TSegments; Const _HTTPMethod = 'GET'; _Path = 'management/segments'; _Methodid = 'analytics.management.segments.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSegments) as TSegments; end; Function TManagementSegmentsResource.List(AQuery : TManagementSegmentslistOptions) : TSegments; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(_Q); end; { -------------------------------------------------------------------- TManagementUnsampledReportsResource --------------------------------------------------------------------} Class Function TManagementUnsampledReportsResource.ResourceName : String; begin Result:='unsampledReports'; end; Class Function TManagementUnsampledReportsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementUnsampledReportsResource.Get(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string) : TUnsampledReport; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/unsampledReports/{unsampledReportId}'; _Methodid = 'analytics.management.unsampledReports.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'unsampledReportId',unsampledReportId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUnsampledReport) as TUnsampledReport; end; Function TManagementUnsampledReportsResource.Insert(accountId: string; profileId: string; webPropertyId: string; aUnsampledReport : TUnsampledReport) : TUnsampledReport; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/unsampledReports'; _Methodid = 'analytics.management.unsampledReports.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aUnsampledReport,TUnsampledReport) as TUnsampledReport; end; Function TManagementUnsampledReportsResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TUnsampledReports; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/unsampledReports'; _Methodid = 'analytics.management.unsampledReports.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TUnsampledReports) as TUnsampledReports; end; Function TManagementUnsampledReportsResource.List(accountId: string; profileId: string; webPropertyId: string; AQuery : TManagementUnsampledReportslistOptions) : TUnsampledReports; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,profileId,webPropertyId,_Q); end; { -------------------------------------------------------------------- TManagementUploadsResource --------------------------------------------------------------------} Class Function TManagementUploadsResource.ResourceName : String; begin Result:='uploads'; end; Class Function TManagementUploadsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementUploadsResource.DeleteUploadData(accountId: string; customDataSourceId: string; webPropertyId: string; aAnalyticsDataimportDeleteUploadDataRequest : TAnalyticsDataimportDeleteUploadDataRequest); Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDataSources/{customDataSourceId}/deleteUploadData'; _Methodid = 'analytics.management.uploads.deleteUploadData'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customDataSourceId',customDataSourceId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',aAnalyticsDataimportDeleteUploadDataRequest,Nil); end; Function TManagementUploadsResource.Get(accountId: string; customDataSourceId: string; uploadId: string; webPropertyId: string) : TUpload; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDataSources/{customDataSourceId}/uploads/{uploadId}'; _Methodid = 'analytics.management.uploads.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customDataSourceId',customDataSourceId,'uploadId',uploadId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUpload) as TUpload; end; Function TManagementUploadsResource.List(accountId: string; customDataSourceId: string; webPropertyId: string; AQuery : string = '') : TUploads; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDataSources/{customDataSourceId}/uploads'; _Methodid = 'analytics.management.uploads.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customDataSourceId',customDataSourceId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TUploads) as TUploads; end; Function TManagementUploadsResource.List(accountId: string; customDataSourceId: string; webPropertyId: string; AQuery : TManagementUploadslistOptions) : TUploads; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,customDataSourceId,webPropertyId,_Q); end; Function TManagementUploadsResource.UploadData(accountId: string; customDataSourceId: string; webPropertyId: string) : TUpload; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/customDataSources/{customDataSourceId}/uploads'; _Methodid = 'analytics.management.uploads.uploadData'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'customDataSourceId',customDataSourceId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUpload) as TUpload; end; { -------------------------------------------------------------------- TManagementWebPropertyAdWordsLinksResource --------------------------------------------------------------------} Class Function TManagementWebPropertyAdWordsLinksResource.ResourceName : String; begin Result:='webPropertyAdWordsLinks'; end; Class Function TManagementWebPropertyAdWordsLinksResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementWebPropertyAdWordsLinksResource.Delete(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityAdWordsLinks/{webPropertyAdWordsLinkId}'; _Methodid = 'analytics.management.webPropertyAdWordsLinks.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyAdWordsLinkId',webPropertyAdWordsLinkId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TManagementWebPropertyAdWordsLinksResource.Get(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string) : TEntityAdWordsLink; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityAdWordsLinks/{webPropertyAdWordsLinkId}'; _Methodid = 'analytics.management.webPropertyAdWordsLinks.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyAdWordsLinkId',webPropertyAdWordsLinkId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEntityAdWordsLink) as TEntityAdWordsLink; end; Function TManagementWebPropertyAdWordsLinksResource.Insert(accountId: string; webPropertyId: string; aEntityAdWordsLink : TEntityAdWordsLink) : TEntityAdWordsLink; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityAdWordsLinks'; _Methodid = 'analytics.management.webPropertyAdWordsLinks.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityAdWordsLink,TEntityAdWordsLink) as TEntityAdWordsLink; end; Function TManagementWebPropertyAdWordsLinksResource.List(accountId: string; webPropertyId: string; AQuery : string = '') : TEntityAdWordsLinks; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityAdWordsLinks'; _Methodid = 'analytics.management.webPropertyAdWordsLinks.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEntityAdWordsLinks) as TEntityAdWordsLinks; end; Function TManagementWebPropertyAdWordsLinksResource.List(accountId: string; webPropertyId: string; AQuery : TManagementWebPropertyAdWordsLinkslistOptions) : TEntityAdWordsLinks; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,webPropertyId,_Q); end; Function TManagementWebPropertyAdWordsLinksResource.Patch(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string; aEntityAdWordsLink : TEntityAdWordsLink) : TEntityAdWordsLink; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityAdWordsLinks/{webPropertyAdWordsLinkId}'; _Methodid = 'analytics.management.webPropertyAdWordsLinks.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyAdWordsLinkId',webPropertyAdWordsLinkId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityAdWordsLink,TEntityAdWordsLink) as TEntityAdWordsLink; end; Function TManagementWebPropertyAdWordsLinksResource.Update(accountId: string; webPropertyAdWordsLinkId: string; webPropertyId: string; aEntityAdWordsLink : TEntityAdWordsLink) : TEntityAdWordsLink; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityAdWordsLinks/{webPropertyAdWordsLinkId}'; _Methodid = 'analytics.management.webPropertyAdWordsLinks.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyAdWordsLinkId',webPropertyAdWordsLinkId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityAdWordsLink,TEntityAdWordsLink) as TEntityAdWordsLink; end; { -------------------------------------------------------------------- TManagementWebpropertiesResource --------------------------------------------------------------------} Class Function TManagementWebpropertiesResource.ResourceName : String; begin Result:='webproperties'; end; Class Function TManagementWebpropertiesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementWebpropertiesResource.Get(accountId: string; webPropertyId: string) : TWebproperty; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}'; _Methodid = 'analytics.management.webproperties.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TWebproperty) as TWebproperty; end; Function TManagementWebpropertiesResource.Insert(accountId: string; aWebproperty : TWebproperty) : TWebproperty; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties'; _Methodid = 'analytics.management.webproperties.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,'',aWebproperty,TWebproperty) as TWebproperty; end; Function TManagementWebpropertiesResource.List(accountId: string; AQuery : string = '') : TWebproperties; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties'; _Methodid = 'analytics.management.webproperties.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TWebproperties) as TWebproperties; end; Function TManagementWebpropertiesResource.List(accountId: string; AQuery : TManagementWebpropertieslistOptions) : TWebproperties; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,_Q); end; Function TManagementWebpropertiesResource.Patch(accountId: string; webPropertyId: string; aWebproperty : TWebproperty) : TWebproperty; Const _HTTPMethod = 'PATCH'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}'; _Methodid = 'analytics.management.webproperties.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aWebproperty,TWebproperty) as TWebproperty; end; Function TManagementWebpropertiesResource.Update(accountId: string; webPropertyId: string; aWebproperty : TWebproperty) : TWebproperty; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}'; _Methodid = 'analytics.management.webproperties.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aWebproperty,TWebproperty) as TWebproperty; end; { -------------------------------------------------------------------- TManagementWebpropertyUserLinksResource --------------------------------------------------------------------} Class Function TManagementWebpropertyUserLinksResource.ResourceName : String; begin Result:='webpropertyUserLinks'; end; Class Function TManagementWebpropertyUserLinksResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Procedure TManagementWebpropertyUserLinksResource.Delete(accountId: string; linkId: string; webPropertyId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityUserLinks/{linkId}'; _Methodid = 'analytics.management.webpropertyUserLinks.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TManagementWebpropertyUserLinksResource.Insert(accountId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Const _HTTPMethod = 'POST'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityUserLinks'; _Methodid = 'analytics.management.webpropertyUserLinks.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityUserLink,TEntityUserLink) as TEntityUserLink; end; Function TManagementWebpropertyUserLinksResource.List(accountId: string; webPropertyId: string; AQuery : string = '') : TEntityUserLinks; Const _HTTPMethod = 'GET'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityUserLinks'; _Methodid = 'analytics.management.webpropertyUserLinks.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEntityUserLinks) as TEntityUserLinks; end; Function TManagementWebpropertyUserLinksResource.List(accountId: string; webPropertyId: string; AQuery : TManagementWebpropertyUserLinkslistOptions) : TEntityUserLinks; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'max-results',AQuery.maxresults); AddToQuery(_Q,'start-index',AQuery.startindex); Result:=List(accountId,webPropertyId,_Q); end; Function TManagementWebpropertyUserLinksResource.Update(accountId: string; linkId: string; webPropertyId: string; aEntityUserLink : TEntityUserLink) : TEntityUserLink; Const _HTTPMethod = 'PUT'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/entityUserLinks/{linkId}'; _Methodid = 'analytics.management.webpropertyUserLinks.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'linkId',linkId,'webPropertyId',webPropertyId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEntityUserLink,TEntityUserLink) as TEntityUserLink; end; { -------------------------------------------------------------------- TManagementResource --------------------------------------------------------------------} Class Function TManagementResource.ResourceName : String; begin Result:='management'; end; Class Function TManagementResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TManagementResource.GetAccountSummariesInstance : TManagementAccountSummariesResource; begin if (FAccountSummariesInstance=Nil) then FAccountSummariesInstance:=CreateAccountSummariesResource; Result:=FAccountSummariesInstance; end; Function TManagementResource.CreateAccountSummariesResource : TManagementAccountSummariesResource; begin Result:=CreateAccountSummariesResource(Self); end; Function TManagementResource.CreateAccountSummariesResource(AOwner : TComponent) : TManagementAccountSummariesResource; begin Result:=TManagementAccountSummariesResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetAccountUserLinksInstance : TManagementAccountUserLinksResource; begin if (FAccountUserLinksInstance=Nil) then FAccountUserLinksInstance:=CreateAccountUserLinksResource; Result:=FAccountUserLinksInstance; end; Function TManagementResource.CreateAccountUserLinksResource : TManagementAccountUserLinksResource; begin Result:=CreateAccountUserLinksResource(Self); end; Function TManagementResource.CreateAccountUserLinksResource(AOwner : TComponent) : TManagementAccountUserLinksResource; begin Result:=TManagementAccountUserLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetAccountsInstance : TManagementAccountsResource; begin if (FAccountsInstance=Nil) then FAccountsInstance:=CreateAccountsResource; Result:=FAccountsInstance; end; Function TManagementResource.CreateAccountsResource : TManagementAccountsResource; begin Result:=CreateAccountsResource(Self); end; Function TManagementResource.CreateAccountsResource(AOwner : TComponent) : TManagementAccountsResource; begin Result:=TManagementAccountsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetCustomDataSourcesInstance : TManagementCustomDataSourcesResource; begin if (FCustomDataSourcesInstance=Nil) then FCustomDataSourcesInstance:=CreateCustomDataSourcesResource; Result:=FCustomDataSourcesInstance; end; Function TManagementResource.CreateCustomDataSourcesResource : TManagementCustomDataSourcesResource; begin Result:=CreateCustomDataSourcesResource(Self); end; Function TManagementResource.CreateCustomDataSourcesResource(AOwner : TComponent) : TManagementCustomDataSourcesResource; begin Result:=TManagementCustomDataSourcesResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetCustomDimensionsInstance : TManagementCustomDimensionsResource; begin if (FCustomDimensionsInstance=Nil) then FCustomDimensionsInstance:=CreateCustomDimensionsResource; Result:=FCustomDimensionsInstance; end; Function TManagementResource.CreateCustomDimensionsResource : TManagementCustomDimensionsResource; begin Result:=CreateCustomDimensionsResource(Self); end; Function TManagementResource.CreateCustomDimensionsResource(AOwner : TComponent) : TManagementCustomDimensionsResource; begin Result:=TManagementCustomDimensionsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetCustomMetricsInstance : TManagementCustomMetricsResource; begin if (FCustomMetricsInstance=Nil) then FCustomMetricsInstance:=CreateCustomMetricsResource; Result:=FCustomMetricsInstance; end; Function TManagementResource.CreateCustomMetricsResource : TManagementCustomMetricsResource; begin Result:=CreateCustomMetricsResource(Self); end; Function TManagementResource.CreateCustomMetricsResource(AOwner : TComponent) : TManagementCustomMetricsResource; begin Result:=TManagementCustomMetricsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetExperimentsInstance : TManagementExperimentsResource; begin if (FExperimentsInstance=Nil) then FExperimentsInstance:=CreateExperimentsResource; Result:=FExperimentsInstance; end; Function TManagementResource.CreateExperimentsResource : TManagementExperimentsResource; begin Result:=CreateExperimentsResource(Self); end; Function TManagementResource.CreateExperimentsResource(AOwner : TComponent) : TManagementExperimentsResource; begin Result:=TManagementExperimentsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetFiltersInstance : TManagementFiltersResource; begin if (FFiltersInstance=Nil) then FFiltersInstance:=CreateFiltersResource; Result:=FFiltersInstance; end; Function TManagementResource.CreateFiltersResource : TManagementFiltersResource; begin Result:=CreateFiltersResource(Self); end; Function TManagementResource.CreateFiltersResource(AOwner : TComponent) : TManagementFiltersResource; begin Result:=TManagementFiltersResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetGoalsInstance : TManagementGoalsResource; begin if (FGoalsInstance=Nil) then FGoalsInstance:=CreateGoalsResource; Result:=FGoalsInstance; end; Function TManagementResource.CreateGoalsResource : TManagementGoalsResource; begin Result:=CreateGoalsResource(Self); end; Function TManagementResource.CreateGoalsResource(AOwner : TComponent) : TManagementGoalsResource; begin Result:=TManagementGoalsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetProfileFilterLinksInstance : TManagementProfileFilterLinksResource; begin if (FProfileFilterLinksInstance=Nil) then FProfileFilterLinksInstance:=CreateProfileFilterLinksResource; Result:=FProfileFilterLinksInstance; end; Function TManagementResource.CreateProfileFilterLinksResource : TManagementProfileFilterLinksResource; begin Result:=CreateProfileFilterLinksResource(Self); end; Function TManagementResource.CreateProfileFilterLinksResource(AOwner : TComponent) : TManagementProfileFilterLinksResource; begin Result:=TManagementProfileFilterLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetProfileUserLinksInstance : TManagementProfileUserLinksResource; begin if (FProfileUserLinksInstance=Nil) then FProfileUserLinksInstance:=CreateProfileUserLinksResource; Result:=FProfileUserLinksInstance; end; Function TManagementResource.CreateProfileUserLinksResource : TManagementProfileUserLinksResource; begin Result:=CreateProfileUserLinksResource(Self); end; Function TManagementResource.CreateProfileUserLinksResource(AOwner : TComponent) : TManagementProfileUserLinksResource; begin Result:=TManagementProfileUserLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetProfilesInstance : TManagementProfilesResource; begin if (FProfilesInstance=Nil) then FProfilesInstance:=CreateProfilesResource; Result:=FProfilesInstance; end; Function TManagementResource.CreateProfilesResource : TManagementProfilesResource; begin Result:=CreateProfilesResource(Self); end; Function TManagementResource.CreateProfilesResource(AOwner : TComponent) : TManagementProfilesResource; begin Result:=TManagementProfilesResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetSegmentsInstance : TManagementSegmentsResource; begin if (FSegmentsInstance=Nil) then FSegmentsInstance:=CreateSegmentsResource; Result:=FSegmentsInstance; end; Function TManagementResource.CreateSegmentsResource : TManagementSegmentsResource; begin Result:=CreateSegmentsResource(Self); end; Function TManagementResource.CreateSegmentsResource(AOwner : TComponent) : TManagementSegmentsResource; begin Result:=TManagementSegmentsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetUnsampledReportsInstance : TManagementUnsampledReportsResource; begin if (FUnsampledReportsInstance=Nil) then FUnsampledReportsInstance:=CreateUnsampledReportsResource; Result:=FUnsampledReportsInstance; end; Function TManagementResource.CreateUnsampledReportsResource : TManagementUnsampledReportsResource; begin Result:=CreateUnsampledReportsResource(Self); end; Function TManagementResource.CreateUnsampledReportsResource(AOwner : TComponent) : TManagementUnsampledReportsResource; begin Result:=TManagementUnsampledReportsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetUploadsInstance : TManagementUploadsResource; begin if (FUploadsInstance=Nil) then FUploadsInstance:=CreateUploadsResource; Result:=FUploadsInstance; end; Function TManagementResource.CreateUploadsResource : TManagementUploadsResource; begin Result:=CreateUploadsResource(Self); end; Function TManagementResource.CreateUploadsResource(AOwner : TComponent) : TManagementUploadsResource; begin Result:=TManagementUploadsResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetWebPropertyAdWordsLinksInstance : TManagementWebPropertyAdWordsLinksResource; begin if (FWebPropertyAdWordsLinksInstance=Nil) then FWebPropertyAdWordsLinksInstance:=CreateWebPropertyAdWordsLinksResource; Result:=FWebPropertyAdWordsLinksInstance; end; Function TManagementResource.CreateWebPropertyAdWordsLinksResource : TManagementWebPropertyAdWordsLinksResource; begin Result:=CreateWebPropertyAdWordsLinksResource(Self); end; Function TManagementResource.CreateWebPropertyAdWordsLinksResource(AOwner : TComponent) : TManagementWebPropertyAdWordsLinksResource; begin Result:=TManagementWebPropertyAdWordsLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetWebpropertiesInstance : TManagementWebpropertiesResource; begin if (FWebpropertiesInstance=Nil) then FWebpropertiesInstance:=CreateWebpropertiesResource; Result:=FWebpropertiesInstance; end; Function TManagementResource.CreateWebpropertiesResource : TManagementWebpropertiesResource; begin Result:=CreateWebpropertiesResource(Self); end; Function TManagementResource.CreateWebpropertiesResource(AOwner : TComponent) : TManagementWebpropertiesResource; begin Result:=TManagementWebpropertiesResource.Create(AOwner); Result.API:=Self.API; end; Function TManagementResource.GetWebpropertyUserLinksInstance : TManagementWebpropertyUserLinksResource; begin if (FWebpropertyUserLinksInstance=Nil) then FWebpropertyUserLinksInstance:=CreateWebpropertyUserLinksResource; Result:=FWebpropertyUserLinksInstance; end; Function TManagementResource.CreateWebpropertyUserLinksResource : TManagementWebpropertyUserLinksResource; begin Result:=CreateWebpropertyUserLinksResource(Self); end; Function TManagementResource.CreateWebpropertyUserLinksResource(AOwner : TComponent) : TManagementWebpropertyUserLinksResource; begin Result:=TManagementWebpropertyUserLinksResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TMetadataColumnsResource --------------------------------------------------------------------} Class Function TMetadataColumnsResource.ResourceName : String; begin Result:='columns'; end; Class Function TMetadataColumnsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TMetadataColumnsResource.List(reportType: string) : TColumns; Const _HTTPMethod = 'GET'; _Path = 'metadata/{reportType}/columns'; _Methodid = 'analytics.metadata.columns.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['reportType',reportType]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TColumns) as TColumns; end; { -------------------------------------------------------------------- TMetadataResource --------------------------------------------------------------------} Class Function TMetadataResource.ResourceName : String; begin Result:='metadata'; end; Class Function TMetadataResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TMetadataResource.GetColumnsInstance : TMetadataColumnsResource; begin if (FColumnsInstance=Nil) then FColumnsInstance:=CreateColumnsResource; Result:=FColumnsInstance; end; Function TMetadataResource.CreateColumnsResource : TMetadataColumnsResource; begin Result:=CreateColumnsResource(Self); end; Function TMetadataResource.CreateColumnsResource(AOwner : TComponent) : TMetadataColumnsResource; begin Result:=TMetadataColumnsResource.Create(AOwner); Result.API:=Self.API; end; { -------------------------------------------------------------------- TProvisioningResource --------------------------------------------------------------------} Class Function TProvisioningResource.ResourceName : String; begin Result:='provisioning'; end; Class Function TProvisioningResource.DefaultAPI : TGoogleAPIClass; begin Result:=TanalyticsAPI; end; Function TProvisioningResource.CreateAccountTicket(aAccountTicket : TAccountTicket) : TAccountTicket; Const _HTTPMethod = 'POST'; _Path = 'provisioning/createAccountTicket'; _Methodid = 'analytics.provisioning.createAccountTicket'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aAccountTicket,TAccountTicket) as TAccountTicket; end; { -------------------------------------------------------------------- TAnalyticsAPI --------------------------------------------------------------------} Class Function TAnalyticsAPI.APIName : String; begin Result:='analytics'; end; Class Function TAnalyticsAPI.APIVersion : String; begin Result:='v3'; end; Class Function TAnalyticsAPI.APIRevision : String; begin Result:='20150417'; end; Class Function TAnalyticsAPI.APIID : String; begin Result:='analytics:v3'; end; Class Function TAnalyticsAPI.APITitle : String; begin Result:='Google Analytics API'; end; Class Function TAnalyticsAPI.APIDescription : String; begin Result:='View and manage your Google Analytics data'; end; Class Function TAnalyticsAPI.APIOwnerDomain : String; begin Result:='google.com'; end; Class Function TAnalyticsAPI.APIOwnerName : String; begin Result:='Google'; end; Class Function TAnalyticsAPI.APIIcon16 : String; begin Result:='https://www.google.com/images/icons/product/analytics-16.png'; end; Class Function TAnalyticsAPI.APIIcon32 : String; begin Result:='https://www.google.com/images/icons/product/analytics-32.png'; end; Class Function TAnalyticsAPI.APIdocumentationLink : String; begin Result:='https://developers.google.com/analytics/'; end; Class Function TAnalyticsAPI.APIrootUrl : string; begin Result:='https://www.googleapis.com:443/'; end; Class Function TAnalyticsAPI.APIbasePath : string; begin Result:='/analytics/v3/'; end; Class Function TAnalyticsAPI.APIbaseURL : String; begin Result:='https://www.googleapis.com:443/analytics/v3/'; end; Class Function TAnalyticsAPI.APIProtocol : string; begin Result:='rest'; end; Class Function TAnalyticsAPI.APIservicePath : string; begin Result:='analytics/v3/'; end; Class Function TAnalyticsAPI.APIbatchPath : String; begin Result:='batch'; end; Class Function TAnalyticsAPI.APIAuthScopes : TScopeInfoArray; begin SetLength(Result,6); Result[0].Name:='https://www.googleapis.com/auth/analytics'; Result[0].Description:='View and manage your Google Analytics data'; Result[1].Name:='https://www.googleapis.com/auth/analytics.edit'; Result[1].Description:='Edit Google Analytics management entities'; Result[2].Name:='https://www.googleapis.com/auth/analytics.manage.users'; Result[2].Description:='Manage Google Analytics Account users by email address'; Result[3].Name:='https://www.googleapis.com/auth/analytics.manage.users.readonly'; Result[3].Description:='View Google Analytics user permissions'; Result[4].Name:='https://www.googleapis.com/auth/analytics.provision'; Result[4].Description:='Create a new Google Analytics account along with its default property and view'; Result[5].Name:='https://www.googleapis.com/auth/analytics.readonly'; Result[5].Description:='View your Google Analytics data'; end; Class Function TAnalyticsAPI.APINeedsAuth : Boolean; begin Result:=True; end; Class Procedure TAnalyticsAPI.RegisterAPIResources; begin TAccountTypechildLink.RegisterObject; TAccountTypepermissions.RegisterObject; TAccount.RegisterObject; TAccountRef.RegisterObject; TAccountSummaries.RegisterObject; TAccountSummary.RegisterObject; TAccountTicket.RegisterObject; TAccounts.RegisterObject; TAdWordsAccount.RegisterObject; TAnalyticsDataimportDeleteUploadDataRequest.RegisterObject; TColumnTypeattributes.RegisterObject; TColumn.RegisterObject; TColumns.RegisterObject; TCustomDataSourceTypechildLink.RegisterObject; TCustomDataSourceTypeparentLink.RegisterObject; TCustomDataSource.RegisterObject; TCustomDataSources.RegisterObject; TCustomDimensionTypeparentLink.RegisterObject; TCustomDimension.RegisterObject; TCustomDimensions.RegisterObject; TCustomMetricTypeparentLink.RegisterObject; TCustomMetric.RegisterObject; TCustomMetrics.RegisterObject; TEntityAdWordsLinkTypeentity.RegisterObject; TEntityAdWordsLink.RegisterObject; TEntityAdWordsLinks.RegisterObject; TEntityUserLinkTypeentity.RegisterObject; TEntityUserLinkTypepermissions.RegisterObject; TEntityUserLink.RegisterObject; TEntityUserLinks.RegisterObject; TExperimentTypeparentLink.RegisterObject; TExperimentTypevariationsItem.RegisterObject; TExperiment.RegisterObject; TExperiments.RegisterObject; TFilterTypeadvancedDetails.RegisterObject; TFilterTypelowercaseDetails.RegisterObject; TFilterTypeparentLink.RegisterObject; TFilterTypesearchAndReplaceDetails.RegisterObject; TFilterTypeuppercaseDetails.RegisterObject; TFilter.RegisterObject; TFilterExpression.RegisterObject; TFilterRef.RegisterObject; TFilters.RegisterObject; TGaDataTypecolumnHeadersItem.RegisterObject; TGaDataTypedataTableTypecolsItem.RegisterObject; TGaDataTypedataTableTyperowsItemTypecItem.RegisterObject; TGaDataTypedataTableTyperowsItem.RegisterObject; TGaDataTypedataTable.RegisterObject; TGaDataTypeprofileInfo.RegisterObject; TGaDataTypequery.RegisterObject; TGaDataTypetotalsForAllResults.RegisterObject; TGaData.RegisterObject; TGoalTypeeventDetailsTypeeventConditionsItem.RegisterObject; TGoalTypeeventDetails.RegisterObject; TGoalTypeparentLink.RegisterObject; TGoalTypeurlDestinationDetailsTypestepsItem.RegisterObject; TGoalTypeurlDestinationDetails.RegisterObject; TGoalTypevisitNumPagesDetails.RegisterObject; TGoalTypevisitTimeOnSiteDetails.RegisterObject; TGoal.RegisterObject; TGoals.RegisterObject; TMcfDataTypecolumnHeadersItem.RegisterObject; TMcfDataTypeprofileInfo.RegisterObject; TMcfDataTypequery.RegisterObject; TMcfDataTyperowsItemItemTypeconversionPathValueItem.RegisterObject; TMcfDataTyperowsItemItem.RegisterObject; TMcfDataTypetotalsForAllResults.RegisterObject; TMcfData.RegisterObject; TProfileTypechildLink.RegisterObject; TProfileTypeparentLink.RegisterObject; TProfileTypepermissions.RegisterObject; TProfile.RegisterObject; TProfileFilterLink.RegisterObject; TProfileFilterLinks.RegisterObject; TProfileRef.RegisterObject; TProfileSummary.RegisterObject; TProfiles.RegisterObject; TRealtimeDataTypecolumnHeadersItem.RegisterObject; TRealtimeDataTypeprofileInfo.RegisterObject; TRealtimeDataTypequery.RegisterObject; TRealtimeDataTypetotalsForAllResults.RegisterObject; TRealtimeData.RegisterObject; TSegment.RegisterObject; TSegments.RegisterObject; TUnsampledReportTypecloudStorageDownloadDetails.RegisterObject; TUnsampledReportTypedriveDownloadDetails.RegisterObject; TUnsampledReport.RegisterObject; TUnsampledReports.RegisterObject; TUpload.RegisterObject; TUploads.RegisterObject; TUserRef.RegisterObject; TWebPropertyRef.RegisterObject; TWebPropertySummary.RegisterObject; TWebproperties.RegisterObject; TWebpropertyTypechildLink.RegisterObject; TWebpropertyTypeparentLink.RegisterObject; TWebpropertyTypepermissions.RegisterObject; TWebproperty.RegisterObject; end; Function TAnalyticsAPI.GetDataGaInstance : TDataGaResource; begin if (FDataGaInstance=Nil) then FDataGaInstance:=CreateDataGaResource; Result:=FDataGaInstance; end; Function TAnalyticsAPI.CreateDataGaResource : TDataGaResource; begin Result:=CreateDataGaResource(Self); end; Function TAnalyticsAPI.CreateDataGaResource(AOwner : TComponent) : TDataGaResource; begin Result:=TDataGaResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetDataMcfInstance : TDataMcfResource; begin if (FDataMcfInstance=Nil) then FDataMcfInstance:=CreateDataMcfResource; Result:=FDataMcfInstance; end; Function TAnalyticsAPI.CreateDataMcfResource : TDataMcfResource; begin Result:=CreateDataMcfResource(Self); end; Function TAnalyticsAPI.CreateDataMcfResource(AOwner : TComponent) : TDataMcfResource; begin Result:=TDataMcfResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetDataRealtimeInstance : TDataRealtimeResource; begin if (FDataRealtimeInstance=Nil) then FDataRealtimeInstance:=CreateDataRealtimeResource; Result:=FDataRealtimeInstance; end; Function TAnalyticsAPI.CreateDataRealtimeResource : TDataRealtimeResource; begin Result:=CreateDataRealtimeResource(Self); end; Function TAnalyticsAPI.CreateDataRealtimeResource(AOwner : TComponent) : TDataRealtimeResource; begin Result:=TDataRealtimeResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetDataInstance : TDataResource; begin if (FDataInstance=Nil) then FDataInstance:=CreateDataResource; Result:=FDataInstance; end; Function TAnalyticsAPI.CreateDataResource : TDataResource; begin Result:=CreateDataResource(Self); end; Function TAnalyticsAPI.CreateDataResource(AOwner : TComponent) : TDataResource; begin Result:=TDataResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementAccountSummariesInstance : TManagementAccountSummariesResource; begin if (FManagementAccountSummariesInstance=Nil) then FManagementAccountSummariesInstance:=CreateManagementAccountSummariesResource; Result:=FManagementAccountSummariesInstance; end; Function TAnalyticsAPI.CreateManagementAccountSummariesResource : TManagementAccountSummariesResource; begin Result:=CreateManagementAccountSummariesResource(Self); end; Function TAnalyticsAPI.CreateManagementAccountSummariesResource(AOwner : TComponent) : TManagementAccountSummariesResource; begin Result:=TManagementAccountSummariesResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementAccountUserLinksInstance : TManagementAccountUserLinksResource; begin if (FManagementAccountUserLinksInstance=Nil) then FManagementAccountUserLinksInstance:=CreateManagementAccountUserLinksResource; Result:=FManagementAccountUserLinksInstance; end; Function TAnalyticsAPI.CreateManagementAccountUserLinksResource : TManagementAccountUserLinksResource; begin Result:=CreateManagementAccountUserLinksResource(Self); end; Function TAnalyticsAPI.CreateManagementAccountUserLinksResource(AOwner : TComponent) : TManagementAccountUserLinksResource; begin Result:=TManagementAccountUserLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementAccountsInstance : TManagementAccountsResource; begin if (FManagementAccountsInstance=Nil) then FManagementAccountsInstance:=CreateManagementAccountsResource; Result:=FManagementAccountsInstance; end; Function TAnalyticsAPI.CreateManagementAccountsResource : TManagementAccountsResource; begin Result:=CreateManagementAccountsResource(Self); end; Function TAnalyticsAPI.CreateManagementAccountsResource(AOwner : TComponent) : TManagementAccountsResource; begin Result:=TManagementAccountsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementCustomDataSourcesInstance : TManagementCustomDataSourcesResource; begin if (FManagementCustomDataSourcesInstance=Nil) then FManagementCustomDataSourcesInstance:=CreateManagementCustomDataSourcesResource; Result:=FManagementCustomDataSourcesInstance; end; Function TAnalyticsAPI.CreateManagementCustomDataSourcesResource : TManagementCustomDataSourcesResource; begin Result:=CreateManagementCustomDataSourcesResource(Self); end; Function TAnalyticsAPI.CreateManagementCustomDataSourcesResource(AOwner : TComponent) : TManagementCustomDataSourcesResource; begin Result:=TManagementCustomDataSourcesResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementCustomDimensionsInstance : TManagementCustomDimensionsResource; begin if (FManagementCustomDimensionsInstance=Nil) then FManagementCustomDimensionsInstance:=CreateManagementCustomDimensionsResource; Result:=FManagementCustomDimensionsInstance; end; Function TAnalyticsAPI.CreateManagementCustomDimensionsResource : TManagementCustomDimensionsResource; begin Result:=CreateManagementCustomDimensionsResource(Self); end; Function TAnalyticsAPI.CreateManagementCustomDimensionsResource(AOwner : TComponent) : TManagementCustomDimensionsResource; begin Result:=TManagementCustomDimensionsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementCustomMetricsInstance : TManagementCustomMetricsResource; begin if (FManagementCustomMetricsInstance=Nil) then FManagementCustomMetricsInstance:=CreateManagementCustomMetricsResource; Result:=FManagementCustomMetricsInstance; end; Function TAnalyticsAPI.CreateManagementCustomMetricsResource : TManagementCustomMetricsResource; begin Result:=CreateManagementCustomMetricsResource(Self); end; Function TAnalyticsAPI.CreateManagementCustomMetricsResource(AOwner : TComponent) : TManagementCustomMetricsResource; begin Result:=TManagementCustomMetricsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementExperimentsInstance : TManagementExperimentsResource; begin if (FManagementExperimentsInstance=Nil) then FManagementExperimentsInstance:=CreateManagementExperimentsResource; Result:=FManagementExperimentsInstance; end; Function TAnalyticsAPI.CreateManagementExperimentsResource : TManagementExperimentsResource; begin Result:=CreateManagementExperimentsResource(Self); end; Function TAnalyticsAPI.CreateManagementExperimentsResource(AOwner : TComponent) : TManagementExperimentsResource; begin Result:=TManagementExperimentsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementFiltersInstance : TManagementFiltersResource; begin if (FManagementFiltersInstance=Nil) then FManagementFiltersInstance:=CreateManagementFiltersResource; Result:=FManagementFiltersInstance; end; Function TAnalyticsAPI.CreateManagementFiltersResource : TManagementFiltersResource; begin Result:=CreateManagementFiltersResource(Self); end; Function TAnalyticsAPI.CreateManagementFiltersResource(AOwner : TComponent) : TManagementFiltersResource; begin Result:=TManagementFiltersResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementGoalsInstance : TManagementGoalsResource; begin if (FManagementGoalsInstance=Nil) then FManagementGoalsInstance:=CreateManagementGoalsResource; Result:=FManagementGoalsInstance; end; Function TAnalyticsAPI.CreateManagementGoalsResource : TManagementGoalsResource; begin Result:=CreateManagementGoalsResource(Self); end; Function TAnalyticsAPI.CreateManagementGoalsResource(AOwner : TComponent) : TManagementGoalsResource; begin Result:=TManagementGoalsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementProfileFilterLinksInstance : TManagementProfileFilterLinksResource; begin if (FManagementProfileFilterLinksInstance=Nil) then FManagementProfileFilterLinksInstance:=CreateManagementProfileFilterLinksResource; Result:=FManagementProfileFilterLinksInstance; end; Function TAnalyticsAPI.CreateManagementProfileFilterLinksResource : TManagementProfileFilterLinksResource; begin Result:=CreateManagementProfileFilterLinksResource(Self); end; Function TAnalyticsAPI.CreateManagementProfileFilterLinksResource(AOwner : TComponent) : TManagementProfileFilterLinksResource; begin Result:=TManagementProfileFilterLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementProfileUserLinksInstance : TManagementProfileUserLinksResource; begin if (FManagementProfileUserLinksInstance=Nil) then FManagementProfileUserLinksInstance:=CreateManagementProfileUserLinksResource; Result:=FManagementProfileUserLinksInstance; end; Function TAnalyticsAPI.CreateManagementProfileUserLinksResource : TManagementProfileUserLinksResource; begin Result:=CreateManagementProfileUserLinksResource(Self); end; Function TAnalyticsAPI.CreateManagementProfileUserLinksResource(AOwner : TComponent) : TManagementProfileUserLinksResource; begin Result:=TManagementProfileUserLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementProfilesInstance : TManagementProfilesResource; begin if (FManagementProfilesInstance=Nil) then FManagementProfilesInstance:=CreateManagementProfilesResource; Result:=FManagementProfilesInstance; end; Function TAnalyticsAPI.CreateManagementProfilesResource : TManagementProfilesResource; begin Result:=CreateManagementProfilesResource(Self); end; Function TAnalyticsAPI.CreateManagementProfilesResource(AOwner : TComponent) : TManagementProfilesResource; begin Result:=TManagementProfilesResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementSegmentsInstance : TManagementSegmentsResource; begin if (FManagementSegmentsInstance=Nil) then FManagementSegmentsInstance:=CreateManagementSegmentsResource; Result:=FManagementSegmentsInstance; end; Function TAnalyticsAPI.CreateManagementSegmentsResource : TManagementSegmentsResource; begin Result:=CreateManagementSegmentsResource(Self); end; Function TAnalyticsAPI.CreateManagementSegmentsResource(AOwner : TComponent) : TManagementSegmentsResource; begin Result:=TManagementSegmentsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementUnsampledReportsInstance : TManagementUnsampledReportsResource; begin if (FManagementUnsampledReportsInstance=Nil) then FManagementUnsampledReportsInstance:=CreateManagementUnsampledReportsResource; Result:=FManagementUnsampledReportsInstance; end; Function TAnalyticsAPI.CreateManagementUnsampledReportsResource : TManagementUnsampledReportsResource; begin Result:=CreateManagementUnsampledReportsResource(Self); end; Function TAnalyticsAPI.CreateManagementUnsampledReportsResource(AOwner : TComponent) : TManagementUnsampledReportsResource; begin Result:=TManagementUnsampledReportsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementUploadsInstance : TManagementUploadsResource; begin if (FManagementUploadsInstance=Nil) then FManagementUploadsInstance:=CreateManagementUploadsResource; Result:=FManagementUploadsInstance; end; Function TAnalyticsAPI.CreateManagementUploadsResource : TManagementUploadsResource; begin Result:=CreateManagementUploadsResource(Self); end; Function TAnalyticsAPI.CreateManagementUploadsResource(AOwner : TComponent) : TManagementUploadsResource; begin Result:=TManagementUploadsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementWebPropertyAdWordsLinksInstance : TManagementWebPropertyAdWordsLinksResource; begin if (FManagementWebPropertyAdWordsLinksInstance=Nil) then FManagementWebPropertyAdWordsLinksInstance:=CreateManagementWebPropertyAdWordsLinksResource; Result:=FManagementWebPropertyAdWordsLinksInstance; end; Function TAnalyticsAPI.CreateManagementWebPropertyAdWordsLinksResource : TManagementWebPropertyAdWordsLinksResource; begin Result:=CreateManagementWebPropertyAdWordsLinksResource(Self); end; Function TAnalyticsAPI.CreateManagementWebPropertyAdWordsLinksResource(AOwner : TComponent) : TManagementWebPropertyAdWordsLinksResource; begin Result:=TManagementWebPropertyAdWordsLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementWebpropertiesInstance : TManagementWebpropertiesResource; begin if (FManagementWebpropertiesInstance=Nil) then FManagementWebpropertiesInstance:=CreateManagementWebpropertiesResource; Result:=FManagementWebpropertiesInstance; end; Function TAnalyticsAPI.CreateManagementWebpropertiesResource : TManagementWebpropertiesResource; begin Result:=CreateManagementWebpropertiesResource(Self); end; Function TAnalyticsAPI.CreateManagementWebpropertiesResource(AOwner : TComponent) : TManagementWebpropertiesResource; begin Result:=TManagementWebpropertiesResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementWebpropertyUserLinksInstance : TManagementWebpropertyUserLinksResource; begin if (FManagementWebpropertyUserLinksInstance=Nil) then FManagementWebpropertyUserLinksInstance:=CreateManagementWebpropertyUserLinksResource; Result:=FManagementWebpropertyUserLinksInstance; end; Function TAnalyticsAPI.CreateManagementWebpropertyUserLinksResource : TManagementWebpropertyUserLinksResource; begin Result:=CreateManagementWebpropertyUserLinksResource(Self); end; Function TAnalyticsAPI.CreateManagementWebpropertyUserLinksResource(AOwner : TComponent) : TManagementWebpropertyUserLinksResource; begin Result:=TManagementWebpropertyUserLinksResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetManagementInstance : TManagementResource; begin if (FManagementInstance=Nil) then FManagementInstance:=CreateManagementResource; Result:=FManagementInstance; end; Function TAnalyticsAPI.CreateManagementResource : TManagementResource; begin Result:=CreateManagementResource(Self); end; Function TAnalyticsAPI.CreateManagementResource(AOwner : TComponent) : TManagementResource; begin Result:=TManagementResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetMetadataColumnsInstance : TMetadataColumnsResource; begin if (FMetadataColumnsInstance=Nil) then FMetadataColumnsInstance:=CreateMetadataColumnsResource; Result:=FMetadataColumnsInstance; end; Function TAnalyticsAPI.CreateMetadataColumnsResource : TMetadataColumnsResource; begin Result:=CreateMetadataColumnsResource(Self); end; Function TAnalyticsAPI.CreateMetadataColumnsResource(AOwner : TComponent) : TMetadataColumnsResource; begin Result:=TMetadataColumnsResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetMetadataInstance : TMetadataResource; begin if (FMetadataInstance=Nil) then FMetadataInstance:=CreateMetadataResource; Result:=FMetadataInstance; end; Function TAnalyticsAPI.CreateMetadataResource : TMetadataResource; begin Result:=CreateMetadataResource(Self); end; Function TAnalyticsAPI.CreateMetadataResource(AOwner : TComponent) : TMetadataResource; begin Result:=TMetadataResource.Create(AOwner); Result.API:=Self.API; end; Function TAnalyticsAPI.GetProvisioningInstance : TProvisioningResource; begin if (FProvisioningInstance=Nil) then FProvisioningInstance:=CreateProvisioningResource; Result:=FProvisioningInstance; end; Function TAnalyticsAPI.CreateProvisioningResource : TProvisioningResource; begin Result:=CreateProvisioningResource(Self); end; Function TAnalyticsAPI.CreateProvisioningResource(AOwner : TComponent) : TProvisioningResource; begin Result:=TProvisioningResource.Create(AOwner); Result.API:=Self.API; end; initialization TAnalyticsAPI.RegisterAPI; end.