unit googleanalytics; {$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; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property 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; Fstarred : boolean; Fupdated : TDatetime; Protected //Property setters Procedure SetchildLink(AIndex : Integer; const AValue : TAccountTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; const 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; const AValue : TAccountTypepermissions); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual; Procedure Setupdated(AIndex : Integer; const 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 starred : boolean Index 56 Read Fstarred Write Setstarred; Property updated : TDatetime Index 64 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; const AValue : TAccountSummariesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; Fstarred : boolean; 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 Setstarred(AIndex : Integer; const AValue : boolean); virtual; Procedure SetwebProperties(AIndex : Integer; const 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 starred : boolean Index 24 Read Fstarred Write Setstarred; Property webProperties : TAccountSummaryTypewebPropertiesArray Index 32 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; const AValue : TAccount); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setprofile(AIndex : Integer; const AValue : TProfile); virtual; Procedure SetredirectUri(AIndex : Integer; const AValue : String); virtual; Procedure Setwebproperty(AIndex : Integer; const 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; const AValue : TAccountsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const 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; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property 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; const 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; const AValue : TStringArray); virtual; Procedure Setetag(AIndex : Integer; const AValue : String); virtual; Procedure Setitems(AIndex : Integer; const AValue : TColumnsTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : TCustomDataSourceTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; const 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; const AValue : TCustomDataSourceTypeparentLink); virtual; Procedure SetprofilesLinked(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const 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; const AValue : TCustomDataSourcesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : boolean); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setindex(AIndex : Integer; const AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; const AValue : TCustomDimensionTypeparentLink); virtual; Procedure Setscope(AIndex : Integer; const AValue : String); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const 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; const AValue : TCustomDimensionsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : boolean); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setindex(AIndex : Integer; const 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; const 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; const 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; const AValue : TCustomMetricsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const 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; const AValue : TEntityAdWordsLinkTypeadWordsAccountsArray); virtual; Procedure Setentity(AIndex : Integer; const 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; const 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; const AValue : TEntityAdWordsLinksTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : TAccountRef); virtual; Procedure SetprofileRef(AIndex : Integer; const AValue : TProfileRef); virtual; Procedure SetwebPropertyRef(AIndex : Integer; const 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; const AValue : TStringArray); virtual; Procedure Setlocal(AIndex : Integer; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property 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; const AValue : TEntityUserLinkTypeentity); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setpermissions(AIndex : Integer; const AValue : TEntityUserLinkTypepermissions); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SetuserRef(AIndex : Integer; const 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; const AValue : TEntityUserLinksTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : double); virtual; Procedure Setwon(AIndex : Integer; const 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; const AValue : TDatetime); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure SeteditableInGaUi(AIndex : Integer; const AValue : boolean); virtual; Procedure SetendTime(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetequalWeighting(AIndex : Integer; const 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; const 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; const AValue : TExperimentTypeparentLink); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual; Procedure SetreasonExperimentEnded(AIndex : Integer; const AValue : String); virtual; Procedure SetrewriteVariationUrlsAsOriginal(AIndex : Integer; const 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; const AValue : TDatetime); virtual; Procedure Setstatus(AIndex : Integer; const AValue : String); virtual; Procedure SettrafficCoverage(AIndex : Integer; const AValue : double); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setvariations(AIndex : Integer; const AValue : TExperimentTypevariationsArray); virtual; Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual; Procedure SetwinnerConfidenceLevel(AIndex : Integer; const AValue : double); virtual; Procedure SetwinnerFound(AIndex : Integer; const AValue : boolean); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property 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; const AValue : TExperimentsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const 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; const AValue : integer); virtual; Procedure SetfieldARequired(AIndex : Integer; const AValue : boolean); virtual; Procedure SetfieldB(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldBIndex(AIndex : Integer; const AValue : integer); virtual; Procedure SetfieldBRequired(AIndex : Integer; const AValue : boolean); virtual; Procedure SetoutputConstructor(AIndex : Integer; const AValue : String); virtual; Procedure SetoutputToField(AIndex : Integer; const AValue : String); virtual; Procedure SetoutputToFieldIndex(AIndex : Integer; const AValue : integer); virtual; Procedure SetoverrideOutputField(AIndex : Integer; const 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; const 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; const AValue : boolean); virtual; Procedure Setfield(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldIndex(AIndex : Integer; const 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; const 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; const AValue : TFilterTypeadvancedDetails); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetexcludeDetails(AIndex : Integer; const AValue : TFilterExpression); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetincludeDetails(AIndex : Integer; const AValue : TFilterExpression); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlowercaseDetails(AIndex : Integer; const AValue : TFilterTypelowercaseDetails); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetparentLink(AIndex : Integer; const AValue : TFilterTypeparentLink); virtual; Procedure SetsearchAndReplaceDetails(AIndex : Integer; const AValue : TFilterTypesearchAndReplaceDetails); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SetuppercaseDetails(AIndex : Integer; const 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; const AValue : boolean); virtual; Procedure SetexpressionValue(AIndex : Integer; const AValue : String); virtual; Procedure Setfield(AIndex : Integer; const AValue : String); virtual; Procedure SetfieldIndex(AIndex : Integer; const 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; const AValue : TFiltersTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const 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; const AValue : TGaDataTypedataTableTypecolsArray); virtual; Procedure Setrows(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure Setmetrics(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetsamplingLevel(AIndex : Integer; const AValue : String); virtual; Procedure Setsegment(AIndex : Integer; const AValue : String); virtual; Procedure Setsort(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual; Procedure Setstartindex(AIndex : Integer; const 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; const AValue : TGaDataTypecolumnHeadersArray); virtual; Procedure SetcontainsSampledData(AIndex : Integer; const AValue : boolean); virtual; Procedure SetdataTable(AIndex : Integer; const AValue : TGaDataTypedataTable); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : TGaDataTypeprofileInfo); virtual; Procedure Setquery(AIndex : Integer; const AValue : TGaDataTypequery); virtual; Procedure Setrows(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalsForAllResults(AIndex : Integer; const 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; const AValue : TGoalTypeeventDetailsTypeeventConditionsArray); virtual; Procedure SetuseEventValue(AIndex : Integer; const AValue : boolean); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property 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; const 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; const AValue : boolean); virtual; Procedure SetfirstStepRequired(AIndex : Integer; const AValue : boolean); virtual; Procedure SetmatchType(AIndex : Integer; const AValue : String); virtual; Procedure Setsteps(AIndex : Integer; const 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; const AValue : boolean); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure SeteventDetails(AIndex : Integer; const 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; const 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; const AValue : TDatetime); virtual; Procedure SeturlDestinationDetails(AIndex : Integer; const AValue : TGoalTypeurlDestinationDetails); virtual; Procedure Setvalue(AIndex : Integer; const AValue : integer); virtual; Procedure SetvisitNumPagesDetails(AIndex : Integer; const AValue : TGoalTypevisitNumPagesDetails); virtual; Procedure SetvisitTimeOnSiteDetails(AIndex : Integer; const 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; const AValue : TGoalsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure Setmetrics(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetsamplingLevel(AIndex : Integer; const AValue : String); virtual; Procedure Setsegment(AIndex : Integer; const AValue : String); virtual; Procedure Setsort(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual; Procedure Setstartindex(AIndex : Integer; const 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; const 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; const AValue : TMcfDataTypecolumnHeadersArray); virtual; Procedure SetcontainsSampledData(AIndex : Integer; const AValue : boolean); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : TMcfDataTypeprofileInfo); virtual; Procedure Setquery(AIndex : Integer; const AValue : TMcfDataTypequery); virtual; Procedure Setrows(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalsForAllResults(AIndex : Integer; const 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; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property effective : TStringArray Index 0 Read Feffective Write Seteffective; end; TProfileTypepermissionsClass = Class of TProfileTypepermissions; { -------------------------------------------------------------------- TProfile --------------------------------------------------------------------} TProfile = Class(TGoogleBaseObject) Private FaccountId : String; FbotFilteringEnabled : boolean; 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; Fstarred : boolean; 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 SetbotFilteringEnabled(AIndex : Integer; const AValue : boolean); virtual; Procedure SetchildLink(AIndex : Integer; const AValue : TProfileTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual; Procedure SetdefaultPage(AIndex : Integer; const AValue : String); virtual; Procedure SeteCommerceTracking(AIndex : Integer; const AValue : boolean); virtual; Procedure SetenhancedECommerceTracking(AIndex : Integer; const 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; const AValue : TProfileTypeparentLink); virtual; Procedure Setpermissions(AIndex : Integer; const 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 Setstarred(AIndex : Integer; const AValue : boolean); virtual; Procedure SetstripSiteSearchCategoryParameters(AIndex : Integer; const AValue : boolean); virtual; Procedure SetstripSiteSearchQueryParameters(AIndex : Integer; const AValue : boolean); virtual; Procedure Settimezone(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Procedure Setupdated(AIndex : Integer; const 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 botFilteringEnabled : boolean Index 8 Read FbotFilteringEnabled Write SetbotFilteringEnabled; Property childLink : TProfileTypechildLink Index 16 Read FchildLink Write SetchildLink; Property created : TDatetime Index 24 Read Fcreated Write Setcreated; Property currency : String Index 32 Read Fcurrency Write Setcurrency; Property defaultPage : String Index 40 Read FdefaultPage Write SetdefaultPage; Property eCommerceTracking : boolean Index 48 Read FeCommerceTracking Write SeteCommerceTracking; Property enhancedECommerceTracking : boolean Index 56 Read FenhancedECommerceTracking Write SetenhancedECommerceTracking; Property excludeQueryParameters : String Index 64 Read FexcludeQueryParameters Write SetexcludeQueryParameters; Property id : String Index 72 Read Fid Write Setid; Property internalWebPropertyId : String Index 80 Read FinternalWebPropertyId Write SetinternalWebPropertyId; Property kind : String Index 88 Read Fkind Write Setkind; Property name : String Index 96 Read Fname Write Setname; Property parentLink : TProfileTypeparentLink Index 104 Read FparentLink Write SetparentLink; Property permissions : TProfileTypepermissions Index 112 Read Fpermissions Write Setpermissions; Property selfLink : String Index 120 Read FselfLink Write SetselfLink; Property siteSearchCategoryParameters : String Index 128 Read FsiteSearchCategoryParameters Write SetsiteSearchCategoryParameters; Property siteSearchQueryParameters : String Index 136 Read FsiteSearchQueryParameters Write SetsiteSearchQueryParameters; Property starred : boolean Index 144 Read Fstarred Write Setstarred; Property stripSiteSearchCategoryParameters : boolean Index 152 Read FstripSiteSearchCategoryParameters Write SetstripSiteSearchCategoryParameters; Property stripSiteSearchQueryParameters : boolean Index 160 Read FstripSiteSearchQueryParameters Write SetstripSiteSearchQueryParameters; Property timezone : String Index 168 Read Ftimezone Write Settimezone; Property _type : String Index 176 Read F_type Write Set_type; Property updated : TDatetime Index 184 Read Fupdated Write Setupdated; Property webPropertyId : String Index 192 Read FwebPropertyId Write SetwebPropertyId; Property websiteUrl : String Index 200 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; const AValue : TFilterRef); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileRef(AIndex : Integer; const AValue : TProfileRef); virtual; Procedure Setrank(AIndex : Integer; const 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; const AValue : TProfileFilterLinksTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; Fstarred : boolean; 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 Setstarred(AIndex : Integer; const AValue : boolean); 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 starred : boolean Index 24 Read Fstarred Write Setstarred; Property _type : String Index 32 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; const AValue : TProfilesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure Setmetrics(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setsort(AIndex : Integer; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property 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; const AValue : TRealtimeDataTypecolumnHeadersArray); virtual; Procedure Setid(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileInfo(AIndex : Integer; const AValue : TRealtimeDataTypeprofileInfo); virtual; Procedure Setquery(AIndex : Integer; const AValue : TRealtimeDataTypequery); virtual; Procedure Setrows(AIndex : Integer; const AValue : TRealtimeDataTyperowsArray); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual; Procedure SettotalsForAllResults(AIndex : Integer; const 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; const 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; const 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; const AValue : TSegmentsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : TUnsampledReportTypecloudStorageDownloadDetails); virtual; Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setdimensions(AIndex : Integer; const AValue : String); virtual; Procedure SetdownloadType(AIndex : Integer; const AValue : String); virtual; Procedure SetdriveDownloadDetails(AIndex : Integer; const 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; const 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; const AValue : TUnsampledReportsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const 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; const AValue : TUploadsTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; Fstarred : boolean; 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; const AValue : TWebPropertySummaryTypeprofilesArray); virtual; Procedure Setstarred(AIndex : Integer; const AValue : boolean); 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 starred : boolean Index 48 Read Fstarred Write Setstarred; Property websiteUrl : String Index 56 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; const AValue : TWebpropertiesTypeitemsArray); virtual; Procedure SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); virtual; Procedure SettotalResults(AIndex : Integer; const 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; const AValue : TStringArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property 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; Fstarred : boolean; Fupdated : TDatetime; FwebsiteUrl : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetchildLink(AIndex : Integer; const AValue : TWebpropertyTypechildLink); virtual; Procedure Setcreated(AIndex : Integer; const 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; const AValue : TWebpropertyTypeparentLink); virtual; Procedure Setpermissions(AIndex : Integer; const AValue : TWebpropertyTypepermissions); virtual; Procedure SetprofileCount(AIndex : Integer; const AValue : integer); virtual; Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual; Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual; Procedure Setupdated(AIndex : Integer; const 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 starred : boolean Index 112 Read Fstarred Write Setstarred; Property updated : TDatetime Index 120 Read Fupdated Write Setupdated; Property websiteUrl : String Index 128 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; includeemptyrows : boolean; 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; Procedure Delete(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string); 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; const 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; const AValue : TAccountTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setcreated(AIndex : Integer; const 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; const 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.Setstarred(AIndex : Integer; const AValue : boolean); begin If (Fstarred=AValue) then exit; Fstarred:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setupdated(AIndex : Integer; const 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; const AValue : TAccountSummariesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummaries.SettotalResults(AIndex : Integer; const 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.Setstarred(AIndex : Integer; const AValue : boolean); begin If (Fstarred=AValue) then exit; Fstarred:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountSummary.SetwebProperties(AIndex : Integer; const 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; const 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; const 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; const AValue : TWebproperty); begin If (Fwebproperty=AValue) then exit; Fwebproperty:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccounts --------------------------------------------------------------------} Procedure TAccounts.Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccounts.SettotalResults(AIndex : Integer; const 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; const 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; const 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; const 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; const 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; const 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; const 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; const AValue : TCustomDataSourceTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.Setcreated(AIndex : Integer; const 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; const AValue : TCustomDataSourceTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSource.SetprofilesLinked(AIndex : Integer; const 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; const 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; const AValue : TCustomDataSourcesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDataSources.SettotalResults(AIndex : Integer; const 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; const AValue : boolean); begin If (Factive=AValue) then exit; Factive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimension.Setcreated(AIndex : Integer; const 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; const 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; const 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; const 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; const AValue : TCustomDimensionsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomDimensions.SettotalResults(AIndex : Integer; const 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; const AValue : boolean); begin If (Factive=AValue) then exit; Factive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetric.Setcreated(AIndex : Integer; const 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; const 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; const 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; const 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; const AValue : TCustomMetricsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCustomMetrics.SettotalResults(AIndex : Integer; const 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; const AValue : TWebPropertyRef); begin If (FwebPropertyRef=AValue) then exit; FwebPropertyRef:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEntityAdWordsLink --------------------------------------------------------------------} Procedure TEntityAdWordsLink.SetadWordsAccounts(AIndex : Integer; const AValue : TEntityAdWordsLinkTypeadWordsAccountsArray); begin If (FadWordsAccounts=AValue) then exit; FadWordsAccounts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLink.Setentity(AIndex : Integer; const 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; const 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; const AValue : TEntityAdWordsLinksTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityAdWordsLinks.SettotalResults(AIndex : Integer; const 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; const AValue : TAccountRef); begin If (FaccountRef=AValue) then exit; FaccountRef:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinkTypeentity.SetprofileRef(AIndex : Integer; const AValue : TProfileRef); begin If (FprofileRef=AValue) then exit; FprofileRef:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinkTypeentity.SetwebPropertyRef(AIndex : Integer; const AValue : TWebPropertyRef); begin If (FwebPropertyRef=AValue) then exit; FwebPropertyRef:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEntityUserLinkTypepermissions --------------------------------------------------------------------} Procedure TEntityUserLinkTypepermissions.Seteffective(AIndex : Integer; const AValue : TStringArray); begin If (Feffective=AValue) then exit; Feffective:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinkTypepermissions.Setlocal(AIndex : Integer; const 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; const 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; const 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; const AValue : TUserRef); begin If (FuserRef=AValue) then exit; FuserRef:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEntityUserLinks --------------------------------------------------------------------} Procedure TEntityUserLinks.Setitems(AIndex : Integer; const AValue : TEntityUserLinksTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEntityUserLinks.SettotalResults(AIndex : Integer; const 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; const AValue : double); begin If (Fweight=AValue) then exit; Fweight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperimentTypevariationsItem.Setwon(AIndex : Integer; const 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; const 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; const AValue : boolean); begin If (FeditableInGaUi=AValue) then exit; FeditableInGaUi:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetendTime(AIndex : Integer; const AValue : TDatetime); begin If (FendTime=AValue) then exit; FendTime:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetequalWeighting(AIndex : Integer; const 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; const 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; const 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; const 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; const 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; const AValue : double); begin If (FtrafficCoverage=AValue) then exit; FtrafficCoverage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setupdated(AIndex : Integer; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.Setvariations(AIndex : Integer; const 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; const AValue : double); begin If (FwinnerConfidenceLevel=AValue) then exit; FwinnerConfidenceLevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiment.SetwinnerFound(AIndex : Integer; const 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; const AValue : TExperimentsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TExperiments.SettotalResults(AIndex : Integer; const 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; const 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; const AValue : integer); begin If (FfieldAIndex=AValue) then exit; FfieldAIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldARequired(AIndex : Integer; const 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; const AValue : integer); begin If (FfieldBIndex=AValue) then exit; FfieldBIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetfieldBRequired(AIndex : Integer; const 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; const AValue : integer); begin If (FoutputToFieldIndex=AValue) then exit; FoutputToFieldIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilterTypeadvancedDetails.SetoverrideOutputField(AIndex : Integer; const 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; const 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; const 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; const 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; const 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; const AValue : TFilterTypeadvancedDetails); begin If (FadvancedDetails=AValue) then exit; FadvancedDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.Setcreated(AIndex : Integer; const AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetexcludeDetails(AIndex : Integer; const 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; const 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; const 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; const AValue : TFilterTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetsearchAndReplaceDetails(AIndex : Integer; const 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; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilter.SetuppercaseDetails(AIndex : Integer; const 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; const 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; const 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; const AValue : TFiltersTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TFilters.SettotalResults(AIndex : Integer; const 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; const 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; const AValue : TGaDataTypedataTableTypecolsArray); begin If (Fcols=AValue) then exit; Fcols:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypedataTable.Setrows(AIndex : Integer; const 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; const AValue : integer); begin If (Fmaxresults=AValue) then exit; Fmaxresults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaDataTypequery.Setmetrics(AIndex : Integer; const 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; const 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; const 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; const AValue : TGaDataTypecolumnHeadersArray); begin If (FcolumnHeaders=AValue) then exit; FcolumnHeaders:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetcontainsSampledData(AIndex : Integer; const AValue : boolean); begin If (FcontainsSampledData=AValue) then exit; FcontainsSampledData:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SetdataTable(AIndex : Integer; const 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; const 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; const AValue : TGaDataTypeprofileInfo); begin If (FprofileInfo=AValue) then exit; FprofileInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.Setquery(AIndex : Integer; const AValue : TGaDataTypequery); begin If (Fquery=AValue) then exit; Fquery:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.Setrows(AIndex : Integer; const 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; const AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGaData.SettotalsForAllResults(AIndex : Integer; const 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; const AValue : TGoalTypeeventDetailsTypeeventConditionsArray); begin If (FeventConditions=AValue) then exit; FeventConditions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeeventDetails.SetuseEventValue(AIndex : Integer; const 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; const 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; const AValue : boolean); begin If (FcaseSensitive=AValue) then exit; FcaseSensitive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoalTypeurlDestinationDetails.SetfirstStepRequired(AIndex : Integer; const 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; const 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; const AValue : boolean); begin If (Factive=AValue) then exit; Factive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setcreated(AIndex : Integer; const AValue : TDatetime); begin If (Fcreated=AValue) then exit; Fcreated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SeteventDetails(AIndex : Integer; const 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; const 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; const AValue : TDatetime); begin If (Fupdated=AValue) then exit; Fupdated:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SeturlDestinationDetails(AIndex : Integer; const AValue : TGoalTypeurlDestinationDetails); begin If (FurlDestinationDetails=AValue) then exit; FurlDestinationDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.Setvalue(AIndex : Integer; const AValue : integer); begin If (Fvalue=AValue) then exit; Fvalue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetvisitNumPagesDetails(AIndex : Integer; const AValue : TGoalTypevisitNumPagesDetails); begin If (FvisitNumPagesDetails=AValue) then exit; FvisitNumPagesDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoal.SetvisitTimeOnSiteDetails(AIndex : Integer; const 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; const AValue : TGoalsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TGoals.SettotalResults(AIndex : Integer; const 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; const AValue : integer); begin If (Fmaxresults=AValue) then exit; Fmaxresults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfDataTypequery.Setmetrics(AIndex : Integer; const 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; const 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; const 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; const 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; const AValue : TMcfDataTypecolumnHeadersArray); begin If (FcolumnHeaders=AValue) then exit; FcolumnHeaders:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SetcontainsSampledData(AIndex : Integer; const 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; const 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; const AValue : TMcfDataTypeprofileInfo); begin If (FprofileInfo=AValue) then exit; FprofileInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.Setquery(AIndex : Integer; const AValue : TMcfDataTypequery); begin If (Fquery=AValue) then exit; Fquery:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.Setrows(AIndex : Integer; const 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; const AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMcfData.SettotalsForAllResults(AIndex : Integer; const 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; const 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.SetbotFilteringEnabled(AIndex : Integer; const AValue : boolean); begin If (FbotFilteringEnabled=AValue) then exit; FbotFilteringEnabled:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetchildLink(AIndex : Integer; const AValue : TProfileTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setcreated(AIndex : Integer; const 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; const AValue : boolean); begin If (FeCommerceTracking=AValue) then exit; FeCommerceTracking:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetenhancedECommerceTracking(AIndex : Integer; const 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; const AValue : TProfileTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.Setpermissions(AIndex : Integer; const 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.Setstarred(AIndex : Integer; const AValue : boolean); begin If (Fstarred=AValue) then exit; Fstarred:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetstripSiteSearchCategoryParameters(AIndex : Integer; const AValue : boolean); begin If (FstripSiteSearchCategoryParameters=AValue) then exit; FstripSiteSearchCategoryParameters:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfile.SetstripSiteSearchQueryParameters(AIndex : Integer; const 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; const 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; const 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; const AValue : TProfileRef); begin If (FprofileRef=AValue) then exit; FprofileRef:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLink.Setrank(AIndex : Integer; const 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; const AValue : TProfileFilterLinksTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfileFilterLinks.SettotalResults(AIndex : Integer; const 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.Setstarred(AIndex : Integer; const AValue : boolean); begin If (Fstarred=AValue) then exit; Fstarred:=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; const AValue : TProfilesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProfiles.SettotalResults(AIndex : Integer; const 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; const AValue : integer); begin If (Fmaxresults=AValue) then exit; Fmaxresults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypequery.Setmetrics(AIndex : Integer; const AValue : TStringArray); begin If (Fmetrics=AValue) then exit; Fmetrics:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeDataTypequery.Setsort(AIndex : Integer; const 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; const 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; const AValue : TRealtimeDataTypeprofileInfo); begin If (FprofileInfo=AValue) then exit; FprofileInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.Setquery(AIndex : Integer; const AValue : TRealtimeDataTypequery); begin If (Fquery=AValue) then exit; Fquery:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.Setrows(AIndex : Integer; const 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; const AValue : integer); begin If (FtotalResults=AValue) then exit; FtotalResults:=AValue; MarkPropertyChanged(AIndex); end; Procedure TRealtimeData.SettotalsForAllResults(AIndex : Integer; const 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; const 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; const 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; const AValue : TSegmentsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSegments.SettotalResults(AIndex : Integer; const 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; const AValue : TUnsampledReportTypecloudStorageDownloadDetails); begin If (FcloudStorageDownloadDetails=AValue) then exit; FcloudStorageDownloadDetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReport.Setcreated(AIndex : Integer; const 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; const 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; const 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; const AValue : TUnsampledReportsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUnsampledReports.SettotalResults(AIndex : Integer; const 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; const 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; const AValue : TUploadsTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUploads.SettotalResults(AIndex : Integer; const 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; const AValue : TWebPropertySummaryTypeprofilesArray); begin If (Fprofiles=AValue) then exit; Fprofiles:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebPropertySummary.Setstarred(AIndex : Integer; const AValue : boolean); begin If (Fstarred=AValue) then exit; Fstarred:=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; const AValue : TWebpropertiesTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.SetitemsPerPage(AIndex : Integer; const 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; const AValue : integer); begin If (FstartIndex=AValue) then exit; FstartIndex:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperties.SettotalResults(AIndex : Integer; const 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; const 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; const AValue : TWebpropertyTypechildLink); begin If (FchildLink=AValue) then exit; FchildLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setcreated(AIndex : Integer; const 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; const AValue : TWebpropertyTypeparentLink); begin If (FparentLink=AValue) then exit; FparentLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setpermissions(AIndex : Integer; const AValue : TWebpropertyTypepermissions); begin If (Fpermissions=AValue) then exit; Fpermissions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.SetprofileCount(AIndex : Integer; const 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.Setstarred(AIndex : Integer; const AValue : boolean); begin If (Fstarred=AValue) then exit; Fstarred:=AValue; MarkPropertyChanged(AIndex); end; Procedure TWebproperty.Setupdated(AIndex : Integer; const 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,'include-empty-rows',AQuery.includeemptyrows); 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; Procedure TManagementUnsampledReportsResource.Delete(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string); Const _HTTPMethod = 'DELETE'; _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/unsampledReports/{unsampledReportId}'; _Methodid = 'analytics.management.unsampledReports.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'unsampledReportId',unsampledReportId,'webPropertyId',webPropertyId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); 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:='20160401'; 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:='Views and manages 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/'; end; Class Function TAnalyticsAPI.APIbasePath : string; begin Result:='/analytics/v3/'; end; Class Function TAnalyticsAPI.APIbaseURL : String; begin Result:='https://www.googleapis.com/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.