unit googleadexchangebuyer; {$MODE objfpc} {$H+} interface uses sysutils, classes, googleservice, restbase, googlebase; type //Top-level schema types TAccount = Class; TAccountsList = Class; TAddOrderDealsRequest = Class; TAddOrderDealsResponse = Class; TAddOrderNotesRequest = Class; TAddOrderNotesResponse = Class; TBillingInfo = Class; TBillingInfoList = Class; TBudget = Class; TBuyer = Class; TContactInformation = Class; TCreateOrdersRequest = Class; TCreateOrdersResponse = Class; TCreative = Class; TCreativesList = Class; TDealServingMetadata = Class; TDealServingMetadataDealPauseStatus = Class; TDealTerms = Class; TDealTermsGuaranteedFixedPriceTerms = Class; TDealTermsGuaranteedFixedPriceTermsBillingInfo = Class; TDealTermsNonGuaranteedAuctionTerms = Class; TDealTermsNonGuaranteedFixedPriceTerms = Class; TDeleteOrderDealsRequest = Class; TDeleteOrderDealsResponse = Class; TDeliveryControl = Class; TDeliveryControlFrequencyCap = Class; TDimension = Class; TDimensionDimensionValue = Class; TEditAllOrderDealsRequest = Class; TEditAllOrderDealsResponse = Class; TGetOffersResponse = Class; TGetOrderDealsResponse = Class; TGetOrderNotesResponse = Class; TGetOrdersResponse = Class; TGetPublisherProfilesByAccountIdResponse = Class; TMarketplaceDeal = Class; TMarketplaceDealParty = Class; TMarketplaceLabel = Class; TMarketplaceNote = Class; TPerformanceReport = Class; TPerformanceReportList = Class; TPretargetingConfig = Class; TPretargetingConfigList = Class; TPrice = Class; TPricePerBuyer = Class; TPrivateData = Class; TProduct = Class; TProposal = Class; TPublisherProfileApiProto = Class; TPublisherProvidedForecast = Class; TSeller = Class; TSharedTargeting = Class; TTargetingValue = Class; TTargetingValueCreativeSize = Class; TTargetingValueDayPartTargeting = Class; TTargetingValueDayPartTargetingDayPart = Class; TTargetingValueSize = Class; TUpdatePrivateAuctionProposalRequest = Class; TAccountArray = Array of TAccount; TAccountsListArray = Array of TAccountsList; TAddOrderDealsRequestArray = Array of TAddOrderDealsRequest; TAddOrderDealsResponseArray = Array of TAddOrderDealsResponse; TAddOrderNotesRequestArray = Array of TAddOrderNotesRequest; TAddOrderNotesResponseArray = Array of TAddOrderNotesResponse; TBillingInfoArray = Array of TBillingInfo; TBillingInfoListArray = Array of TBillingInfoList; TBudgetArray = Array of TBudget; TBuyerArray = Array of TBuyer; TContactInformationArray = Array of TContactInformation; TCreateOrdersRequestArray = Array of TCreateOrdersRequest; TCreateOrdersResponseArray = Array of TCreateOrdersResponse; TCreativeArray = Array of TCreative; TCreativesListArray = Array of TCreativesList; TDealServingMetadataArray = Array of TDealServingMetadata; TDealServingMetadataDealPauseStatusArray = Array of TDealServingMetadataDealPauseStatus; TDealTermsArray = Array of TDealTerms; TDealTermsGuaranteedFixedPriceTermsArray = Array of TDealTermsGuaranteedFixedPriceTerms; TDealTermsGuaranteedFixedPriceTermsBillingInfoArray = Array of TDealTermsGuaranteedFixedPriceTermsBillingInfo; TDealTermsNonGuaranteedAuctionTermsArray = Array of TDealTermsNonGuaranteedAuctionTerms; TDealTermsNonGuaranteedFixedPriceTermsArray = Array of TDealTermsNonGuaranteedFixedPriceTerms; TDeleteOrderDealsRequestArray = Array of TDeleteOrderDealsRequest; TDeleteOrderDealsResponseArray = Array of TDeleteOrderDealsResponse; TDeliveryControlArray = Array of TDeliveryControl; TDeliveryControlFrequencyCapArray = Array of TDeliveryControlFrequencyCap; TDimensionArray = Array of TDimension; TDimensionDimensionValueArray = Array of TDimensionDimensionValue; TEditAllOrderDealsRequestArray = Array of TEditAllOrderDealsRequest; TEditAllOrderDealsResponseArray = Array of TEditAllOrderDealsResponse; TGetOffersResponseArray = Array of TGetOffersResponse; TGetOrderDealsResponseArray = Array of TGetOrderDealsResponse; TGetOrderNotesResponseArray = Array of TGetOrderNotesResponse; TGetOrdersResponseArray = Array of TGetOrdersResponse; TGetPublisherProfilesByAccountIdResponseArray = Array of TGetPublisherProfilesByAccountIdResponse; TMarketplaceDealArray = Array of TMarketplaceDeal; TMarketplaceDealPartyArray = Array of TMarketplaceDealParty; TMarketplaceLabelArray = Array of TMarketplaceLabel; TMarketplaceNoteArray = Array of TMarketplaceNote; TPerformanceReportArray = Array of TPerformanceReport; TPerformanceReportListArray = Array of TPerformanceReportList; TPretargetingConfigArray = Array of TPretargetingConfig; TPretargetingConfigListArray = Array of TPretargetingConfigList; TPriceArray = Array of TPrice; TPricePerBuyerArray = Array of TPricePerBuyer; TPrivateDataArray = Array of TPrivateData; TProductArray = Array of TProduct; TProposalArray = Array of TProposal; TPublisherProfileApiProtoArray = Array of TPublisherProfileApiProto; TPublisherProvidedForecastArray = Array of TPublisherProvidedForecast; TSellerArray = Array of TSeller; TSharedTargetingArray = Array of TSharedTargeting; TTargetingValueArray = Array of TTargetingValue; TTargetingValueCreativeSizeArray = Array of TTargetingValueCreativeSize; TTargetingValueDayPartTargetingArray = Array of TTargetingValueDayPartTargeting; TTargetingValueDayPartTargetingDayPartArray = Array of TTargetingValueDayPartTargetingDayPart; TTargetingValueSizeArray = Array of TTargetingValueSize; TUpdatePrivateAuctionProposalRequestArray = Array of TUpdatePrivateAuctionProposalRequest; //Anonymous types, using auto-generated names TAccountTypebidderLocationItem = Class; TCreativeTypecorrectionsItem = Class; TCreativeTypefilteringReasonsTypereasonsItem = Class; TCreativeTypefilteringReasons = Class; TCreativeTypenativeAdTypeappIcon = Class; TCreativeTypenativeAdTypeimage = Class; TCreativeTypenativeAdTypelogo = Class; TCreativeTypenativeAd = Class; TCreativeTypeservingRestrictionsItemTypecontextsItem = Class; TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem = Class; TCreativeTypeservingRestrictionsItem = Class; TPretargetingConfigTypedimensionsItem = Class; TPretargetingConfigTypeexcludedPlacementsItem = Class; TPretargetingConfigTypeplacementsItem = Class; TPretargetingConfigTypevideoPlayerSizesItem = Class; TAccountTypebidderLocationArray = Array of TAccountTypebidderLocationItem; TAccountsListTypeitemsArray = Array of TAccount; TAddOrderDealsRequestTypedealsArray = Array of TMarketplaceDeal; TAddOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal; TAddOrderNotesRequestTypenotesArray = Array of TMarketplaceNote; TAddOrderNotesResponseTypenotesArray = Array of TMarketplaceNote; TBillingInfoListTypeitemsArray = Array of TBillingInfo; TCreateOrdersRequestTypeproposalsArray = Array of TProposal; TCreateOrdersResponseTypeproposalsArray = Array of TProposal; TCreativeTypecorrectionsArray = Array of TCreativeTypecorrectionsItem; TCreativeTypefilteringReasonsTypereasonsArray = Array of TCreativeTypefilteringReasonsTypereasonsItem; TCreativeTypeservingRestrictionsItemTypecontextsArray = Array of TCreativeTypeservingRestrictionsItemTypecontextsItem; TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray = Array of TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem; TCreativeTypeservingRestrictionsArray = Array of TCreativeTypeservingRestrictionsItem; TCreativesListTypeitemsArray = Array of TCreative; TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray = Array of TPricePerBuyer; TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray = Array of TPricePerBuyer; TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray = Array of TPricePerBuyer; TDeleteOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal; TDeliveryControlTypefrequencyCapsArray = Array of TDeliveryControlFrequencyCap; TDimensionTypedimensionValuesArray = Array of TDimensionDimensionValue; TEditAllOrderDealsRequestTypedealsArray = Array of TMarketplaceDeal; TEditAllOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal; TGetOffersResponseTypeproductsArray = Array of TProduct; TGetOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal; TGetOrderNotesResponseTypenotesArray = Array of TMarketplaceNote; TGetOrdersResponseTypeproposalsArray = Array of TProposal; TGetPublisherProfilesByAccountIdResponseTypeprofilesArray = Array of TPublisherProfileApiProto; TMarketplaceDealTypesellerContactsArray = Array of TContactInformation; TMarketplaceDealTypesharedTargetingsArray = Array of TSharedTargeting; TPerformanceReportListTypeperformanceReportArray = Array of TPerformanceReport; TPretargetingConfigTypedimensionsArray = Array of TPretargetingConfigTypedimensionsItem; TPretargetingConfigTypeexcludedPlacementsArray = Array of TPretargetingConfigTypeexcludedPlacementsItem; TPretargetingConfigTypeplacementsArray = Array of TPretargetingConfigTypeplacementsItem; TPretargetingConfigTypevideoPlayerSizesArray = Array of TPretargetingConfigTypevideoPlayerSizesItem; TPretargetingConfigListTypeitemsArray = Array of TPretargetingConfig; TProductTypecreatorContactsArray = Array of TContactInformation; TProductTypelabelsArray = Array of TMarketplaceLabel; TProductTypesharedTargetingsArray = Array of TSharedTargeting; TProposalTypebuyerContactsArray = Array of TContactInformation; TProposalTypelabelsArray = Array of TMarketplaceLabel; TProposalTypesellerContactsArray = Array of TContactInformation; TPublisherProvidedForecastTypedimensionsArray = Array of TDimension; TSharedTargetingTypeexclusionsArray = Array of TTargetingValue; TSharedTargetingTypeinclusionsArray = Array of TTargetingValue; TTargetingValueCreativeSizeTypecompanionSizesArray = Array of TTargetingValueSize; TTargetingValueDayPartTargetingTypedayPartsArray = Array of TTargetingValueDayPartTargetingDayPart; { -------------------------------------------------------------------- TAccountTypebidderLocationItem --------------------------------------------------------------------} TAccountTypebidderLocationItem = Class(TGoogleBaseObject) Private FbidProtocol : String; FmaximumQps : integer; Fregion : String; Furl : String; Protected //Property setters Procedure SetbidProtocol(AIndex : Integer; const AValue : String); virtual; Procedure SetmaximumQps(AIndex : Integer; const AValue : integer); virtual; Procedure Setregion(AIndex : Integer; const AValue : String); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Public Published Property bidProtocol : String Index 0 Read FbidProtocol Write SetbidProtocol; Property maximumQps : integer Index 8 Read FmaximumQps Write SetmaximumQps; Property region : String Index 16 Read Fregion Write Setregion; Property url : String Index 24 Read Furl Write Seturl; end; TAccountTypebidderLocationItemClass = Class of TAccountTypebidderLocationItem; { -------------------------------------------------------------------- TAccount --------------------------------------------------------------------} TAccount = Class(TGoogleBaseObject) Private FbidderLocation : TAccountTypebidderLocationArray; FcookieMatchingNid : String; FcookieMatchingUrl : String; Fid : integer; Fkind : String; FmaximumActiveCreatives : integer; FmaximumTotalQps : integer; FnumberActiveCreatives : integer; Protected //Property setters Procedure SetbidderLocation(AIndex : Integer; const AValue : TAccountTypebidderLocationArray); virtual; Procedure SetcookieMatchingNid(AIndex : Integer; const AValue : String); virtual; Procedure SetcookieMatchingUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setid(AIndex : Integer; const AValue : integer); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetmaximumActiveCreatives(AIndex : Integer; const AValue : integer); virtual; Procedure SetmaximumTotalQps(AIndex : Integer; const AValue : integer); virtual; Procedure SetnumberActiveCreatives(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 bidderLocation : TAccountTypebidderLocationArray Index 0 Read FbidderLocation Write SetbidderLocation; Property cookieMatchingNid : String Index 8 Read FcookieMatchingNid Write SetcookieMatchingNid; Property cookieMatchingUrl : String Index 16 Read FcookieMatchingUrl Write SetcookieMatchingUrl; Property id : integer Index 24 Read Fid Write Setid; Property kind : String Index 32 Read Fkind Write Setkind; Property maximumActiveCreatives : integer Index 40 Read FmaximumActiveCreatives Write SetmaximumActiveCreatives; Property maximumTotalQps : integer Index 48 Read FmaximumTotalQps Write SetmaximumTotalQps; Property numberActiveCreatives : integer Index 56 Read FnumberActiveCreatives Write SetnumberActiveCreatives; end; TAccountClass = Class of TAccount; { -------------------------------------------------------------------- TAccountsList --------------------------------------------------------------------} TAccountsList = Class(TGoogleBaseObject) Private Fitems : TAccountsListTypeitemsArray; Fkind : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TAccountsListTypeitemsArray); virtual; Procedure Setkind(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 : TAccountsListTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; end; TAccountsListClass = Class of TAccountsList; { -------------------------------------------------------------------- TAddOrderDealsRequest --------------------------------------------------------------------} TAddOrderDealsRequest = Class(TGoogleBaseObject) Private Fdeals : TAddOrderDealsRequestTypedealsArray; FproposalRevisionNumber : String; FupdateAction : String; Protected //Property setters Procedure Setdeals(AIndex : Integer; const AValue : TAddOrderDealsRequestTypedealsArray); virtual; Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure SetupdateAction(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 deals : TAddOrderDealsRequestTypedealsArray Index 0 Read Fdeals Write Setdeals; Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber; Property updateAction : String Index 16 Read FupdateAction Write SetupdateAction; end; TAddOrderDealsRequestClass = Class of TAddOrderDealsRequest; { -------------------------------------------------------------------- TAddOrderDealsResponse --------------------------------------------------------------------} TAddOrderDealsResponse = Class(TGoogleBaseObject) Private Fdeals : TAddOrderDealsResponseTypedealsArray; FproposalRevisionNumber : String; Protected //Property setters Procedure Setdeals(AIndex : Integer; const AValue : TAddOrderDealsResponseTypedealsArray); virtual; Procedure SetproposalRevisionNumber(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 deals : TAddOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals; Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber; end; TAddOrderDealsResponseClass = Class of TAddOrderDealsResponse; { -------------------------------------------------------------------- TAddOrderNotesRequest --------------------------------------------------------------------} TAddOrderNotesRequest = Class(TGoogleBaseObject) Private Fnotes : TAddOrderNotesRequestTypenotesArray; Protected //Property setters Procedure Setnotes(AIndex : Integer; const AValue : TAddOrderNotesRequestTypenotesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property notes : TAddOrderNotesRequestTypenotesArray Index 0 Read Fnotes Write Setnotes; end; TAddOrderNotesRequestClass = Class of TAddOrderNotesRequest; { -------------------------------------------------------------------- TAddOrderNotesResponse --------------------------------------------------------------------} TAddOrderNotesResponse = Class(TGoogleBaseObject) Private Fnotes : TAddOrderNotesResponseTypenotesArray; Protected //Property setters Procedure Setnotes(AIndex : Integer; const AValue : TAddOrderNotesResponseTypenotesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property notes : TAddOrderNotesResponseTypenotesArray Index 0 Read Fnotes Write Setnotes; end; TAddOrderNotesResponseClass = Class of TAddOrderNotesResponse; { -------------------------------------------------------------------- TBillingInfo --------------------------------------------------------------------} TBillingInfo = Class(TGoogleBaseObject) Private FaccountId : integer; FaccountName : String; FbillingId : TStringArray; Fkind : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : integer); virtual; Procedure SetaccountName(AIndex : Integer; const AValue : String); virtual; Procedure SetbillingId(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setkind(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 : integer Index 0 Read FaccountId Write SetaccountId; Property accountName : String Index 8 Read FaccountName Write SetaccountName; Property billingId : TStringArray Index 16 Read FbillingId Write SetbillingId; Property kind : String Index 24 Read Fkind Write Setkind; end; TBillingInfoClass = Class of TBillingInfo; { -------------------------------------------------------------------- TBillingInfoList --------------------------------------------------------------------} TBillingInfoList = Class(TGoogleBaseObject) Private Fitems : TBillingInfoListTypeitemsArray; Fkind : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TBillingInfoListTypeitemsArray); virtual; Procedure Setkind(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 : TBillingInfoListTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; end; TBillingInfoListClass = Class of TBillingInfoList; { -------------------------------------------------------------------- TBudget --------------------------------------------------------------------} TBudget = Class(TGoogleBaseObject) Private FaccountId : String; FbillingId : String; FbudgetAmount : String; FcurrencyCode : String; Fid : String; Fkind : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetbillingId(AIndex : Integer; const AValue : String); virtual; Procedure SetbudgetAmount(AIndex : Integer; const AValue : String); virtual; Procedure SetcurrencyCode(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 accountId : String Index 0 Read FaccountId Write SetaccountId; Property billingId : String Index 8 Read FbillingId Write SetbillingId; Property budgetAmount : String Index 16 Read FbudgetAmount Write SetbudgetAmount; Property currencyCode : String Index 24 Read FcurrencyCode Write SetcurrencyCode; Property id : String Index 32 Read Fid Write Setid; Property kind : String Index 40 Read Fkind Write Setkind; end; TBudgetClass = Class of TBudget; { -------------------------------------------------------------------- TBuyer --------------------------------------------------------------------} TBuyer = Class(TGoogleBaseObject) Private FaccountId : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; end; TBuyerClass = Class of TBuyer; { -------------------------------------------------------------------- TContactInformation --------------------------------------------------------------------} TContactInformation = Class(TGoogleBaseObject) Private Femail : String; Fname : String; Protected //Property setters Procedure Setemail(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property email : String Index 0 Read Femail Write Setemail; Property name : String Index 8 Read Fname Write Setname; end; TContactInformationClass = Class of TContactInformation; { -------------------------------------------------------------------- TCreateOrdersRequest --------------------------------------------------------------------} TCreateOrdersRequest = Class(TGoogleBaseObject) Private Fproposals : TCreateOrdersRequestTypeproposalsArray; FwebPropertyCode : String; Protected //Property setters Procedure Setproposals(AIndex : Integer; const AValue : TCreateOrdersRequestTypeproposalsArray); virtual; Procedure SetwebPropertyCode(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 proposals : TCreateOrdersRequestTypeproposalsArray Index 0 Read Fproposals Write Setproposals; Property webPropertyCode : String Index 8 Read FwebPropertyCode Write SetwebPropertyCode; end; TCreateOrdersRequestClass = Class of TCreateOrdersRequest; { -------------------------------------------------------------------- TCreateOrdersResponse --------------------------------------------------------------------} TCreateOrdersResponse = Class(TGoogleBaseObject) Private Fproposals : TCreateOrdersResponseTypeproposalsArray; Protected //Property setters Procedure Setproposals(AIndex : Integer; const AValue : TCreateOrdersResponseTypeproposalsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property proposals : TCreateOrdersResponseTypeproposalsArray Index 0 Read Fproposals Write Setproposals; end; TCreateOrdersResponseClass = Class of TCreateOrdersResponse; { -------------------------------------------------------------------- TCreativeTypecorrectionsItem --------------------------------------------------------------------} TCreativeTypecorrectionsItem = Class(TGoogleBaseObject) Private Fdetails : TStringArray; Freason : String; Protected //Property setters Procedure Setdetails(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setreason(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 details : TStringArray Index 0 Read Fdetails Write Setdetails; Property reason : String Index 8 Read Freason Write Setreason; end; TCreativeTypecorrectionsItemClass = Class of TCreativeTypecorrectionsItem; { -------------------------------------------------------------------- TCreativeTypefilteringReasonsTypereasonsItem --------------------------------------------------------------------} TCreativeTypefilteringReasonsTypereasonsItem = Class(TGoogleBaseObject) Private FfilteringCount : String; FfilteringStatus : integer; Protected //Property setters Procedure SetfilteringCount(AIndex : Integer; const AValue : String); virtual; Procedure SetfilteringStatus(AIndex : Integer; const AValue : integer); virtual; Public Published Property filteringCount : String Index 0 Read FfilteringCount Write SetfilteringCount; Property filteringStatus : integer Index 8 Read FfilteringStatus Write SetfilteringStatus; end; TCreativeTypefilteringReasonsTypereasonsItemClass = Class of TCreativeTypefilteringReasonsTypereasonsItem; { -------------------------------------------------------------------- TCreativeTypefilteringReasons --------------------------------------------------------------------} TCreativeTypefilteringReasons = Class(TGoogleBaseObject) Private Fdate : String; Freasons : TCreativeTypefilteringReasonsTypereasonsArray; Protected //Property setters Procedure Setdate(AIndex : Integer; const AValue : String); virtual; Procedure Setreasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasonsTypereasonsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property date : String Index 0 Read Fdate Write Setdate; Property reasons : TCreativeTypefilteringReasonsTypereasonsArray Index 8 Read Freasons Write Setreasons; end; TCreativeTypefilteringReasonsClass = Class of TCreativeTypefilteringReasons; { -------------------------------------------------------------------- TCreativeTypenativeAdTypeappIcon --------------------------------------------------------------------} TCreativeTypenativeAdTypeappIcon = Class(TGoogleBaseObject) Private Fheight : integer; Furl : String; Fwidth : integer; Protected //Property setters Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; Property url : String Index 8 Read Furl Write Seturl; Property width : integer Index 16 Read Fwidth Write Setwidth; end; TCreativeTypenativeAdTypeappIconClass = Class of TCreativeTypenativeAdTypeappIcon; { -------------------------------------------------------------------- TCreativeTypenativeAdTypeimage --------------------------------------------------------------------} TCreativeTypenativeAdTypeimage = Class(TGoogleBaseObject) Private Fheight : integer; Furl : String; Fwidth : integer; Protected //Property setters Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; Property url : String Index 8 Read Furl Write Seturl; Property width : integer Index 16 Read Fwidth Write Setwidth; end; TCreativeTypenativeAdTypeimageClass = Class of TCreativeTypenativeAdTypeimage; { -------------------------------------------------------------------- TCreativeTypenativeAdTypelogo --------------------------------------------------------------------} TCreativeTypenativeAdTypelogo = Class(TGoogleBaseObject) Private Fheight : integer; Furl : String; Fwidth : integer; Protected //Property setters Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Seturl(AIndex : Integer; const AValue : String); virtual; Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; Property url : String Index 8 Read Furl Write Seturl; Property width : integer Index 16 Read Fwidth Write Setwidth; end; TCreativeTypenativeAdTypelogoClass = Class of TCreativeTypenativeAdTypelogo; { -------------------------------------------------------------------- TCreativeTypenativeAd --------------------------------------------------------------------} TCreativeTypenativeAd = Class(TGoogleBaseObject) Private Fadvertiser : String; FappIcon : TCreativeTypenativeAdTypeappIcon; Fbody : String; FcallToAction : String; FclickTrackingUrl : String; Fheadline : String; Fimage : TCreativeTypenativeAdTypeimage; FimpressionTrackingUrl : TStringArray; Flogo : TCreativeTypenativeAdTypelogo; Fprice : String; FstarRating : double; Fstore : String; Protected //Property setters Procedure Setadvertiser(AIndex : Integer; const AValue : String); virtual; Procedure SetappIcon(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeappIcon); virtual; Procedure Setbody(AIndex : Integer; const AValue : String); virtual; Procedure SetcallToAction(AIndex : Integer; const AValue : String); virtual; Procedure SetclickTrackingUrl(AIndex : Integer; const AValue : String); virtual; Procedure Setheadline(AIndex : Integer; const AValue : String); virtual; Procedure Setimage(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeimage); virtual; Procedure SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setlogo(AIndex : Integer; const AValue : TCreativeTypenativeAdTypelogo); virtual; Procedure Setprice(AIndex : Integer; const AValue : String); virtual; Procedure SetstarRating(AIndex : Integer; const AValue : double); virtual; Procedure Setstore(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 advertiser : String Index 0 Read Fadvertiser Write Setadvertiser; Property appIcon : TCreativeTypenativeAdTypeappIcon Index 8 Read FappIcon Write SetappIcon; Property body : String Index 16 Read Fbody Write Setbody; Property callToAction : String Index 24 Read FcallToAction Write SetcallToAction; Property clickTrackingUrl : String Index 32 Read FclickTrackingUrl Write SetclickTrackingUrl; Property headline : String Index 40 Read Fheadline Write Setheadline; Property image : TCreativeTypenativeAdTypeimage Index 48 Read Fimage Write Setimage; Property impressionTrackingUrl : TStringArray Index 56 Read FimpressionTrackingUrl Write SetimpressionTrackingUrl; Property logo : TCreativeTypenativeAdTypelogo Index 64 Read Flogo Write Setlogo; Property price : String Index 72 Read Fprice Write Setprice; Property starRating : double Index 80 Read FstarRating Write SetstarRating; Property store : String Index 88 Read Fstore Write Setstore; end; TCreativeTypenativeAdClass = Class of TCreativeTypenativeAd; { -------------------------------------------------------------------- TCreativeTypeservingRestrictionsItemTypecontextsItem --------------------------------------------------------------------} TCreativeTypeservingRestrictionsItemTypecontextsItem = Class(TGoogleBaseObject) Private FauctionType : TStringArray; FcontextType : String; FgeoCriteriaId : TintegerArray; Fplatform : TStringArray; Protected //Property setters Procedure SetauctionType(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetcontextType(AIndex : Integer; const AValue : String); virtual; Procedure SetgeoCriteriaId(AIndex : Integer; const AValue : TintegerArray); virtual; Procedure Setplatform(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 auctionType : TStringArray Index 0 Read FauctionType Write SetauctionType; Property contextType : String Index 8 Read FcontextType Write SetcontextType; Property geoCriteriaId : TintegerArray Index 16 Read FgeoCriteriaId Write SetgeoCriteriaId; Property platform : TStringArray Index 24 Read Fplatform Write Setplatform; end; TCreativeTypeservingRestrictionsItemTypecontextsItemClass = Class of TCreativeTypeservingRestrictionsItemTypecontextsItem; { -------------------------------------------------------------------- TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem --------------------------------------------------------------------} TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem = Class(TGoogleBaseObject) Private Fdetails : TStringArray; Freason : String; Protected //Property setters Procedure Setdetails(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setreason(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 details : TStringArray Index 0 Read Fdetails Write Setdetails; Property reason : String Index 8 Read Freason Write Setreason; end; TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItemClass = Class of TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem; { -------------------------------------------------------------------- TCreativeTypeservingRestrictionsItem --------------------------------------------------------------------} TCreativeTypeservingRestrictionsItem = Class(TGoogleBaseObject) Private Fcontexts : TCreativeTypeservingRestrictionsItemTypecontextsArray; FdisapprovalReasons : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray; Freason : String; Protected //Property setters Procedure Setcontexts(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypecontextsArray); virtual; Procedure SetdisapprovalReasons(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray); virtual; Procedure Setreason(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 contexts : TCreativeTypeservingRestrictionsItemTypecontextsArray Index 0 Read Fcontexts Write Setcontexts; Property disapprovalReasons : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray Index 8 Read FdisapprovalReasons Write SetdisapprovalReasons; Property reason : String Index 16 Read Freason Write Setreason; end; TCreativeTypeservingRestrictionsItemClass = Class of TCreativeTypeservingRestrictionsItem; { -------------------------------------------------------------------- TCreative --------------------------------------------------------------------} TCreative = Class(TGoogleBaseObject) Private FHTMLSnippet : String; FaccountId : integer; FadChoicesDestinationUrl : String; FadvertiserId : TStringArray; FadvertiserName : String; FagencyId : String; FapiUploadTimestamp : TDatetime; Fattribute : TintegerArray; FbuyerCreativeId : String; FclickThroughUrl : TStringArray; Fcorrections : TCreativeTypecorrectionsArray; FdealsStatus : String; FfilteringReasons : TCreativeTypefilteringReasons; Fheight : integer; FimpressionTrackingUrl : TStringArray; Fkind : String; FnativeAd : TCreativeTypenativeAd; FopenAuctionStatus : String; FproductCategories : TintegerArray; FrestrictedCategories : TintegerArray; FsensitiveCategories : TintegerArray; FservingRestrictions : TCreativeTypeservingRestrictionsArray; FvendorType : TintegerArray; Fversion : integer; FvideoURL : String; Fwidth : integer; Protected //Property setters Procedure SetHTMLSnippet(AIndex : Integer; const AValue : String); virtual; Procedure SetaccountId(AIndex : Integer; const AValue : integer); virtual; Procedure SetadChoicesDestinationUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetadvertiserId(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetadvertiserName(AIndex : Integer; const AValue : String); virtual; Procedure SetagencyId(AIndex : Integer; const AValue : String); virtual; Procedure SetapiUploadTimestamp(AIndex : Integer; const AValue : TDatetime); virtual; Procedure Setattribute(AIndex : Integer; const AValue : TintegerArray); virtual; Procedure SetbuyerCreativeId(AIndex : Integer; const AValue : String); virtual; Procedure SetclickThroughUrl(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setcorrections(AIndex : Integer; const AValue : TCreativeTypecorrectionsArray); virtual; Procedure SetdealsStatus(AIndex : Integer; const AValue : String); virtual; Procedure SetfilteringReasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasons); virtual; Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnativeAd(AIndex : Integer; const AValue : TCreativeTypenativeAd); virtual; Procedure SetopenAuctionStatus(AIndex : Integer; const AValue : String); virtual; Procedure SetproductCategories(AIndex : Integer; const AValue : TintegerArray); virtual; Procedure SetrestrictedCategories(AIndex : Integer; const AValue : TintegerArray); virtual; Procedure SetsensitiveCategories(AIndex : Integer; const AValue : TintegerArray); virtual; Procedure SetservingRestrictions(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsArray); virtual; Procedure SetvendorType(AIndex : Integer; const AValue : TintegerArray); virtual; Procedure Setversion(AIndex : Integer; const AValue : integer); virtual; Procedure SetvideoURL(AIndex : Integer; const AValue : String); virtual; Procedure Setwidth(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 HTMLSnippet : String Index 0 Read FHTMLSnippet Write SetHTMLSnippet; Property accountId : integer Index 8 Read FaccountId Write SetaccountId; Property adChoicesDestinationUrl : String Index 16 Read FadChoicesDestinationUrl Write SetadChoicesDestinationUrl; Property advertiserId : TStringArray Index 24 Read FadvertiserId Write SetadvertiserId; Property advertiserName : String Index 32 Read FadvertiserName Write SetadvertiserName; Property agencyId : String Index 40 Read FagencyId Write SetagencyId; Property apiUploadTimestamp : TDatetime Index 48 Read FapiUploadTimestamp Write SetapiUploadTimestamp; Property attribute : TintegerArray Index 56 Read Fattribute Write Setattribute; Property buyerCreativeId : String Index 64 Read FbuyerCreativeId Write SetbuyerCreativeId; Property clickThroughUrl : TStringArray Index 72 Read FclickThroughUrl Write SetclickThroughUrl; Property corrections : TCreativeTypecorrectionsArray Index 80 Read Fcorrections Write Setcorrections; Property dealsStatus : String Index 88 Read FdealsStatus Write SetdealsStatus; Property filteringReasons : TCreativeTypefilteringReasons Index 96 Read FfilteringReasons Write SetfilteringReasons; Property height : integer Index 104 Read Fheight Write Setheight; Property impressionTrackingUrl : TStringArray Index 112 Read FimpressionTrackingUrl Write SetimpressionTrackingUrl; Property kind : String Index 120 Read Fkind Write Setkind; Property nativeAd : TCreativeTypenativeAd Index 128 Read FnativeAd Write SetnativeAd; Property openAuctionStatus : String Index 136 Read FopenAuctionStatus Write SetopenAuctionStatus; Property productCategories : TintegerArray Index 144 Read FproductCategories Write SetproductCategories; Property restrictedCategories : TintegerArray Index 152 Read FrestrictedCategories Write SetrestrictedCategories; Property sensitiveCategories : TintegerArray Index 160 Read FsensitiveCategories Write SetsensitiveCategories; Property servingRestrictions : TCreativeTypeservingRestrictionsArray Index 168 Read FservingRestrictions Write SetservingRestrictions; Property vendorType : TintegerArray Index 176 Read FvendorType Write SetvendorType; Property version : integer Index 184 Read Fversion Write Setversion; Property videoURL : String Index 192 Read FvideoURL Write SetvideoURL; Property width : integer Index 200 Read Fwidth Write Setwidth; end; TCreativeClass = Class of TCreative; { -------------------------------------------------------------------- TCreativesList --------------------------------------------------------------------} TCreativesList = Class(TGoogleBaseObject) Private Fitems : TCreativesListTypeitemsArray; Fkind : String; FnextPageToken : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TCreativesListTypeitemsArray); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property items : TCreativesListTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken; end; TCreativesListClass = Class of TCreativesList; { -------------------------------------------------------------------- TDealServingMetadata --------------------------------------------------------------------} TDealServingMetadata = Class(TGoogleBaseObject) Private FdealPauseStatus : TDealServingMetadataDealPauseStatus; Protected //Property setters Procedure SetdealPauseStatus(AIndex : Integer; const AValue : TDealServingMetadataDealPauseStatus); virtual; Public Published Property dealPauseStatus : TDealServingMetadataDealPauseStatus Index 0 Read FdealPauseStatus Write SetdealPauseStatus; end; TDealServingMetadataClass = Class of TDealServingMetadata; { -------------------------------------------------------------------- TDealServingMetadataDealPauseStatus --------------------------------------------------------------------} TDealServingMetadataDealPauseStatus = Class(TGoogleBaseObject) Private FfirstPausedBy : String; FhasBuyerPaused : boolean; FhasSellerPaused : boolean; Protected //Property setters Procedure SetfirstPausedBy(AIndex : Integer; const AValue : String); virtual; Procedure SethasBuyerPaused(AIndex : Integer; const AValue : boolean); virtual; Procedure SethasSellerPaused(AIndex : Integer; const AValue : boolean); virtual; Public Published Property firstPausedBy : String Index 0 Read FfirstPausedBy Write SetfirstPausedBy; Property hasBuyerPaused : boolean Index 8 Read FhasBuyerPaused Write SethasBuyerPaused; Property hasSellerPaused : boolean Index 16 Read FhasSellerPaused Write SethasSellerPaused; end; TDealServingMetadataDealPauseStatusClass = Class of TDealServingMetadataDealPauseStatus; { -------------------------------------------------------------------- TDealTerms --------------------------------------------------------------------} TDealTerms = Class(TGoogleBaseObject) Private FbrandingType : String; Fdescription : String; FestimatedGrossSpend : TPrice; FestimatedImpressionsPerDay : String; FguaranteedFixedPriceTerms : TDealTermsGuaranteedFixedPriceTerms; FnonGuaranteedAuctionTerms : TDealTermsNonGuaranteedAuctionTerms; FnonGuaranteedFixedPriceTerms : TDealTermsNonGuaranteedFixedPriceTerms; FsellerTimeZone : String; Protected //Property setters Procedure SetbrandingType(AIndex : Integer; const AValue : String); virtual; Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; Procedure SetestimatedGrossSpend(AIndex : Integer; const AValue : TPrice); virtual; Procedure SetestimatedImpressionsPerDay(AIndex : Integer; const AValue : String); virtual; Procedure SetguaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTerms); virtual; Procedure SetnonGuaranteedAuctionTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTerms); virtual; Procedure SetnonGuaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTerms); virtual; Procedure SetsellerTimeZone(AIndex : Integer; const AValue : String); virtual; Public Published Property brandingType : String Index 0 Read FbrandingType Write SetbrandingType; Property description : String Index 8 Read Fdescription Write Setdescription; Property estimatedGrossSpend : TPrice Index 16 Read FestimatedGrossSpend Write SetestimatedGrossSpend; Property estimatedImpressionsPerDay : String Index 24 Read FestimatedImpressionsPerDay Write SetestimatedImpressionsPerDay; Property guaranteedFixedPriceTerms : TDealTermsGuaranteedFixedPriceTerms Index 32 Read FguaranteedFixedPriceTerms Write SetguaranteedFixedPriceTerms; Property nonGuaranteedAuctionTerms : TDealTermsNonGuaranteedAuctionTerms Index 40 Read FnonGuaranteedAuctionTerms Write SetnonGuaranteedAuctionTerms; Property nonGuaranteedFixedPriceTerms : TDealTermsNonGuaranteedFixedPriceTerms Index 48 Read FnonGuaranteedFixedPriceTerms Write SetnonGuaranteedFixedPriceTerms; Property sellerTimeZone : String Index 56 Read FsellerTimeZone Write SetsellerTimeZone; end; TDealTermsClass = Class of TDealTerms; { -------------------------------------------------------------------- TDealTermsGuaranteedFixedPriceTerms --------------------------------------------------------------------} TDealTermsGuaranteedFixedPriceTerms = Class(TGoogleBaseObject) Private FbillingInfo : TDealTermsGuaranteedFixedPriceTermsBillingInfo; FfixedPrices : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray; FguaranteedImpressions : String; FguaranteedLooks : String; Protected //Property setters Procedure SetbillingInfo(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsBillingInfo); virtual; Procedure SetfixedPrices(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray); virtual; Procedure SetguaranteedImpressions(AIndex : Integer; const AValue : String); virtual; Procedure SetguaranteedLooks(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 billingInfo : TDealTermsGuaranteedFixedPriceTermsBillingInfo Index 0 Read FbillingInfo Write SetbillingInfo; Property fixedPrices : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray Index 8 Read FfixedPrices Write SetfixedPrices; Property guaranteedImpressions : String Index 16 Read FguaranteedImpressions Write SetguaranteedImpressions; Property guaranteedLooks : String Index 24 Read FguaranteedLooks Write SetguaranteedLooks; end; TDealTermsGuaranteedFixedPriceTermsClass = Class of TDealTermsGuaranteedFixedPriceTerms; { -------------------------------------------------------------------- TDealTermsGuaranteedFixedPriceTermsBillingInfo --------------------------------------------------------------------} TDealTermsGuaranteedFixedPriceTermsBillingInfo = Class(TGoogleBaseObject) Private FcurrencyConversionTimeMs : String; ForiginalContractedQuantity : String; Fprice : TPrice; Protected //Property setters Procedure SetcurrencyConversionTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetoriginalContractedQuantity(AIndex : Integer; const AValue : String); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Public Published Property currencyConversionTimeMs : String Index 0 Read FcurrencyConversionTimeMs Write SetcurrencyConversionTimeMs; Property originalContractedQuantity : String Index 8 Read ForiginalContractedQuantity Write SetoriginalContractedQuantity; Property price : TPrice Index 16 Read Fprice Write Setprice; end; TDealTermsGuaranteedFixedPriceTermsBillingInfoClass = Class of TDealTermsGuaranteedFixedPriceTermsBillingInfo; { -------------------------------------------------------------------- TDealTermsNonGuaranteedAuctionTerms --------------------------------------------------------------------} TDealTermsNonGuaranteedAuctionTerms = Class(TGoogleBaseObject) Private FautoOptimizePrivateAuction : boolean; FreservePricePerBuyers : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray; Protected //Property setters Procedure SetautoOptimizePrivateAuction(AIndex : Integer; const AValue : boolean); virtual; Procedure SetreservePricePerBuyers(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property autoOptimizePrivateAuction : boolean Index 0 Read FautoOptimizePrivateAuction Write SetautoOptimizePrivateAuction; Property reservePricePerBuyers : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray Index 8 Read FreservePricePerBuyers Write SetreservePricePerBuyers; end; TDealTermsNonGuaranteedAuctionTermsClass = Class of TDealTermsNonGuaranteedAuctionTerms; { -------------------------------------------------------------------- TDealTermsNonGuaranteedFixedPriceTerms --------------------------------------------------------------------} TDealTermsNonGuaranteedFixedPriceTerms = Class(TGoogleBaseObject) Private FfixedPrices : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray; Protected //Property setters Procedure SetfixedPrices(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property fixedPrices : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray Index 0 Read FfixedPrices Write SetfixedPrices; end; TDealTermsNonGuaranteedFixedPriceTermsClass = Class of TDealTermsNonGuaranteedFixedPriceTerms; { -------------------------------------------------------------------- TDeleteOrderDealsRequest --------------------------------------------------------------------} TDeleteOrderDealsRequest = Class(TGoogleBaseObject) Private FdealIds : TStringArray; FproposalRevisionNumber : String; FupdateAction : String; Protected //Property setters Procedure SetdealIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure SetupdateAction(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 dealIds : TStringArray Index 0 Read FdealIds Write SetdealIds; Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber; Property updateAction : String Index 16 Read FupdateAction Write SetupdateAction; end; TDeleteOrderDealsRequestClass = Class of TDeleteOrderDealsRequest; { -------------------------------------------------------------------- TDeleteOrderDealsResponse --------------------------------------------------------------------} TDeleteOrderDealsResponse = Class(TGoogleBaseObject) Private Fdeals : TDeleteOrderDealsResponseTypedealsArray; FproposalRevisionNumber : String; Protected //Property setters Procedure Setdeals(AIndex : Integer; const AValue : TDeleteOrderDealsResponseTypedealsArray); virtual; Procedure SetproposalRevisionNumber(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 deals : TDeleteOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals; Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber; end; TDeleteOrderDealsResponseClass = Class of TDeleteOrderDealsResponse; { -------------------------------------------------------------------- TDeliveryControl --------------------------------------------------------------------} TDeliveryControl = Class(TGoogleBaseObject) Private FcreativeBlockingLevel : String; FdeliveryRateType : String; FfrequencyCaps : TDeliveryControlTypefrequencyCapsArray; Protected //Property setters Procedure SetcreativeBlockingLevel(AIndex : Integer; const AValue : String); virtual; Procedure SetdeliveryRateType(AIndex : Integer; const AValue : String); virtual; Procedure SetfrequencyCaps(AIndex : Integer; const AValue : TDeliveryControlTypefrequencyCapsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property creativeBlockingLevel : String Index 0 Read FcreativeBlockingLevel Write SetcreativeBlockingLevel; Property deliveryRateType : String Index 8 Read FdeliveryRateType Write SetdeliveryRateType; Property frequencyCaps : TDeliveryControlTypefrequencyCapsArray Index 16 Read FfrequencyCaps Write SetfrequencyCaps; end; TDeliveryControlClass = Class of TDeliveryControl; { -------------------------------------------------------------------- TDeliveryControlFrequencyCap --------------------------------------------------------------------} TDeliveryControlFrequencyCap = Class(TGoogleBaseObject) Private FmaxImpressions : integer; FnumTimeUnits : integer; FtimeUnitType : String; Protected //Property setters Procedure SetmaxImpressions(AIndex : Integer; const AValue : integer); virtual; Procedure SetnumTimeUnits(AIndex : Integer; const AValue : integer); virtual; Procedure SettimeUnitType(AIndex : Integer; const AValue : String); virtual; Public Published Property maxImpressions : integer Index 0 Read FmaxImpressions Write SetmaxImpressions; Property numTimeUnits : integer Index 8 Read FnumTimeUnits Write SetnumTimeUnits; Property timeUnitType : String Index 16 Read FtimeUnitType Write SettimeUnitType; end; TDeliveryControlFrequencyCapClass = Class of TDeliveryControlFrequencyCap; { -------------------------------------------------------------------- TDimension --------------------------------------------------------------------} TDimension = Class(TGoogleBaseObject) Private FdimensionType : String; FdimensionValues : TDimensionTypedimensionValuesArray; Protected //Property setters Procedure SetdimensionType(AIndex : Integer; const AValue : String); virtual; Procedure SetdimensionValues(AIndex : Integer; const AValue : TDimensionTypedimensionValuesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property dimensionType : String Index 0 Read FdimensionType Write SetdimensionType; Property dimensionValues : TDimensionTypedimensionValuesArray Index 8 Read FdimensionValues Write SetdimensionValues; end; TDimensionClass = Class of TDimension; { -------------------------------------------------------------------- TDimensionDimensionValue --------------------------------------------------------------------} TDimensionDimensionValue = Class(TGoogleBaseObject) Private Fid : integer; Fname : String; Protected //Property setters Procedure Setid(AIndex : Integer; const AValue : integer); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Public Published Property id : integer Index 0 Read Fid Write Setid; Property name : String Index 8 Read Fname Write Setname; end; TDimensionDimensionValueClass = Class of TDimensionDimensionValue; { -------------------------------------------------------------------- TEditAllOrderDealsRequest --------------------------------------------------------------------} TEditAllOrderDealsRequest = Class(TGoogleBaseObject) Private Fdeals : TEditAllOrderDealsRequestTypedealsArray; Fproposal : TProposal; FproposalRevisionNumber : String; FupdateAction : String; Protected //Property setters Procedure Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsRequestTypedealsArray); virtual; Procedure Setproposal(AIndex : Integer; const AValue : TProposal); virtual; Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure SetupdateAction(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 deals : TEditAllOrderDealsRequestTypedealsArray Index 0 Read Fdeals Write Setdeals; Property proposal : TProposal Index 8 Read Fproposal Write Setproposal; Property proposalRevisionNumber : String Index 16 Read FproposalRevisionNumber Write SetproposalRevisionNumber; Property updateAction : String Index 24 Read FupdateAction Write SetupdateAction; end; TEditAllOrderDealsRequestClass = Class of TEditAllOrderDealsRequest; { -------------------------------------------------------------------- TEditAllOrderDealsResponse --------------------------------------------------------------------} TEditAllOrderDealsResponse = Class(TGoogleBaseObject) Private Fdeals : TEditAllOrderDealsResponseTypedealsArray; ForderRevisionNumber : String; Protected //Property setters Procedure Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsResponseTypedealsArray); virtual; Procedure SetorderRevisionNumber(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 deals : TEditAllOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals; Property orderRevisionNumber : String Index 8 Read ForderRevisionNumber Write SetorderRevisionNumber; end; TEditAllOrderDealsResponseClass = Class of TEditAllOrderDealsResponse; { -------------------------------------------------------------------- TGetOffersResponse --------------------------------------------------------------------} TGetOffersResponse = Class(TGoogleBaseObject) Private Fproducts : TGetOffersResponseTypeproductsArray; Protected //Property setters Procedure Setproducts(AIndex : Integer; const AValue : TGetOffersResponseTypeproductsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property products : TGetOffersResponseTypeproductsArray Index 0 Read Fproducts Write Setproducts; end; TGetOffersResponseClass = Class of TGetOffersResponse; { -------------------------------------------------------------------- TGetOrderDealsResponse --------------------------------------------------------------------} TGetOrderDealsResponse = Class(TGoogleBaseObject) Private Fdeals : TGetOrderDealsResponseTypedealsArray; Protected //Property setters Procedure Setdeals(AIndex : Integer; const AValue : TGetOrderDealsResponseTypedealsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property deals : TGetOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals; end; TGetOrderDealsResponseClass = Class of TGetOrderDealsResponse; { -------------------------------------------------------------------- TGetOrderNotesResponse --------------------------------------------------------------------} TGetOrderNotesResponse = Class(TGoogleBaseObject) Private Fnotes : TGetOrderNotesResponseTypenotesArray; Protected //Property setters Procedure Setnotes(AIndex : Integer; const AValue : TGetOrderNotesResponseTypenotesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property notes : TGetOrderNotesResponseTypenotesArray Index 0 Read Fnotes Write Setnotes; end; TGetOrderNotesResponseClass = Class of TGetOrderNotesResponse; { -------------------------------------------------------------------- TGetOrdersResponse --------------------------------------------------------------------} TGetOrdersResponse = Class(TGoogleBaseObject) Private Fproposals : TGetOrdersResponseTypeproposalsArray; Protected //Property setters Procedure Setproposals(AIndex : Integer; const AValue : TGetOrdersResponseTypeproposalsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property proposals : TGetOrdersResponseTypeproposalsArray Index 0 Read Fproposals Write Setproposals; end; TGetOrdersResponseClass = Class of TGetOrdersResponse; { -------------------------------------------------------------------- TGetPublisherProfilesByAccountIdResponse --------------------------------------------------------------------} TGetPublisherProfilesByAccountIdResponse = Class(TGoogleBaseObject) Private Fprofiles : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray; Protected //Property setters Procedure Setprofiles(AIndex : Integer; const AValue : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property profiles : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray Index 0 Read Fprofiles Write Setprofiles; end; TGetPublisherProfilesByAccountIdResponseClass = Class of TGetPublisherProfilesByAccountIdResponse; { -------------------------------------------------------------------- TMarketplaceDeal --------------------------------------------------------------------} TMarketplaceDeal = Class(TGoogleBaseObject) Private FbuyerPrivateData : TPrivateData; FcreationTimeMs : String; FcreativePreApprovalPolicy : String; FcreativeSafeFrameCompatibility : String; FdealId : String; FdealServingMetadata : TDealServingMetadata; FdeliveryControl : TDeliveryControl; FexternalDealId : String; FflightEndTimeMs : String; FflightStartTimeMs : String; FinventoryDescription : String; Fkind : String; FlastUpdateTimeMs : String; Fname : String; FproductId : String; FproductRevisionNumber : String; FprogrammaticCreativeSource : String; FproposalId : String; FsellerContacts : TMarketplaceDealTypesellerContactsArray; FsharedTargetings : TMarketplaceDealTypesharedTargetingsArray; FsyndicationProduct : String; Fterms : TDealTerms; FwebPropertyCode : String; Protected //Property setters Procedure SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData); virtual; Procedure SetcreationTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetcreativePreApprovalPolicy(AIndex : Integer; const AValue : String); virtual; Procedure SetcreativeSafeFrameCompatibility(AIndex : Integer; const AValue : String); virtual; Procedure SetdealId(AIndex : Integer; const AValue : String); virtual; Procedure SetdealServingMetadata(AIndex : Integer; const AValue : TDealServingMetadata); virtual; Procedure SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl); virtual; Procedure SetexternalDealId(AIndex : Integer; const AValue : String); virtual; Procedure SetflightEndTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetflightStartTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetinventoryDescription(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlastUpdateTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetproductId(AIndex : Integer; const AValue : String); virtual; Procedure SetproductRevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure SetprogrammaticCreativeSource(AIndex : Integer; const AValue : String); virtual; Procedure SetproposalId(AIndex : Integer; const AValue : String); virtual; Procedure SetsellerContacts(AIndex : Integer; const AValue : TMarketplaceDealTypesellerContactsArray); virtual; Procedure SetsharedTargetings(AIndex : Integer; const AValue : TMarketplaceDealTypesharedTargetingsArray); virtual; Procedure SetsyndicationProduct(AIndex : Integer; const AValue : String); virtual; Procedure Setterms(AIndex : Integer; const AValue : TDealTerms); virtual; Procedure SetwebPropertyCode(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 buyerPrivateData : TPrivateData Index 0 Read FbuyerPrivateData Write SetbuyerPrivateData; Property creationTimeMs : String Index 8 Read FcreationTimeMs Write SetcreationTimeMs; Property creativePreApprovalPolicy : String Index 16 Read FcreativePreApprovalPolicy Write SetcreativePreApprovalPolicy; Property creativeSafeFrameCompatibility : String Index 24 Read FcreativeSafeFrameCompatibility Write SetcreativeSafeFrameCompatibility; Property dealId : String Index 32 Read FdealId Write SetdealId; Property dealServingMetadata : TDealServingMetadata Index 40 Read FdealServingMetadata Write SetdealServingMetadata; Property deliveryControl : TDeliveryControl Index 48 Read FdeliveryControl Write SetdeliveryControl; Property externalDealId : String Index 56 Read FexternalDealId Write SetexternalDealId; Property flightEndTimeMs : String Index 64 Read FflightEndTimeMs Write SetflightEndTimeMs; Property flightStartTimeMs : String Index 72 Read FflightStartTimeMs Write SetflightStartTimeMs; Property inventoryDescription : String Index 80 Read FinventoryDescription Write SetinventoryDescription; Property kind : String Index 88 Read Fkind Write Setkind; Property lastUpdateTimeMs : String Index 96 Read FlastUpdateTimeMs Write SetlastUpdateTimeMs; Property name : String Index 104 Read Fname Write Setname; Property productId : String Index 112 Read FproductId Write SetproductId; Property productRevisionNumber : String Index 120 Read FproductRevisionNumber Write SetproductRevisionNumber; Property programmaticCreativeSource : String Index 128 Read FprogrammaticCreativeSource Write SetprogrammaticCreativeSource; Property proposalId : String Index 136 Read FproposalId Write SetproposalId; Property sellerContacts : TMarketplaceDealTypesellerContactsArray Index 144 Read FsellerContacts Write SetsellerContacts; Property sharedTargetings : TMarketplaceDealTypesharedTargetingsArray Index 152 Read FsharedTargetings Write SetsharedTargetings; Property syndicationProduct : String Index 160 Read FsyndicationProduct Write SetsyndicationProduct; Property terms : TDealTerms Index 168 Read Fterms Write Setterms; Property webPropertyCode : String Index 176 Read FwebPropertyCode Write SetwebPropertyCode; end; TMarketplaceDealClass = Class of TMarketplaceDeal; { -------------------------------------------------------------------- TMarketplaceDealParty --------------------------------------------------------------------} TMarketplaceDealParty = Class(TGoogleBaseObject) Private Fbuyer : TBuyer; Fseller : TSeller; Protected //Property setters Procedure Setbuyer(AIndex : Integer; const AValue : TBuyer); virtual; Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual; Public Published Property buyer : TBuyer Index 0 Read Fbuyer Write Setbuyer; Property seller : TSeller Index 8 Read Fseller Write Setseller; end; TMarketplaceDealPartyClass = Class of TMarketplaceDealParty; { -------------------------------------------------------------------- TMarketplaceLabel --------------------------------------------------------------------} TMarketplaceLabel = Class(TGoogleBaseObject) Private FaccountId : String; FcreateTimeMs : String; FdeprecatedMarketplaceDealParty : TMarketplaceDealParty; F_label : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetcreateTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetdeprecatedMarketplaceDealParty(AIndex : Integer; const AValue : TMarketplaceDealParty); virtual; Procedure Set_label(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property createTimeMs : String Index 8 Read FcreateTimeMs Write SetcreateTimeMs; Property deprecatedMarketplaceDealParty : TMarketplaceDealParty Index 16 Read FdeprecatedMarketplaceDealParty Write SetdeprecatedMarketplaceDealParty; Property _label : String Index 24 Read F_label Write Set_label; end; TMarketplaceLabelClass = Class of TMarketplaceLabel; { -------------------------------------------------------------------- TMarketplaceNote --------------------------------------------------------------------} TMarketplaceNote = Class(TGoogleBaseObject) Private FcreatorRole : String; FdealId : String; Fkind : String; Fnote : String; FnoteId : String; FproposalId : String; FproposalRevisionNumber : String; FtimestampMs : String; Protected //Property setters Procedure SetcreatorRole(AIndex : Integer; const AValue : String); virtual; Procedure SetdealId(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setnote(AIndex : Integer; const AValue : String); virtual; Procedure SetnoteId(AIndex : Integer; const AValue : String); virtual; Procedure SetproposalId(AIndex : Integer; const AValue : String); virtual; Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure SettimestampMs(AIndex : Integer; const AValue : String); virtual; Public Published Property creatorRole : String Index 0 Read FcreatorRole Write SetcreatorRole; Property dealId : String Index 8 Read FdealId Write SetdealId; Property kind : String Index 16 Read Fkind Write Setkind; Property note : String Index 24 Read Fnote Write Setnote; Property noteId : String Index 32 Read FnoteId Write SetnoteId; Property proposalId : String Index 40 Read FproposalId Write SetproposalId; Property proposalRevisionNumber : String Index 48 Read FproposalRevisionNumber Write SetproposalRevisionNumber; Property timestampMs : String Index 56 Read FtimestampMs Write SettimestampMs; end; TMarketplaceNoteClass = Class of TMarketplaceNote; { -------------------------------------------------------------------- TPerformanceReport --------------------------------------------------------------------} TPerformanceReport = Class(TGoogleBaseObject) Private FbidRate : double; FbidRequestRate : double; FcalloutStatusRate : TTJSONSchemaArray; FcookieMatcherStatusRate : TTJSONSchemaArray; FcreativeStatusRate : TTJSONSchemaArray; FfilteredBidRate : double; FhostedMatchStatusRate : TTJSONSchemaArray; FinventoryMatchRate : double; Fkind : String; Flatency50thPercentile : double; Flatency85thPercentile : double; Flatency95thPercentile : double; FnoQuotaInRegion : double; FoutOfQuota : double; FpixelMatchRequests : double; FpixelMatchResponses : double; FquotaConfiguredLimit : double; FquotaThrottledLimit : double; Fregion : String; FsuccessfulRequestRate : double; Ftimestamp : String; FunsuccessfulRequestRate : double; Protected //Property setters Procedure SetbidRate(AIndex : Integer; const AValue : double); virtual; Procedure SetbidRequestRate(AIndex : Integer; const AValue : double); virtual; Procedure SetcalloutStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual; Procedure SetcookieMatcherStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual; Procedure SetcreativeStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual; Procedure SetfilteredBidRate(AIndex : Integer; const AValue : double); virtual; Procedure SethostedMatchStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual; Procedure SetinventoryMatchRate(AIndex : Integer; const AValue : double); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlatency50thPercentile(AIndex : Integer; const AValue : double); virtual; Procedure Setlatency85thPercentile(AIndex : Integer; const AValue : double); virtual; Procedure Setlatency95thPercentile(AIndex : Integer; const AValue : double); virtual; Procedure SetnoQuotaInRegion(AIndex : Integer; const AValue : double); virtual; Procedure SetoutOfQuota(AIndex : Integer; const AValue : double); virtual; Procedure SetpixelMatchRequests(AIndex : Integer; const AValue : double); virtual; Procedure SetpixelMatchResponses(AIndex : Integer; const AValue : double); virtual; Procedure SetquotaConfiguredLimit(AIndex : Integer; const AValue : double); virtual; Procedure SetquotaThrottledLimit(AIndex : Integer; const AValue : double); virtual; Procedure Setregion(AIndex : Integer; const AValue : String); virtual; Procedure SetsuccessfulRequestRate(AIndex : Integer; const AValue : double); virtual; Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual; Procedure SetunsuccessfulRequestRate(AIndex : Integer; const AValue : double); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property bidRate : double Index 0 Read FbidRate Write SetbidRate; Property bidRequestRate : double Index 8 Read FbidRequestRate Write SetbidRequestRate; Property calloutStatusRate : TTJSONSchemaArray Index 16 Read FcalloutStatusRate Write SetcalloutStatusRate; Property cookieMatcherStatusRate : TTJSONSchemaArray Index 24 Read FcookieMatcherStatusRate Write SetcookieMatcherStatusRate; Property creativeStatusRate : TTJSONSchemaArray Index 32 Read FcreativeStatusRate Write SetcreativeStatusRate; Property filteredBidRate : double Index 40 Read FfilteredBidRate Write SetfilteredBidRate; Property hostedMatchStatusRate : TTJSONSchemaArray Index 48 Read FhostedMatchStatusRate Write SethostedMatchStatusRate; Property inventoryMatchRate : double Index 56 Read FinventoryMatchRate Write SetinventoryMatchRate; Property kind : String Index 64 Read Fkind Write Setkind; Property latency50thPercentile : double Index 72 Read Flatency50thPercentile Write Setlatency50thPercentile; Property latency85thPercentile : double Index 80 Read Flatency85thPercentile Write Setlatency85thPercentile; Property latency95thPercentile : double Index 88 Read Flatency95thPercentile Write Setlatency95thPercentile; Property noQuotaInRegion : double Index 96 Read FnoQuotaInRegion Write SetnoQuotaInRegion; Property outOfQuota : double Index 104 Read FoutOfQuota Write SetoutOfQuota; Property pixelMatchRequests : double Index 112 Read FpixelMatchRequests Write SetpixelMatchRequests; Property pixelMatchResponses : double Index 120 Read FpixelMatchResponses Write SetpixelMatchResponses; Property quotaConfiguredLimit : double Index 128 Read FquotaConfiguredLimit Write SetquotaConfiguredLimit; Property quotaThrottledLimit : double Index 136 Read FquotaThrottledLimit Write SetquotaThrottledLimit; Property region : String Index 144 Read Fregion Write Setregion; Property successfulRequestRate : double Index 152 Read FsuccessfulRequestRate Write SetsuccessfulRequestRate; Property timestamp : String Index 160 Read Ftimestamp Write Settimestamp; Property unsuccessfulRequestRate : double Index 168 Read FunsuccessfulRequestRate Write SetunsuccessfulRequestRate; end; TPerformanceReportClass = Class of TPerformanceReport; { -------------------------------------------------------------------- TPerformanceReportList --------------------------------------------------------------------} TPerformanceReportList = Class(TGoogleBaseObject) Private Fkind : String; FperformanceReport : TPerformanceReportListTypeperformanceReportArray; Protected //Property setters Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetperformanceReport(AIndex : Integer; const AValue : TPerformanceReportListTypeperformanceReportArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property kind : String Index 0 Read Fkind Write Setkind; Property performanceReport : TPerformanceReportListTypeperformanceReportArray Index 8 Read FperformanceReport Write SetperformanceReport; end; TPerformanceReportListClass = Class of TPerformanceReportList; { -------------------------------------------------------------------- TPretargetingConfigTypedimensionsItem --------------------------------------------------------------------} TPretargetingConfigTypedimensionsItem = Class(TGoogleBaseObject) Private Fheight : String; Fwidth : String; Protected //Property setters Procedure Setheight(AIndex : Integer; const AValue : String); virtual; Procedure Setwidth(AIndex : Integer; const AValue : String); virtual; Public Published Property height : String Index 0 Read Fheight Write Setheight; Property width : String Index 8 Read Fwidth Write Setwidth; end; TPretargetingConfigTypedimensionsItemClass = Class of TPretargetingConfigTypedimensionsItem; { -------------------------------------------------------------------- TPretargetingConfigTypeexcludedPlacementsItem --------------------------------------------------------------------} TPretargetingConfigTypeexcludedPlacementsItem = Class(TGoogleBaseObject) Private Ftoken : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Settoken(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property token : String Index 0 Read Ftoken Write Settoken; Property _type : String Index 8 Read F_type Write Set_type; end; TPretargetingConfigTypeexcludedPlacementsItemClass = Class of TPretargetingConfigTypeexcludedPlacementsItem; { -------------------------------------------------------------------- TPretargetingConfigTypeplacementsItem --------------------------------------------------------------------} TPretargetingConfigTypeplacementsItem = Class(TGoogleBaseObject) Private Ftoken : String; F_type : String; Protected Class Function ExportPropertyName(Const AName : String) : string; override; //Property setters Procedure Settoken(AIndex : Integer; const AValue : String); virtual; Procedure Set_type(AIndex : Integer; const AValue : String); virtual; Public Published Property token : String Index 0 Read Ftoken Write Settoken; Property _type : String Index 8 Read F_type Write Set_type; end; TPretargetingConfigTypeplacementsItemClass = Class of TPretargetingConfigTypeplacementsItem; { -------------------------------------------------------------------- TPretargetingConfigTypevideoPlayerSizesItem --------------------------------------------------------------------} TPretargetingConfigTypevideoPlayerSizesItem = Class(TGoogleBaseObject) Private FaspectRatio : String; FminHeight : String; FminWidth : String; Protected //Property setters Procedure SetaspectRatio(AIndex : Integer; const AValue : String); virtual; Procedure SetminHeight(AIndex : Integer; const AValue : String); virtual; Procedure SetminWidth(AIndex : Integer; const AValue : String); virtual; Public Published Property aspectRatio : String Index 0 Read FaspectRatio Write SetaspectRatio; Property minHeight : String Index 8 Read FminHeight Write SetminHeight; Property minWidth : String Index 16 Read FminWidth Write SetminWidth; end; TPretargetingConfigTypevideoPlayerSizesItemClass = Class of TPretargetingConfigTypevideoPlayerSizesItem; { -------------------------------------------------------------------- TPretargetingConfig --------------------------------------------------------------------} TPretargetingConfig = Class(TGoogleBaseObject) Private FbillingId : String; FconfigId : String; FconfigName : String; FcreativeType : TStringArray; Fdimensions : TPretargetingConfigTypedimensionsArray; FexcludedContentLabels : TStringArray; FexcludedGeoCriteriaIds : TStringArray; FexcludedPlacements : TPretargetingConfigTypeexcludedPlacementsArray; FexcludedUserLists : TStringArray; FexcludedVerticals : TStringArray; FgeoCriteriaIds : TStringArray; FisActive : boolean; Fkind : String; Flanguages : TStringArray; FmobileCarriers : TStringArray; FmobileDevices : TStringArray; FmobileOperatingSystemVersions : TStringArray; Fplacements : TPretargetingConfigTypeplacementsArray; Fplatforms : TStringArray; FsupportedCreativeAttributes : TStringArray; FuserLists : TStringArray; FvendorTypes : TStringArray; Fverticals : TStringArray; FvideoPlayerSizes : TPretargetingConfigTypevideoPlayerSizesArray; Protected //Property setters Procedure SetbillingId(AIndex : Integer; const AValue : String); virtual; Procedure SetconfigId(AIndex : Integer; const AValue : String); virtual; Procedure SetconfigName(AIndex : Integer; const AValue : String); virtual; Procedure SetcreativeType(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setdimensions(AIndex : Integer; const AValue : TPretargetingConfigTypedimensionsArray); virtual; Procedure SetexcludedContentLabels(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetexcludedGeoCriteriaIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetexcludedPlacements(AIndex : Integer; const AValue : TPretargetingConfigTypeexcludedPlacementsArray); virtual; Procedure SetexcludedUserLists(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetexcludedVerticals(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetgeoCriteriaIds(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetisActive(AIndex : Integer; const AValue : boolean); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlanguages(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetmobileCarriers(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetmobileDevices(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetmobileOperatingSystemVersions(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setplacements(AIndex : Integer; const AValue : TPretargetingConfigTypeplacementsArray); virtual; Procedure Setplatforms(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetsupportedCreativeAttributes(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetuserLists(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetvendorTypes(AIndex : Integer; const AValue : TStringArray); virtual; Procedure Setverticals(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetvideoPlayerSizes(AIndex : Integer; const AValue : TPretargetingConfigTypevideoPlayerSizesArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property billingId : String Index 0 Read FbillingId Write SetbillingId; Property configId : String Index 8 Read FconfigId Write SetconfigId; Property configName : String Index 16 Read FconfigName Write SetconfigName; Property creativeType : TStringArray Index 24 Read FcreativeType Write SetcreativeType; Property dimensions : TPretargetingConfigTypedimensionsArray Index 32 Read Fdimensions Write Setdimensions; Property excludedContentLabels : TStringArray Index 40 Read FexcludedContentLabels Write SetexcludedContentLabels; Property excludedGeoCriteriaIds : TStringArray Index 48 Read FexcludedGeoCriteriaIds Write SetexcludedGeoCriteriaIds; Property excludedPlacements : TPretargetingConfigTypeexcludedPlacementsArray Index 56 Read FexcludedPlacements Write SetexcludedPlacements; Property excludedUserLists : TStringArray Index 64 Read FexcludedUserLists Write SetexcludedUserLists; Property excludedVerticals : TStringArray Index 72 Read FexcludedVerticals Write SetexcludedVerticals; Property geoCriteriaIds : TStringArray Index 80 Read FgeoCriteriaIds Write SetgeoCriteriaIds; Property isActive : boolean Index 88 Read FisActive Write SetisActive; Property kind : String Index 96 Read Fkind Write Setkind; Property languages : TStringArray Index 104 Read Flanguages Write Setlanguages; Property mobileCarriers : TStringArray Index 112 Read FmobileCarriers Write SetmobileCarriers; Property mobileDevices : TStringArray Index 120 Read FmobileDevices Write SetmobileDevices; Property mobileOperatingSystemVersions : TStringArray Index 128 Read FmobileOperatingSystemVersions Write SetmobileOperatingSystemVersions; Property placements : TPretargetingConfigTypeplacementsArray Index 136 Read Fplacements Write Setplacements; Property platforms : TStringArray Index 144 Read Fplatforms Write Setplatforms; Property supportedCreativeAttributes : TStringArray Index 152 Read FsupportedCreativeAttributes Write SetsupportedCreativeAttributes; Property userLists : TStringArray Index 160 Read FuserLists Write SetuserLists; Property vendorTypes : TStringArray Index 168 Read FvendorTypes Write SetvendorTypes; Property verticals : TStringArray Index 176 Read Fverticals Write Setverticals; Property videoPlayerSizes : TPretargetingConfigTypevideoPlayerSizesArray Index 184 Read FvideoPlayerSizes Write SetvideoPlayerSizes; end; TPretargetingConfigClass = Class of TPretargetingConfig; { -------------------------------------------------------------------- TPretargetingConfigList --------------------------------------------------------------------} TPretargetingConfigList = Class(TGoogleBaseObject) Private Fitems : TPretargetingConfigListTypeitemsArray; Fkind : String; Protected //Property setters Procedure Setitems(AIndex : Integer; const AValue : TPretargetingConfigListTypeitemsArray); virtual; Procedure Setkind(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 : TPretargetingConfigListTypeitemsArray Index 0 Read Fitems Write Setitems; Property kind : String Index 8 Read Fkind Write Setkind; end; TPretargetingConfigListClass = Class of TPretargetingConfigList; { -------------------------------------------------------------------- TPrice --------------------------------------------------------------------} TPrice = Class(TGoogleBaseObject) Private FamountMicros : double; FcurrencyCode : String; FpricingType : String; Protected //Property setters Procedure SetamountMicros(AIndex : Integer; const AValue : double); virtual; Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual; Procedure SetpricingType(AIndex : Integer; const AValue : String); virtual; Public Published Property amountMicros : double Index 0 Read FamountMicros Write SetamountMicros; Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode; Property pricingType : String Index 16 Read FpricingType Write SetpricingType; end; TPriceClass = Class of TPrice; { -------------------------------------------------------------------- TPricePerBuyer --------------------------------------------------------------------} TPricePerBuyer = Class(TGoogleBaseObject) Private FauctionTier : String; Fbuyer : TBuyer; Fprice : TPrice; Protected //Property setters Procedure SetauctionTier(AIndex : Integer; const AValue : String); virtual; Procedure Setbuyer(AIndex : Integer; const AValue : TBuyer); virtual; Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual; Public Published Property auctionTier : String Index 0 Read FauctionTier Write SetauctionTier; Property buyer : TBuyer Index 8 Read Fbuyer Write Setbuyer; Property price : TPrice Index 16 Read Fprice Write Setprice; end; TPricePerBuyerClass = Class of TPricePerBuyer; { -------------------------------------------------------------------- TPrivateData --------------------------------------------------------------------} TPrivateData = Class(TGoogleBaseObject) Private FreferenceId : String; FreferencePayload : String; Protected //Property setters Procedure SetreferenceId(AIndex : Integer; const AValue : String); virtual; Procedure SetreferencePayload(AIndex : Integer; const AValue : String); virtual; Public Published Property referenceId : String Index 0 Read FreferenceId Write SetreferenceId; Property referencePayload : String Index 8 Read FreferencePayload Write SetreferencePayload; end; TPrivateDataClass = Class of TPrivateData; { -------------------------------------------------------------------- TProduct --------------------------------------------------------------------} TProduct = Class(TGoogleBaseObject) Private FcreationTimeMs : String; FcreatorContacts : TProductTypecreatorContactsArray; FdeliveryControl : TDeliveryControl; FflightEndTimeMs : String; FflightStartTimeMs : String; FhasCreatorSignedOff : boolean; FinventorySource : String; Fkind : String; Flabels : TProductTypelabelsArray; FlastUpdateTimeMs : String; FlegacyOfferId : String; Fname : String; FprivateAuctionId : String; FproductId : String; FpublisherProfileId : String; FpublisherProvidedForecast : TPublisherProvidedForecast; FrevisionNumber : String; Fseller : TSeller; FsharedTargetings : TProductTypesharedTargetingsArray; Fstate : String; FsyndicationProduct : String; Fterms : TDealTerms; FwebPropertyCode : String; Protected //Property setters Procedure SetcreationTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetcreatorContacts(AIndex : Integer; const AValue : TProductTypecreatorContactsArray); virtual; Procedure SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl); virtual; Procedure SetflightEndTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetflightStartTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SethasCreatorSignedOff(AIndex : Integer; const AValue : boolean); virtual; Procedure SetinventorySource(AIndex : Integer; const AValue : String); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlabels(AIndex : Integer; const AValue : TProductTypelabelsArray); virtual; Procedure SetlastUpdateTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure SetlegacyOfferId(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetprivateAuctionId(AIndex : Integer; const AValue : String); virtual; Procedure SetproductId(AIndex : Integer; const AValue : String); virtual; Procedure SetpublisherProfileId(AIndex : Integer; const AValue : String); virtual; Procedure SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast); virtual; Procedure SetrevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual; Procedure SetsharedTargetings(AIndex : Integer; const AValue : TProductTypesharedTargetingsArray); virtual; Procedure Setstate(AIndex : Integer; const AValue : String); virtual; Procedure SetsyndicationProduct(AIndex : Integer; const AValue : String); virtual; Procedure Setterms(AIndex : Integer; const AValue : TDealTerms); virtual; Procedure SetwebPropertyCode(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 creationTimeMs : String Index 0 Read FcreationTimeMs Write SetcreationTimeMs; Property creatorContacts : TProductTypecreatorContactsArray Index 8 Read FcreatorContacts Write SetcreatorContacts; Property deliveryControl : TDeliveryControl Index 16 Read FdeliveryControl Write SetdeliveryControl; Property flightEndTimeMs : String Index 24 Read FflightEndTimeMs Write SetflightEndTimeMs; Property flightStartTimeMs : String Index 32 Read FflightStartTimeMs Write SetflightStartTimeMs; Property hasCreatorSignedOff : boolean Index 40 Read FhasCreatorSignedOff Write SethasCreatorSignedOff; Property inventorySource : String Index 48 Read FinventorySource Write SetinventorySource; Property kind : String Index 56 Read Fkind Write Setkind; Property labels : TProductTypelabelsArray Index 64 Read Flabels Write Setlabels; Property lastUpdateTimeMs : String Index 72 Read FlastUpdateTimeMs Write SetlastUpdateTimeMs; Property legacyOfferId : String Index 80 Read FlegacyOfferId Write SetlegacyOfferId; Property name : String Index 88 Read Fname Write Setname; Property privateAuctionId : String Index 96 Read FprivateAuctionId Write SetprivateAuctionId; Property productId : String Index 104 Read FproductId Write SetproductId; Property publisherProfileId : String Index 112 Read FpublisherProfileId Write SetpublisherProfileId; Property publisherProvidedForecast : TPublisherProvidedForecast Index 120 Read FpublisherProvidedForecast Write SetpublisherProvidedForecast; Property revisionNumber : String Index 128 Read FrevisionNumber Write SetrevisionNumber; Property seller : TSeller Index 136 Read Fseller Write Setseller; Property sharedTargetings : TProductTypesharedTargetingsArray Index 144 Read FsharedTargetings Write SetsharedTargetings; Property state : String Index 152 Read Fstate Write Setstate; Property syndicationProduct : String Index 160 Read FsyndicationProduct Write SetsyndicationProduct; Property terms : TDealTerms Index 168 Read Fterms Write Setterms; Property webPropertyCode : String Index 176 Read FwebPropertyCode Write SetwebPropertyCode; end; TProductClass = Class of TProduct; { -------------------------------------------------------------------- TProposal --------------------------------------------------------------------} TProposal = Class(TGoogleBaseObject) Private FbilledBuyer : TBuyer; Fbuyer : TBuyer; FbuyerContacts : TProposalTypebuyerContactsArray; FbuyerPrivateData : TPrivateData; FhasBuyerSignedOff : boolean; FhasSellerSignedOff : boolean; FinventorySource : String; FisRenegotiating : boolean; FisSetupComplete : boolean; Fkind : String; Flabels : TProposalTypelabelsArray; FlastUpdaterOrCommentorRole : String; Fname : String; FnegotiationId : String; ForiginatorRole : String; FprivateAuctionId : String; FproposalId : String; FproposalState : String; FrevisionNumber : String; FrevisionTimeMs : String; Fseller : TSeller; FsellerContacts : TProposalTypesellerContactsArray; Protected //Property setters Procedure SetbilledBuyer(AIndex : Integer; const AValue : TBuyer); virtual; Procedure Setbuyer(AIndex : Integer; const AValue : TBuyer); virtual; Procedure SetbuyerContacts(AIndex : Integer; const AValue : TProposalTypebuyerContactsArray); virtual; Procedure SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData); virtual; Procedure SethasBuyerSignedOff(AIndex : Integer; const AValue : boolean); virtual; Procedure SethasSellerSignedOff(AIndex : Integer; const AValue : boolean); virtual; Procedure SetinventorySource(AIndex : Integer; const AValue : String); virtual; Procedure SetisRenegotiating(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisSetupComplete(AIndex : Integer; const AValue : boolean); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure Setlabels(AIndex : Integer; const AValue : TProposalTypelabelsArray); virtual; Procedure SetlastUpdaterOrCommentorRole(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure SetnegotiationId(AIndex : Integer; const AValue : String); virtual; Procedure SetoriginatorRole(AIndex : Integer; const AValue : String); virtual; Procedure SetprivateAuctionId(AIndex : Integer; const AValue : String); virtual; Procedure SetproposalId(AIndex : Integer; const AValue : String); virtual; Procedure SetproposalState(AIndex : Integer; const AValue : String); virtual; Procedure SetrevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure SetrevisionTimeMs(AIndex : Integer; const AValue : String); virtual; Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual; Procedure SetsellerContacts(AIndex : Integer; const AValue : TProposalTypesellerContactsArray); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property billedBuyer : TBuyer Index 0 Read FbilledBuyer Write SetbilledBuyer; Property buyer : TBuyer Index 8 Read Fbuyer Write Setbuyer; Property buyerContacts : TProposalTypebuyerContactsArray Index 16 Read FbuyerContacts Write SetbuyerContacts; Property buyerPrivateData : TPrivateData Index 24 Read FbuyerPrivateData Write SetbuyerPrivateData; Property hasBuyerSignedOff : boolean Index 32 Read FhasBuyerSignedOff Write SethasBuyerSignedOff; Property hasSellerSignedOff : boolean Index 40 Read FhasSellerSignedOff Write SethasSellerSignedOff; Property inventorySource : String Index 48 Read FinventorySource Write SetinventorySource; Property isRenegotiating : boolean Index 56 Read FisRenegotiating Write SetisRenegotiating; Property isSetupComplete : boolean Index 64 Read FisSetupComplete Write SetisSetupComplete; Property kind : String Index 72 Read Fkind Write Setkind; Property labels : TProposalTypelabelsArray Index 80 Read Flabels Write Setlabels; Property lastUpdaterOrCommentorRole : String Index 88 Read FlastUpdaterOrCommentorRole Write SetlastUpdaterOrCommentorRole; Property name : String Index 96 Read Fname Write Setname; Property negotiationId : String Index 104 Read FnegotiationId Write SetnegotiationId; Property originatorRole : String Index 112 Read ForiginatorRole Write SetoriginatorRole; Property privateAuctionId : String Index 120 Read FprivateAuctionId Write SetprivateAuctionId; Property proposalId : String Index 128 Read FproposalId Write SetproposalId; Property proposalState : String Index 136 Read FproposalState Write SetproposalState; Property revisionNumber : String Index 144 Read FrevisionNumber Write SetrevisionNumber; Property revisionTimeMs : String Index 152 Read FrevisionTimeMs Write SetrevisionTimeMs; Property seller : TSeller Index 160 Read Fseller Write Setseller; Property sellerContacts : TProposalTypesellerContactsArray Index 168 Read FsellerContacts Write SetsellerContacts; end; TProposalClass = Class of TProposal; { -------------------------------------------------------------------- TPublisherProfileApiProto --------------------------------------------------------------------} TPublisherProfileApiProto = Class(TGoogleBaseObject) Private FaccountId : String; Faudience : String; FbuyerPitchStatement : String; FdirectContact : String; Fexchange : String; FgooglePlusLink : String; FisParent : boolean; FisPublished : boolean; Fkind : String; FlogoUrl : String; FmediaKitLink : String; Fname : String; Foverview : String; FprofileId : integer; FprogrammaticContact : String; FpublisherDomains : TStringArray; FpublisherProfileId : String; FpublisherProvidedForecast : TPublisherProvidedForecast; FrateCardInfoLink : String; FsamplePageLink : String; Fseller : TSeller; Fstate : String; FtopHeadlines : TStringArray; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure Setaudience(AIndex : Integer; const AValue : String); virtual; Procedure SetbuyerPitchStatement(AIndex : Integer; const AValue : String); virtual; Procedure SetdirectContact(AIndex : Integer; const AValue : String); virtual; Procedure Setexchange(AIndex : Integer; const AValue : String); virtual; Procedure SetgooglePlusLink(AIndex : Integer; const AValue : String); virtual; Procedure SetisParent(AIndex : Integer; const AValue : boolean); virtual; Procedure SetisPublished(AIndex : Integer; const AValue : boolean); virtual; Procedure Setkind(AIndex : Integer; const AValue : String); virtual; Procedure SetlogoUrl(AIndex : Integer; const AValue : String); virtual; Procedure SetmediaKitLink(AIndex : Integer; const AValue : String); virtual; Procedure Setname(AIndex : Integer; const AValue : String); virtual; Procedure Setoverview(AIndex : Integer; const AValue : String); virtual; Procedure SetprofileId(AIndex : Integer; const AValue : integer); virtual; Procedure SetprogrammaticContact(AIndex : Integer; const AValue : String); virtual; Procedure SetpublisherDomains(AIndex : Integer; const AValue : TStringArray); virtual; Procedure SetpublisherProfileId(AIndex : Integer; const AValue : String); virtual; Procedure SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast); virtual; Procedure SetrateCardInfoLink(AIndex : Integer; const AValue : String); virtual; Procedure SetsamplePageLink(AIndex : Integer; const AValue : String); virtual; Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual; Procedure Setstate(AIndex : Integer; const AValue : String); virtual; Procedure SettopHeadlines(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 accountId : String Index 0 Read FaccountId Write SetaccountId; Property audience : String Index 8 Read Faudience Write Setaudience; Property buyerPitchStatement : String Index 16 Read FbuyerPitchStatement Write SetbuyerPitchStatement; Property directContact : String Index 24 Read FdirectContact Write SetdirectContact; Property exchange : String Index 32 Read Fexchange Write Setexchange; Property googlePlusLink : String Index 40 Read FgooglePlusLink Write SetgooglePlusLink; Property isParent : boolean Index 48 Read FisParent Write SetisParent; Property isPublished : boolean Index 56 Read FisPublished Write SetisPublished; Property kind : String Index 64 Read Fkind Write Setkind; Property logoUrl : String Index 72 Read FlogoUrl Write SetlogoUrl; Property mediaKitLink : String Index 80 Read FmediaKitLink Write SetmediaKitLink; Property name : String Index 88 Read Fname Write Setname; Property overview : String Index 96 Read Foverview Write Setoverview; Property profileId : integer Index 104 Read FprofileId Write SetprofileId; Property programmaticContact : String Index 112 Read FprogrammaticContact Write SetprogrammaticContact; Property publisherDomains : TStringArray Index 120 Read FpublisherDomains Write SetpublisherDomains; Property publisherProfileId : String Index 128 Read FpublisherProfileId Write SetpublisherProfileId; Property publisherProvidedForecast : TPublisherProvidedForecast Index 136 Read FpublisherProvidedForecast Write SetpublisherProvidedForecast; Property rateCardInfoLink : String Index 144 Read FrateCardInfoLink Write SetrateCardInfoLink; Property samplePageLink : String Index 152 Read FsamplePageLink Write SetsamplePageLink; Property seller : TSeller Index 160 Read Fseller Write Setseller; Property state : String Index 168 Read Fstate Write Setstate; Property topHeadlines : TStringArray Index 176 Read FtopHeadlines Write SettopHeadlines; end; TPublisherProfileApiProtoClass = Class of TPublisherProfileApiProto; { -------------------------------------------------------------------- TPublisherProvidedForecast --------------------------------------------------------------------} TPublisherProvidedForecast = Class(TGoogleBaseObject) Private Fdimensions : TPublisherProvidedForecastTypedimensionsArray; FweeklyImpressions : String; FweeklyUniques : String; Protected //Property setters Procedure Setdimensions(AIndex : Integer; const AValue : TPublisherProvidedForecastTypedimensionsArray); virtual; Procedure SetweeklyImpressions(AIndex : Integer; const AValue : String); virtual; Procedure SetweeklyUniques(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 dimensions : TPublisherProvidedForecastTypedimensionsArray Index 0 Read Fdimensions Write Setdimensions; Property weeklyImpressions : String Index 8 Read FweeklyImpressions Write SetweeklyImpressions; Property weeklyUniques : String Index 16 Read FweeklyUniques Write SetweeklyUniques; end; TPublisherProvidedForecastClass = Class of TPublisherProvidedForecast; { -------------------------------------------------------------------- TSeller --------------------------------------------------------------------} TSeller = Class(TGoogleBaseObject) Private FaccountId : String; FsubAccountId : String; Protected //Property setters Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual; Procedure SetsubAccountId(AIndex : Integer; const AValue : String); virtual; Public Published Property accountId : String Index 0 Read FaccountId Write SetaccountId; Property subAccountId : String Index 8 Read FsubAccountId Write SetsubAccountId; end; TSellerClass = Class of TSeller; { -------------------------------------------------------------------- TSharedTargeting --------------------------------------------------------------------} TSharedTargeting = Class(TGoogleBaseObject) Private Fexclusions : TSharedTargetingTypeexclusionsArray; Finclusions : TSharedTargetingTypeinclusionsArray; Fkey : String; Protected //Property setters Procedure Setexclusions(AIndex : Integer; const AValue : TSharedTargetingTypeexclusionsArray); virtual; Procedure Setinclusions(AIndex : Integer; const AValue : TSharedTargetingTypeinclusionsArray); virtual; Procedure Setkey(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 exclusions : TSharedTargetingTypeexclusionsArray Index 0 Read Fexclusions Write Setexclusions; Property inclusions : TSharedTargetingTypeinclusionsArray Index 8 Read Finclusions Write Setinclusions; Property key : String Index 16 Read Fkey Write Setkey; end; TSharedTargetingClass = Class of TSharedTargeting; { -------------------------------------------------------------------- TTargetingValue --------------------------------------------------------------------} TTargetingValue = Class(TGoogleBaseObject) Private FcreativeSizeValue : TTargetingValueCreativeSize; FdayPartTargetingValue : TTargetingValueDayPartTargeting; FlongValue : String; FstringValue : String; Protected //Property setters Procedure SetcreativeSizeValue(AIndex : Integer; const AValue : TTargetingValueCreativeSize); virtual; Procedure SetdayPartTargetingValue(AIndex : Integer; const AValue : TTargetingValueDayPartTargeting); virtual; Procedure SetlongValue(AIndex : Integer; const AValue : String); virtual; Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual; Public Published Property creativeSizeValue : TTargetingValueCreativeSize Index 0 Read FcreativeSizeValue Write SetcreativeSizeValue; Property dayPartTargetingValue : TTargetingValueDayPartTargeting Index 8 Read FdayPartTargetingValue Write SetdayPartTargetingValue; Property longValue : String Index 16 Read FlongValue Write SetlongValue; Property stringValue : String Index 24 Read FstringValue Write SetstringValue; end; TTargetingValueClass = Class of TTargetingValue; { -------------------------------------------------------------------- TTargetingValueCreativeSize --------------------------------------------------------------------} TTargetingValueCreativeSize = Class(TGoogleBaseObject) Private FcompanionSizes : TTargetingValueCreativeSizeTypecompanionSizesArray; FcreativeSizeType : String; Fsize : TTargetingValueSize; Protected //Property setters Procedure SetcompanionSizes(AIndex : Integer; const AValue : TTargetingValueCreativeSizeTypecompanionSizesArray); virtual; Procedure SetcreativeSizeType(AIndex : Integer; const AValue : String); virtual; Procedure Setsize(AIndex : Integer; const AValue : TTargetingValueSize); virtual; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure SetArrayLength(Const AName : String; ALength : Longint); override; {$ENDIF VER2_6} Public Published Property companionSizes : TTargetingValueCreativeSizeTypecompanionSizesArray Index 0 Read FcompanionSizes Write SetcompanionSizes; Property creativeSizeType : String Index 8 Read FcreativeSizeType Write SetcreativeSizeType; Property size : TTargetingValueSize Index 16 Read Fsize Write Setsize; end; TTargetingValueCreativeSizeClass = Class of TTargetingValueCreativeSize; { -------------------------------------------------------------------- TTargetingValueDayPartTargeting --------------------------------------------------------------------} TTargetingValueDayPartTargeting = Class(TGoogleBaseObject) Private FdayParts : TTargetingValueDayPartTargetingTypedayPartsArray; FtimeZoneType : String; Protected //Property setters Procedure SetdayParts(AIndex : Integer; const AValue : TTargetingValueDayPartTargetingTypedayPartsArray); virtual; Procedure SettimeZoneType(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 dayParts : TTargetingValueDayPartTargetingTypedayPartsArray Index 0 Read FdayParts Write SetdayParts; Property timeZoneType : String Index 8 Read FtimeZoneType Write SettimeZoneType; end; TTargetingValueDayPartTargetingClass = Class of TTargetingValueDayPartTargeting; { -------------------------------------------------------------------- TTargetingValueDayPartTargetingDayPart --------------------------------------------------------------------} TTargetingValueDayPartTargetingDayPart = Class(TGoogleBaseObject) Private FdayOfWeek : String; FendHour : integer; FendMinute : integer; FstartHour : integer; FstartMinute : integer; Protected //Property setters Procedure SetdayOfWeek(AIndex : Integer; const AValue : String); virtual; Procedure SetendHour(AIndex : Integer; const AValue : integer); virtual; Procedure SetendMinute(AIndex : Integer; const AValue : integer); virtual; Procedure SetstartHour(AIndex : Integer; const AValue : integer); virtual; Procedure SetstartMinute(AIndex : Integer; const AValue : integer); virtual; Public Published Property dayOfWeek : String Index 0 Read FdayOfWeek Write SetdayOfWeek; Property endHour : integer Index 8 Read FendHour Write SetendHour; Property endMinute : integer Index 16 Read FendMinute Write SetendMinute; Property startHour : integer Index 24 Read FstartHour Write SetstartHour; Property startMinute : integer Index 32 Read FstartMinute Write SetstartMinute; end; TTargetingValueDayPartTargetingDayPartClass = Class of TTargetingValueDayPartTargetingDayPart; { -------------------------------------------------------------------- TTargetingValueSize --------------------------------------------------------------------} TTargetingValueSize = Class(TGoogleBaseObject) Private Fheight : integer; Fwidth : integer; Protected //Property setters Procedure Setheight(AIndex : Integer; const AValue : integer); virtual; Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual; Public Published Property height : integer Index 0 Read Fheight Write Setheight; Property width : integer Index 8 Read Fwidth Write Setwidth; end; TTargetingValueSizeClass = Class of TTargetingValueSize; { -------------------------------------------------------------------- TUpdatePrivateAuctionProposalRequest --------------------------------------------------------------------} TUpdatePrivateAuctionProposalRequest = Class(TGoogleBaseObject) Private FexternalDealId : String; Fnote : TMarketplaceNote; FproposalRevisionNumber : String; FupdateAction : String; Protected //Property setters Procedure SetexternalDealId(AIndex : Integer; const AValue : String); virtual; Procedure Setnote(AIndex : Integer; const AValue : TMarketplaceNote); virtual; Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual; Procedure SetupdateAction(AIndex : Integer; const AValue : String); virtual; Public Published Property externalDealId : String Index 0 Read FexternalDealId Write SetexternalDealId; Property note : TMarketplaceNote Index 8 Read Fnote Write Setnote; Property proposalRevisionNumber : String Index 16 Read FproposalRevisionNumber Write SetproposalRevisionNumber; Property updateAction : String Index 24 Read FupdateAction Write SetupdateAction; end; TUpdatePrivateAuctionProposalRequestClass = Class of TUpdatePrivateAuctionProposalRequest; { -------------------------------------------------------------------- TAccountsResource --------------------------------------------------------------------} TAccountsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(id: integer) : TAccount; Function List : TAccountsList; Function Patch(id: integer; aAccount : TAccount) : TAccount; Function Update(id: integer; aAccount : TAccount) : TAccount; end; { -------------------------------------------------------------------- TBillingInfoResource --------------------------------------------------------------------} TBillingInfoResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(accountId: integer) : TBillingInfo; Function List : TBillingInfoList; end; { -------------------------------------------------------------------- TBudgetResource --------------------------------------------------------------------} TBudgetResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(accountId: string; billingId: string) : TBudget; Function Patch(accountId: string; billingId: string; aBudget : TBudget) : TBudget; Function Update(accountId: string; billingId: string; aBudget : TBudget) : TBudget; end; { -------------------------------------------------------------------- TCreativesResource --------------------------------------------------------------------} //Optional query Options for TCreativesResource, method List TCreativesListOptions = Record accountId : integer; buyerCreativeId : String; dealsStatusFilter : String; maxResults : integer; openAuctionStatusFilter : String; pageToken : String; end; TCreativesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure AddDeal(accountId: integer; buyerCreativeId: string; dealId: string); Function Get(accountId: integer; buyerCreativeId: string) : TCreative; Function Insert(aCreative : TCreative) : TCreative; Function List(AQuery : string = '') : TCreativesList; Function List(AQuery : TCreativeslistOptions) : TCreativesList; Procedure RemoveDeal(accountId: integer; buyerCreativeId: string; dealId: string); end; { -------------------------------------------------------------------- TMarketplacedealsResource --------------------------------------------------------------------} //Optional query Options for TMarketplacedealsResource, method List TMarketplacedealsListOptions = Record pqlQuery : String; end; TMarketplacedealsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Delete(proposalId: string; aDeleteOrderDealsRequest : TDeleteOrderDealsRequest) : TDeleteOrderDealsResponse; Function Insert(proposalId: string; aAddOrderDealsRequest : TAddOrderDealsRequest) : TAddOrderDealsResponse; Function List(proposalId: string; AQuery : string = '') : TGetOrderDealsResponse; Function List(proposalId: string; AQuery : TMarketplacedealslistOptions) : TGetOrderDealsResponse; Function Update(proposalId: string; aEditAllOrderDealsRequest : TEditAllOrderDealsRequest) : TEditAllOrderDealsResponse; end; { -------------------------------------------------------------------- TMarketplacenotesResource --------------------------------------------------------------------} TMarketplacenotesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Insert(proposalId: string; aAddOrderNotesRequest : TAddOrderNotesRequest) : TAddOrderNotesResponse; Function List(proposalId: string) : TGetOrderNotesResponse; end; { -------------------------------------------------------------------- TMarketplaceprivateauctionResource --------------------------------------------------------------------} TMarketplaceprivateauctionResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Updateproposal(privateAuctionId: string; aUpdatePrivateAuctionProposalRequest : TUpdatePrivateAuctionProposalRequest); end; { -------------------------------------------------------------------- TPerformanceReportResource --------------------------------------------------------------------} //Optional query Options for TPerformanceReportResource, method List TPerformanceReportListOptions = Record accountId : int64; endDateTime : String; maxResults : integer; pageToken : String; startDateTime : String; end; TPerformanceReportResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(AQuery : string = '') : TPerformanceReportList; Function List(AQuery : TPerformanceReportlistOptions) : TPerformanceReportList; end; { -------------------------------------------------------------------- TPretargetingConfigResource --------------------------------------------------------------------} TPretargetingConfigResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Procedure Delete(accountId: string; configId: string); Function Get(accountId: string; configId: string) : TPretargetingConfig; Function Insert(accountId: string; aPretargetingConfig : TPretargetingConfig) : TPretargetingConfig; Function List(accountId: string) : TPretargetingConfigList; Function Patch(accountId: string; configId: string; aPretargetingConfig : TPretargetingConfig) : TPretargetingConfig; Function Update(accountId: string; configId: string; aPretargetingConfig : TPretargetingConfig) : TPretargetingConfig; end; { -------------------------------------------------------------------- TProductsResource --------------------------------------------------------------------} //Optional query Options for TProductsResource, method Search TProductsSearchOptions = Record pqlQuery : String; end; TProductsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(productId: string) : TProduct; Function Search(AQuery : string = '') : TGetOffersResponse; Function Search(AQuery : TProductssearchOptions) : TGetOffersResponse; end; { -------------------------------------------------------------------- TProposalsResource --------------------------------------------------------------------} //Optional query Options for TProposalsResource, method Search TProposalsSearchOptions = Record pqlQuery : String; end; TProposalsResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function Get(proposalId: string) : TProposal; Function Insert(aCreateOrdersRequest : TCreateOrdersRequest) : TCreateOrdersResponse; Function Patch(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal; Function Search(AQuery : string = '') : TGetOrdersResponse; Function Search(AQuery : TProposalssearchOptions) : TGetOrdersResponse; Procedure Setupcomplete(proposalId: string); Function Update(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal; end; { -------------------------------------------------------------------- TPubprofilesResource --------------------------------------------------------------------} TPubprofilesResource = Class(TGoogleResource) Public Class Function ResourceName : String; override; Class Function DefaultAPI : TGoogleAPIClass; override; Function List(accountId: integer) : TGetPublisherProfilesByAccountIdResponse; end; { -------------------------------------------------------------------- TAdexchangebuyerAPI --------------------------------------------------------------------} TAdexchangebuyerAPI = Class(TGoogleAPI) Private FAccountsInstance : TAccountsResource; FBillingInfoInstance : TBillingInfoResource; FBudgetInstance : TBudgetResource; FCreativesInstance : TCreativesResource; FMarketplacedealsInstance : TMarketplacedealsResource; FMarketplacenotesInstance : TMarketplacenotesResource; FMarketplaceprivateauctionInstance : TMarketplaceprivateauctionResource; FPerformanceReportInstance : TPerformanceReportResource; FPretargetingConfigInstance : TPretargetingConfigResource; FProductsInstance : TProductsResource; FProposalsInstance : TProposalsResource; FPubprofilesInstance : TPubprofilesResource; Function GetAccountsInstance : TAccountsResource;virtual; Function GetBillingInfoInstance : TBillingInfoResource;virtual; Function GetBudgetInstance : TBudgetResource;virtual; Function GetCreativesInstance : TCreativesResource;virtual; Function GetMarketplacedealsInstance : TMarketplacedealsResource;virtual; Function GetMarketplacenotesInstance : TMarketplacenotesResource;virtual; Function GetMarketplaceprivateauctionInstance : TMarketplaceprivateauctionResource;virtual; Function GetPerformanceReportInstance : TPerformanceReportResource;virtual; Function GetPretargetingConfigInstance : TPretargetingConfigResource;virtual; Function GetProductsInstance : TProductsResource;virtual; Function GetProposalsInstance : TProposalsResource;virtual; Function GetPubprofilesInstance : TPubprofilesResource;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 CreateAccountsResource(AOwner : TComponent) : TAccountsResource;virtual;overload; Function CreateAccountsResource : TAccountsResource;virtual;overload; Function CreateBillingInfoResource(AOwner : TComponent) : TBillingInfoResource;virtual;overload; Function CreateBillingInfoResource : TBillingInfoResource;virtual;overload; Function CreateBudgetResource(AOwner : TComponent) : TBudgetResource;virtual;overload; Function CreateBudgetResource : TBudgetResource;virtual;overload; Function CreateCreativesResource(AOwner : TComponent) : TCreativesResource;virtual;overload; Function CreateCreativesResource : TCreativesResource;virtual;overload; Function CreateMarketplacedealsResource(AOwner : TComponent) : TMarketplacedealsResource;virtual;overload; Function CreateMarketplacedealsResource : TMarketplacedealsResource;virtual;overload; Function CreateMarketplacenotesResource(AOwner : TComponent) : TMarketplacenotesResource;virtual;overload; Function CreateMarketplacenotesResource : TMarketplacenotesResource;virtual;overload; Function CreateMarketplaceprivateauctionResource(AOwner : TComponent) : TMarketplaceprivateauctionResource;virtual;overload; Function CreateMarketplaceprivateauctionResource : TMarketplaceprivateauctionResource;virtual;overload; Function CreatePerformanceReportResource(AOwner : TComponent) : TPerformanceReportResource;virtual;overload; Function CreatePerformanceReportResource : TPerformanceReportResource;virtual;overload; Function CreatePretargetingConfigResource(AOwner : TComponent) : TPretargetingConfigResource;virtual;overload; Function CreatePretargetingConfigResource : TPretargetingConfigResource;virtual;overload; Function CreateProductsResource(AOwner : TComponent) : TProductsResource;virtual;overload; Function CreateProductsResource : TProductsResource;virtual;overload; Function CreateProposalsResource(AOwner : TComponent) : TProposalsResource;virtual;overload; Function CreateProposalsResource : TProposalsResource;virtual;overload; Function CreatePubprofilesResource(AOwner : TComponent) : TPubprofilesResource;virtual;overload; Function CreatePubprofilesResource : TPubprofilesResource;virtual;overload; //Add default on-demand instances for resources Property AccountsResource : TAccountsResource Read GetAccountsInstance; Property BillingInfoResource : TBillingInfoResource Read GetBillingInfoInstance; Property BudgetResource : TBudgetResource Read GetBudgetInstance; Property CreativesResource : TCreativesResource Read GetCreativesInstance; Property MarketplacedealsResource : TMarketplacedealsResource Read GetMarketplacedealsInstance; Property MarketplacenotesResource : TMarketplacenotesResource Read GetMarketplacenotesInstance; Property MarketplaceprivateauctionResource : TMarketplaceprivateauctionResource Read GetMarketplaceprivateauctionInstance; Property PerformanceReportResource : TPerformanceReportResource Read GetPerformanceReportInstance; Property PretargetingConfigResource : TPretargetingConfigResource Read GetPretargetingConfigInstance; Property ProductsResource : TProductsResource Read GetProductsInstance; Property ProposalsResource : TProposalsResource Read GetProposalsInstance; Property PubprofilesResource : TPubprofilesResource Read GetPubprofilesInstance; end; implementation { -------------------------------------------------------------------- TAccountTypebidderLocationItem --------------------------------------------------------------------} Procedure TAccountTypebidderLocationItem.SetbidProtocol(AIndex : Integer; const AValue : String); begin If (FbidProtocol=AValue) then exit; FbidProtocol:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTypebidderLocationItem.SetmaximumQps(AIndex : Integer; const AValue : integer); begin If (FmaximumQps=AValue) then exit; FmaximumQps:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTypebidderLocationItem.Setregion(AIndex : Integer; const AValue : String); begin If (Fregion=AValue) then exit; Fregion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountTypebidderLocationItem.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccount --------------------------------------------------------------------} Procedure TAccount.SetbidderLocation(AIndex : Integer; const AValue : TAccountTypebidderLocationArray); begin If (FbidderLocation=AValue) then exit; FbidderLocation:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetcookieMatchingNid(AIndex : Integer; const AValue : String); begin If (FcookieMatchingNid=AValue) then exit; FcookieMatchingNid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetcookieMatchingUrl(AIndex : Integer; const AValue : String); begin If (FcookieMatchingUrl=AValue) then exit; FcookieMatchingUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.Setid(AIndex : Integer; const AValue : integer); 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.SetmaximumActiveCreatives(AIndex : Integer; const AValue : integer); begin If (FmaximumActiveCreatives=AValue) then exit; FmaximumActiveCreatives:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetmaximumTotalQps(AIndex : Integer; const AValue : integer); begin If (FmaximumTotalQps=AValue) then exit; FmaximumTotalQps:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccount.SetnumberActiveCreatives(AIndex : Integer; const AValue : integer); begin If (FnumberActiveCreatives=AValue) then exit; FnumberActiveCreatives:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccount.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'bidderlocation' : SetLength(FbidderLocation,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAccountsList --------------------------------------------------------------------} Procedure TAccountsList.Setitems(AIndex : Integer; const AValue : TAccountsListTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAccountsList.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAccountsList.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAddOrderDealsRequest --------------------------------------------------------------------} Procedure TAddOrderDealsRequest.Setdeals(AIndex : Integer; const AValue : TAddOrderDealsRequestTypedealsArray); begin If (Fdeals=AValue) then exit; Fdeals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAddOrderDealsRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproposalRevisionNumber=AValue) then exit; FproposalRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAddOrderDealsRequest.SetupdateAction(AIndex : Integer; const AValue : String); begin If (FupdateAction=AValue) then exit; FupdateAction:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAddOrderDealsRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'deals' : SetLength(Fdeals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAddOrderDealsResponse --------------------------------------------------------------------} Procedure TAddOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TAddOrderDealsResponseTypedealsArray); begin If (Fdeals=AValue) then exit; Fdeals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TAddOrderDealsResponse.SetproposalRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproposalRevisionNumber=AValue) then exit; FproposalRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAddOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'deals' : SetLength(Fdeals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAddOrderNotesRequest --------------------------------------------------------------------} Procedure TAddOrderNotesRequest.Setnotes(AIndex : Integer; const AValue : TAddOrderNotesRequestTypenotesArray); begin If (Fnotes=AValue) then exit; Fnotes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAddOrderNotesRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'notes' : SetLength(Fnotes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TAddOrderNotesResponse --------------------------------------------------------------------} Procedure TAddOrderNotesResponse.Setnotes(AIndex : Integer; const AValue : TAddOrderNotesResponseTypenotesArray); begin If (Fnotes=AValue) then exit; Fnotes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TAddOrderNotesResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'notes' : SetLength(Fnotes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TBillingInfo --------------------------------------------------------------------} Procedure TBillingInfo.SetaccountId(AIndex : Integer; const AValue : integer); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBillingInfo.SetaccountName(AIndex : Integer; const AValue : String); begin If (FaccountName=AValue) then exit; FaccountName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBillingInfo.SetbillingId(AIndex : Integer; const AValue : TStringArray); begin If (FbillingId=AValue) then exit; FbillingId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBillingInfo.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TBillingInfo.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'billingid' : SetLength(FbillingId,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TBillingInfoList --------------------------------------------------------------------} Procedure TBillingInfoList.Setitems(AIndex : Integer; const AValue : TBillingInfoListTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBillingInfoList.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TBillingInfoList.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TBudget --------------------------------------------------------------------} Procedure TBudget.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBudget.SetbillingId(AIndex : Integer; const AValue : String); begin If (FbillingId=AValue) then exit; FbillingId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBudget.SetbudgetAmount(AIndex : Integer; const AValue : String); begin If (FbudgetAmount=AValue) then exit; FbudgetAmount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBudget.SetcurrencyCode(AIndex : Integer; const AValue : String); begin If (FcurrencyCode=AValue) then exit; FcurrencyCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBudget.Setid(AIndex : Integer; const AValue : String); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TBudget.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TBuyer --------------------------------------------------------------------} Procedure TBuyer.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TContactInformation --------------------------------------------------------------------} Procedure TContactInformation.Setemail(AIndex : Integer; const AValue : String); begin If (Femail=AValue) then exit; Femail:=AValue; MarkPropertyChanged(AIndex); end; Procedure TContactInformation.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCreateOrdersRequest --------------------------------------------------------------------} Procedure TCreateOrdersRequest.Setproposals(AIndex : Integer; const AValue : TCreateOrdersRequestTypeproposalsArray); begin If (Fproposals=AValue) then exit; Fproposals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreateOrdersRequest.SetwebPropertyCode(AIndex : Integer; const AValue : String); begin If (FwebPropertyCode=AValue) then exit; FwebPropertyCode:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreateOrdersRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'proposals' : SetLength(Fproposals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreateOrdersResponse --------------------------------------------------------------------} Procedure TCreateOrdersResponse.Setproposals(AIndex : Integer; const AValue : TCreateOrdersResponseTypeproposalsArray); begin If (Fproposals=AValue) then exit; Fproposals:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreateOrdersResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'proposals' : SetLength(Fproposals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreativeTypecorrectionsItem --------------------------------------------------------------------} Procedure TCreativeTypecorrectionsItem.Setdetails(AIndex : Integer; const AValue : TStringArray); begin If (Fdetails=AValue) then exit; Fdetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypecorrectionsItem.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreativeTypecorrectionsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'details' : SetLength(Fdetails,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreativeTypefilteringReasonsTypereasonsItem --------------------------------------------------------------------} Procedure TCreativeTypefilteringReasonsTypereasonsItem.SetfilteringCount(AIndex : Integer; const AValue : String); begin If (FfilteringCount=AValue) then exit; FfilteringCount:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypefilteringReasonsTypereasonsItem.SetfilteringStatus(AIndex : Integer; const AValue : integer); begin If (FfilteringStatus=AValue) then exit; FfilteringStatus:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCreativeTypefilteringReasons --------------------------------------------------------------------} Procedure TCreativeTypefilteringReasons.Setdate(AIndex : Integer; const AValue : String); begin If (Fdate=AValue) then exit; Fdate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypefilteringReasons.Setreasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasonsTypereasonsArray); begin If (Freasons=AValue) then exit; Freasons:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreativeTypefilteringReasons.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'reasons' : SetLength(Freasons,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreativeTypenativeAdTypeappIcon --------------------------------------------------------------------} Procedure TCreativeTypenativeAdTypeappIcon.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; Fheight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAdTypeappIcon.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAdTypeappIcon.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; Fwidth:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCreativeTypenativeAdTypeimage --------------------------------------------------------------------} Procedure TCreativeTypenativeAdTypeimage.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; Fheight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAdTypeimage.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAdTypeimage.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; Fwidth:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCreativeTypenativeAdTypelogo --------------------------------------------------------------------} Procedure TCreativeTypenativeAdTypelogo.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; Fheight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAdTypelogo.Seturl(AIndex : Integer; const AValue : String); begin If (Furl=AValue) then exit; Furl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAdTypelogo.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; Fwidth:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TCreativeTypenativeAd --------------------------------------------------------------------} Procedure TCreativeTypenativeAd.Setadvertiser(AIndex : Integer; const AValue : String); begin If (Fadvertiser=AValue) then exit; Fadvertiser:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.SetappIcon(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeappIcon); begin If (FappIcon=AValue) then exit; FappIcon:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.Setbody(AIndex : Integer; const AValue : String); begin If (Fbody=AValue) then exit; Fbody:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.SetcallToAction(AIndex : Integer; const AValue : String); begin If (FcallToAction=AValue) then exit; FcallToAction:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.SetclickTrackingUrl(AIndex : Integer; const AValue : String); begin If (FclickTrackingUrl=AValue) then exit; FclickTrackingUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.Setheadline(AIndex : Integer; const AValue : String); begin If (Fheadline=AValue) then exit; Fheadline:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.Setimage(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeimage); begin If (Fimage=AValue) then exit; Fimage:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray); begin If (FimpressionTrackingUrl=AValue) then exit; FimpressionTrackingUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.Setlogo(AIndex : Integer; const AValue : TCreativeTypenativeAdTypelogo); begin If (Flogo=AValue) then exit; Flogo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.Setprice(AIndex : Integer; const AValue : String); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.SetstarRating(AIndex : Integer; const AValue : double); begin If (FstarRating=AValue) then exit; FstarRating:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypenativeAd.Setstore(AIndex : Integer; const AValue : String); begin If (Fstore=AValue) then exit; Fstore:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreativeTypenativeAd.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'impressiontrackingurl' : SetLength(FimpressionTrackingUrl,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreativeTypeservingRestrictionsItemTypecontextsItem --------------------------------------------------------------------} Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetauctionType(AIndex : Integer; const AValue : TStringArray); begin If (FauctionType=AValue) then exit; FauctionType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetcontextType(AIndex : Integer; const AValue : String); begin If (FcontextType=AValue) then exit; FcontextType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetgeoCriteriaId(AIndex : Integer; const AValue : TintegerArray); begin If (FgeoCriteriaId=AValue) then exit; FgeoCriteriaId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.Setplatform(AIndex : Integer; const AValue : TStringArray); begin If (Fplatform=AValue) then exit; Fplatform:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'auctiontype' : SetLength(FauctionType,ALength); 'geocriteriaid' : SetLength(FgeoCriteriaId,ALength); 'platform' : SetLength(Fplatform,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem --------------------------------------------------------------------} Procedure TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.Setdetails(AIndex : Integer; const AValue : TStringArray); begin If (Fdetails=AValue) then exit; Fdetails:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'details' : SetLength(Fdetails,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreativeTypeservingRestrictionsItem --------------------------------------------------------------------} Procedure TCreativeTypeservingRestrictionsItem.Setcontexts(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypecontextsArray); begin If (Fcontexts=AValue) then exit; Fcontexts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypeservingRestrictionsItem.SetdisapprovalReasons(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray); begin If (FdisapprovalReasons=AValue) then exit; FdisapprovalReasons:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativeTypeservingRestrictionsItem.Setreason(AIndex : Integer; const AValue : String); begin If (Freason=AValue) then exit; Freason:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreativeTypeservingRestrictionsItem.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'contexts' : SetLength(Fcontexts,ALength); 'disapprovalreasons' : SetLength(FdisapprovalReasons,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreative --------------------------------------------------------------------} Procedure TCreative.SetHTMLSnippet(AIndex : Integer; const AValue : String); begin If (FHTMLSnippet=AValue) then exit; FHTMLSnippet:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetaccountId(AIndex : Integer; const AValue : integer); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetadChoicesDestinationUrl(AIndex : Integer; const AValue : String); begin If (FadChoicesDestinationUrl=AValue) then exit; FadChoicesDestinationUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetadvertiserId(AIndex : Integer; const AValue : TStringArray); begin If (FadvertiserId=AValue) then exit; FadvertiserId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetadvertiserName(AIndex : Integer; const AValue : String); begin If (FadvertiserName=AValue) then exit; FadvertiserName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetagencyId(AIndex : Integer; const AValue : String); begin If (FagencyId=AValue) then exit; FagencyId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetapiUploadTimestamp(AIndex : Integer; const AValue : TDatetime); begin If (FapiUploadTimestamp=AValue) then exit; FapiUploadTimestamp:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.Setattribute(AIndex : Integer; const AValue : TintegerArray); begin If (Fattribute=AValue) then exit; Fattribute:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetbuyerCreativeId(AIndex : Integer; const AValue : String); begin If (FbuyerCreativeId=AValue) then exit; FbuyerCreativeId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetclickThroughUrl(AIndex : Integer; const AValue : TStringArray); begin If (FclickThroughUrl=AValue) then exit; FclickThroughUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.Setcorrections(AIndex : Integer; const AValue : TCreativeTypecorrectionsArray); begin If (Fcorrections=AValue) then exit; Fcorrections:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetdealsStatus(AIndex : Integer; const AValue : String); begin If (FdealsStatus=AValue) then exit; FdealsStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetfilteringReasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasons); begin If (FfilteringReasons=AValue) then exit; FfilteringReasons:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; Fheight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray); begin If (FimpressionTrackingUrl=AValue) then exit; FimpressionTrackingUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetnativeAd(AIndex : Integer; const AValue : TCreativeTypenativeAd); begin If (FnativeAd=AValue) then exit; FnativeAd:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetopenAuctionStatus(AIndex : Integer; const AValue : String); begin If (FopenAuctionStatus=AValue) then exit; FopenAuctionStatus:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetproductCategories(AIndex : Integer; const AValue : TintegerArray); begin If (FproductCategories=AValue) then exit; FproductCategories:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetrestrictedCategories(AIndex : Integer; const AValue : TintegerArray); begin If (FrestrictedCategories=AValue) then exit; FrestrictedCategories:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetsensitiveCategories(AIndex : Integer; const AValue : TintegerArray); begin If (FsensitiveCategories=AValue) then exit; FsensitiveCategories:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetservingRestrictions(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsArray); begin If (FservingRestrictions=AValue) then exit; FservingRestrictions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetvendorType(AIndex : Integer; const AValue : TintegerArray); begin If (FvendorType=AValue) then exit; FvendorType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.Setversion(AIndex : Integer; const AValue : integer); begin If (Fversion=AValue) then exit; Fversion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.SetvideoURL(AIndex : Integer; const AValue : String); begin If (FvideoURL=AValue) then exit; FvideoURL:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreative.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; Fwidth:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreative.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'advertiserid' : SetLength(FadvertiserId,ALength); 'attribute' : SetLength(Fattribute,ALength); 'clickthroughurl' : SetLength(FclickThroughUrl,ALength); 'corrections' : SetLength(Fcorrections,ALength); 'impressiontrackingurl' : SetLength(FimpressionTrackingUrl,ALength); 'productcategories' : SetLength(FproductCategories,ALength); 'restrictedcategories' : SetLength(FrestrictedCategories,ALength); 'sensitivecategories' : SetLength(FsensitiveCategories,ALength); 'servingrestrictions' : SetLength(FservingRestrictions,ALength); 'vendortype' : SetLength(FvendorType,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TCreativesList --------------------------------------------------------------------} Procedure TCreativesList.Setitems(AIndex : Integer; const AValue : TCreativesListTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativesList.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TCreativesList.SetnextPageToken(AIndex : Integer; const AValue : String); begin If (FnextPageToken=AValue) then exit; FnextPageToken:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TCreativesList.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDealServingMetadata --------------------------------------------------------------------} Procedure TDealServingMetadata.SetdealPauseStatus(AIndex : Integer; const AValue : TDealServingMetadataDealPauseStatus); begin If (FdealPauseStatus=AValue) then exit; FdealPauseStatus:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDealServingMetadataDealPauseStatus --------------------------------------------------------------------} Procedure TDealServingMetadataDealPauseStatus.SetfirstPausedBy(AIndex : Integer; const AValue : String); begin If (FfirstPausedBy=AValue) then exit; FfirstPausedBy:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealServingMetadataDealPauseStatus.SethasBuyerPaused(AIndex : Integer; const AValue : boolean); begin If (FhasBuyerPaused=AValue) then exit; FhasBuyerPaused:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealServingMetadataDealPauseStatus.SethasSellerPaused(AIndex : Integer; const AValue : boolean); begin If (FhasSellerPaused=AValue) then exit; FhasSellerPaused:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDealTerms --------------------------------------------------------------------} Procedure TDealTerms.SetbrandingType(AIndex : Integer; const AValue : String); begin If (FbrandingType=AValue) then exit; FbrandingType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTerms.Setdescription(AIndex : Integer; const AValue : String); begin If (Fdescription=AValue) then exit; Fdescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTerms.SetestimatedGrossSpend(AIndex : Integer; const AValue : TPrice); begin If (FestimatedGrossSpend=AValue) then exit; FestimatedGrossSpend:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTerms.SetestimatedImpressionsPerDay(AIndex : Integer; const AValue : String); begin If (FestimatedImpressionsPerDay=AValue) then exit; FestimatedImpressionsPerDay:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTerms.SetguaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTerms); begin If (FguaranteedFixedPriceTerms=AValue) then exit; FguaranteedFixedPriceTerms:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTerms.SetnonGuaranteedAuctionTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTerms); begin If (FnonGuaranteedAuctionTerms=AValue) then exit; FnonGuaranteedAuctionTerms:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTerms.SetnonGuaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTerms); begin If (FnonGuaranteedFixedPriceTerms=AValue) then exit; FnonGuaranteedFixedPriceTerms:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTerms.SetsellerTimeZone(AIndex : Integer; const AValue : String); begin If (FsellerTimeZone=AValue) then exit; FsellerTimeZone:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDealTermsGuaranteedFixedPriceTerms --------------------------------------------------------------------} Procedure TDealTermsGuaranteedFixedPriceTerms.SetbillingInfo(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsBillingInfo); begin If (FbillingInfo=AValue) then exit; FbillingInfo:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTermsGuaranteedFixedPriceTerms.SetfixedPrices(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray); begin If (FfixedPrices=AValue) then exit; FfixedPrices:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTermsGuaranteedFixedPriceTerms.SetguaranteedImpressions(AIndex : Integer; const AValue : String); begin If (FguaranteedImpressions=AValue) then exit; FguaranteedImpressions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTermsGuaranteedFixedPriceTerms.SetguaranteedLooks(AIndex : Integer; const AValue : String); begin If (FguaranteedLooks=AValue) then exit; FguaranteedLooks:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDealTermsGuaranteedFixedPriceTerms.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'fixedprices' : SetLength(FfixedPrices,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDealTermsGuaranteedFixedPriceTermsBillingInfo --------------------------------------------------------------------} Procedure TDealTermsGuaranteedFixedPriceTermsBillingInfo.SetcurrencyConversionTimeMs(AIndex : Integer; const AValue : String); begin If (FcurrencyConversionTimeMs=AValue) then exit; FcurrencyConversionTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTermsGuaranteedFixedPriceTermsBillingInfo.SetoriginalContractedQuantity(AIndex : Integer; const AValue : String); begin If (ForiginalContractedQuantity=AValue) then exit; ForiginalContractedQuantity:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTermsGuaranteedFixedPriceTermsBillingInfo.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDealTermsNonGuaranteedAuctionTerms --------------------------------------------------------------------} Procedure TDealTermsNonGuaranteedAuctionTerms.SetautoOptimizePrivateAuction(AIndex : Integer; const AValue : boolean); begin If (FautoOptimizePrivateAuction=AValue) then exit; FautoOptimizePrivateAuction:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDealTermsNonGuaranteedAuctionTerms.SetreservePricePerBuyers(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray); begin If (FreservePricePerBuyers=AValue) then exit; FreservePricePerBuyers:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDealTermsNonGuaranteedAuctionTerms.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'reservepriceperbuyers' : SetLength(FreservePricePerBuyers,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDealTermsNonGuaranteedFixedPriceTerms --------------------------------------------------------------------} Procedure TDealTermsNonGuaranteedFixedPriceTerms.SetfixedPrices(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray); begin If (FfixedPrices=AValue) then exit; FfixedPrices:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDealTermsNonGuaranteedFixedPriceTerms.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'fixedprices' : SetLength(FfixedPrices,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDeleteOrderDealsRequest --------------------------------------------------------------------} Procedure TDeleteOrderDealsRequest.SetdealIds(AIndex : Integer; const AValue : TStringArray); begin If (FdealIds=AValue) then exit; FdealIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDeleteOrderDealsRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproposalRevisionNumber=AValue) then exit; FproposalRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDeleteOrderDealsRequest.SetupdateAction(AIndex : Integer; const AValue : String); begin If (FupdateAction=AValue) then exit; FupdateAction:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDeleteOrderDealsRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'dealids' : SetLength(FdealIds,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDeleteOrderDealsResponse --------------------------------------------------------------------} Procedure TDeleteOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TDeleteOrderDealsResponseTypedealsArray); begin If (Fdeals=AValue) then exit; Fdeals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDeleteOrderDealsResponse.SetproposalRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproposalRevisionNumber=AValue) then exit; FproposalRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDeleteOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'deals' : SetLength(Fdeals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDeliveryControl --------------------------------------------------------------------} Procedure TDeliveryControl.SetcreativeBlockingLevel(AIndex : Integer; const AValue : String); begin If (FcreativeBlockingLevel=AValue) then exit; FcreativeBlockingLevel:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDeliveryControl.SetdeliveryRateType(AIndex : Integer; const AValue : String); begin If (FdeliveryRateType=AValue) then exit; FdeliveryRateType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDeliveryControl.SetfrequencyCaps(AIndex : Integer; const AValue : TDeliveryControlTypefrequencyCapsArray); begin If (FfrequencyCaps=AValue) then exit; FfrequencyCaps:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDeliveryControl.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'frequencycaps' : SetLength(FfrequencyCaps,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDeliveryControlFrequencyCap --------------------------------------------------------------------} Procedure TDeliveryControlFrequencyCap.SetmaxImpressions(AIndex : Integer; const AValue : integer); begin If (FmaxImpressions=AValue) then exit; FmaxImpressions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDeliveryControlFrequencyCap.SetnumTimeUnits(AIndex : Integer; const AValue : integer); begin If (FnumTimeUnits=AValue) then exit; FnumTimeUnits:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDeliveryControlFrequencyCap.SettimeUnitType(AIndex : Integer; const AValue : String); begin If (FtimeUnitType=AValue) then exit; FtimeUnitType:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TDimension --------------------------------------------------------------------} Procedure TDimension.SetdimensionType(AIndex : Integer; const AValue : String); begin If (FdimensionType=AValue) then exit; FdimensionType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDimension.SetdimensionValues(AIndex : Integer; const AValue : TDimensionTypedimensionValuesArray); begin If (FdimensionValues=AValue) then exit; FdimensionValues:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TDimension.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'dimensionvalues' : SetLength(FdimensionValues,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TDimensionDimensionValue --------------------------------------------------------------------} Procedure TDimensionDimensionValue.Setid(AIndex : Integer; const AValue : integer); begin If (Fid=AValue) then exit; Fid:=AValue; MarkPropertyChanged(AIndex); end; Procedure TDimensionDimensionValue.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TEditAllOrderDealsRequest --------------------------------------------------------------------} Procedure TEditAllOrderDealsRequest.Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsRequestTypedealsArray); begin If (Fdeals=AValue) then exit; Fdeals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEditAllOrderDealsRequest.Setproposal(AIndex : Integer; const AValue : TProposal); begin If (Fproposal=AValue) then exit; Fproposal:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEditAllOrderDealsRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproposalRevisionNumber=AValue) then exit; FproposalRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEditAllOrderDealsRequest.SetupdateAction(AIndex : Integer; const AValue : String); begin If (FupdateAction=AValue) then exit; FupdateAction:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TEditAllOrderDealsRequest.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'deals' : SetLength(Fdeals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TEditAllOrderDealsResponse --------------------------------------------------------------------} Procedure TEditAllOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsResponseTypedealsArray); begin If (Fdeals=AValue) then exit; Fdeals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TEditAllOrderDealsResponse.SetorderRevisionNumber(AIndex : Integer; const AValue : String); begin If (ForderRevisionNumber=AValue) then exit; ForderRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TEditAllOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'deals' : SetLength(Fdeals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGetOffersResponse --------------------------------------------------------------------} Procedure TGetOffersResponse.Setproducts(AIndex : Integer; const AValue : TGetOffersResponseTypeproductsArray); begin If (Fproducts=AValue) then exit; Fproducts:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGetOffersResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'products' : SetLength(Fproducts,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGetOrderDealsResponse --------------------------------------------------------------------} Procedure TGetOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TGetOrderDealsResponseTypedealsArray); begin If (Fdeals=AValue) then exit; Fdeals:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGetOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'deals' : SetLength(Fdeals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGetOrderNotesResponse --------------------------------------------------------------------} Procedure TGetOrderNotesResponse.Setnotes(AIndex : Integer; const AValue : TGetOrderNotesResponseTypenotesArray); begin If (Fnotes=AValue) then exit; Fnotes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGetOrderNotesResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'notes' : SetLength(Fnotes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGetOrdersResponse --------------------------------------------------------------------} Procedure TGetOrdersResponse.Setproposals(AIndex : Integer; const AValue : TGetOrdersResponseTypeproposalsArray); begin If (Fproposals=AValue) then exit; Fproposals:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGetOrdersResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'proposals' : SetLength(Fproposals,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TGetPublisherProfilesByAccountIdResponse --------------------------------------------------------------------} Procedure TGetPublisherProfilesByAccountIdResponse.Setprofiles(AIndex : Integer; const AValue : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray); begin If (Fprofiles=AValue) then exit; Fprofiles:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TGetPublisherProfilesByAccountIdResponse.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'profiles' : SetLength(Fprofiles,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TMarketplaceDeal --------------------------------------------------------------------} Procedure TMarketplaceDeal.SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData); begin If (FbuyerPrivateData=AValue) then exit; FbuyerPrivateData:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetcreationTimeMs(AIndex : Integer; const AValue : String); begin If (FcreationTimeMs=AValue) then exit; FcreationTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetcreativePreApprovalPolicy(AIndex : Integer; const AValue : String); begin If (FcreativePreApprovalPolicy=AValue) then exit; FcreativePreApprovalPolicy:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetcreativeSafeFrameCompatibility(AIndex : Integer; const AValue : String); begin If (FcreativeSafeFrameCompatibility=AValue) then exit; FcreativeSafeFrameCompatibility:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetdealId(AIndex : Integer; const AValue : String); begin If (FdealId=AValue) then exit; FdealId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetdealServingMetadata(AIndex : Integer; const AValue : TDealServingMetadata); begin If (FdealServingMetadata=AValue) then exit; FdealServingMetadata:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl); begin If (FdeliveryControl=AValue) then exit; FdeliveryControl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetexternalDealId(AIndex : Integer; const AValue : String); begin If (FexternalDealId=AValue) then exit; FexternalDealId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetflightEndTimeMs(AIndex : Integer; const AValue : String); begin If (FflightEndTimeMs=AValue) then exit; FflightEndTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetflightStartTimeMs(AIndex : Integer; const AValue : String); begin If (FflightStartTimeMs=AValue) then exit; FflightStartTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetinventoryDescription(AIndex : Integer; const AValue : String); begin If (FinventoryDescription=AValue) then exit; FinventoryDescription:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetlastUpdateTimeMs(AIndex : Integer; const AValue : String); begin If (FlastUpdateTimeMs=AValue) then exit; FlastUpdateTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetproductId(AIndex : Integer; const AValue : String); begin If (FproductId=AValue) then exit; FproductId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetproductRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproductRevisionNumber=AValue) then exit; FproductRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetprogrammaticCreativeSource(AIndex : Integer; const AValue : String); begin If (FprogrammaticCreativeSource=AValue) then exit; FprogrammaticCreativeSource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetproposalId(AIndex : Integer; const AValue : String); begin If (FproposalId=AValue) then exit; FproposalId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetsellerContacts(AIndex : Integer; const AValue : TMarketplaceDealTypesellerContactsArray); begin If (FsellerContacts=AValue) then exit; FsellerContacts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetsharedTargetings(AIndex : Integer; const AValue : TMarketplaceDealTypesharedTargetingsArray); begin If (FsharedTargetings=AValue) then exit; FsharedTargetings:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetsyndicationProduct(AIndex : Integer; const AValue : String); begin If (FsyndicationProduct=AValue) then exit; FsyndicationProduct:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.Setterms(AIndex : Integer; const AValue : TDealTerms); begin If (Fterms=AValue) then exit; Fterms:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDeal.SetwebPropertyCode(AIndex : Integer; const AValue : String); begin If (FwebPropertyCode=AValue) then exit; FwebPropertyCode:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TMarketplaceDeal.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'sellercontacts' : SetLength(FsellerContacts,ALength); 'sharedtargetings' : SetLength(FsharedTargetings,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TMarketplaceDealParty --------------------------------------------------------------------} Procedure TMarketplaceDealParty.Setbuyer(AIndex : Integer; const AValue : TBuyer); begin If (Fbuyer=AValue) then exit; Fbuyer:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceDealParty.Setseller(AIndex : Integer; const AValue : TSeller); begin If (Fseller=AValue) then exit; Fseller:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TMarketplaceLabel --------------------------------------------------------------------} Procedure TMarketplaceLabel.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceLabel.SetcreateTimeMs(AIndex : Integer; const AValue : String); begin If (FcreateTimeMs=AValue) then exit; FcreateTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceLabel.SetdeprecatedMarketplaceDealParty(AIndex : Integer; const AValue : TMarketplaceDealParty); begin If (FdeprecatedMarketplaceDealParty=AValue) then exit; FdeprecatedMarketplaceDealParty:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceLabel.Set_label(AIndex : Integer; const AValue : String); begin If (F_label=AValue) then exit; F_label:=AValue; MarkPropertyChanged(AIndex); end; Class Function TMarketplaceLabel.ExportPropertyName(Const AName : String) :String; begin Case AName of '_label' : Result:='label'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TMarketplaceNote --------------------------------------------------------------------} Procedure TMarketplaceNote.SetcreatorRole(AIndex : Integer; const AValue : String); begin If (FcreatorRole=AValue) then exit; FcreatorRole:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceNote.SetdealId(AIndex : Integer; const AValue : String); begin If (FdealId=AValue) then exit; FdealId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceNote.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceNote.Setnote(AIndex : Integer; const AValue : String); begin If (Fnote=AValue) then exit; Fnote:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceNote.SetnoteId(AIndex : Integer; const AValue : String); begin If (FnoteId=AValue) then exit; FnoteId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceNote.SetproposalId(AIndex : Integer; const AValue : String); begin If (FproposalId=AValue) then exit; FproposalId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceNote.SetproposalRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproposalRevisionNumber=AValue) then exit; FproposalRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TMarketplaceNote.SettimestampMs(AIndex : Integer; const AValue : String); begin If (FtimestampMs=AValue) then exit; FtimestampMs:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TPerformanceReport --------------------------------------------------------------------} Procedure TPerformanceReport.SetbidRate(AIndex : Integer; const AValue : double); begin If (FbidRate=AValue) then exit; FbidRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetbidRequestRate(AIndex : Integer; const AValue : double); begin If (FbidRequestRate=AValue) then exit; FbidRequestRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetcalloutStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); begin If (FcalloutStatusRate=AValue) then exit; FcalloutStatusRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetcookieMatcherStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); begin If (FcookieMatcherStatusRate=AValue) then exit; FcookieMatcherStatusRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetcreativeStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); begin If (FcreativeStatusRate=AValue) then exit; FcreativeStatusRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetfilteredBidRate(AIndex : Integer; const AValue : double); begin If (FfilteredBidRate=AValue) then exit; FfilteredBidRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SethostedMatchStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); begin If (FhostedMatchStatusRate=AValue) then exit; FhostedMatchStatusRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetinventoryMatchRate(AIndex : Integer; const AValue : double); begin If (FinventoryMatchRate=AValue) then exit; FinventoryMatchRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.Setlatency50thPercentile(AIndex : Integer; const AValue : double); begin If (Flatency50thPercentile=AValue) then exit; Flatency50thPercentile:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.Setlatency85thPercentile(AIndex : Integer; const AValue : double); begin If (Flatency85thPercentile=AValue) then exit; Flatency85thPercentile:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.Setlatency95thPercentile(AIndex : Integer; const AValue : double); begin If (Flatency95thPercentile=AValue) then exit; Flatency95thPercentile:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetnoQuotaInRegion(AIndex : Integer; const AValue : double); begin If (FnoQuotaInRegion=AValue) then exit; FnoQuotaInRegion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetoutOfQuota(AIndex : Integer; const AValue : double); begin If (FoutOfQuota=AValue) then exit; FoutOfQuota:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetpixelMatchRequests(AIndex : Integer; const AValue : double); begin If (FpixelMatchRequests=AValue) then exit; FpixelMatchRequests:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetpixelMatchResponses(AIndex : Integer; const AValue : double); begin If (FpixelMatchResponses=AValue) then exit; FpixelMatchResponses:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetquotaConfiguredLimit(AIndex : Integer; const AValue : double); begin If (FquotaConfiguredLimit=AValue) then exit; FquotaConfiguredLimit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetquotaThrottledLimit(AIndex : Integer; const AValue : double); begin If (FquotaThrottledLimit=AValue) then exit; FquotaThrottledLimit:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.Setregion(AIndex : Integer; const AValue : String); begin If (Fregion=AValue) then exit; Fregion:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetsuccessfulRequestRate(AIndex : Integer; const AValue : double); begin If (FsuccessfulRequestRate=AValue) then exit; FsuccessfulRequestRate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.Settimestamp(AIndex : Integer; const AValue : String); begin If (Ftimestamp=AValue) then exit; Ftimestamp:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReport.SetunsuccessfulRequestRate(AIndex : Integer; const AValue : double); begin If (FunsuccessfulRequestRate=AValue) then exit; FunsuccessfulRequestRate:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TPerformanceReport.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'calloutstatusrate' : SetLength(FcalloutStatusRate,ALength); 'cookiematcherstatusrate' : SetLength(FcookieMatcherStatusRate,ALength); 'creativestatusrate' : SetLength(FcreativeStatusRate,ALength); 'hostedmatchstatusrate' : SetLength(FhostedMatchStatusRate,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TPerformanceReportList --------------------------------------------------------------------} Procedure TPerformanceReportList.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPerformanceReportList.SetperformanceReport(AIndex : Integer; const AValue : TPerformanceReportListTypeperformanceReportArray); begin If (FperformanceReport=AValue) then exit; FperformanceReport:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TPerformanceReportList.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'performancereport' : SetLength(FperformanceReport,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TPretargetingConfigTypedimensionsItem --------------------------------------------------------------------} Procedure TPretargetingConfigTypedimensionsItem.Setheight(AIndex : Integer; const AValue : String); begin If (Fheight=AValue) then exit; Fheight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfigTypedimensionsItem.Setwidth(AIndex : Integer; const AValue : String); begin If (Fwidth=AValue) then exit; Fwidth:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TPretargetingConfigTypeexcludedPlacementsItem --------------------------------------------------------------------} Procedure TPretargetingConfigTypeexcludedPlacementsItem.Settoken(AIndex : Integer; const AValue : String); begin If (Ftoken=AValue) then exit; Ftoken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfigTypeexcludedPlacementsItem.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TPretargetingConfigTypeexcludedPlacementsItem.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TPretargetingConfigTypeplacementsItem --------------------------------------------------------------------} Procedure TPretargetingConfigTypeplacementsItem.Settoken(AIndex : Integer; const AValue : String); begin If (Ftoken=AValue) then exit; Ftoken:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfigTypeplacementsItem.Set_type(AIndex : Integer; const AValue : String); begin If (F_type=AValue) then exit; F_type:=AValue; MarkPropertyChanged(AIndex); end; Class Function TPretargetingConfigTypeplacementsItem.ExportPropertyName(Const AName : String) :String; begin Case AName of '_type' : Result:='type'; else Result:=Inherited ExportPropertyName(AName); end; end; { -------------------------------------------------------------------- TPretargetingConfigTypevideoPlayerSizesItem --------------------------------------------------------------------} Procedure TPretargetingConfigTypevideoPlayerSizesItem.SetaspectRatio(AIndex : Integer; const AValue : String); begin If (FaspectRatio=AValue) then exit; FaspectRatio:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfigTypevideoPlayerSizesItem.SetminHeight(AIndex : Integer; const AValue : String); begin If (FminHeight=AValue) then exit; FminHeight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfigTypevideoPlayerSizesItem.SetminWidth(AIndex : Integer; const AValue : String); begin If (FminWidth=AValue) then exit; FminWidth:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TPretargetingConfig --------------------------------------------------------------------} Procedure TPretargetingConfig.SetbillingId(AIndex : Integer; const AValue : String); begin If (FbillingId=AValue) then exit; FbillingId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetconfigId(AIndex : Integer; const AValue : String); begin If (FconfigId=AValue) then exit; FconfigId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetconfigName(AIndex : Integer; const AValue : String); begin If (FconfigName=AValue) then exit; FconfigName:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetcreativeType(AIndex : Integer; const AValue : TStringArray); begin If (FcreativeType=AValue) then exit; FcreativeType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.Setdimensions(AIndex : Integer; const AValue : TPretargetingConfigTypedimensionsArray); begin If (Fdimensions=AValue) then exit; Fdimensions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetexcludedContentLabels(AIndex : Integer; const AValue : TStringArray); begin If (FexcludedContentLabels=AValue) then exit; FexcludedContentLabels:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetexcludedGeoCriteriaIds(AIndex : Integer; const AValue : TStringArray); begin If (FexcludedGeoCriteriaIds=AValue) then exit; FexcludedGeoCriteriaIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetexcludedPlacements(AIndex : Integer; const AValue : TPretargetingConfigTypeexcludedPlacementsArray); begin If (FexcludedPlacements=AValue) then exit; FexcludedPlacements:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetexcludedUserLists(AIndex : Integer; const AValue : TStringArray); begin If (FexcludedUserLists=AValue) then exit; FexcludedUserLists:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetexcludedVerticals(AIndex : Integer; const AValue : TStringArray); begin If (FexcludedVerticals=AValue) then exit; FexcludedVerticals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetgeoCriteriaIds(AIndex : Integer; const AValue : TStringArray); begin If (FgeoCriteriaIds=AValue) then exit; FgeoCriteriaIds:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetisActive(AIndex : Integer; const AValue : boolean); begin If (FisActive=AValue) then exit; FisActive:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.Setlanguages(AIndex : Integer; const AValue : TStringArray); begin If (Flanguages=AValue) then exit; Flanguages:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetmobileCarriers(AIndex : Integer; const AValue : TStringArray); begin If (FmobileCarriers=AValue) then exit; FmobileCarriers:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetmobileDevices(AIndex : Integer; const AValue : TStringArray); begin If (FmobileDevices=AValue) then exit; FmobileDevices:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetmobileOperatingSystemVersions(AIndex : Integer; const AValue : TStringArray); begin If (FmobileOperatingSystemVersions=AValue) then exit; FmobileOperatingSystemVersions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.Setplacements(AIndex : Integer; const AValue : TPretargetingConfigTypeplacementsArray); begin If (Fplacements=AValue) then exit; Fplacements:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.Setplatforms(AIndex : Integer; const AValue : TStringArray); begin If (Fplatforms=AValue) then exit; Fplatforms:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetsupportedCreativeAttributes(AIndex : Integer; const AValue : TStringArray); begin If (FsupportedCreativeAttributes=AValue) then exit; FsupportedCreativeAttributes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetuserLists(AIndex : Integer; const AValue : TStringArray); begin If (FuserLists=AValue) then exit; FuserLists:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetvendorTypes(AIndex : Integer; const AValue : TStringArray); begin If (FvendorTypes=AValue) then exit; FvendorTypes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.Setverticals(AIndex : Integer; const AValue : TStringArray); begin If (Fverticals=AValue) then exit; Fverticals:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfig.SetvideoPlayerSizes(AIndex : Integer; const AValue : TPretargetingConfigTypevideoPlayerSizesArray); begin If (FvideoPlayerSizes=AValue) then exit; FvideoPlayerSizes:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TPretargetingConfig.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'creativetype' : SetLength(FcreativeType,ALength); 'dimensions' : SetLength(Fdimensions,ALength); 'excludedcontentlabels' : SetLength(FexcludedContentLabels,ALength); 'excludedgeocriteriaids' : SetLength(FexcludedGeoCriteriaIds,ALength); 'excludedplacements' : SetLength(FexcludedPlacements,ALength); 'excludeduserlists' : SetLength(FexcludedUserLists,ALength); 'excludedverticals' : SetLength(FexcludedVerticals,ALength); 'geocriteriaids' : SetLength(FgeoCriteriaIds,ALength); 'languages' : SetLength(Flanguages,ALength); 'mobilecarriers' : SetLength(FmobileCarriers,ALength); 'mobiledevices' : SetLength(FmobileDevices,ALength); 'mobileoperatingsystemversions' : SetLength(FmobileOperatingSystemVersions,ALength); 'placements' : SetLength(Fplacements,ALength); 'platforms' : SetLength(Fplatforms,ALength); 'supportedcreativeattributes' : SetLength(FsupportedCreativeAttributes,ALength); 'userlists' : SetLength(FuserLists,ALength); 'vendortypes' : SetLength(FvendorTypes,ALength); 'verticals' : SetLength(Fverticals,ALength); 'videoplayersizes' : SetLength(FvideoPlayerSizes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TPretargetingConfigList --------------------------------------------------------------------} Procedure TPretargetingConfigList.Setitems(AIndex : Integer; const AValue : TPretargetingConfigListTypeitemsArray); begin If (Fitems=AValue) then exit; Fitems:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPretargetingConfigList.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TPretargetingConfigList.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'items' : SetLength(Fitems,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TPrice --------------------------------------------------------------------} Procedure TPrice.SetamountMicros(AIndex : Integer; const AValue : double); begin If (FamountMicros=AValue) then exit; FamountMicros:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPrice.SetcurrencyCode(AIndex : Integer; const AValue : String); begin If (FcurrencyCode=AValue) then exit; FcurrencyCode:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPrice.SetpricingType(AIndex : Integer; const AValue : String); begin If (FpricingType=AValue) then exit; FpricingType:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TPricePerBuyer --------------------------------------------------------------------} Procedure TPricePerBuyer.SetauctionTier(AIndex : Integer; const AValue : String); begin If (FauctionTier=AValue) then exit; FauctionTier:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPricePerBuyer.Setbuyer(AIndex : Integer; const AValue : TBuyer); begin If (Fbuyer=AValue) then exit; Fbuyer:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPricePerBuyer.Setprice(AIndex : Integer; const AValue : TPrice); begin If (Fprice=AValue) then exit; Fprice:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TPrivateData --------------------------------------------------------------------} Procedure TPrivateData.SetreferenceId(AIndex : Integer; const AValue : String); begin If (FreferenceId=AValue) then exit; FreferenceId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPrivateData.SetreferencePayload(AIndex : Integer; const AValue : String); begin If (FreferencePayload=AValue) then exit; FreferencePayload:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TProduct --------------------------------------------------------------------} Procedure TProduct.SetcreationTimeMs(AIndex : Integer; const AValue : String); begin If (FcreationTimeMs=AValue) then exit; FcreationTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetcreatorContacts(AIndex : Integer; const AValue : TProductTypecreatorContactsArray); begin If (FcreatorContacts=AValue) then exit; FcreatorContacts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl); begin If (FdeliveryControl=AValue) then exit; FdeliveryControl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetflightEndTimeMs(AIndex : Integer; const AValue : String); begin If (FflightEndTimeMs=AValue) then exit; FflightEndTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetflightStartTimeMs(AIndex : Integer; const AValue : String); begin If (FflightStartTimeMs=AValue) then exit; FflightStartTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SethasCreatorSignedOff(AIndex : Integer; const AValue : boolean); begin If (FhasCreatorSignedOff=AValue) then exit; FhasCreatorSignedOff:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetinventorySource(AIndex : Integer; const AValue : String); begin If (FinventorySource=AValue) then exit; FinventorySource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setlabels(AIndex : Integer; const AValue : TProductTypelabelsArray); begin If (Flabels=AValue) then exit; Flabels:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetlastUpdateTimeMs(AIndex : Integer; const AValue : String); begin If (FlastUpdateTimeMs=AValue) then exit; FlastUpdateTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetlegacyOfferId(AIndex : Integer; const AValue : String); begin If (FlegacyOfferId=AValue) then exit; FlegacyOfferId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetprivateAuctionId(AIndex : Integer; const AValue : String); begin If (FprivateAuctionId=AValue) then exit; FprivateAuctionId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetproductId(AIndex : Integer; const AValue : String); begin If (FproductId=AValue) then exit; FproductId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetpublisherProfileId(AIndex : Integer; const AValue : String); begin If (FpublisherProfileId=AValue) then exit; FpublisherProfileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast); begin If (FpublisherProvidedForecast=AValue) then exit; FpublisherProvidedForecast:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetrevisionNumber(AIndex : Integer; const AValue : String); begin If (FrevisionNumber=AValue) then exit; FrevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setseller(AIndex : Integer; const AValue : TSeller); begin If (Fseller=AValue) then exit; Fseller:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetsharedTargetings(AIndex : Integer; const AValue : TProductTypesharedTargetingsArray); begin If (FsharedTargetings=AValue) then exit; FsharedTargetings:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setstate(AIndex : Integer; const AValue : String); begin If (Fstate=AValue) then exit; Fstate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetsyndicationProduct(AIndex : Integer; const AValue : String); begin If (FsyndicationProduct=AValue) then exit; FsyndicationProduct:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.Setterms(AIndex : Integer; const AValue : TDealTerms); begin If (Fterms=AValue) then exit; Fterms:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProduct.SetwebPropertyCode(AIndex : Integer; const AValue : String); begin If (FwebPropertyCode=AValue) then exit; FwebPropertyCode:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProduct.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'creatorcontacts' : SetLength(FcreatorContacts,ALength); 'labels' : SetLength(Flabels,ALength); 'sharedtargetings' : SetLength(FsharedTargetings,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TProposal --------------------------------------------------------------------} Procedure TProposal.SetbilledBuyer(AIndex : Integer; const AValue : TBuyer); begin If (FbilledBuyer=AValue) then exit; FbilledBuyer:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.Setbuyer(AIndex : Integer; const AValue : TBuyer); begin If (Fbuyer=AValue) then exit; Fbuyer:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetbuyerContacts(AIndex : Integer; const AValue : TProposalTypebuyerContactsArray); begin If (FbuyerContacts=AValue) then exit; FbuyerContacts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData); begin If (FbuyerPrivateData=AValue) then exit; FbuyerPrivateData:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SethasBuyerSignedOff(AIndex : Integer; const AValue : boolean); begin If (FhasBuyerSignedOff=AValue) then exit; FhasBuyerSignedOff:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SethasSellerSignedOff(AIndex : Integer; const AValue : boolean); begin If (FhasSellerSignedOff=AValue) then exit; FhasSellerSignedOff:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetinventorySource(AIndex : Integer; const AValue : String); begin If (FinventorySource=AValue) then exit; FinventorySource:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetisRenegotiating(AIndex : Integer; const AValue : boolean); begin If (FisRenegotiating=AValue) then exit; FisRenegotiating:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetisSetupComplete(AIndex : Integer; const AValue : boolean); begin If (FisSetupComplete=AValue) then exit; FisSetupComplete:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.Setlabels(AIndex : Integer; const AValue : TProposalTypelabelsArray); begin If (Flabels=AValue) then exit; Flabels:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetlastUpdaterOrCommentorRole(AIndex : Integer; const AValue : String); begin If (FlastUpdaterOrCommentorRole=AValue) then exit; FlastUpdaterOrCommentorRole:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetnegotiationId(AIndex : Integer; const AValue : String); begin If (FnegotiationId=AValue) then exit; FnegotiationId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetoriginatorRole(AIndex : Integer; const AValue : String); begin If (ForiginatorRole=AValue) then exit; ForiginatorRole:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetprivateAuctionId(AIndex : Integer; const AValue : String); begin If (FprivateAuctionId=AValue) then exit; FprivateAuctionId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetproposalId(AIndex : Integer; const AValue : String); begin If (FproposalId=AValue) then exit; FproposalId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetproposalState(AIndex : Integer; const AValue : String); begin If (FproposalState=AValue) then exit; FproposalState:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetrevisionNumber(AIndex : Integer; const AValue : String); begin If (FrevisionNumber=AValue) then exit; FrevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetrevisionTimeMs(AIndex : Integer; const AValue : String); begin If (FrevisionTimeMs=AValue) then exit; FrevisionTimeMs:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.Setseller(AIndex : Integer; const AValue : TSeller); begin If (Fseller=AValue) then exit; Fseller:=AValue; MarkPropertyChanged(AIndex); end; Procedure TProposal.SetsellerContacts(AIndex : Integer; const AValue : TProposalTypesellerContactsArray); begin If (FsellerContacts=AValue) then exit; FsellerContacts:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TProposal.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'buyercontacts' : SetLength(FbuyerContacts,ALength); 'labels' : SetLength(Flabels,ALength); 'sellercontacts' : SetLength(FsellerContacts,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TPublisherProfileApiProto --------------------------------------------------------------------} Procedure TPublisherProfileApiProto.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.Setaudience(AIndex : Integer; const AValue : String); begin If (Faudience=AValue) then exit; Faudience:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetbuyerPitchStatement(AIndex : Integer; const AValue : String); begin If (FbuyerPitchStatement=AValue) then exit; FbuyerPitchStatement:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetdirectContact(AIndex : Integer; const AValue : String); begin If (FdirectContact=AValue) then exit; FdirectContact:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.Setexchange(AIndex : Integer; const AValue : String); begin If (Fexchange=AValue) then exit; Fexchange:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetgooglePlusLink(AIndex : Integer; const AValue : String); begin If (FgooglePlusLink=AValue) then exit; FgooglePlusLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetisParent(AIndex : Integer; const AValue : boolean); begin If (FisParent=AValue) then exit; FisParent:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetisPublished(AIndex : Integer; const AValue : boolean); begin If (FisPublished=AValue) then exit; FisPublished:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.Setkind(AIndex : Integer; const AValue : String); begin If (Fkind=AValue) then exit; Fkind:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetlogoUrl(AIndex : Integer; const AValue : String); begin If (FlogoUrl=AValue) then exit; FlogoUrl:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetmediaKitLink(AIndex : Integer; const AValue : String); begin If (FmediaKitLink=AValue) then exit; FmediaKitLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.Setname(AIndex : Integer; const AValue : String); begin If (Fname=AValue) then exit; Fname:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.Setoverview(AIndex : Integer; const AValue : String); begin If (Foverview=AValue) then exit; Foverview:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetprofileId(AIndex : Integer; const AValue : integer); begin If (FprofileId=AValue) then exit; FprofileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetprogrammaticContact(AIndex : Integer; const AValue : String); begin If (FprogrammaticContact=AValue) then exit; FprogrammaticContact:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetpublisherDomains(AIndex : Integer; const AValue : TStringArray); begin If (FpublisherDomains=AValue) then exit; FpublisherDomains:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetpublisherProfileId(AIndex : Integer; const AValue : String); begin If (FpublisherProfileId=AValue) then exit; FpublisherProfileId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast); begin If (FpublisherProvidedForecast=AValue) then exit; FpublisherProvidedForecast:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetrateCardInfoLink(AIndex : Integer; const AValue : String); begin If (FrateCardInfoLink=AValue) then exit; FrateCardInfoLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SetsamplePageLink(AIndex : Integer; const AValue : String); begin If (FsamplePageLink=AValue) then exit; FsamplePageLink:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.Setseller(AIndex : Integer; const AValue : TSeller); begin If (Fseller=AValue) then exit; Fseller:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.Setstate(AIndex : Integer; const AValue : String); begin If (Fstate=AValue) then exit; Fstate:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProfileApiProto.SettopHeadlines(AIndex : Integer; const AValue : TStringArray); begin If (FtopHeadlines=AValue) then exit; FtopHeadlines:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TPublisherProfileApiProto.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'publisherdomains' : SetLength(FpublisherDomains,ALength); 'topheadlines' : SetLength(FtopHeadlines,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TPublisherProvidedForecast --------------------------------------------------------------------} Procedure TPublisherProvidedForecast.Setdimensions(AIndex : Integer; const AValue : TPublisherProvidedForecastTypedimensionsArray); begin If (Fdimensions=AValue) then exit; Fdimensions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProvidedForecast.SetweeklyImpressions(AIndex : Integer; const AValue : String); begin If (FweeklyImpressions=AValue) then exit; FweeklyImpressions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TPublisherProvidedForecast.SetweeklyUniques(AIndex : Integer; const AValue : String); begin If (FweeklyUniques=AValue) then exit; FweeklyUniques:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TPublisherProvidedForecast.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'dimensions' : SetLength(Fdimensions,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TSeller --------------------------------------------------------------------} Procedure TSeller.SetaccountId(AIndex : Integer; const AValue : String); begin If (FaccountId=AValue) then exit; FaccountId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSeller.SetsubAccountId(AIndex : Integer; const AValue : String); begin If (FsubAccountId=AValue) then exit; FsubAccountId:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TSharedTargeting --------------------------------------------------------------------} Procedure TSharedTargeting.Setexclusions(AIndex : Integer; const AValue : TSharedTargetingTypeexclusionsArray); begin If (Fexclusions=AValue) then exit; Fexclusions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSharedTargeting.Setinclusions(AIndex : Integer; const AValue : TSharedTargetingTypeinclusionsArray); begin If (Finclusions=AValue) then exit; Finclusions:=AValue; MarkPropertyChanged(AIndex); end; Procedure TSharedTargeting.Setkey(AIndex : Integer; const AValue : String); begin If (Fkey=AValue) then exit; Fkey:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TSharedTargeting.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'exclusions' : SetLength(Fexclusions,ALength); 'inclusions' : SetLength(Finclusions,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TTargetingValue --------------------------------------------------------------------} Procedure TTargetingValue.SetcreativeSizeValue(AIndex : Integer; const AValue : TTargetingValueCreativeSize); begin If (FcreativeSizeValue=AValue) then exit; FcreativeSizeValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValue.SetdayPartTargetingValue(AIndex : Integer; const AValue : TTargetingValueDayPartTargeting); begin If (FdayPartTargetingValue=AValue) then exit; FdayPartTargetingValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValue.SetlongValue(AIndex : Integer; const AValue : String); begin If (FlongValue=AValue) then exit; FlongValue:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValue.SetstringValue(AIndex : Integer; const AValue : String); begin If (FstringValue=AValue) then exit; FstringValue:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TTargetingValueCreativeSize --------------------------------------------------------------------} Procedure TTargetingValueCreativeSize.SetcompanionSizes(AIndex : Integer; const AValue : TTargetingValueCreativeSizeTypecompanionSizesArray); begin If (FcompanionSizes=AValue) then exit; FcompanionSizes:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueCreativeSize.SetcreativeSizeType(AIndex : Integer; const AValue : String); begin If (FcreativeSizeType=AValue) then exit; FcreativeSizeType:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueCreativeSize.Setsize(AIndex : Integer; const AValue : TTargetingValueSize); begin If (Fsize=AValue) then exit; Fsize:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TTargetingValueCreativeSize.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'companionsizes' : SetLength(FcompanionSizes,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TTargetingValueDayPartTargeting --------------------------------------------------------------------} Procedure TTargetingValueDayPartTargeting.SetdayParts(AIndex : Integer; const AValue : TTargetingValueDayPartTargetingTypedayPartsArray); begin If (FdayParts=AValue) then exit; FdayParts:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueDayPartTargeting.SettimeZoneType(AIndex : Integer; const AValue : String); begin If (FtimeZoneType=AValue) then exit; FtimeZoneType:=AValue; MarkPropertyChanged(AIndex); end; //2.6.4. bug workaround {$IFDEF VER2_6} Procedure TTargetingValueDayPartTargeting.SetArrayLength(Const AName : String; ALength : Longint); begin Case AName of 'dayparts' : SetLength(FdayParts,ALength); else Inherited SetArrayLength(AName,ALength); end; end; {$ENDIF VER2_6} { -------------------------------------------------------------------- TTargetingValueDayPartTargetingDayPart --------------------------------------------------------------------} Procedure TTargetingValueDayPartTargetingDayPart.SetdayOfWeek(AIndex : Integer; const AValue : String); begin If (FdayOfWeek=AValue) then exit; FdayOfWeek:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueDayPartTargetingDayPart.SetendHour(AIndex : Integer; const AValue : integer); begin If (FendHour=AValue) then exit; FendHour:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueDayPartTargetingDayPart.SetendMinute(AIndex : Integer; const AValue : integer); begin If (FendMinute=AValue) then exit; FendMinute:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueDayPartTargetingDayPart.SetstartHour(AIndex : Integer; const AValue : integer); begin If (FstartHour=AValue) then exit; FstartHour:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueDayPartTargetingDayPart.SetstartMinute(AIndex : Integer; const AValue : integer); begin If (FstartMinute=AValue) then exit; FstartMinute:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TTargetingValueSize --------------------------------------------------------------------} Procedure TTargetingValueSize.Setheight(AIndex : Integer; const AValue : integer); begin If (Fheight=AValue) then exit; Fheight:=AValue; MarkPropertyChanged(AIndex); end; Procedure TTargetingValueSize.Setwidth(AIndex : Integer; const AValue : integer); begin If (Fwidth=AValue) then exit; Fwidth:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TUpdatePrivateAuctionProposalRequest --------------------------------------------------------------------} Procedure TUpdatePrivateAuctionProposalRequest.SetexternalDealId(AIndex : Integer; const AValue : String); begin If (FexternalDealId=AValue) then exit; FexternalDealId:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpdatePrivateAuctionProposalRequest.Setnote(AIndex : Integer; const AValue : TMarketplaceNote); begin If (Fnote=AValue) then exit; Fnote:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpdatePrivateAuctionProposalRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String); begin If (FproposalRevisionNumber=AValue) then exit; FproposalRevisionNumber:=AValue; MarkPropertyChanged(AIndex); end; Procedure TUpdatePrivateAuctionProposalRequest.SetupdateAction(AIndex : Integer; const AValue : String); begin If (FupdateAction=AValue) then exit; FupdateAction:=AValue; MarkPropertyChanged(AIndex); end; { -------------------------------------------------------------------- TAccountsResource --------------------------------------------------------------------} Class Function TAccountsResource.ResourceName : String; begin Result:='accounts'; end; Class Function TAccountsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TAccountsResource.Get(id: integer) : TAccount; Const _HTTPMethod = 'GET'; _Path = 'accounts/{id}'; _Methodid = 'adexchangebuyer.accounts.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['id',id]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAccount) as TAccount; end; Function TAccountsResource.List : TAccountsList; Const _HTTPMethod = 'GET'; _Path = 'accounts'; _Methodid = 'adexchangebuyer.accounts.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TAccountsList) as TAccountsList; end; Function TAccountsResource.Patch(id: integer; aAccount : TAccount) : TAccount; Const _HTTPMethod = 'PATCH'; _Path = 'accounts/{id}'; _Methodid = 'adexchangebuyer.accounts.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['id',id]); Result:=ServiceCall(_HTTPMethod,_P,'',aAccount,TAccount) as TAccount; end; Function TAccountsResource.Update(id: integer; aAccount : TAccount) : TAccount; Const _HTTPMethod = 'PUT'; _Path = 'accounts/{id}'; _Methodid = 'adexchangebuyer.accounts.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['id',id]); Result:=ServiceCall(_HTTPMethod,_P,'',aAccount,TAccount) as TAccount; end; { -------------------------------------------------------------------- TBillingInfoResource --------------------------------------------------------------------} Class Function TBillingInfoResource.ResourceName : String; begin Result:='billingInfo'; end; Class Function TBillingInfoResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TBillingInfoResource.Get(accountId: integer) : TBillingInfo; Const _HTTPMethod = 'GET'; _Path = 'billinginfo/{accountId}'; _Methodid = 'adexchangebuyer.billingInfo.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TBillingInfo) as TBillingInfo; end; Function TBillingInfoResource.List : TBillingInfoList; Const _HTTPMethod = 'GET'; _Path = 'billinginfo'; _Methodid = 'adexchangebuyer.billingInfo.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TBillingInfoList) as TBillingInfoList; end; { -------------------------------------------------------------------- TBudgetResource --------------------------------------------------------------------} Class Function TBudgetResource.ResourceName : String; begin Result:='budget'; end; Class Function TBudgetResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TBudgetResource.Get(accountId: string; billingId: string) : TBudget; Const _HTTPMethod = 'GET'; _Path = 'billinginfo/{accountId}/{billingId}'; _Methodid = 'adexchangebuyer.budget.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'billingId',billingId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TBudget) as TBudget; end; Function TBudgetResource.Patch(accountId: string; billingId: string; aBudget : TBudget) : TBudget; Const _HTTPMethod = 'PATCH'; _Path = 'billinginfo/{accountId}/{billingId}'; _Methodid = 'adexchangebuyer.budget.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'billingId',billingId]); Result:=ServiceCall(_HTTPMethod,_P,'',aBudget,TBudget) as TBudget; end; Function TBudgetResource.Update(accountId: string; billingId: string; aBudget : TBudget) : TBudget; Const _HTTPMethod = 'PUT'; _Path = 'billinginfo/{accountId}/{billingId}'; _Methodid = 'adexchangebuyer.budget.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'billingId',billingId]); Result:=ServiceCall(_HTTPMethod,_P,'',aBudget,TBudget) as TBudget; end; { -------------------------------------------------------------------- TCreativesResource --------------------------------------------------------------------} Class Function TCreativesResource.ResourceName : String; begin Result:='creatives'; end; Class Function TCreativesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Procedure TCreativesResource.AddDeal(accountId: integer; buyerCreativeId: string; dealId: string); Const _HTTPMethod = 'POST'; _Path = 'creatives/{accountId}/{buyerCreativeId}/addDeal/{dealId}'; _Methodid = 'adexchangebuyer.creatives.addDeal'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'buyerCreativeId',buyerCreativeId,'dealId',dealId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TCreativesResource.Get(accountId: integer; buyerCreativeId: string) : TCreative; Const _HTTPMethod = 'GET'; _Path = 'creatives/{accountId}/{buyerCreativeId}'; _Methodid = 'adexchangebuyer.creatives.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'buyerCreativeId',buyerCreativeId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCreative) as TCreative; end; Function TCreativesResource.Insert(aCreative : TCreative) : TCreative; Const _HTTPMethod = 'POST'; _Path = 'creatives'; _Methodid = 'adexchangebuyer.creatives.insert'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aCreative,TCreative) as TCreative; end; Function TCreativesResource.List(AQuery : string = '') : TCreativesList; Const _HTTPMethod = 'GET'; _Path = 'creatives'; _Methodid = 'adexchangebuyer.creatives.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TCreativesList) as TCreativesList; end; Function TCreativesResource.List(AQuery : TCreativeslistOptions) : TCreativesList; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'accountId',AQuery.accountId); AddToQuery(_Q,'buyerCreativeId',AQuery.buyerCreativeId); AddToQuery(_Q,'dealsStatusFilter',AQuery.dealsStatusFilter); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'openAuctionStatusFilter',AQuery.openAuctionStatusFilter); AddToQuery(_Q,'pageToken',AQuery.pageToken); Result:=List(_Q); end; Procedure TCreativesResource.RemoveDeal(accountId: integer; buyerCreativeId: string; dealId: string); Const _HTTPMethod = 'POST'; _Path = 'creatives/{accountId}/{buyerCreativeId}/removeDeal/{dealId}'; _Methodid = 'adexchangebuyer.creatives.removeDeal'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'buyerCreativeId',buyerCreativeId,'dealId',dealId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; { -------------------------------------------------------------------- TMarketplacedealsResource --------------------------------------------------------------------} Class Function TMarketplacedealsResource.ResourceName : String; begin Result:='marketplacedeals'; end; Class Function TMarketplacedealsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TMarketplacedealsResource.Delete(proposalId: string; aDeleteOrderDealsRequest : TDeleteOrderDealsRequest) : TDeleteOrderDealsResponse; Const _HTTPMethod = 'POST'; _Path = 'proposals/{proposalId}/deals/delete'; _Methodid = 'adexchangebuyer.marketplacedeals.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); Result:=ServiceCall(_HTTPMethod,_P,'',aDeleteOrderDealsRequest,TDeleteOrderDealsResponse) as TDeleteOrderDealsResponse; end; Function TMarketplacedealsResource.Insert(proposalId: string; aAddOrderDealsRequest : TAddOrderDealsRequest) : TAddOrderDealsResponse; Const _HTTPMethod = 'POST'; _Path = 'proposals/{proposalId}/deals/insert'; _Methodid = 'adexchangebuyer.marketplacedeals.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); Result:=ServiceCall(_HTTPMethod,_P,'',aAddOrderDealsRequest,TAddOrderDealsResponse) as TAddOrderDealsResponse; end; Function TMarketplacedealsResource.List(proposalId: string; AQuery : string = '') : TGetOrderDealsResponse; Const _HTTPMethod = 'GET'; _Path = 'proposals/{proposalId}/deals'; _Methodid = 'adexchangebuyer.marketplacedeals.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGetOrderDealsResponse) as TGetOrderDealsResponse; end; Function TMarketplacedealsResource.List(proposalId: string; AQuery : TMarketplacedealslistOptions) : TGetOrderDealsResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'pqlQuery',AQuery.pqlQuery); Result:=List(proposalId,_Q); end; Function TMarketplacedealsResource.Update(proposalId: string; aEditAllOrderDealsRequest : TEditAllOrderDealsRequest) : TEditAllOrderDealsResponse; Const _HTTPMethod = 'POST'; _Path = 'proposals/{proposalId}/deals/update'; _Methodid = 'adexchangebuyer.marketplacedeals.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); Result:=ServiceCall(_HTTPMethod,_P,'',aEditAllOrderDealsRequest,TEditAllOrderDealsResponse) as TEditAllOrderDealsResponse; end; { -------------------------------------------------------------------- TMarketplacenotesResource --------------------------------------------------------------------} Class Function TMarketplacenotesResource.ResourceName : String; begin Result:='marketplacenotes'; end; Class Function TMarketplacenotesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TMarketplacenotesResource.Insert(proposalId: string; aAddOrderNotesRequest : TAddOrderNotesRequest) : TAddOrderNotesResponse; Const _HTTPMethod = 'POST'; _Path = 'proposals/{proposalId}/notes/insert'; _Methodid = 'adexchangebuyer.marketplacenotes.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); Result:=ServiceCall(_HTTPMethod,_P,'',aAddOrderNotesRequest,TAddOrderNotesResponse) as TAddOrderNotesResponse; end; Function TMarketplacenotesResource.List(proposalId: string) : TGetOrderNotesResponse; Const _HTTPMethod = 'GET'; _Path = 'proposals/{proposalId}/notes'; _Methodid = 'adexchangebuyer.marketplacenotes.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGetOrderNotesResponse) as TGetOrderNotesResponse; end; { -------------------------------------------------------------------- TMarketplaceprivateauctionResource --------------------------------------------------------------------} Class Function TMarketplaceprivateauctionResource.ResourceName : String; begin Result:='marketplaceprivateauction'; end; Class Function TMarketplaceprivateauctionResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Procedure TMarketplaceprivateauctionResource.Updateproposal(privateAuctionId: string; aUpdatePrivateAuctionProposalRequest : TUpdatePrivateAuctionProposalRequest); Const _HTTPMethod = 'POST'; _Path = 'privateauction/{privateAuctionId}/updateproposal'; _Methodid = 'adexchangebuyer.marketplaceprivateauction.updateproposal'; Var _P : String; begin _P:=SubstitutePath(_Path,['privateAuctionId',privateAuctionId]); ServiceCall(_HTTPMethod,_P,'',aUpdatePrivateAuctionProposalRequest,Nil); end; { -------------------------------------------------------------------- TPerformanceReportResource --------------------------------------------------------------------} Class Function TPerformanceReportResource.ResourceName : String; begin Result:='performanceReport'; end; Class Function TPerformanceReportResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TPerformanceReportResource.List(AQuery : string = '') : TPerformanceReportList; Const _HTTPMethod = 'GET'; _Path = 'performancereport'; _Methodid = 'adexchangebuyer.performanceReport.list'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TPerformanceReportList) as TPerformanceReportList; end; Function TPerformanceReportResource.List(AQuery : TPerformanceReportlistOptions) : TPerformanceReportList; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'accountId',AQuery.accountId); AddToQuery(_Q,'endDateTime',AQuery.endDateTime); AddToQuery(_Q,'maxResults',AQuery.maxResults); AddToQuery(_Q,'pageToken',AQuery.pageToken); AddToQuery(_Q,'startDateTime',AQuery.startDateTime); Result:=List(_Q); end; { -------------------------------------------------------------------- TPretargetingConfigResource --------------------------------------------------------------------} Class Function TPretargetingConfigResource.ResourceName : String; begin Result:='pretargetingConfig'; end; Class Function TPretargetingConfigResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Procedure TPretargetingConfigResource.Delete(accountId: string; configId: string); Const _HTTPMethod = 'DELETE'; _Path = 'pretargetingconfigs/{accountId}/{configId}'; _Methodid = 'adexchangebuyer.pretargetingConfig.delete'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'configId',configId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TPretargetingConfigResource.Get(accountId: string; configId: string) : TPretargetingConfig; Const _HTTPMethod = 'GET'; _Path = 'pretargetingconfigs/{accountId}/{configId}'; _Methodid = 'adexchangebuyer.pretargetingConfig.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'configId',configId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPretargetingConfig) as TPretargetingConfig; end; Function TPretargetingConfigResource.Insert(accountId: string; aPretargetingConfig : TPretargetingConfig) : TPretargetingConfig; Const _HTTPMethod = 'POST'; _Path = 'pretargetingconfigs/{accountId}'; _Methodid = 'adexchangebuyer.pretargetingConfig.insert'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,'',aPretargetingConfig,TPretargetingConfig) as TPretargetingConfig; end; Function TPretargetingConfigResource.List(accountId: string) : TPretargetingConfigList; Const _HTTPMethod = 'GET'; _Path = 'pretargetingconfigs/{accountId}'; _Methodid = 'adexchangebuyer.pretargetingConfig.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPretargetingConfigList) as TPretargetingConfigList; end; Function TPretargetingConfigResource.Patch(accountId: string; configId: string; aPretargetingConfig : TPretargetingConfig) : TPretargetingConfig; Const _HTTPMethod = 'PATCH'; _Path = 'pretargetingconfigs/{accountId}/{configId}'; _Methodid = 'adexchangebuyer.pretargetingConfig.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'configId',configId]); Result:=ServiceCall(_HTTPMethod,_P,'',aPretargetingConfig,TPretargetingConfig) as TPretargetingConfig; end; Function TPretargetingConfigResource.Update(accountId: string; configId: string; aPretargetingConfig : TPretargetingConfig) : TPretargetingConfig; Const _HTTPMethod = 'PUT'; _Path = 'pretargetingconfigs/{accountId}/{configId}'; _Methodid = 'adexchangebuyer.pretargetingConfig.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId,'configId',configId]); Result:=ServiceCall(_HTTPMethod,_P,'',aPretargetingConfig,TPretargetingConfig) as TPretargetingConfig; end; { -------------------------------------------------------------------- TProductsResource --------------------------------------------------------------------} Class Function TProductsResource.ResourceName : String; begin Result:='products'; end; Class Function TProductsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TProductsResource.Get(productId: string) : TProduct; Const _HTTPMethod = 'GET'; _Path = 'products/{productId}'; _Methodid = 'adexchangebuyer.products.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['productId',productId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProduct) as TProduct; end; Function TProductsResource.Search(AQuery : string = '') : TGetOffersResponse; Const _HTTPMethod = 'GET'; _Path = 'products/search'; _Methodid = 'adexchangebuyer.products.search'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGetOffersResponse) as TGetOffersResponse; end; Function TProductsResource.Search(AQuery : TProductssearchOptions) : TGetOffersResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'pqlQuery',AQuery.pqlQuery); Result:=Search(_Q); end; { -------------------------------------------------------------------- TProposalsResource --------------------------------------------------------------------} Class Function TProposalsResource.ResourceName : String; begin Result:='proposals'; end; Class Function TProposalsResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TProposalsResource.Get(proposalId: string) : TProposal; Const _HTTPMethod = 'GET'; _Path = 'proposals/{proposalId}'; _Methodid = 'adexchangebuyer.proposals.get'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProposal) as TProposal; end; Function TProposalsResource.Insert(aCreateOrdersRequest : TCreateOrdersRequest) : TCreateOrdersResponse; Const _HTTPMethod = 'POST'; _Path = 'proposals/insert'; _Methodid = 'adexchangebuyer.proposals.insert'; begin Result:=ServiceCall(_HTTPMethod,_Path,'',aCreateOrdersRequest,TCreateOrdersResponse) as TCreateOrdersResponse; end; Function TProposalsResource.Patch(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal; Const _HTTPMethod = 'PATCH'; _Path = 'proposals/{proposalId}/{revisionNumber}/{updateAction}'; _Methodid = 'adexchangebuyer.proposals.patch'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId,'revisionNumber',revisionNumber,'updateAction',_updateAction]); Result:=ServiceCall(_HTTPMethod,_P,'',aProposal,TProposal) as TProposal; end; Function TProposalsResource.Search(AQuery : string = '') : TGetOrdersResponse; Const _HTTPMethod = 'GET'; _Path = 'proposals/search'; _Methodid = 'adexchangebuyer.proposals.search'; begin Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGetOrdersResponse) as TGetOrdersResponse; end; Function TProposalsResource.Search(AQuery : TProposalssearchOptions) : TGetOrdersResponse; Var _Q : String; begin _Q:=''; AddToQuery(_Q,'pqlQuery',AQuery.pqlQuery); Result:=Search(_Q); end; Procedure TProposalsResource.Setupcomplete(proposalId: string); Const _HTTPMethod = 'POST'; _Path = 'proposals/{proposalId}/setupcomplete'; _Methodid = 'adexchangebuyer.proposals.setupcomplete'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId]); ServiceCall(_HTTPMethod,_P,'',Nil,Nil); end; Function TProposalsResource.Update(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal; Const _HTTPMethod = 'PUT'; _Path = 'proposals/{proposalId}/{revisionNumber}/{updateAction}'; _Methodid = 'adexchangebuyer.proposals.update'; Var _P : String; begin _P:=SubstitutePath(_Path,['proposalId',proposalId,'revisionNumber',revisionNumber,'updateAction',_updateAction]); Result:=ServiceCall(_HTTPMethod,_P,'',aProposal,TProposal) as TProposal; end; { -------------------------------------------------------------------- TPubprofilesResource --------------------------------------------------------------------} Class Function TPubprofilesResource.ResourceName : String; begin Result:='pubprofiles'; end; Class Function TPubprofilesResource.DefaultAPI : TGoogleAPIClass; begin Result:=TadexchangebuyerAPI; end; Function TPubprofilesResource.List(accountId: integer) : TGetPublisherProfilesByAccountIdResponse; Const _HTTPMethod = 'GET'; _Path = 'publisher/{accountId}/profiles'; _Methodid = 'adexchangebuyer.pubprofiles.list'; Var _P : String; begin _P:=SubstitutePath(_Path,['accountId',accountId]); Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGetPublisherProfilesByAccountIdResponse) as TGetPublisherProfilesByAccountIdResponse; end; { -------------------------------------------------------------------- TAdexchangebuyerAPI --------------------------------------------------------------------} Class Function TAdexchangebuyerAPI.APIName : String; begin Result:='adexchangebuyer'; end; Class Function TAdexchangebuyerAPI.APIVersion : String; begin Result:='v1.4'; end; Class Function TAdexchangebuyerAPI.APIRevision : String; begin Result:='20160509'; end; Class Function TAdexchangebuyerAPI.APIID : String; begin Result:='adexchangebuyer:v1.4'; end; Class Function TAdexchangebuyerAPI.APITitle : String; begin Result:='Ad Exchange Buyer API'; end; Class Function TAdexchangebuyerAPI.APIDescription : String; begin Result:='Accesses your bidding-account information, submits creatives for validation, finds available direct deals, and retrieves performance reports.'; end; Class Function TAdexchangebuyerAPI.APIOwnerDomain : String; begin Result:='google.com'; end; Class Function TAdexchangebuyerAPI.APIOwnerName : String; begin Result:='Google'; end; Class Function TAdexchangebuyerAPI.APIIcon16 : String; begin Result:='https://www.google.com/images/icons/product/doubleclick-16.gif'; end; Class Function TAdexchangebuyerAPI.APIIcon32 : String; begin Result:='https://www.google.com/images/icons/product/doubleclick-32.gif'; end; Class Function TAdexchangebuyerAPI.APIdocumentationLink : String; begin Result:='https://developers.google.com/ad-exchange/buyer-rest'; end; Class Function TAdexchangebuyerAPI.APIrootUrl : string; begin Result:='https://www.googleapis.com/'; end; Class Function TAdexchangebuyerAPI.APIbasePath : string; begin Result:='/adexchangebuyer/v1.4/'; end; Class Function TAdexchangebuyerAPI.APIbaseURL : String; begin Result:='https://www.googleapis.com/adexchangebuyer/v1.4/'; end; Class Function TAdexchangebuyerAPI.APIProtocol : string; begin Result:='rest'; end; Class Function TAdexchangebuyerAPI.APIservicePath : string; begin Result:='adexchangebuyer/v1.4/'; end; Class Function TAdexchangebuyerAPI.APIbatchPath : String; begin Result:='batch'; end; Class Function TAdexchangebuyerAPI.APIAuthScopes : TScopeInfoArray; begin SetLength(Result,1); Result[0].Name:='https://www.googleapis.com/auth/adexchange.buyer'; Result[0].Description:='Manage your Ad Exchange buyer account configuration'; end; Class Function TAdexchangebuyerAPI.APINeedsAuth : Boolean; begin Result:=True; end; Class Procedure TAdexchangebuyerAPI.RegisterAPIResources; begin TAccountTypebidderLocationItem.RegisterObject; TAccount.RegisterObject; TAccountsList.RegisterObject; TAddOrderDealsRequest.RegisterObject; TAddOrderDealsResponse.RegisterObject; TAddOrderNotesRequest.RegisterObject; TAddOrderNotesResponse.RegisterObject; TBillingInfo.RegisterObject; TBillingInfoList.RegisterObject; TBudget.RegisterObject; TBuyer.RegisterObject; TContactInformation.RegisterObject; TCreateOrdersRequest.RegisterObject; TCreateOrdersResponse.RegisterObject; TCreativeTypecorrectionsItem.RegisterObject; TCreativeTypefilteringReasonsTypereasonsItem.RegisterObject; TCreativeTypefilteringReasons.RegisterObject; TCreativeTypenativeAdTypeappIcon.RegisterObject; TCreativeTypenativeAdTypeimage.RegisterObject; TCreativeTypenativeAdTypelogo.RegisterObject; TCreativeTypenativeAd.RegisterObject; TCreativeTypeservingRestrictionsItemTypecontextsItem.RegisterObject; TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.RegisterObject; TCreativeTypeservingRestrictionsItem.RegisterObject; TCreative.RegisterObject; TCreativesList.RegisterObject; TDealServingMetadata.RegisterObject; TDealServingMetadataDealPauseStatus.RegisterObject; TDealTerms.RegisterObject; TDealTermsGuaranteedFixedPriceTerms.RegisterObject; TDealTermsGuaranteedFixedPriceTermsBillingInfo.RegisterObject; TDealTermsNonGuaranteedAuctionTerms.RegisterObject; TDealTermsNonGuaranteedFixedPriceTerms.RegisterObject; TDeleteOrderDealsRequest.RegisterObject; TDeleteOrderDealsResponse.RegisterObject; TDeliveryControl.RegisterObject; TDeliveryControlFrequencyCap.RegisterObject; TDimension.RegisterObject; TDimensionDimensionValue.RegisterObject; TEditAllOrderDealsRequest.RegisterObject; TEditAllOrderDealsResponse.RegisterObject; TGetOffersResponse.RegisterObject; TGetOrderDealsResponse.RegisterObject; TGetOrderNotesResponse.RegisterObject; TGetOrdersResponse.RegisterObject; TGetPublisherProfilesByAccountIdResponse.RegisterObject; TMarketplaceDeal.RegisterObject; TMarketplaceDealParty.RegisterObject; TMarketplaceLabel.RegisterObject; TMarketplaceNote.RegisterObject; TPerformanceReport.RegisterObject; TPerformanceReportList.RegisterObject; TPretargetingConfigTypedimensionsItem.RegisterObject; TPretargetingConfigTypeexcludedPlacementsItem.RegisterObject; TPretargetingConfigTypeplacementsItem.RegisterObject; TPretargetingConfigTypevideoPlayerSizesItem.RegisterObject; TPretargetingConfig.RegisterObject; TPretargetingConfigList.RegisterObject; TPrice.RegisterObject; TPricePerBuyer.RegisterObject; TPrivateData.RegisterObject; TProduct.RegisterObject; TProposal.RegisterObject; TPublisherProfileApiProto.RegisterObject; TPublisherProvidedForecast.RegisterObject; TSeller.RegisterObject; TSharedTargeting.RegisterObject; TTargetingValue.RegisterObject; TTargetingValueCreativeSize.RegisterObject; TTargetingValueDayPartTargeting.RegisterObject; TTargetingValueDayPartTargetingDayPart.RegisterObject; TTargetingValueSize.RegisterObject; TUpdatePrivateAuctionProposalRequest.RegisterObject; end; Function TAdexchangebuyerAPI.GetAccountsInstance : TAccountsResource; begin if (FAccountsInstance=Nil) then FAccountsInstance:=CreateAccountsResource; Result:=FAccountsInstance; end; Function TAdexchangebuyerAPI.CreateAccountsResource : TAccountsResource; begin Result:=CreateAccountsResource(Self); end; Function TAdexchangebuyerAPI.CreateAccountsResource(AOwner : TComponent) : TAccountsResource; begin Result:=TAccountsResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetBillingInfoInstance : TBillingInfoResource; begin if (FBillingInfoInstance=Nil) then FBillingInfoInstance:=CreateBillingInfoResource; Result:=FBillingInfoInstance; end; Function TAdexchangebuyerAPI.CreateBillingInfoResource : TBillingInfoResource; begin Result:=CreateBillingInfoResource(Self); end; Function TAdexchangebuyerAPI.CreateBillingInfoResource(AOwner : TComponent) : TBillingInfoResource; begin Result:=TBillingInfoResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetBudgetInstance : TBudgetResource; begin if (FBudgetInstance=Nil) then FBudgetInstance:=CreateBudgetResource; Result:=FBudgetInstance; end; Function TAdexchangebuyerAPI.CreateBudgetResource : TBudgetResource; begin Result:=CreateBudgetResource(Self); end; Function TAdexchangebuyerAPI.CreateBudgetResource(AOwner : TComponent) : TBudgetResource; begin Result:=TBudgetResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetCreativesInstance : TCreativesResource; begin if (FCreativesInstance=Nil) then FCreativesInstance:=CreateCreativesResource; Result:=FCreativesInstance; end; Function TAdexchangebuyerAPI.CreateCreativesResource : TCreativesResource; begin Result:=CreateCreativesResource(Self); end; Function TAdexchangebuyerAPI.CreateCreativesResource(AOwner : TComponent) : TCreativesResource; begin Result:=TCreativesResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetMarketplacedealsInstance : TMarketplacedealsResource; begin if (FMarketplacedealsInstance=Nil) then FMarketplacedealsInstance:=CreateMarketplacedealsResource; Result:=FMarketplacedealsInstance; end; Function TAdexchangebuyerAPI.CreateMarketplacedealsResource : TMarketplacedealsResource; begin Result:=CreateMarketplacedealsResource(Self); end; Function TAdexchangebuyerAPI.CreateMarketplacedealsResource(AOwner : TComponent) : TMarketplacedealsResource; begin Result:=TMarketplacedealsResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetMarketplacenotesInstance : TMarketplacenotesResource; begin if (FMarketplacenotesInstance=Nil) then FMarketplacenotesInstance:=CreateMarketplacenotesResource; Result:=FMarketplacenotesInstance; end; Function TAdexchangebuyerAPI.CreateMarketplacenotesResource : TMarketplacenotesResource; begin Result:=CreateMarketplacenotesResource(Self); end; Function TAdexchangebuyerAPI.CreateMarketplacenotesResource(AOwner : TComponent) : TMarketplacenotesResource; begin Result:=TMarketplacenotesResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetMarketplaceprivateauctionInstance : TMarketplaceprivateauctionResource; begin if (FMarketplaceprivateauctionInstance=Nil) then FMarketplaceprivateauctionInstance:=CreateMarketplaceprivateauctionResource; Result:=FMarketplaceprivateauctionInstance; end; Function TAdexchangebuyerAPI.CreateMarketplaceprivateauctionResource : TMarketplaceprivateauctionResource; begin Result:=CreateMarketplaceprivateauctionResource(Self); end; Function TAdexchangebuyerAPI.CreateMarketplaceprivateauctionResource(AOwner : TComponent) : TMarketplaceprivateauctionResource; begin Result:=TMarketplaceprivateauctionResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetPerformanceReportInstance : TPerformanceReportResource; begin if (FPerformanceReportInstance=Nil) then FPerformanceReportInstance:=CreatePerformanceReportResource; Result:=FPerformanceReportInstance; end; Function TAdexchangebuyerAPI.CreatePerformanceReportResource : TPerformanceReportResource; begin Result:=CreatePerformanceReportResource(Self); end; Function TAdexchangebuyerAPI.CreatePerformanceReportResource(AOwner : TComponent) : TPerformanceReportResource; begin Result:=TPerformanceReportResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetPretargetingConfigInstance : TPretargetingConfigResource; begin if (FPretargetingConfigInstance=Nil) then FPretargetingConfigInstance:=CreatePretargetingConfigResource; Result:=FPretargetingConfigInstance; end; Function TAdexchangebuyerAPI.CreatePretargetingConfigResource : TPretargetingConfigResource; begin Result:=CreatePretargetingConfigResource(Self); end; Function TAdexchangebuyerAPI.CreatePretargetingConfigResource(AOwner : TComponent) : TPretargetingConfigResource; begin Result:=TPretargetingConfigResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetProductsInstance : TProductsResource; begin if (FProductsInstance=Nil) then FProductsInstance:=CreateProductsResource; Result:=FProductsInstance; end; Function TAdexchangebuyerAPI.CreateProductsResource : TProductsResource; begin Result:=CreateProductsResource(Self); end; Function TAdexchangebuyerAPI.CreateProductsResource(AOwner : TComponent) : TProductsResource; begin Result:=TProductsResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetProposalsInstance : TProposalsResource; begin if (FProposalsInstance=Nil) then FProposalsInstance:=CreateProposalsResource; Result:=FProposalsInstance; end; Function TAdexchangebuyerAPI.CreateProposalsResource : TProposalsResource; begin Result:=CreateProposalsResource(Self); end; Function TAdexchangebuyerAPI.CreateProposalsResource(AOwner : TComponent) : TProposalsResource; begin Result:=TProposalsResource.Create(AOwner); Result.API:=Self.API; end; Function TAdexchangebuyerAPI.GetPubprofilesInstance : TPubprofilesResource; begin if (FPubprofilesInstance=Nil) then FPubprofilesInstance:=CreatePubprofilesResource; Result:=FPubprofilesInstance; end; Function TAdexchangebuyerAPI.CreatePubprofilesResource : TPubprofilesResource; begin Result:=CreatePubprofilesResource(Self); end; Function TAdexchangebuyerAPI.CreatePubprofilesResource(AOwner : TComponent) : TPubprofilesResource; begin Result:=TPubprofilesResource.Create(AOwner); Result.API:=Self.API; end; initialization TAdexchangebuyerAPI.RegisterAPI; end.