12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013 |
- unit googlegan;
- {
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
- }
- //Generated on: 16-5-15 08:53:04
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TAdvertiser = Class;
- TAdvertisers = Class;
- TCcOffer = Class;
- TCcOffers = Class;
- TEvent = Class;
- TEvents = Class;
- TLink = Class;
- TLinks = Class;
- TMoney = Class;
- TPublisher = Class;
- TPublishers = Class;
- TReport = Class;
- TAdvertiserArray = Array of TAdvertiser;
- TAdvertisersArray = Array of TAdvertisers;
- TCcOfferArray = Array of TCcOffer;
- TCcOffersArray = Array of TCcOffers;
- TEventArray = Array of TEvent;
- TEventsArray = Array of TEvents;
- TLinkArray = Array of TLink;
- TLinksArray = Array of TLinks;
- TMoneyArray = Array of TMoney;
- TPublisherArray = Array of TPublisher;
- TPublishersArray = Array of TPublishers;
- TReportArray = Array of TReport;
- //Anonymous types, using auto-generated names
- TCcOfferTypebonusRewardsItem = Class;
- TCcOfferTypedefaultFeesItem = Class;
- TCcOfferTyperewardsItem = Class;
- TEventTypeproductsItem = Class;
- TLinkTypespecialOffers = Class;
- TAdvertisersTypeitemsArray = Array of TAdvertiser;
- TCcOfferTypebonusRewardsArray = Array of TCcOfferTypebonusRewardsItem;
- TCcOfferTypedefaultFeesArray = Array of TCcOfferTypedefaultFeesItem;
- TCcOfferTyperewardsArray = Array of TCcOfferTyperewardsItem;
- TCcOffersTypeitemsArray = Array of TCcOffer;
- TEventTypeproductsArray = Array of TEventTypeproductsItem;
- TEventsTypeitemsArray = Array of TEvent;
- TLinksTypeitemsArray = Array of TLink;
- TPublishersTypeitemsArray = Array of TPublisher;
- TReportTyperowsArray = Array of TTJSONSchemaArray;
- TReportTypetotals_rowsArray = Array of TTJSONSchemaArray;
-
- { --------------------------------------------------------------------
- TAdvertiser
- --------------------------------------------------------------------}
-
- TAdvertiser = Class(TGoogleBaseObject)
- Private
- FallowPublisherCreatedLinks : boolean;
- Fcategory : String;
- FcommissionDuration : integer;
- FcontactEmail : String;
- FcontactPhone : String;
- FdefaultLinkId : String;
- Fdescription : String;
- FepcNinetyDayAverage : TMoney;
- FepcSevenDayAverage : TMoney;
- Fid : String;
- Fitem : TAdvertiser;
- FjoinDate : TDatetime;
- Fkind : String;
- FlogoUrl : String;
- FmerchantCenterIds : TStringArray;
- Fname : String;
- FpayoutRank : String;
- FproductFeedsEnabled : boolean;
- FredirectDomains : TStringArray;
- FsiteUrl : String;
- Fstatus : String;
- Protected
- //Property setters
- Procedure SetallowPublisherCreatedLinks(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcommissionDuration(AIndex : Integer; AValue : integer); virtual;
- Procedure SetcontactEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontactPhone(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultLinkId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetepcNinetyDayAverage(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetepcSevenDayAverage(AIndex : Integer; AValue : TMoney); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitem(AIndex : Integer; AValue : TAdvertiser); virtual;
- Procedure SetjoinDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlogoUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmerchantCenterIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpayoutRank(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproductFeedsEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetredirectDomains(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsiteUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property allowPublisherCreatedLinks : boolean Index 0 Read FallowPublisherCreatedLinks Write SetallowPublisherCreatedLinks;
- Property category : String Index 8 Read Fcategory Write Setcategory;
- Property commissionDuration : integer Index 16 Read FcommissionDuration Write SetcommissionDuration;
- Property contactEmail : String Index 24 Read FcontactEmail Write SetcontactEmail;
- Property contactPhone : String Index 32 Read FcontactPhone Write SetcontactPhone;
- Property defaultLinkId : String Index 40 Read FdefaultLinkId Write SetdefaultLinkId;
- Property description : String Index 48 Read Fdescription Write Setdescription;
- Property epcNinetyDayAverage : TMoney Index 56 Read FepcNinetyDayAverage Write SetepcNinetyDayAverage;
- Property epcSevenDayAverage : TMoney Index 64 Read FepcSevenDayAverage Write SetepcSevenDayAverage;
- Property id : String Index 72 Read Fid Write Setid;
- Property item : TAdvertiser Index 80 Read Fitem Write Setitem;
- Property joinDate : TDatetime Index 88 Read FjoinDate Write SetjoinDate;
- Property kind : String Index 96 Read Fkind Write Setkind;
- Property logoUrl : String Index 104 Read FlogoUrl Write SetlogoUrl;
- Property merchantCenterIds : TStringArray Index 112 Read FmerchantCenterIds Write SetmerchantCenterIds;
- Property name : String Index 120 Read Fname Write Setname;
- Property payoutRank : String Index 128 Read FpayoutRank Write SetpayoutRank;
- Property productFeedsEnabled : boolean Index 136 Read FproductFeedsEnabled Write SetproductFeedsEnabled;
- Property redirectDomains : TStringArray Index 144 Read FredirectDomains Write SetredirectDomains;
- Property siteUrl : String Index 152 Read FsiteUrl Write SetsiteUrl;
- Property status : String Index 160 Read Fstatus Write Setstatus;
- end;
- TAdvertiserClass = Class of TAdvertiser;
-
- { --------------------------------------------------------------------
- TAdvertisers
- --------------------------------------------------------------------}
-
- TAdvertisers = Class(TGoogleBaseObject)
- Private
- Fitems : TAdvertisersTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAdvertisersTypeitemsArray); 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 : TAdvertisersTypeitemsArray 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;
- TAdvertisersClass = Class of TAdvertisers;
-
- { --------------------------------------------------------------------
- TCcOfferTypebonusRewardsItem
- --------------------------------------------------------------------}
-
- TCcOfferTypebonusRewardsItem = Class(TGoogleBaseObject)
- Private
- Famount : double;
- Fdetails : String;
- Protected
- //Property setters
- Procedure Setamount(AIndex : Integer; AValue : double); virtual;
- Procedure Setdetails(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property amount : double Index 0 Read Famount Write Setamount;
- Property details : String Index 8 Read Fdetails Write Setdetails;
- end;
- TCcOfferTypebonusRewardsItemClass = Class of TCcOfferTypebonusRewardsItem;
-
- { --------------------------------------------------------------------
- TCcOfferTypedefaultFeesItem
- --------------------------------------------------------------------}
-
- TCcOfferTypedefaultFeesItem = Class(TGoogleBaseObject)
- Private
- Fcategory : String;
- FmaxRate : double;
- FminRate : double;
- FrateType : String;
- Protected
- //Property setters
- Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxRate(AIndex : Integer; AValue : double); virtual;
- Procedure SetminRate(AIndex : Integer; AValue : double); virtual;
- Procedure SetrateType(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property category : String Index 0 Read Fcategory Write Setcategory;
- Property maxRate : double Index 8 Read FmaxRate Write SetmaxRate;
- Property minRate : double Index 16 Read FminRate Write SetminRate;
- Property rateType : String Index 24 Read FrateType Write SetrateType;
- end;
- TCcOfferTypedefaultFeesItemClass = Class of TCcOfferTypedefaultFeesItem;
-
- { --------------------------------------------------------------------
- TCcOfferTyperewardsItem
- --------------------------------------------------------------------}
-
- TCcOfferTyperewardsItem = Class(TGoogleBaseObject)
- Private
- FadditionalDetails : String;
- Famount : double;
- Fcategory : String;
- FexpirationMonths : double;
- FmaxRewardTier : double;
- FminRewardTier : double;
- Protected
- //Property setters
- Procedure SetadditionalDetails(AIndex : Integer; const AValue : String); virtual;
- Procedure Setamount(AIndex : Integer; AValue : double); virtual;
- Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexpirationMonths(AIndex : Integer; AValue : double); virtual;
- Procedure SetmaxRewardTier(AIndex : Integer; AValue : double); virtual;
- Procedure SetminRewardTier(AIndex : Integer; AValue : double); virtual;
- Public
- Published
- Property additionalDetails : String Index 0 Read FadditionalDetails Write SetadditionalDetails;
- Property amount : double Index 8 Read Famount Write Setamount;
- Property category : String Index 16 Read Fcategory Write Setcategory;
- Property expirationMonths : double Index 24 Read FexpirationMonths Write SetexpirationMonths;
- Property maxRewardTier : double Index 32 Read FmaxRewardTier Write SetmaxRewardTier;
- Property minRewardTier : double Index 40 Read FminRewardTier Write SetminRewardTier;
- end;
- TCcOfferTyperewardsItemClass = Class of TCcOfferTyperewardsItem;
-
- { --------------------------------------------------------------------
- TCcOffer
- --------------------------------------------------------------------}
-
- TCcOffer = Class(TGoogleBaseObject)
- Private
- FadditionalCardBenefits : TStringArray;
- FadditionalCardHolderFee : String;
- FageMinimum : double;
- FageMinimumDetails : String;
- FannualFee : double;
- FannualFeeDisplay : String;
- FannualRewardMaximum : double;
- FapprovedCategories : TStringArray;
- FaprDisplay : String;
- FbalanceComputationMethod : String;
- FbalanceTransferTerms : String;
- FbonusRewards : TCcOfferTypebonusRewardsArray;
- FcarRentalInsurance : String;
- FcardBenefits : TStringArray;
- FcardName : String;
- FcardType : String;
- FcashAdvanceTerms : String;
- FcreditLimitMax : double;
- FcreditLimitMin : double;
- FcreditRatingDisplay : String;
- FdefaultFees : TCcOfferTypedefaultFeesArray;
- Fdisclaimer : String;
- FemergencyInsurance : String;
- FexistingCustomerOnly : boolean;
- FextendedWarranty : String;
- FfirstYearAnnualFee : double;
- FflightAccidentInsurance : String;
- FforeignCurrencyTransactionFee : String;
- FfraudLiability : String;
- FgracePeriodDisplay : String;
- FimageUrl : String;
- FinitialSetupAndProcessingFee : String;
- FintroBalanceTransferTerms : String;
- FintroCashAdvanceTerms : String;
- FintroPurchaseTerms : String;
- Fissuer : String;
- FissuerId : String;
- FissuerWebsite : String;
- Fkind : String;
- FlandingPageUrl : String;
- FlatePaymentFee : String;
- FluggageInsurance : String;
- FmaxPurchaseRate : double;
- FminPurchaseRate : double;
- FminimumFinanceCharge : String;
- Fnetwork : String;
- FofferId : String;
- FoffersImmediateCashReward : boolean;
- FoverLimitFee : String;
- FprohibitedCategories : TStringArray;
- FpurchaseRateAdditionalDetails : String;
- FpurchaseRateType : String;
- FreturnedPaymentFee : String;
- FrewardPartner : String;
- FrewardUnit : String;
- Frewards : TCcOfferTyperewardsArray;
- FrewardsExpire : boolean;
- FrewardsHaveBlackoutDates : boolean;
- FstatementCopyFee : String;
- FtrackingUrl : String;
- FtravelInsurance : String;
- FvariableRatesLastUpdated : String;
- FvariableRatesUpdateFrequency : String;
- Protected
- //Property setters
- Procedure SetadditionalCardBenefits(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetadditionalCardHolderFee(AIndex : Integer; const AValue : String); virtual;
- Procedure SetageMinimum(AIndex : Integer; AValue : double); virtual;
- Procedure SetageMinimumDetails(AIndex : Integer; const AValue : String); virtual;
- Procedure SetannualFee(AIndex : Integer; AValue : double); virtual;
- Procedure SetannualFeeDisplay(AIndex : Integer; const AValue : String); virtual;
- Procedure SetannualRewardMaximum(AIndex : Integer; AValue : double); virtual;
- Procedure SetapprovedCategories(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetaprDisplay(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbalanceComputationMethod(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbalanceTransferTerms(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbonusRewards(AIndex : Integer; AValue : TCcOfferTypebonusRewardsArray); virtual;
- Procedure SetcarRentalInsurance(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcardBenefits(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetcardName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcardType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcashAdvanceTerms(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreditLimitMax(AIndex : Integer; AValue : double); virtual;
- Procedure SetcreditLimitMin(AIndex : Integer; AValue : double); virtual;
- Procedure SetcreditRatingDisplay(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultFees(AIndex : Integer; AValue : TCcOfferTypedefaultFeesArray); virtual;
- Procedure Setdisclaimer(AIndex : Integer; const AValue : String); virtual;
- Procedure SetemergencyInsurance(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexistingCustomerOnly(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetextendedWarranty(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfirstYearAnnualFee(AIndex : Integer; AValue : double); virtual;
- Procedure SetflightAccidentInsurance(AIndex : Integer; const AValue : String); virtual;
- Procedure SetforeignCurrencyTransactionFee(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfraudLiability(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgracePeriodDisplay(AIndex : Integer; const AValue : String); virtual;
- Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinitialSetupAndProcessingFee(AIndex : Integer; const AValue : String); virtual;
- Procedure SetintroBalanceTransferTerms(AIndex : Integer; const AValue : String); virtual;
- Procedure SetintroCashAdvanceTerms(AIndex : Integer; const AValue : String); virtual;
- Procedure SetintroPurchaseTerms(AIndex : Integer; const AValue : String); virtual;
- Procedure Setissuer(AIndex : Integer; const AValue : String); virtual;
- Procedure SetissuerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetissuerWebsite(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlandingPageUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlatePaymentFee(AIndex : Integer; const AValue : String); virtual;
- Procedure SetluggageInsurance(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxPurchaseRate(AIndex : Integer; AValue : double); virtual;
- Procedure SetminPurchaseRate(AIndex : Integer; AValue : double); virtual;
- Procedure SetminimumFinanceCharge(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
- Procedure SetofferId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoffersImmediateCashReward(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetoverLimitFee(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprohibitedCategories(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetpurchaseRateAdditionalDetails(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpurchaseRateType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreturnedPaymentFee(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrewardPartner(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrewardUnit(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrewards(AIndex : Integer; AValue : TCcOfferTyperewardsArray); virtual;
- Procedure SetrewardsExpire(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetrewardsHaveBlackoutDates(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetstatementCopyFee(AIndex : Integer; const AValue : String); virtual;
- Procedure SettrackingUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SettravelInsurance(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariableRatesLastUpdated(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariableRatesUpdateFrequency(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 additionalCardBenefits : TStringArray Index 0 Read FadditionalCardBenefits Write SetadditionalCardBenefits;
- Property additionalCardHolderFee : String Index 8 Read FadditionalCardHolderFee Write SetadditionalCardHolderFee;
- Property ageMinimum : double Index 16 Read FageMinimum Write SetageMinimum;
- Property ageMinimumDetails : String Index 24 Read FageMinimumDetails Write SetageMinimumDetails;
- Property annualFee : double Index 32 Read FannualFee Write SetannualFee;
- Property annualFeeDisplay : String Index 40 Read FannualFeeDisplay Write SetannualFeeDisplay;
- Property annualRewardMaximum : double Index 48 Read FannualRewardMaximum Write SetannualRewardMaximum;
- Property approvedCategories : TStringArray Index 56 Read FapprovedCategories Write SetapprovedCategories;
- Property aprDisplay : String Index 64 Read FaprDisplay Write SetaprDisplay;
- Property balanceComputationMethod : String Index 72 Read FbalanceComputationMethod Write SetbalanceComputationMethod;
- Property balanceTransferTerms : String Index 80 Read FbalanceTransferTerms Write SetbalanceTransferTerms;
- Property bonusRewards : TCcOfferTypebonusRewardsArray Index 88 Read FbonusRewards Write SetbonusRewards;
- Property carRentalInsurance : String Index 96 Read FcarRentalInsurance Write SetcarRentalInsurance;
- Property cardBenefits : TStringArray Index 104 Read FcardBenefits Write SetcardBenefits;
- Property cardName : String Index 112 Read FcardName Write SetcardName;
- Property cardType : String Index 120 Read FcardType Write SetcardType;
- Property cashAdvanceTerms : String Index 128 Read FcashAdvanceTerms Write SetcashAdvanceTerms;
- Property creditLimitMax : double Index 136 Read FcreditLimitMax Write SetcreditLimitMax;
- Property creditLimitMin : double Index 144 Read FcreditLimitMin Write SetcreditLimitMin;
- Property creditRatingDisplay : String Index 152 Read FcreditRatingDisplay Write SetcreditRatingDisplay;
- Property defaultFees : TCcOfferTypedefaultFeesArray Index 160 Read FdefaultFees Write SetdefaultFees;
- Property disclaimer : String Index 168 Read Fdisclaimer Write Setdisclaimer;
- Property emergencyInsurance : String Index 176 Read FemergencyInsurance Write SetemergencyInsurance;
- Property existingCustomerOnly : boolean Index 184 Read FexistingCustomerOnly Write SetexistingCustomerOnly;
- Property extendedWarranty : String Index 192 Read FextendedWarranty Write SetextendedWarranty;
- Property firstYearAnnualFee : double Index 200 Read FfirstYearAnnualFee Write SetfirstYearAnnualFee;
- Property flightAccidentInsurance : String Index 208 Read FflightAccidentInsurance Write SetflightAccidentInsurance;
- Property foreignCurrencyTransactionFee : String Index 216 Read FforeignCurrencyTransactionFee Write SetforeignCurrencyTransactionFee;
- Property fraudLiability : String Index 224 Read FfraudLiability Write SetfraudLiability;
- Property gracePeriodDisplay : String Index 232 Read FgracePeriodDisplay Write SetgracePeriodDisplay;
- Property imageUrl : String Index 240 Read FimageUrl Write SetimageUrl;
- Property initialSetupAndProcessingFee : String Index 248 Read FinitialSetupAndProcessingFee Write SetinitialSetupAndProcessingFee;
- Property introBalanceTransferTerms : String Index 256 Read FintroBalanceTransferTerms Write SetintroBalanceTransferTerms;
- Property introCashAdvanceTerms : String Index 264 Read FintroCashAdvanceTerms Write SetintroCashAdvanceTerms;
- Property introPurchaseTerms : String Index 272 Read FintroPurchaseTerms Write SetintroPurchaseTerms;
- Property issuer : String Index 280 Read Fissuer Write Setissuer;
- Property issuerId : String Index 288 Read FissuerId Write SetissuerId;
- Property issuerWebsite : String Index 296 Read FissuerWebsite Write SetissuerWebsite;
- Property kind : String Index 304 Read Fkind Write Setkind;
- Property landingPageUrl : String Index 312 Read FlandingPageUrl Write SetlandingPageUrl;
- Property latePaymentFee : String Index 320 Read FlatePaymentFee Write SetlatePaymentFee;
- Property luggageInsurance : String Index 328 Read FluggageInsurance Write SetluggageInsurance;
- Property maxPurchaseRate : double Index 336 Read FmaxPurchaseRate Write SetmaxPurchaseRate;
- Property minPurchaseRate : double Index 344 Read FminPurchaseRate Write SetminPurchaseRate;
- Property minimumFinanceCharge : String Index 352 Read FminimumFinanceCharge Write SetminimumFinanceCharge;
- Property network : String Index 360 Read Fnetwork Write Setnetwork;
- Property offerId : String Index 368 Read FofferId Write SetofferId;
- Property offersImmediateCashReward : boolean Index 376 Read FoffersImmediateCashReward Write SetoffersImmediateCashReward;
- Property overLimitFee : String Index 384 Read FoverLimitFee Write SetoverLimitFee;
- Property prohibitedCategories : TStringArray Index 392 Read FprohibitedCategories Write SetprohibitedCategories;
- Property purchaseRateAdditionalDetails : String Index 400 Read FpurchaseRateAdditionalDetails Write SetpurchaseRateAdditionalDetails;
- Property purchaseRateType : String Index 408 Read FpurchaseRateType Write SetpurchaseRateType;
- Property returnedPaymentFee : String Index 416 Read FreturnedPaymentFee Write SetreturnedPaymentFee;
- Property rewardPartner : String Index 424 Read FrewardPartner Write SetrewardPartner;
- Property rewardUnit : String Index 432 Read FrewardUnit Write SetrewardUnit;
- Property rewards : TCcOfferTyperewardsArray Index 440 Read Frewards Write Setrewards;
- Property rewardsExpire : boolean Index 448 Read FrewardsExpire Write SetrewardsExpire;
- Property rewardsHaveBlackoutDates : boolean Index 456 Read FrewardsHaveBlackoutDates Write SetrewardsHaveBlackoutDates;
- Property statementCopyFee : String Index 464 Read FstatementCopyFee Write SetstatementCopyFee;
- Property trackingUrl : String Index 472 Read FtrackingUrl Write SettrackingUrl;
- Property travelInsurance : String Index 480 Read FtravelInsurance Write SettravelInsurance;
- Property variableRatesLastUpdated : String Index 488 Read FvariableRatesLastUpdated Write SetvariableRatesLastUpdated;
- Property variableRatesUpdateFrequency : String Index 496 Read FvariableRatesUpdateFrequency Write SetvariableRatesUpdateFrequency;
- end;
- TCcOfferClass = Class of TCcOffer;
-
- { --------------------------------------------------------------------
- TCcOffers
- --------------------------------------------------------------------}
-
- TCcOffers = Class(TGoogleBaseObject)
- Private
- Fitems : TCcOffersTypeitemsArray;
- Fkind : String;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCcOffersTypeitemsArray); 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 : TCcOffersTypeitemsArray Index 0 Read Fitems Write Setitems;
- Property kind : String Index 8 Read Fkind Write Setkind;
- end;
- TCcOffersClass = Class of TCcOffers;
-
- { --------------------------------------------------------------------
- TEventTypeproductsItem
- --------------------------------------------------------------------}
-
- TEventTypeproductsItem = Class(TGoogleBaseObject)
- Private
- FcategoryId : String;
- FcategoryName : String;
- Fearnings : TMoney;
- FnetworkFee : TMoney;
- FpublisherFee : TMoney;
- Fquantity : String;
- Fsku : String;
- FskuName : String;
- FunitPrice : TMoney;
- Protected
- //Property setters
- Procedure SetcategoryId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcategoryName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setearnings(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetnetworkFee(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetpublisherFee(AIndex : Integer; AValue : TMoney); virtual;
- Procedure Setquantity(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsku(AIndex : Integer; const AValue : String); virtual;
- Procedure SetskuName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetunitPrice(AIndex : Integer; AValue : TMoney); virtual;
- Public
- Published
- Property categoryId : String Index 0 Read FcategoryId Write SetcategoryId;
- Property categoryName : String Index 8 Read FcategoryName Write SetcategoryName;
- Property earnings : TMoney Index 16 Read Fearnings Write Setearnings;
- Property networkFee : TMoney Index 24 Read FnetworkFee Write SetnetworkFee;
- Property publisherFee : TMoney Index 32 Read FpublisherFee Write SetpublisherFee;
- Property quantity : String Index 40 Read Fquantity Write Setquantity;
- Property sku : String Index 48 Read Fsku Write Setsku;
- Property skuName : String Index 56 Read FskuName Write SetskuName;
- Property unitPrice : TMoney Index 64 Read FunitPrice Write SetunitPrice;
- end;
- TEventTypeproductsItemClass = Class of TEventTypeproductsItem;
-
- { --------------------------------------------------------------------
- TEvent
- --------------------------------------------------------------------}
-
- TEvent = Class(TGoogleBaseObject)
- Private
- FadvertiserId : String;
- FadvertiserName : String;
- FchargeId : String;
- FchargeType : String;
- FcommissionableSales : TMoney;
- Fearnings : TMoney;
- FeventDate : TDatetime;
- Fkind : String;
- FmemberId : String;
- FmodifyDate : TDatetime;
- FnetworkFee : TMoney;
- ForderId : String;
- Fproducts : TEventTypeproductsArray;
- FpublisherFee : TMoney;
- FpublisherId : String;
- FpublisherName : String;
- Fstatus : String;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchargeId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchargeType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcommissionableSales(AIndex : Integer; AValue : TMoney); virtual;
- Procedure Setearnings(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SeteventDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmemberId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodifyDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetnetworkFee(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetorderId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setproducts(AIndex : Integer; AValue : TEventTypeproductsArray); virtual;
- Procedure SetpublisherFee(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetpublisherId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublisherName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(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 advertiserId : String Index 0 Read FadvertiserId Write SetadvertiserId;
- Property advertiserName : String Index 8 Read FadvertiserName Write SetadvertiserName;
- Property chargeId : String Index 16 Read FchargeId Write SetchargeId;
- Property chargeType : String Index 24 Read FchargeType Write SetchargeType;
- Property commissionableSales : TMoney Index 32 Read FcommissionableSales Write SetcommissionableSales;
- Property earnings : TMoney Index 40 Read Fearnings Write Setearnings;
- Property eventDate : TDatetime Index 48 Read FeventDate Write SeteventDate;
- Property kind : String Index 56 Read Fkind Write Setkind;
- Property memberId : String Index 64 Read FmemberId Write SetmemberId;
- Property modifyDate : TDatetime Index 72 Read FmodifyDate Write SetmodifyDate;
- Property networkFee : TMoney Index 80 Read FnetworkFee Write SetnetworkFee;
- Property orderId : String Index 88 Read ForderId Write SetorderId;
- Property products : TEventTypeproductsArray Index 96 Read Fproducts Write Setproducts;
- Property publisherFee : TMoney Index 104 Read FpublisherFee Write SetpublisherFee;
- Property publisherId : String Index 112 Read FpublisherId Write SetpublisherId;
- Property publisherName : String Index 120 Read FpublisherName Write SetpublisherName;
- Property status : String Index 128 Read Fstatus Write Setstatus;
- Property _type : String Index 136 Read F_type Write Set_type;
- end;
- TEventClass = Class of TEvent;
-
- { --------------------------------------------------------------------
- TEvents
- --------------------------------------------------------------------}
-
- TEvents = Class(TGoogleBaseObject)
- Private
- Fitems : TEventsTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; AValue : TEventsTypeitemsArray); 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 : TEventsTypeitemsArray 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;
- TEventsClass = Class of TEvents;
-
- { --------------------------------------------------------------------
- TLinkTypespecialOffers
- --------------------------------------------------------------------}
-
- TLinkTypespecialOffers = Class(TGoogleBaseObject)
- Private
- FfreeGift : boolean;
- FfreeShipping : boolean;
- FfreeShippingMin : TMoney;
- FpercentOff : double;
- FpercentOffMin : TMoney;
- FpriceCut : TMoney;
- FpriceCutMin : TMoney;
- FpromotionCodes : TStringArray;
- Protected
- //Property setters
- Procedure SetfreeGift(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetfreeShipping(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetfreeShippingMin(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetpercentOff(AIndex : Integer; AValue : double); virtual;
- Procedure SetpercentOffMin(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetpriceCut(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetpriceCutMin(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetpromotionCodes(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property freeGift : boolean Index 0 Read FfreeGift Write SetfreeGift;
- Property freeShipping : boolean Index 8 Read FfreeShipping Write SetfreeShipping;
- Property freeShippingMin : TMoney Index 16 Read FfreeShippingMin Write SetfreeShippingMin;
- Property percentOff : double Index 24 Read FpercentOff Write SetpercentOff;
- Property percentOffMin : TMoney Index 32 Read FpercentOffMin Write SetpercentOffMin;
- Property priceCut : TMoney Index 40 Read FpriceCut Write SetpriceCut;
- Property priceCutMin : TMoney Index 48 Read FpriceCutMin Write SetpriceCutMin;
- Property promotionCodes : TStringArray Index 56 Read FpromotionCodes Write SetpromotionCodes;
- end;
- TLinkTypespecialOffersClass = Class of TLinkTypespecialOffers;
-
- { --------------------------------------------------------------------
- TLink
- --------------------------------------------------------------------}
-
- TLink = Class(TGoogleBaseObject)
- Private
- FadvertiserId : String;
- Fauthorship : String;
- Favailability : String;
- FclickTrackingUrl : String;
- FcreateDate : TDatetime;
- Fdescription : String;
- FdestinationUrl : String;
- Fduration : String;
- FendDate : TDatetime;
- FepcNinetyDayAverage : TMoney;
- FepcSevenDayAverage : TMoney;
- Fid : String;
- FimageAltText : String;
- FimpressionTrackingUrl : String;
- FisActive : boolean;
- Fkind : String;
- FlinkType : String;
- Fname : String;
- FpromotionType : String;
- FspecialOffers : TLinkTypespecialOffers;
- FstartDate : TDatetime;
- Protected
- //Property setters
- Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setauthorship(AIndex : Integer; const AValue : String); virtual;
- Procedure Setavailability(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclickTrackingUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreateDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdestinationUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setduration(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetepcNinetyDayAverage(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetepcSevenDayAverage(AIndex : Integer; AValue : TMoney); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetimageAltText(AIndex : Integer; const AValue : String); virtual;
- Procedure SetimpressionTrackingUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisActive(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlinkType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpromotionType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetspecialOffers(AIndex : Integer; AValue : TLinkTypespecialOffers); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDatetime); virtual;
- Public
- Published
- Property advertiserId : String Index 0 Read FadvertiserId Write SetadvertiserId;
- Property authorship : String Index 8 Read Fauthorship Write Setauthorship;
- Property availability : String Index 16 Read Favailability Write Setavailability;
- Property clickTrackingUrl : String Index 24 Read FclickTrackingUrl Write SetclickTrackingUrl;
- Property createDate : TDatetime Index 32 Read FcreateDate Write SetcreateDate;
- Property description : String Index 40 Read Fdescription Write Setdescription;
- Property destinationUrl : String Index 48 Read FdestinationUrl Write SetdestinationUrl;
- Property duration : String Index 56 Read Fduration Write Setduration;
- Property endDate : TDatetime Index 64 Read FendDate Write SetendDate;
- Property epcNinetyDayAverage : TMoney Index 72 Read FepcNinetyDayAverage Write SetepcNinetyDayAverage;
- Property epcSevenDayAverage : TMoney Index 80 Read FepcSevenDayAverage Write SetepcSevenDayAverage;
- Property id : String Index 88 Read Fid Write Setid;
- Property imageAltText : String Index 96 Read FimageAltText Write SetimageAltText;
- Property impressionTrackingUrl : String Index 104 Read FimpressionTrackingUrl Write SetimpressionTrackingUrl;
- Property isActive : boolean Index 112 Read FisActive Write SetisActive;
- Property kind : String Index 120 Read Fkind Write Setkind;
- Property linkType : String Index 128 Read FlinkType Write SetlinkType;
- Property name : String Index 136 Read Fname Write Setname;
- Property promotionType : String Index 144 Read FpromotionType Write SetpromotionType;
- Property specialOffers : TLinkTypespecialOffers Index 152 Read FspecialOffers Write SetspecialOffers;
- Property startDate : TDatetime Index 160 Read FstartDate Write SetstartDate;
- end;
- TLinkClass = Class of TLink;
-
- { --------------------------------------------------------------------
- TLinks
- --------------------------------------------------------------------}
-
- TLinks = Class(TGoogleBaseObject)
- Private
- Fitems : TLinksTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; AValue : TLinksTypeitemsArray); 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 : TLinksTypeitemsArray 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;
- TLinksClass = Class of TLinks;
-
- { --------------------------------------------------------------------
- TMoney
- --------------------------------------------------------------------}
-
- TMoney = Class(TGoogleBaseObject)
- Private
- Famount : double;
- FcurrencyCode : String;
- Protected
- //Property setters
- Procedure Setamount(AIndex : Integer; AValue : double); virtual;
- Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property amount : double Index 0 Read Famount Write Setamount;
- Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode;
- end;
- TMoneyClass = Class of TMoney;
-
- { --------------------------------------------------------------------
- TPublisher
- --------------------------------------------------------------------}
-
- TPublisher = Class(TGoogleBaseObject)
- Private
- Fclassification : String;
- FepcNinetyDayAverage : TMoney;
- FepcSevenDayAverage : TMoney;
- Fid : String;
- Fitem : TPublisher;
- FjoinDate : TDatetime;
- Fkind : String;
- Fname : String;
- FpayoutRank : String;
- Fsites : TStringArray;
- Fstatus : String;
- Protected
- //Property setters
- Procedure Setclassification(AIndex : Integer; const AValue : String); virtual;
- Procedure SetepcNinetyDayAverage(AIndex : Integer; AValue : TMoney); virtual;
- Procedure SetepcSevenDayAverage(AIndex : Integer; AValue : TMoney); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitem(AIndex : Integer; AValue : TPublisher); virtual;
- Procedure SetjoinDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpayoutRank(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsites(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property classification : String Index 0 Read Fclassification Write Setclassification;
- Property epcNinetyDayAverage : TMoney Index 8 Read FepcNinetyDayAverage Write SetepcNinetyDayAverage;
- Property epcSevenDayAverage : TMoney Index 16 Read FepcSevenDayAverage Write SetepcSevenDayAverage;
- Property id : String Index 24 Read Fid Write Setid;
- Property item : TPublisher Index 32 Read Fitem Write Setitem;
- Property joinDate : TDatetime Index 40 Read FjoinDate Write SetjoinDate;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property name : String Index 56 Read Fname Write Setname;
- Property payoutRank : String Index 64 Read FpayoutRank Write SetpayoutRank;
- Property sites : TStringArray Index 72 Read Fsites Write Setsites;
- Property status : String Index 80 Read Fstatus Write Setstatus;
- end;
- TPublisherClass = Class of TPublisher;
-
- { --------------------------------------------------------------------
- TPublishers
- --------------------------------------------------------------------}
-
- TPublishers = Class(TGoogleBaseObject)
- Private
- Fitems : TPublishersTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPublishersTypeitemsArray); 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 : TPublishersTypeitemsArray 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;
- TPublishersClass = Class of TPublishers;
-
- { --------------------------------------------------------------------
- TReport
- --------------------------------------------------------------------}
-
- TReport = Class(TGoogleBaseObject)
- Private
- Fcolumn_names : TStringArray;
- Fend_date : String;
- Fkind : String;
- Fmatching_row_count : String;
- Frows : TReportTyperowsArray;
- Fstart_date : String;
- Ftotals_rows : TReportTypetotals_rowsArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcolumn_names(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setend_date(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmatching_row_count(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
- Procedure Setstart_date(AIndex : Integer; const AValue : String); virtual;
- Procedure Settotals_rows(AIndex : Integer; AValue : TReportTypetotals_rowsArray); virtual;
- Procedure Set_type(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 column_names : TStringArray Index 0 Read Fcolumn_names Write Setcolumn_names;
- Property end_date : String Index 8 Read Fend_date Write Setend_date;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property matching_row_count : String Index 24 Read Fmatching_row_count Write Setmatching_row_count;
- Property rows : TReportTyperowsArray Index 32 Read Frows Write Setrows;
- Property start_date : String Index 40 Read Fstart_date Write Setstart_date;
- Property totals_rows : TReportTypetotals_rowsArray Index 48 Read Ftotals_rows Write Settotals_rows;
- Property _type : String Index 56 Read F_type Write Set_type;
- end;
- TReportClass = Class of TReport;
-
- { --------------------------------------------------------------------
- TAdvertisersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAdvertisersResource, method Get
-
- TAdvertisersGetOptions = Record
- advertiserId : String;
- end;
-
-
- //Optional query Options for TAdvertisersResource, method List
-
- TAdvertisersListOptions = Record
- advertiserCategory : String;
- maxResults : integer;
- minNinetyDayEpc : double;
- minPayoutRank : integer;
- minSevenDayEpc : double;
- pageToken : String;
- relationshipStatus : String;
- end;
-
- TAdvertisersResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(role: string; roleId: string; AQuery : string = '') : TAdvertiser;
- Function Get(role: string; roleId: string; AQuery : TAdvertisersgetOptions) : TAdvertiser;
- Function List(role: string; roleId: string; AQuery : string = '') : TAdvertisers;
- Function List(role: string; roleId: string; AQuery : TAdvertiserslistOptions) : TAdvertisers;
- end;
-
-
- { --------------------------------------------------------------------
- TCcOffersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TCcOffersResource, method List
-
- TCcOffersListOptions = Record
- advertiser : String;
- projection : String;
- end;
-
- TCcOffersResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(publisher: string; AQuery : string = '') : TCcOffers;
- Function List(publisher: string; AQuery : TCcOfferslistOptions) : TCcOffers;
- end;
-
-
- { --------------------------------------------------------------------
- TEventsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TEventsResource, method List
-
- TEventsListOptions = Record
- advertiserId : String;
- chargeType : String;
- eventDateMax : String;
- eventDateMin : String;
- linkId : String;
- maxResults : integer;
- memberId : String;
- modifyDateMax : String;
- modifyDateMin : String;
- orderId : String;
- pageToken : String;
- productCategory : String;
- publisherId : String;
- sku : String;
- status : String;
- _type : String;
- end;
-
- TEventsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(role: string; roleId: string; AQuery : string = '') : TEvents;
- Function List(role: string; roleId: string; AQuery : TEventslistOptions) : TEvents;
- end;
-
-
- { --------------------------------------------------------------------
- TLinksResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TLinksResource, method List
-
- TLinksListOptions = Record
- advertiserId : int64;
- assetSize : String;
- authorship : String;
- createDateMax : String;
- createDateMin : String;
- linkType : String;
- maxResults : integer;
- pageToken : String;
- promotionType : String;
- relationshipStatus : String;
- searchText : String;
- startDateMax : String;
- startDateMin : String;
- end;
-
- TLinksResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(linkId: string; role: string; roleId: string) : TLink;
- Function Insert(role: string; roleId: string; aLink : TLink) : TLink;
- Function List(role: string; roleId: string; AQuery : string = '') : TLinks;
- Function List(role: string; roleId: string; AQuery : TLinkslistOptions) : TLinks;
- end;
-
-
- { --------------------------------------------------------------------
- TPublishersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TPublishersResource, method Get
-
- TPublishersGetOptions = Record
- publisherId : String;
- end;
-
-
- //Optional query Options for TPublishersResource, method List
-
- TPublishersListOptions = Record
- maxResults : integer;
- minNinetyDayEpc : double;
- minPayoutRank : integer;
- minSevenDayEpc : double;
- pageToken : String;
- publisherCategory : String;
- relationshipStatus : String;
- end;
-
- TPublishersResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(role: string; roleId: string; AQuery : string = '') : TPublisher;
- Function Get(role: string; roleId: string; AQuery : TPublishersgetOptions) : TPublisher;
- Function List(role: string; roleId: string; AQuery : string = '') : TPublishers;
- Function List(role: string; roleId: string; AQuery : TPublisherslistOptions) : TPublishers;
- end;
-
-
- { --------------------------------------------------------------------
- TReportsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TReportsResource, method Get
-
- TReportsGetOptions = Record
- advertiserId : String;
- calculateTotals : boolean;
- endDate : String;
- eventType : String;
- linkId : String;
- maxResults : integer;
- orderId : String;
- publisherId : String;
- startDate : String;
- startIndex : integer;
- status : String;
- end;
-
- TReportsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(reportType: string; role: string; roleId: string; AQuery : string = '') : TReport;
- Function Get(reportType: string; role: string; roleId: string; AQuery : TReportsgetOptions) : TReport;
- end;
-
-
- { --------------------------------------------------------------------
- TGanAPI
- --------------------------------------------------------------------}
-
- TGanAPI = Class(TGoogleAPI)
- Private
- FAdvertisersInstance : TAdvertisersResource;
- FCcOffersInstance : TCcOffersResource;
- FEventsInstance : TEventsResource;
- FLinksInstance : TLinksResource;
- FPublishersInstance : TPublishersResource;
- FReportsInstance : TReportsResource;
- Function GetAdvertisersInstance : TAdvertisersResource;virtual;
- Function GetCcOffersInstance : TCcOffersResource;virtual;
- Function GetEventsInstance : TEventsResource;virtual;
- Function GetLinksInstance : TLinksResource;virtual;
- Function GetPublishersInstance : TPublishersResource;virtual;
- Function GetReportsInstance : TReportsResource;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 CreateAdvertisersResource(AOwner : TComponent) : TAdvertisersResource;virtual;overload;
- Function CreateAdvertisersResource : TAdvertisersResource;virtual;overload;
- Function CreateCcOffersResource(AOwner : TComponent) : TCcOffersResource;virtual;overload;
- Function CreateCcOffersResource : TCcOffersResource;virtual;overload;
- Function CreateEventsResource(AOwner : TComponent) : TEventsResource;virtual;overload;
- Function CreateEventsResource : TEventsResource;virtual;overload;
- Function CreateLinksResource(AOwner : TComponent) : TLinksResource;virtual;overload;
- Function CreateLinksResource : TLinksResource;virtual;overload;
- Function CreatePublishersResource(AOwner : TComponent) : TPublishersResource;virtual;overload;
- Function CreatePublishersResource : TPublishersResource;virtual;overload;
- Function CreateReportsResource(AOwner : TComponent) : TReportsResource;virtual;overload;
- Function CreateReportsResource : TReportsResource;virtual;overload;
- //Add default on-demand instances for resources
- Property AdvertisersResource : TAdvertisersResource Read GetAdvertisersInstance;
- Property CcOffersResource : TCcOffersResource Read GetCcOffersInstance;
- Property EventsResource : TEventsResource Read GetEventsInstance;
- Property LinksResource : TLinksResource Read GetLinksInstance;
- Property PublishersResource : TPublishersResource Read GetPublishersInstance;
- Property ReportsResource : TReportsResource Read GetReportsInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TAdvertiser
- --------------------------------------------------------------------}
- Procedure TAdvertiser.SetallowPublisherCreatedLinks(AIndex : Integer; AValue : boolean);
- begin
- If (FallowPublisherCreatedLinks=AValue) then exit;
- FallowPublisherCreatedLinks:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.Setcategory(AIndex : Integer; const AValue : String);
- begin
- If (Fcategory=AValue) then exit;
- Fcategory:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetcommissionDuration(AIndex : Integer; AValue : integer);
- begin
- If (FcommissionDuration=AValue) then exit;
- FcommissionDuration:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetcontactEmail(AIndex : Integer; const AValue : String);
- begin
- If (FcontactEmail=AValue) then exit;
- FcontactEmail:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetcontactPhone(AIndex : Integer; const AValue : String);
- begin
- If (FcontactPhone=AValue) then exit;
- FcontactPhone:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetdefaultLinkId(AIndex : Integer; const AValue : String);
- begin
- If (FdefaultLinkId=AValue) then exit;
- FdefaultLinkId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetepcNinetyDayAverage(AIndex : Integer; AValue : TMoney);
- begin
- If (FepcNinetyDayAverage=AValue) then exit;
- FepcNinetyDayAverage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetepcSevenDayAverage(AIndex : Integer; AValue : TMoney);
- begin
- If (FepcSevenDayAverage=AValue) then exit;
- FepcSevenDayAverage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.Setitem(AIndex : Integer; AValue : TAdvertiser);
- begin
- If (Fitem=AValue) then exit;
- Fitem:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetjoinDate(AIndex : Integer; AValue : TDatetime);
- begin
- If (FjoinDate=AValue) then exit;
- FjoinDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetlogoUrl(AIndex : Integer; const AValue : String);
- begin
- If (FlogoUrl=AValue) then exit;
- FlogoUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetmerchantCenterIds(AIndex : Integer; AValue : TStringArray);
- begin
- If (FmerchantCenterIds=AValue) then exit;
- FmerchantCenterIds:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetpayoutRank(AIndex : Integer; const AValue : String);
- begin
- If (FpayoutRank=AValue) then exit;
- FpayoutRank:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetproductFeedsEnabled(AIndex : Integer; AValue : boolean);
- begin
- If (FproductFeedsEnabled=AValue) then exit;
- FproductFeedsEnabled:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetredirectDomains(AIndex : Integer; AValue : TStringArray);
- begin
- If (FredirectDomains=AValue) then exit;
- FredirectDomains:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.SetsiteUrl(AIndex : Integer; const AValue : String);
- begin
- If (FsiteUrl=AValue) then exit;
- FsiteUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertiser.Setstatus(AIndex : Integer; const AValue : String);
- begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TAdvertiser.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'merchantcenterids' : SetLength(FmerchantCenterIds,ALength);
- 'redirectdomains' : SetLength(FredirectDomains,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TAdvertisers
- --------------------------------------------------------------------}
- Procedure TAdvertisers.Setitems(AIndex : Integer; AValue : TAdvertisersTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertisers.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertisers.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 TAdvertisers.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCcOfferTypebonusRewardsItem
- --------------------------------------------------------------------}
- Procedure TCcOfferTypebonusRewardsItem.Setamount(AIndex : Integer; AValue : double);
- begin
- If (Famount=AValue) then exit;
- Famount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTypebonusRewardsItem.Setdetails(AIndex : Integer; const AValue : String);
- begin
- If (Fdetails=AValue) then exit;
- Fdetails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCcOfferTypedefaultFeesItem
- --------------------------------------------------------------------}
- Procedure TCcOfferTypedefaultFeesItem.Setcategory(AIndex : Integer; const AValue : String);
- begin
- If (Fcategory=AValue) then exit;
- Fcategory:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTypedefaultFeesItem.SetmaxRate(AIndex : Integer; AValue : double);
- begin
- If (FmaxRate=AValue) then exit;
- FmaxRate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTypedefaultFeesItem.SetminRate(AIndex : Integer; AValue : double);
- begin
- If (FminRate=AValue) then exit;
- FminRate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTypedefaultFeesItem.SetrateType(AIndex : Integer; const AValue : String);
- begin
- If (FrateType=AValue) then exit;
- FrateType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCcOfferTyperewardsItem
- --------------------------------------------------------------------}
- Procedure TCcOfferTyperewardsItem.SetadditionalDetails(AIndex : Integer; const AValue : String);
- begin
- If (FadditionalDetails=AValue) then exit;
- FadditionalDetails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTyperewardsItem.Setamount(AIndex : Integer; AValue : double);
- begin
- If (Famount=AValue) then exit;
- Famount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTyperewardsItem.Setcategory(AIndex : Integer; const AValue : String);
- begin
- If (Fcategory=AValue) then exit;
- Fcategory:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTyperewardsItem.SetexpirationMonths(AIndex : Integer; AValue : double);
- begin
- If (FexpirationMonths=AValue) then exit;
- FexpirationMonths:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTyperewardsItem.SetmaxRewardTier(AIndex : Integer; AValue : double);
- begin
- If (FmaxRewardTier=AValue) then exit;
- FmaxRewardTier:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOfferTyperewardsItem.SetminRewardTier(AIndex : Integer; AValue : double);
- begin
- If (FminRewardTier=AValue) then exit;
- FminRewardTier:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCcOffer
- --------------------------------------------------------------------}
- Procedure TCcOffer.SetadditionalCardBenefits(AIndex : Integer; AValue : TStringArray);
- begin
- If (FadditionalCardBenefits=AValue) then exit;
- FadditionalCardBenefits:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetadditionalCardHolderFee(AIndex : Integer; const AValue : String);
- begin
- If (FadditionalCardHolderFee=AValue) then exit;
- FadditionalCardHolderFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetageMinimum(AIndex : Integer; AValue : double);
- begin
- If (FageMinimum=AValue) then exit;
- FageMinimum:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetageMinimumDetails(AIndex : Integer; const AValue : String);
- begin
- If (FageMinimumDetails=AValue) then exit;
- FageMinimumDetails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetannualFee(AIndex : Integer; AValue : double);
- begin
- If (FannualFee=AValue) then exit;
- FannualFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetannualFeeDisplay(AIndex : Integer; const AValue : String);
- begin
- If (FannualFeeDisplay=AValue) then exit;
- FannualFeeDisplay:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetannualRewardMaximum(AIndex : Integer; AValue : double);
- begin
- If (FannualRewardMaximum=AValue) then exit;
- FannualRewardMaximum:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetapprovedCategories(AIndex : Integer; AValue : TStringArray);
- begin
- If (FapprovedCategories=AValue) then exit;
- FapprovedCategories:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetaprDisplay(AIndex : Integer; const AValue : String);
- begin
- If (FaprDisplay=AValue) then exit;
- FaprDisplay:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetbalanceComputationMethod(AIndex : Integer; const AValue : String);
- begin
- If (FbalanceComputationMethod=AValue) then exit;
- FbalanceComputationMethod:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetbalanceTransferTerms(AIndex : Integer; const AValue : String);
- begin
- If (FbalanceTransferTerms=AValue) then exit;
- FbalanceTransferTerms:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetbonusRewards(AIndex : Integer; AValue : TCcOfferTypebonusRewardsArray);
- begin
- If (FbonusRewards=AValue) then exit;
- FbonusRewards:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcarRentalInsurance(AIndex : Integer; const AValue : String);
- begin
- If (FcarRentalInsurance=AValue) then exit;
- FcarRentalInsurance:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcardBenefits(AIndex : Integer; AValue : TStringArray);
- begin
- If (FcardBenefits=AValue) then exit;
- FcardBenefits:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcardName(AIndex : Integer; const AValue : String);
- begin
- If (FcardName=AValue) then exit;
- FcardName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcardType(AIndex : Integer; const AValue : String);
- begin
- If (FcardType=AValue) then exit;
- FcardType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcashAdvanceTerms(AIndex : Integer; const AValue : String);
- begin
- If (FcashAdvanceTerms=AValue) then exit;
- FcashAdvanceTerms:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcreditLimitMax(AIndex : Integer; AValue : double);
- begin
- If (FcreditLimitMax=AValue) then exit;
- FcreditLimitMax:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcreditLimitMin(AIndex : Integer; AValue : double);
- begin
- If (FcreditLimitMin=AValue) then exit;
- FcreditLimitMin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetcreditRatingDisplay(AIndex : Integer; const AValue : String);
- begin
- If (FcreditRatingDisplay=AValue) then exit;
- FcreditRatingDisplay:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetdefaultFees(AIndex : Integer; AValue : TCcOfferTypedefaultFeesArray);
- begin
- If (FdefaultFees=AValue) then exit;
- FdefaultFees:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.Setdisclaimer(AIndex : Integer; const AValue : String);
- begin
- If (Fdisclaimer=AValue) then exit;
- Fdisclaimer:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetemergencyInsurance(AIndex : Integer; const AValue : String);
- begin
- If (FemergencyInsurance=AValue) then exit;
- FemergencyInsurance:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetexistingCustomerOnly(AIndex : Integer; AValue : boolean);
- begin
- If (FexistingCustomerOnly=AValue) then exit;
- FexistingCustomerOnly:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetextendedWarranty(AIndex : Integer; const AValue : String);
- begin
- If (FextendedWarranty=AValue) then exit;
- FextendedWarranty:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetfirstYearAnnualFee(AIndex : Integer; AValue : double);
- begin
- If (FfirstYearAnnualFee=AValue) then exit;
- FfirstYearAnnualFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetflightAccidentInsurance(AIndex : Integer; const AValue : String);
- begin
- If (FflightAccidentInsurance=AValue) then exit;
- FflightAccidentInsurance:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetforeignCurrencyTransactionFee(AIndex : Integer; const AValue : String);
- begin
- If (FforeignCurrencyTransactionFee=AValue) then exit;
- FforeignCurrencyTransactionFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetfraudLiability(AIndex : Integer; const AValue : String);
- begin
- If (FfraudLiability=AValue) then exit;
- FfraudLiability:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetgracePeriodDisplay(AIndex : Integer; const AValue : String);
- begin
- If (FgracePeriodDisplay=AValue) then exit;
- FgracePeriodDisplay:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetimageUrl(AIndex : Integer; const AValue : String);
- begin
- If (FimageUrl=AValue) then exit;
- FimageUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetinitialSetupAndProcessingFee(AIndex : Integer; const AValue : String);
- begin
- If (FinitialSetupAndProcessingFee=AValue) then exit;
- FinitialSetupAndProcessingFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetintroBalanceTransferTerms(AIndex : Integer; const AValue : String);
- begin
- If (FintroBalanceTransferTerms=AValue) then exit;
- FintroBalanceTransferTerms:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetintroCashAdvanceTerms(AIndex : Integer; const AValue : String);
- begin
- If (FintroCashAdvanceTerms=AValue) then exit;
- FintroCashAdvanceTerms:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetintroPurchaseTerms(AIndex : Integer; const AValue : String);
- begin
- If (FintroPurchaseTerms=AValue) then exit;
- FintroPurchaseTerms:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.Setissuer(AIndex : Integer; const AValue : String);
- begin
- If (Fissuer=AValue) then exit;
- Fissuer:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetissuerId(AIndex : Integer; const AValue : String);
- begin
- If (FissuerId=AValue) then exit;
- FissuerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetissuerWebsite(AIndex : Integer; const AValue : String);
- begin
- If (FissuerWebsite=AValue) then exit;
- FissuerWebsite:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetlandingPageUrl(AIndex : Integer; const AValue : String);
- begin
- If (FlandingPageUrl=AValue) then exit;
- FlandingPageUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetlatePaymentFee(AIndex : Integer; const AValue : String);
- begin
- If (FlatePaymentFee=AValue) then exit;
- FlatePaymentFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetluggageInsurance(AIndex : Integer; const AValue : String);
- begin
- If (FluggageInsurance=AValue) then exit;
- FluggageInsurance:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetmaxPurchaseRate(AIndex : Integer; AValue : double);
- begin
- If (FmaxPurchaseRate=AValue) then exit;
- FmaxPurchaseRate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetminPurchaseRate(AIndex : Integer; AValue : double);
- begin
- If (FminPurchaseRate=AValue) then exit;
- FminPurchaseRate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetminimumFinanceCharge(AIndex : Integer; const AValue : String);
- begin
- If (FminimumFinanceCharge=AValue) then exit;
- FminimumFinanceCharge:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.Setnetwork(AIndex : Integer; const AValue : String);
- begin
- If (Fnetwork=AValue) then exit;
- Fnetwork:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetofferId(AIndex : Integer; const AValue : String);
- begin
- If (FofferId=AValue) then exit;
- FofferId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetoffersImmediateCashReward(AIndex : Integer; AValue : boolean);
- begin
- If (FoffersImmediateCashReward=AValue) then exit;
- FoffersImmediateCashReward:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetoverLimitFee(AIndex : Integer; const AValue : String);
- begin
- If (FoverLimitFee=AValue) then exit;
- FoverLimitFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetprohibitedCategories(AIndex : Integer; AValue : TStringArray);
- begin
- If (FprohibitedCategories=AValue) then exit;
- FprohibitedCategories:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetpurchaseRateAdditionalDetails(AIndex : Integer; const AValue : String);
- begin
- If (FpurchaseRateAdditionalDetails=AValue) then exit;
- FpurchaseRateAdditionalDetails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetpurchaseRateType(AIndex : Integer; const AValue : String);
- begin
- If (FpurchaseRateType=AValue) then exit;
- FpurchaseRateType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetreturnedPaymentFee(AIndex : Integer; const AValue : String);
- begin
- If (FreturnedPaymentFee=AValue) then exit;
- FreturnedPaymentFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetrewardPartner(AIndex : Integer; const AValue : String);
- begin
- If (FrewardPartner=AValue) then exit;
- FrewardPartner:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetrewardUnit(AIndex : Integer; const AValue : String);
- begin
- If (FrewardUnit=AValue) then exit;
- FrewardUnit:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.Setrewards(AIndex : Integer; AValue : TCcOfferTyperewardsArray);
- begin
- If (Frewards=AValue) then exit;
- Frewards:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetrewardsExpire(AIndex : Integer; AValue : boolean);
- begin
- If (FrewardsExpire=AValue) then exit;
- FrewardsExpire:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetrewardsHaveBlackoutDates(AIndex : Integer; AValue : boolean);
- begin
- If (FrewardsHaveBlackoutDates=AValue) then exit;
- FrewardsHaveBlackoutDates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetstatementCopyFee(AIndex : Integer; const AValue : String);
- begin
- If (FstatementCopyFee=AValue) then exit;
- FstatementCopyFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SettrackingUrl(AIndex : Integer; const AValue : String);
- begin
- If (FtrackingUrl=AValue) then exit;
- FtrackingUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SettravelInsurance(AIndex : Integer; const AValue : String);
- begin
- If (FtravelInsurance=AValue) then exit;
- FtravelInsurance:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetvariableRatesLastUpdated(AIndex : Integer; const AValue : String);
- begin
- If (FvariableRatesLastUpdated=AValue) then exit;
- FvariableRatesLastUpdated:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffer.SetvariableRatesUpdateFrequency(AIndex : Integer; const AValue : String);
- begin
- If (FvariableRatesUpdateFrequency=AValue) then exit;
- FvariableRatesUpdateFrequency:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TCcOffer.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'additionalcardbenefits' : SetLength(FadditionalCardBenefits,ALength);
- 'approvedcategories' : SetLength(FapprovedCategories,ALength);
- 'bonusrewards' : SetLength(FbonusRewards,ALength);
- 'cardbenefits' : SetLength(FcardBenefits,ALength);
- 'defaultfees' : SetLength(FdefaultFees,ALength);
- 'prohibitedcategories' : SetLength(FprohibitedCategories,ALength);
- 'rewards' : SetLength(Frewards,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCcOffers
- --------------------------------------------------------------------}
- Procedure TCcOffers.Setitems(AIndex : Integer; AValue : TCcOffersTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCcOffers.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 TCcOffers.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TEventTypeproductsItem
- --------------------------------------------------------------------}
- Procedure TEventTypeproductsItem.SetcategoryId(AIndex : Integer; const AValue : String);
- begin
- If (FcategoryId=AValue) then exit;
- FcategoryId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.SetcategoryName(AIndex : Integer; const AValue : String);
- begin
- If (FcategoryName=AValue) then exit;
- FcategoryName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.Setearnings(AIndex : Integer; AValue : TMoney);
- begin
- If (Fearnings=AValue) then exit;
- Fearnings:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.SetnetworkFee(AIndex : Integer; AValue : TMoney);
- begin
- If (FnetworkFee=AValue) then exit;
- FnetworkFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.SetpublisherFee(AIndex : Integer; AValue : TMoney);
- begin
- If (FpublisherFee=AValue) then exit;
- FpublisherFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.Setquantity(AIndex : Integer; const AValue : String);
- begin
- If (Fquantity=AValue) then exit;
- Fquantity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.Setsku(AIndex : Integer; const AValue : String);
- begin
- If (Fsku=AValue) then exit;
- Fsku:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.SetskuName(AIndex : Integer; const AValue : String);
- begin
- If (FskuName=AValue) then exit;
- FskuName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEventTypeproductsItem.SetunitPrice(AIndex : Integer; AValue : TMoney);
- begin
- If (FunitPrice=AValue) then exit;
- FunitPrice:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TEvent
- --------------------------------------------------------------------}
- Procedure TEvent.SetadvertiserId(AIndex : Integer; const AValue : String);
- begin
- If (FadvertiserId=AValue) then exit;
- FadvertiserId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetadvertiserName(AIndex : Integer; const AValue : String);
- begin
- If (FadvertiserName=AValue) then exit;
- FadvertiserName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetchargeId(AIndex : Integer; const AValue : String);
- begin
- If (FchargeId=AValue) then exit;
- FchargeId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetchargeType(AIndex : Integer; const AValue : String);
- begin
- If (FchargeType=AValue) then exit;
- FchargeType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetcommissionableSales(AIndex : Integer; AValue : TMoney);
- begin
- If (FcommissionableSales=AValue) then exit;
- FcommissionableSales:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.Setearnings(AIndex : Integer; AValue : TMoney);
- begin
- If (Fearnings=AValue) then exit;
- Fearnings:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SeteventDate(AIndex : Integer; AValue : TDatetime);
- begin
- If (FeventDate=AValue) then exit;
- FeventDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetmemberId(AIndex : Integer; const AValue : String);
- begin
- If (FmemberId=AValue) then exit;
- FmemberId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetmodifyDate(AIndex : Integer; AValue : TDatetime);
- begin
- If (FmodifyDate=AValue) then exit;
- FmodifyDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetnetworkFee(AIndex : Integer; AValue : TMoney);
- begin
- If (FnetworkFee=AValue) then exit;
- FnetworkFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetorderId(AIndex : Integer; const AValue : String);
- begin
- If (ForderId=AValue) then exit;
- ForderId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.Setproducts(AIndex : Integer; AValue : TEventTypeproductsArray);
- begin
- If (Fproducts=AValue) then exit;
- Fproducts:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetpublisherFee(AIndex : Integer; AValue : TMoney);
- begin
- If (FpublisherFee=AValue) then exit;
- FpublisherFee:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetpublisherId(AIndex : Integer; const AValue : String);
- begin
- If (FpublisherId=AValue) then exit;
- FpublisherId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.SetpublisherName(AIndex : Integer; const AValue : String);
- begin
- If (FpublisherName=AValue) then exit;
- FpublisherName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.Setstatus(AIndex : Integer; const AValue : String);
- begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvent.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TEvent.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TEvent.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'products' : SetLength(Fproducts,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TEvents
- --------------------------------------------------------------------}
- Procedure TEvents.Setitems(AIndex : Integer; AValue : TEventsTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvents.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEvents.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 TEvents.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TLinkTypespecialOffers
- --------------------------------------------------------------------}
- Procedure TLinkTypespecialOffers.SetfreeGift(AIndex : Integer; AValue : boolean);
- begin
- If (FfreeGift=AValue) then exit;
- FfreeGift:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinkTypespecialOffers.SetfreeShipping(AIndex : Integer; AValue : boolean);
- begin
- If (FfreeShipping=AValue) then exit;
- FfreeShipping:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinkTypespecialOffers.SetfreeShippingMin(AIndex : Integer; AValue : TMoney);
- begin
- If (FfreeShippingMin=AValue) then exit;
- FfreeShippingMin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinkTypespecialOffers.SetpercentOff(AIndex : Integer; AValue : double);
- begin
- If (FpercentOff=AValue) then exit;
- FpercentOff:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinkTypespecialOffers.SetpercentOffMin(AIndex : Integer; AValue : TMoney);
- begin
- If (FpercentOffMin=AValue) then exit;
- FpercentOffMin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinkTypespecialOffers.SetpriceCut(AIndex : Integer; AValue : TMoney);
- begin
- If (FpriceCut=AValue) then exit;
- FpriceCut:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinkTypespecialOffers.SetpriceCutMin(AIndex : Integer; AValue : TMoney);
- begin
- If (FpriceCutMin=AValue) then exit;
- FpriceCutMin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinkTypespecialOffers.SetpromotionCodes(AIndex : Integer; AValue : TStringArray);
- begin
- If (FpromotionCodes=AValue) then exit;
- FpromotionCodes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TLinkTypespecialOffers.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'promotioncodes' : SetLength(FpromotionCodes,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TLink
- --------------------------------------------------------------------}
- Procedure TLink.SetadvertiserId(AIndex : Integer; const AValue : String);
- begin
- If (FadvertiserId=AValue) then exit;
- FadvertiserId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.Setauthorship(AIndex : Integer; const AValue : String);
- begin
- If (Fauthorship=AValue) then exit;
- Fauthorship:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.Setavailability(AIndex : Integer; const AValue : String);
- begin
- If (Favailability=AValue) then exit;
- Favailability:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetclickTrackingUrl(AIndex : Integer; const AValue : String);
- begin
- If (FclickTrackingUrl=AValue) then exit;
- FclickTrackingUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetcreateDate(AIndex : Integer; AValue : TDatetime);
- begin
- If (FcreateDate=AValue) then exit;
- FcreateDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetdestinationUrl(AIndex : Integer; const AValue : String);
- begin
- If (FdestinationUrl=AValue) then exit;
- FdestinationUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.Setduration(AIndex : Integer; const AValue : String);
- begin
- If (Fduration=AValue) then exit;
- Fduration:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetendDate(AIndex : Integer; AValue : TDatetime);
- begin
- If (FendDate=AValue) then exit;
- FendDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetepcNinetyDayAverage(AIndex : Integer; AValue : TMoney);
- begin
- If (FepcNinetyDayAverage=AValue) then exit;
- FepcNinetyDayAverage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetepcSevenDayAverage(AIndex : Integer; AValue : TMoney);
- begin
- If (FepcSevenDayAverage=AValue) then exit;
- FepcSevenDayAverage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetimageAltText(AIndex : Integer; const AValue : String);
- begin
- If (FimageAltText=AValue) then exit;
- FimageAltText:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetimpressionTrackingUrl(AIndex : Integer; const AValue : String);
- begin
- If (FimpressionTrackingUrl=AValue) then exit;
- FimpressionTrackingUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetisActive(AIndex : Integer; AValue : boolean);
- begin
- If (FisActive=AValue) then exit;
- FisActive:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetlinkType(AIndex : Integer; const AValue : String);
- begin
- If (FlinkType=AValue) then exit;
- FlinkType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetpromotionType(AIndex : Integer; const AValue : String);
- begin
- If (FpromotionType=AValue) then exit;
- FpromotionType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetspecialOffers(AIndex : Integer; AValue : TLinkTypespecialOffers);
- begin
- If (FspecialOffers=AValue) then exit;
- FspecialOffers:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLink.SetstartDate(AIndex : Integer; AValue : TDatetime);
- begin
- If (FstartDate=AValue) then exit;
- FstartDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TLinks
- --------------------------------------------------------------------}
- Procedure TLinks.Setitems(AIndex : Integer; AValue : TLinksTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinks.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLinks.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 TLinks.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMoney
- --------------------------------------------------------------------}
- Procedure TMoney.Setamount(AIndex : Integer; AValue : double);
- begin
- If (Famount=AValue) then exit;
- Famount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMoney.SetcurrencyCode(AIndex : Integer; const AValue : String);
- begin
- If (FcurrencyCode=AValue) then exit;
- FcurrencyCode:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPublisher
- --------------------------------------------------------------------}
- Procedure TPublisher.Setclassification(AIndex : Integer; const AValue : String);
- begin
- If (Fclassification=AValue) then exit;
- Fclassification:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.SetepcNinetyDayAverage(AIndex : Integer; AValue : TMoney);
- begin
- If (FepcNinetyDayAverage=AValue) then exit;
- FepcNinetyDayAverage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.SetepcSevenDayAverage(AIndex : Integer; AValue : TMoney);
- begin
- If (FepcSevenDayAverage=AValue) then exit;
- FepcSevenDayAverage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.Setitem(AIndex : Integer; AValue : TPublisher);
- begin
- If (Fitem=AValue) then exit;
- Fitem:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.SetjoinDate(AIndex : Integer; AValue : TDatetime);
- begin
- If (FjoinDate=AValue) then exit;
- FjoinDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.SetpayoutRank(AIndex : Integer; const AValue : String);
- begin
- If (FpayoutRank=AValue) then exit;
- FpayoutRank:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.Setsites(AIndex : Integer; AValue : TStringArray);
- begin
- If (Fsites=AValue) then exit;
- Fsites:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublisher.Setstatus(AIndex : Integer; const AValue : String);
- begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPublisher.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'sites' : SetLength(Fsites,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPublishers
- --------------------------------------------------------------------}
- Procedure TPublishers.Setitems(AIndex : Integer; AValue : TPublishersTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishers.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishers.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 TPublishers.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TReport
- --------------------------------------------------------------------}
- Procedure TReport.Setcolumn_names(AIndex : Integer; AValue : TStringArray);
- begin
- If (Fcolumn_names=AValue) then exit;
- Fcolumn_names:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TReport.Setend_date(AIndex : Integer; const AValue : String);
- begin
- If (Fend_date=AValue) then exit;
- Fend_date:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TReport.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TReport.Setmatching_row_count(AIndex : Integer; const AValue : String);
- begin
- If (Fmatching_row_count=AValue) then exit;
- Fmatching_row_count:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TReport.Setrows(AIndex : Integer; AValue : TReportTyperowsArray);
- begin
- If (Frows=AValue) then exit;
- Frows:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TReport.Setstart_date(AIndex : Integer; const AValue : String);
- begin
- If (Fstart_date=AValue) then exit;
- Fstart_date:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TReport.Settotals_rows(AIndex : Integer; AValue : TReportTypetotals_rowsArray);
- begin
- If (Ftotals_rows=AValue) then exit;
- Ftotals_rows:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TReport.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TReport.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TReport.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'column_names' : SetLength(Fcolumn_names,ALength);
- 'rows' : SetLength(Frows,ALength);
- 'totals_rows' : SetLength(Ftotals_rows,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TAdvertisersResource
- --------------------------------------------------------------------}
- Class Function TAdvertisersResource.ResourceName : String;
- begin
- Result:='advertisers';
- end;
- Class Function TAdvertisersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TganAPI;
- end;
- Function TAdvertisersResource.Get(role: string; roleId: string; AQuery : string = '') : TAdvertiser;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/advertiser';
- _Methodid = 'gan.advertisers.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAdvertiser) as TAdvertiser;
- end;
- Function TAdvertisersResource.Get(role: string; roleId: string; AQuery : TAdvertisersgetOptions) : TAdvertiser;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'advertiserId',AQuery.advertiserId);
- Result:=Get(role,roleId,_Q);
- end;
- Function TAdvertisersResource.List(role: string; roleId: string; AQuery : string = '') : TAdvertisers;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/advertisers';
- _Methodid = 'gan.advertisers.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAdvertisers) as TAdvertisers;
- end;
- Function TAdvertisersResource.List(role: string; roleId: string; AQuery : TAdvertiserslistOptions) : TAdvertisers;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'advertiserCategory',AQuery.advertiserCategory);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'minNinetyDayEpc',AQuery.minNinetyDayEpc);
- AddToQuery(_Q,'minPayoutRank',AQuery.minPayoutRank);
- AddToQuery(_Q,'minSevenDayEpc',AQuery.minSevenDayEpc);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'relationshipStatus',AQuery.relationshipStatus);
- Result:=List(role,roleId,_Q);
- end;
- { --------------------------------------------------------------------
- TCcOffersResource
- --------------------------------------------------------------------}
- Class Function TCcOffersResource.ResourceName : String;
- begin
- Result:='ccOffers';
- end;
- Class Function TCcOffersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TganAPI;
- end;
- Function TCcOffersResource.List(publisher: string; AQuery : string = '') : TCcOffers;
- Const
- _HTTPMethod = 'GET';
- _Path = 'publishers/{publisher}/ccOffers';
- _Methodid = 'gan.ccOffers.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['publisher',publisher]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCcOffers) as TCcOffers;
- end;
- Function TCcOffersResource.List(publisher: string; AQuery : TCcOfferslistOptions) : TCcOffers;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'advertiser',AQuery.advertiser);
- AddToQuery(_Q,'projection',AQuery.projection);
- Result:=List(publisher,_Q);
- end;
- { --------------------------------------------------------------------
- TEventsResource
- --------------------------------------------------------------------}
- Class Function TEventsResource.ResourceName : String;
- begin
- Result:='events';
- end;
- Class Function TEventsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TganAPI;
- end;
- Function TEventsResource.List(role: string; roleId: string; AQuery : string = '') : TEvents;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/events';
- _Methodid = 'gan.events.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEvents) as TEvents;
- end;
- Function TEventsResource.List(role: string; roleId: string; AQuery : TEventslistOptions) : TEvents;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'advertiserId',AQuery.advertiserId);
- AddToQuery(_Q,'chargeType',AQuery.chargeType);
- AddToQuery(_Q,'eventDateMax',AQuery.eventDateMax);
- AddToQuery(_Q,'eventDateMin',AQuery.eventDateMin);
- AddToQuery(_Q,'linkId',AQuery.linkId);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'memberId',AQuery.memberId);
- AddToQuery(_Q,'modifyDateMax',AQuery.modifyDateMax);
- AddToQuery(_Q,'modifyDateMin',AQuery.modifyDateMin);
- AddToQuery(_Q,'orderId',AQuery.orderId);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'productCategory',AQuery.productCategory);
- AddToQuery(_Q,'publisherId',AQuery.publisherId);
- AddToQuery(_Q,'sku',AQuery.sku);
- AddToQuery(_Q,'status',AQuery.status);
- AddToQuery(_Q,'type',AQuery._type);
- Result:=List(role,roleId,_Q);
- end;
- { --------------------------------------------------------------------
- TLinksResource
- --------------------------------------------------------------------}
- Class Function TLinksResource.ResourceName : String;
- begin
- Result:='links';
- end;
- Class Function TLinksResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TganAPI;
- end;
- Function TLinksResource.Get(linkId: string; role: string; roleId: string) : TLink;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/link/{linkId}';
- _Methodid = 'gan.links.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['linkId',linkId,'role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TLink) as TLink;
- end;
- Function TLinksResource.Insert(role: string; roleId: string; aLink : TLink) : TLink;
- Const
- _HTTPMethod = 'POST';
- _Path = '{role}/{roleId}/link';
- _Methodid = 'gan.links.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aLink,TLink) as TLink;
- end;
- Function TLinksResource.List(role: string; roleId: string; AQuery : string = '') : TLinks;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/links';
- _Methodid = 'gan.links.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLinks) as TLinks;
- end;
- Function TLinksResource.List(role: string; roleId: string; AQuery : TLinkslistOptions) : TLinks;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'advertiserId',AQuery.advertiserId);
- AddToQuery(_Q,'assetSize',AQuery.assetSize);
- AddToQuery(_Q,'authorship',AQuery.authorship);
- AddToQuery(_Q,'createDateMax',AQuery.createDateMax);
- AddToQuery(_Q,'createDateMin',AQuery.createDateMin);
- AddToQuery(_Q,'linkType',AQuery.linkType);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'promotionType',AQuery.promotionType);
- AddToQuery(_Q,'relationshipStatus',AQuery.relationshipStatus);
- AddToQuery(_Q,'searchText',AQuery.searchText);
- AddToQuery(_Q,'startDateMax',AQuery.startDateMax);
- AddToQuery(_Q,'startDateMin',AQuery.startDateMin);
- Result:=List(role,roleId,_Q);
- end;
- { --------------------------------------------------------------------
- TPublishersResource
- --------------------------------------------------------------------}
- Class Function TPublishersResource.ResourceName : String;
- begin
- Result:='publishers';
- end;
- Class Function TPublishersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TganAPI;
- end;
- Function TPublishersResource.Get(role: string; roleId: string; AQuery : string = '') : TPublisher;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/publisher';
- _Methodid = 'gan.publishers.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPublisher) as TPublisher;
- end;
- Function TPublishersResource.Get(role: string; roleId: string; AQuery : TPublishersgetOptions) : TPublisher;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'publisherId',AQuery.publisherId);
- Result:=Get(role,roleId,_Q);
- end;
- Function TPublishersResource.List(role: string; roleId: string; AQuery : string = '') : TPublishers;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/publishers';
- _Methodid = 'gan.publishers.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPublishers) as TPublishers;
- end;
- Function TPublishersResource.List(role: string; roleId: string; AQuery : TPublisherslistOptions) : TPublishers;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'minNinetyDayEpc',AQuery.minNinetyDayEpc);
- AddToQuery(_Q,'minPayoutRank',AQuery.minPayoutRank);
- AddToQuery(_Q,'minSevenDayEpc',AQuery.minSevenDayEpc);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'publisherCategory',AQuery.publisherCategory);
- AddToQuery(_Q,'relationshipStatus',AQuery.relationshipStatus);
- Result:=List(role,roleId,_Q);
- end;
- { --------------------------------------------------------------------
- TReportsResource
- --------------------------------------------------------------------}
- Class Function TReportsResource.ResourceName : String;
- begin
- Result:='reports';
- end;
- Class Function TReportsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TganAPI;
- end;
- Function TReportsResource.Get(reportType: string; role: string; roleId: string; AQuery : string = '') : TReport;
- Const
- _HTTPMethod = 'GET';
- _Path = '{role}/{roleId}/report/{reportType}';
- _Methodid = 'gan.reports.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['reportType',reportType,'role',role,'roleId',roleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReport) as TReport;
- end;
- Function TReportsResource.Get(reportType: string; role: string; roleId: string; AQuery : TReportsgetOptions) : TReport;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'advertiserId',AQuery.advertiserId);
- AddToQuery(_Q,'calculateTotals',AQuery.calculateTotals);
- AddToQuery(_Q,'endDate',AQuery.endDate);
- AddToQuery(_Q,'eventType',AQuery.eventType);
- AddToQuery(_Q,'linkId',AQuery.linkId);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'orderId',AQuery.orderId);
- AddToQuery(_Q,'publisherId',AQuery.publisherId);
- AddToQuery(_Q,'startDate',AQuery.startDate);
- AddToQuery(_Q,'startIndex',AQuery.startIndex);
- AddToQuery(_Q,'status',AQuery.status);
- Result:=Get(reportType,role,roleId,_Q);
- end;
- { --------------------------------------------------------------------
- TGanAPI
- --------------------------------------------------------------------}
- Class Function TGanAPI.APIName : String;
- begin
- Result:='gan';
- end;
- Class Function TGanAPI.APIVersion : String;
- begin
- Result:='v1beta1';
- end;
- Class Function TGanAPI.APIRevision : String;
- begin
- Result:='20130205';
- end;
- Class Function TGanAPI.APIID : String;
- begin
- Result:='gan:v1beta1';
- end;
- Class Function TGanAPI.APITitle : String;
- begin
- Result:='Google Affiliate Network API';
- end;
- Class Function TGanAPI.APIDescription : String;
- begin
- Result:='Lets you have programmatic access to your Google Affiliate Network data.';
- end;
- Class Function TGanAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TGanAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TGanAPI.APIIcon16 : String;
- begin
- Result:='http://www.google.com/images/icons/product/affiliatenetwork-16.png';
- end;
- Class Function TGanAPI.APIIcon32 : String;
- begin
- Result:='http://www.google.com/images/icons/product/affiliatenetwork-32.png';
- end;
- Class Function TGanAPI.APIdocumentationLink : String;
- begin
- Result:='https://developers.google.com/affiliate-network/';
- end;
- Class Function TGanAPI.APIrootUrl : string;
- begin
- Result:='https://www.googleapis.com:443/';
- end;
- Class Function TGanAPI.APIbasePath : string;
- begin
- Result:='/gan/v1beta1/';
- end;
- Class Function TGanAPI.APIbaseURL : String;
- begin
- Result:='https://www.googleapis.com:443/gan/v1beta1/';
- end;
- Class Function TGanAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TGanAPI.APIservicePath : string;
- begin
- Result:='gan/v1beta1/';
- end;
- Class Function TGanAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TGanAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,0);
-
- end;
- Class Function TGanAPI.APINeedsAuth : Boolean;
- begin
- Result:=False;
- end;
- Class Procedure TGanAPI.RegisterAPIResources;
- begin
- TAdvertiser.RegisterObject;
- TAdvertisers.RegisterObject;
- TCcOfferTypebonusRewardsItem.RegisterObject;
- TCcOfferTypedefaultFeesItem.RegisterObject;
- TCcOfferTyperewardsItem.RegisterObject;
- TCcOffer.RegisterObject;
- TCcOffers.RegisterObject;
- TEventTypeproductsItem.RegisterObject;
- TEvent.RegisterObject;
- TEvents.RegisterObject;
- TLinkTypespecialOffers.RegisterObject;
- TLink.RegisterObject;
- TLinks.RegisterObject;
- TMoney.RegisterObject;
- TPublisher.RegisterObject;
- TPublishers.RegisterObject;
- TReport.RegisterObject;
- end;
- Function TGanAPI.GetAdvertisersInstance : TAdvertisersResource;
- begin
- if (FAdvertisersInstance=Nil) then
- FAdvertisersInstance:=CreateAdvertisersResource;
- Result:=FAdvertisersInstance;
- end;
- Function TGanAPI.CreateAdvertisersResource : TAdvertisersResource;
- begin
- Result:=CreateAdvertisersResource(Self);
- end;
- Function TGanAPI.CreateAdvertisersResource(AOwner : TComponent) : TAdvertisersResource;
- begin
- Result:=TAdvertisersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TGanAPI.GetCcOffersInstance : TCcOffersResource;
- begin
- if (FCcOffersInstance=Nil) then
- FCcOffersInstance:=CreateCcOffersResource;
- Result:=FCcOffersInstance;
- end;
- Function TGanAPI.CreateCcOffersResource : TCcOffersResource;
- begin
- Result:=CreateCcOffersResource(Self);
- end;
- Function TGanAPI.CreateCcOffersResource(AOwner : TComponent) : TCcOffersResource;
- begin
- Result:=TCcOffersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TGanAPI.GetEventsInstance : TEventsResource;
- begin
- if (FEventsInstance=Nil) then
- FEventsInstance:=CreateEventsResource;
- Result:=FEventsInstance;
- end;
- Function TGanAPI.CreateEventsResource : TEventsResource;
- begin
- Result:=CreateEventsResource(Self);
- end;
- Function TGanAPI.CreateEventsResource(AOwner : TComponent) : TEventsResource;
- begin
- Result:=TEventsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TGanAPI.GetLinksInstance : TLinksResource;
- begin
- if (FLinksInstance=Nil) then
- FLinksInstance:=CreateLinksResource;
- Result:=FLinksInstance;
- end;
- Function TGanAPI.CreateLinksResource : TLinksResource;
- begin
- Result:=CreateLinksResource(Self);
- end;
- Function TGanAPI.CreateLinksResource(AOwner : TComponent) : TLinksResource;
- begin
- Result:=TLinksResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TGanAPI.GetPublishersInstance : TPublishersResource;
- begin
- if (FPublishersInstance=Nil) then
- FPublishersInstance:=CreatePublishersResource;
- Result:=FPublishersInstance;
- end;
- Function TGanAPI.CreatePublishersResource : TPublishersResource;
- begin
- Result:=CreatePublishersResource(Self);
- end;
- Function TGanAPI.CreatePublishersResource(AOwner : TComponent) : TPublishersResource;
- begin
- Result:=TPublishersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TGanAPI.GetReportsInstance : TReportsResource;
- begin
- if (FReportsInstance=Nil) then
- FReportsInstance:=CreateReportsResource;
- Result:=FReportsInstance;
- end;
- Function TGanAPI.CreateReportsResource : TReportsResource;
- begin
- Result:=CreateReportsResource(Self);
- end;
- Function TGanAPI.CreateReportsResource(AOwner : TComponent) : TReportsResource;
- begin
- Result:=TReportsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TGanAPI.RegisterAPI;
- end.
|