Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
unit 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.