1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818581958205821582258235824582558265827582858295830583158325833583458355836583758385839584058415842584358445845584658475848584958505851585258535854585558565857585858595860586158625863586458655866586758685869587058715872587358745875587658775878587958805881588258835884588558865887588858895890589158925893589458955896589758985899590059015902590359045905590659075908590959105911591259135914591559165917591859195920592159225923592459255926592759285929593059315932593359345935593659375938593959405941594259435944594559465947594859495950595159525953595459555956595759585959596059615962596359645965596659675968596959705971597259735974597559765977597859795980598159825983598459855986598759885989599059915992599359945995599659975998599960006001600260036004600560066007600860096010601160126013601460156016601760186019602060216022602360246025602660276028602960306031603260336034603560366037603860396040604160426043604460456046604760486049605060516052605360546055605660576058605960606061606260636064606560666067606860696070607160726073607460756076607760786079608060816082608360846085608660876088608960906091609260936094609560966097609860996100610161026103610461056106610761086109611061116112611361146115611661176118611961206121612261236124612561266127612861296130613161326133613461356136613761386139614061416142614361446145614661476148614961506151615261536154615561566157615861596160616161626163616461656166616761686169617061716172617361746175617661776178617961806181618261836184618561866187618861896190619161926193619461956196619761986199620062016202620362046205620662076208620962106211621262136214621562166217621862196220622162226223622462256226622762286229623062316232623362346235623662376238623962406241624262436244624562466247624862496250625162526253625462556256625762586259626062616262626362646265626662676268626962706271627262736274627562766277627862796280628162826283628462856286628762886289629062916292629362946295629662976298629963006301630263036304630563066307630863096310631163126313631463156316631763186319632063216322632363246325632663276328632963306331633263336334633563366337633863396340634163426343634463456346634763486349635063516352635363546355635663576358635963606361636263636364636563666367636863696370637163726373637463756376637763786379638063816382638363846385638663876388638963906391639263936394639563966397639863996400640164026403640464056406640764086409641064116412641364146415641664176418641964206421642264236424642564266427642864296430643164326433643464356436643764386439644064416442644364446445644664476448644964506451645264536454645564566457645864596460646164626463646464656466646764686469647064716472647364746475647664776478647964806481648264836484648564866487648864896490649164926493649464956496649764986499650065016502650365046505650665076508650965106511651265136514651565166517651865196520652165226523652465256526652765286529653065316532653365346535653665376538653965406541654265436544654565466547654865496550655165526553655465556556655765586559656065616562656365646565656665676568656965706571657265736574657565766577657865796580658165826583658465856586658765886589659065916592659365946595659665976598659966006601660266036604660566066607660866096610661166126613661466156616661766186619662066216622662366246625662666276628662966306631663266336634663566366637663866396640664166426643664466456646664766486649665066516652665366546655665666576658665966606661666266636664666566666667666866696670667166726673667466756676667766786679668066816682668366846685668666876688668966906691669266936694669566966697669866996700670167026703670467056706670767086709671067116712671367146715671667176718671967206721672267236724672567266727672867296730673167326733673467356736673767386739674067416742674367446745674667476748674967506751675267536754675567566757675867596760676167626763676467656766676767686769677067716772677367746775677667776778677967806781678267836784678567866787678867896790679167926793679467956796679767986799680068016802680368046805680668076808680968106811681268136814681568166817681868196820682168226823682468256826682768286829683068316832683368346835683668376838683968406841684268436844684568466847684868496850685168526853685468556856685768586859686068616862686368646865686668676868686968706871687268736874687568766877687868796880688168826883688468856886688768886889689068916892689368946895689668976898689969006901690269036904690569066907690869096910691169126913691469156916691769186919692069216922692369246925692669276928692969306931693269336934693569366937693869396940694169426943694469456946694769486949695069516952695369546955695669576958695969606961696269636964696569666967696869696970697169726973697469756976697769786979698069816982698369846985698669876988698969906991699269936994699569966997699869997000700170027003700470057006700770087009701070117012701370147015701670177018701970207021702270237024702570267027702870297030703170327033703470357036703770387039704070417042704370447045704670477048704970507051705270537054705570567057705870597060706170627063706470657066706770687069707070717072707370747075707670777078707970807081708270837084708570867087708870897090709170927093709470957096709770987099710071017102710371047105710671077108710971107111711271137114711571167117711871197120712171227123712471257126712771287129713071317132713371347135713671377138713971407141714271437144714571467147714871497150715171527153715471557156715771587159716071617162716371647165716671677168716971707171717271737174717571767177717871797180718171827183718471857186718771887189719071917192719371947195719671977198719972007201720272037204720572067207720872097210721172127213721472157216721772187219722072217222722372247225722672277228722972307231723272337234723572367237723872397240724172427243724472457246724772487249725072517252725372547255725672577258725972607261726272637264726572667267726872697270727172727273727472757276727772787279728072817282728372847285728672877288728972907291729272937294729572967297729872997300730173027303730473057306730773087309731073117312731373147315731673177318731973207321732273237324732573267327732873297330733173327333733473357336733773387339734073417342734373447345734673477348734973507351735273537354735573567357735873597360736173627363736473657366736773687369737073717372737373747375737673777378737973807381738273837384738573867387738873897390739173927393739473957396739773987399740074017402740374047405740674077408740974107411741274137414741574167417741874197420742174227423742474257426742774287429743074317432743374347435743674377438743974407441744274437444744574467447744874497450745174527453745474557456745774587459746074617462746374647465746674677468746974707471747274737474747574767477747874797480748174827483748474857486748774887489749074917492749374947495749674977498749975007501750275037504750575067507750875097510751175127513751475157516751775187519752075217522752375247525752675277528752975307531753275337534753575367537753875397540754175427543754475457546754775487549755075517552755375547555755675577558755975607561756275637564756575667567756875697570757175727573757475757576757775787579758075817582758375847585758675877588758975907591759275937594759575967597759875997600760176027603760476057606760776087609761076117612761376147615761676177618761976207621762276237624762576267627762876297630763176327633763476357636763776387639764076417642764376447645764676477648764976507651765276537654765576567657765876597660766176627663766476657666766776687669767076717672767376747675767676777678767976807681768276837684768576867687768876897690769176927693769476957696769776987699770077017702770377047705770677077708770977107711771277137714771577167717771877197720772177227723772477257726772777287729773077317732773377347735773677377738773977407741774277437744774577467747774877497750775177527753775477557756775777587759776077617762776377647765776677677768776977707771777277737774777577767777777877797780778177827783778477857786778777887789779077917792779377947795779677977798779978007801780278037804780578067807780878097810781178127813781478157816781778187819782078217822782378247825782678277828782978307831783278337834783578367837783878397840784178427843784478457846784778487849785078517852785378547855785678577858785978607861786278637864786578667867786878697870787178727873787478757876787778787879788078817882788378847885788678877888788978907891789278937894789578967897789878997900790179027903790479057906790779087909791079117912791379147915791679177918791979207921792279237924792579267927792879297930793179327933793479357936793779387939794079417942794379447945794679477948794979507951795279537954795579567957795879597960796179627963796479657966796779687969797079717972797379747975797679777978797979807981798279837984798579867987798879897990799179927993799479957996799779987999800080018002800380048005800680078008800980108011801280138014801580168017801880198020802180228023802480258026802780288029803080318032803380348035803680378038803980408041804280438044804580468047804880498050805180528053805480558056805780588059806080618062806380648065806680678068806980708071807280738074807580768077807880798080808180828083808480858086808780888089809080918092809380948095809680978098809981008101810281038104810581068107810881098110811181128113811481158116811781188119812081218122812381248125812681278128812981308131813281338134813581368137813881398140814181428143814481458146814781488149815081518152815381548155815681578158815981608161816281638164816581668167816881698170817181728173817481758176817781788179818081818182818381848185818681878188818981908191819281938194819581968197819881998200820182028203820482058206820782088209821082118212821382148215821682178218821982208221822282238224822582268227822882298230823182328233823482358236823782388239824082418242824382448245824682478248824982508251825282538254825582568257825882598260826182628263826482658266826782688269827082718272827382748275827682778278827982808281828282838284828582868287828882898290829182928293829482958296829782988299830083018302830383048305830683078308830983108311831283138314831583168317831883198320832183228323832483258326832783288329833083318332833383348335833683378338833983408341834283438344834583468347834883498350835183528353835483558356835783588359836083618362836383648365836683678368836983708371837283738374837583768377837883798380838183828383838483858386838783888389839083918392839383948395839683978398839984008401840284038404840584068407840884098410841184128413841484158416841784188419842084218422842384248425842684278428842984308431843284338434843584368437843884398440844184428443844484458446844784488449845084518452845384548455845684578458845984608461846284638464846584668467846884698470847184728473847484758476847784788479848084818482848384848485848684878488848984908491849284938494849584968497849884998500850185028503850485058506850785088509851085118512851385148515851685178518851985208521852285238524852585268527852885298530853185328533853485358536853785388539854085418542854385448545854685478548854985508551855285538554855585568557855885598560856185628563856485658566856785688569857085718572857385748575857685778578857985808581858285838584858585868587858885898590859185928593859485958596859785988599860086018602860386048605860686078608860986108611861286138614861586168617861886198620862186228623862486258626862786288629863086318632863386348635863686378638863986408641864286438644864586468647864886498650865186528653865486558656865786588659866086618662866386648665866686678668866986708671867286738674867586768677867886798680868186828683868486858686868786888689869086918692869386948695869686978698869987008701870287038704870587068707870887098710871187128713871487158716871787188719872087218722872387248725872687278728872987308731873287338734873587368737873887398740874187428743874487458746874787488749875087518752875387548755875687578758875987608761876287638764876587668767876887698770877187728773877487758776877787788779878087818782878387848785878687878788878987908791879287938794879587968797879887998800880188028803880488058806880788088809881088118812881388148815881688178818881988208821882288238824882588268827882888298830883188328833883488358836883788388839884088418842884388448845884688478848884988508851885288538854885588568857885888598860886188628863886488658866886788688869887088718872887388748875887688778878887988808881888288838884888588868887888888898890889188928893889488958896889788988899890089018902890389048905890689078908890989108911891289138914891589168917891889198920892189228923892489258926892789288929893089318932893389348935893689378938893989408941894289438944894589468947894889498950895189528953895489558956895789588959896089618962896389648965896689678968896989708971897289738974897589768977897889798980898189828983898489858986898789888989899089918992899389948995899689978998899990009001900290039004900590069007900890099010901190129013901490159016901790189019902090219022902390249025902690279028902990309031903290339034903590369037903890399040904190429043904490459046904790489049905090519052905390549055905690579058905990609061906290639064906590669067906890699070907190729073907490759076907790789079908090819082908390849085908690879088908990909091909290939094909590969097909890999100910191029103910491059106910791089109911091119112911391149115911691179118911991209121912291239124912591269127912891299130913191329133913491359136913791389139914091419142914391449145914691479148914991509151915291539154915591569157915891599160916191629163916491659166916791689169917091719172917391749175917691779178917991809181918291839184918591869187918891899190919191929193919491959196919791989199920092019202920392049205920692079208920992109211921292139214921592169217921892199220922192229223922492259226922792289229923092319232923392349235923692379238923992409241924292439244924592469247924892499250925192529253925492559256925792589259926092619262926392649265926692679268926992709271927292739274927592769277927892799280928192829283928492859286928792889289929092919292929392949295929692979298929993009301930293039304930593069307930893099310931193129313931493159316931793189319932093219322932393249325932693279328932993309331933293339334933593369337933893399340934193429343934493459346934793489349935093519352935393549355935693579358935993609361936293639364936593669367936893699370937193729373937493759376937793789379938093819382938393849385938693879388938993909391939293939394939593969397939893999400940194029403940494059406940794089409941094119412941394149415941694179418941994209421942294239424942594269427942894299430943194329433943494359436943794389439944094419442944394449445944694479448944994509451945294539454945594569457945894599460946194629463946494659466946794689469947094719472947394749475947694779478947994809481948294839484948594869487948894899490949194929493949494959496949794989499950095019502950395049505950695079508950995109511951295139514951595169517951895199520952195229523952495259526952795289529953095319532953395349535953695379538953995409541954295439544954595469547954895499550955195529553955495559556955795589559956095619562956395649565956695679568956995709571957295739574957595769577957895799580958195829583958495859586958795889589959095919592959395949595959695979598959996009601960296039604960596069607960896099610961196129613961496159616961796189619962096219622962396249625962696279628962996309631963296339634963596369637963896399640964196429643964496459646964796489649965096519652965396549655965696579658965996609661966296639664966596669667966896699670967196729673967496759676967796789679968096819682968396849685968696879688968996909691969296939694969596969697969896999700970197029703970497059706970797089709971097119712971397149715971697179718971997209721972297239724972597269727972897299730973197329733973497359736973797389739974097419742974397449745974697479748974997509751975297539754975597569757975897599760976197629763976497659766976797689769977097719772977397749775977697779778977997809781978297839784978597869787978897899790979197929793979497959796979797989799980098019802980398049805980698079808980998109811981298139814981598169817981898199820982198229823982498259826982798289829983098319832983398349835983698379838983998409841984298439844984598469847984898499850985198529853985498559856985798589859986098619862986398649865986698679868986998709871987298739874987598769877987898799880988198829883988498859886988798889889989098919892989398949895989698979898989999009901990299039904990599069907990899099910991199129913991499159916991799189919992099219922992399249925992699279928992999309931993299339934993599369937993899399940994199429943994499459946994799489949995099519952995399549955995699579958995999609961996299639964996599669967996899699970997199729973997499759976997799789979998099819982998399849985998699879988998999909991999299939994999599969997999899991000010001100021000310004100051000610007100081000910010100111001210013100141001510016100171001810019100201002110022100231002410025100261002710028100291003010031100321003310034100351003610037100381003910040100411004210043100441004510046100471004810049100501005110052100531005410055100561005710058100591006010061100621006310064100651006610067100681006910070100711007210073100741007510076100771007810079100801008110082100831008410085100861008710088100891009010091100921009310094100951009610097100981009910100101011010210103101041010510106101071010810109101101011110112101131011410115101161011710118101191012010121101221012310124101251012610127101281012910130101311013210133101341013510136101371013810139101401014110142101431014410145101461014710148101491015010151101521015310154101551015610157101581015910160101611016210163101641016510166101671016810169101701017110172101731017410175101761017710178101791018010181101821018310184101851018610187101881018910190101911019210193101941019510196101971019810199102001020110202102031020410205102061020710208102091021010211102121021310214102151021610217102181021910220102211022210223102241022510226102271022810229102301023110232102331023410235102361023710238102391024010241102421024310244102451024610247102481024910250102511025210253102541025510256102571025810259102601026110262102631026410265102661026710268102691027010271102721027310274102751027610277102781027910280102811028210283102841028510286102871028810289102901029110292102931029410295102961029710298102991030010301 |
- unit JwaAdsTLB;
- // ************************************************************************ //
- // WARNING
- // -------
- // The types declared in this file were generated from data read from a
- // Type Library. If this type library is explicitly or indirectly (via
- // another type library referring to this type library) re-imported, or the
- // 'Refresh' command of the Type Library Editor activated while editing the
- // Type Library, the contents of this file will be regenerated and all
- // manual modifications will be lost.
- // ************************************************************************ //
- // (rom) deactivated CVS string
- // PASTLWTR : Revision: 1.88.1.0.1.0
- // File generated on 9/25/2000 11:37:09 AM from Type Library described below.
- // *************************************************************************//
- // NOTE:
- // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
- // which return objects that may need to be explicitly created via a function
- // call prior to any access via the property. These items have been disabled
- // in order to prevent accidental use from within the object inspector. You
- // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
- // removing them from the $IFDEF blocks. However, such items must still be
- // programmatically created via a method of the appropriate CoClass before
- // they can be used.
- // ************************************************************************ //
- // Type Lib: C:\WINNT\system32\activeds.tlb (1)
- // IID\LCID: {97D25DB0-0363-11CF-ABC4-02608C9E7553}\0
- // Helpfile:
- // DepndLst:
- // (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
- // (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
- // Errors:
- // Hint: Member 'String' of '_ADS_CASEIGNORE_LIST' changed to 'String_'
- // Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0005' changed to 'Type_'
- // Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0014' changed to 'Type_'
- // Hint: Member 'Class' of 'IADs' changed to 'Class_'
- // Hint: Member 'Set' of 'IADsNameTranslate' changed to 'Set_'
- // Hint: Member 'Type' of 'IADsEmail' changed to 'Type_'
- // Hint: Member 'Type' of 'IADsPath' changed to 'Type_'
- // Hint: Member 'Set' of 'IADsPathname' changed to 'Set_'
- // Error creating palette bitmap of (TPropertyEntry) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TPropertyValue) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TAccessControlEntry) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TAccessControlList) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TSecurityDescriptor) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TLargeInteger) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TNameTranslate) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TCaseIgnoreList) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TFaxNumber) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TNetAddress) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TOctetList) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TEmail) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TPath) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TReplicaPointer) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TAcl) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TTimestamp) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TPostalAddress) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TBackLink) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TTypedName) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (THold) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TPathname) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TADSystemInfo) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TWinNTSystemInfo) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TDNWithBinary) : Server activeds.dll contains no icons
- // Error creating palette bitmap of (TDNWithString) : Server activeds.dll contains no icons
- // ************************************************************************ //
- {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
- interface
- {$i jediapilib.inc}
- uses
- Windows, ActiveX, Classes {$IFNDEF NOVCL} ,Graphics, OleServer, OleCtrls, StdVCL {$ENDIF} ;
- {$IFDEF FPC}
- Type
- // Temporary dummies to get FPC working.
- TServerData= Record
- ClassID: TGUID;
- IntfIID: TGUID;
- EventIID: String; // probably TGUID too
- LicenseKey: pointer;
- Version: integer
- end;
- TOleServer = Class(TComponent) // for registercomponents to work
- private
- ServerData : ^TServerData;
- public
- function GetServer:IUnknown;
- procedure InitServerData; virtual;
- constructor Create(AOwner: TComponent); virtual;
- Procedure Connect; virtual;
- procedure Disconnect; virtual;
- end;
- SysUINT = Windows.UINT;
- SysINT = Windows.WINT;
- {$endif}
- // *********************************************************************//
- // GUIDS declared in the TypeLibrary. Following prefixes are used:
- // Type Libraries : LIBID_xxxx
- // CoClasses : CLASS_xxxx
- // DISPInterfaces : DIID_xxxx
- // Non-DISP interfaces: IID_xxxx
- // *********************************************************************//
- const
- // TypeLibrary Major and minor versions
- ActiveDsMajorVersion = 1;
- ActiveDsMinorVersion = 0;
- LIBID_ActiveDs: TGUID = '{97D25DB0-0363-11CF-ABC4-02608C9E7553}';
- IID_IADs: TGUID = '{FD8256D0-FD15-11CE-ABC4-02608C9E7553}';
- IID_IADsContainer: TGUID = '{001677D0-FD16-11CE-ABC4-02608C9E7553}';
- IID_IADsCollection: TGUID = '{72B945E0-253B-11CF-A988-00AA006BC149}';
- IID_IADsMembers: TGUID = '{451A0030-72EC-11CF-B03B-00AA006E0975}';
- IID_IADsPropertyList: TGUID = '{C6F602B6-8F69-11D0-8528-00C04FD8D503}';
- IID_IADsPropertyEntry: TGUID = '{05792C8E-941F-11D0-8529-00C04FD8D503}';
- CLASS_PropertyEntry: TGUID = '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
- IID_IADsPropertyValue: TGUID = '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
- IID_IADsPropertyValue2: TGUID = '{306E831C-5BC7-11D1-A3B8-00C04FB950DC}';
- CLASS_PropertyValue: TGUID = '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
- IID_IPrivateDispatch: TGUID = '{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}';
- IID_ITypeInfo: TGUID = '{00020401-0000-0000-C000-000000000046}';
- IID_ITypeComp: TGUID = '{00020403-0000-0000-C000-000000000046}';
- IID_ITypeLib: TGUID = '{00020402-0000-0000-C000-000000000046}';
- IID_IPrivateUnknown: TGUID = '{89126BAB-6EAD-11D1-8C18-00C04FD8D503}';
- IID_IADsExtension: TGUID = '{3D35553C-D2B0-11D1-B17B-0000F87593A0}';
- IID_IADsDeleteOps: TGUID = '{B2BD0902-8878-11D1-8C21-00C04FD8D503}';
- IID_IADsNamespaces: TGUID = '{28B96BA0-B330-11CF-A9AD-00AA006BC149}';
- IID_IADsClass: TGUID = '{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}';
- IID_IADsProperty: TGUID = '{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}';
- IID_IADsSyntax: TGUID = '{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}';
- IID_IADsLocality: TGUID = '{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}';
- IID_IADsO: TGUID = '{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}';
- IID_IADsOU: TGUID = '{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}';
- IID_IADsDomain: TGUID = '{00E4C220-FD16-11CE-ABC4-02608C9E7553}';
- IID_IADsComputer: TGUID = '{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}';
- IID_IADsComputerOperations: TGUID = '{EF497680-1D9F-11CF-B1F3-02608C9E7553}';
- IID_IADsGroup: TGUID = '{27636B00-410F-11CF-B1FF-02608C9E7553}';
- IID_IADsUser: TGUID = '{3E37E320-17E2-11CF-ABC4-02608C9E7553}';
- IID_IADsPrintQueue: TGUID = '{B15160D0-1226-11CF-A985-00AA006BC149}';
- IID_IADsPrintQueueOperations: TGUID = '{124BE5C0-156E-11CF-A986-00AA006BC149}';
- IID_IADsPrintJob: TGUID = '{32FB6780-1ED0-11CF-A988-00AA006BC149}';
- IID_IADsPrintJobOperations: TGUID = '{9A52DB30-1ECF-11CF-A988-00AA006BC149}';
- IID_IADsService: TGUID = '{68AF66E0-31CA-11CF-A98A-00AA006BC149}';
- IID_IADsServiceOperations: TGUID = '{5D7B33F0-31CA-11CF-A98A-00AA006BC149}';
- IID_IADsFileService: TGUID = '{A89D1900-31CA-11CF-A98A-00AA006BC149}';
- IID_IADsFileServiceOperations: TGUID = '{A02DED10-31CA-11CF-A98A-00AA006BC149}';
- IID_IADsFileShare: TGUID = '{EB6DCAF0-4B83-11CF-A995-00AA006BC149}';
- IID_IADsSession: TGUID = '{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}';
- IID_IADsResource: TGUID = '{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}';
- IID_IADsOpenDSObject: TGUID = '{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}';
- IID_IDirectoryObject: TGUID = '{E798DE2C-22E4-11D0-84FE-00C04FD8D503}';
- IID_IDirectorySearch: TGUID = '{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}';
- IID_IDirectorySchemaMgmt: TGUID = '{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}';
- IID_IADsAggregatee: TGUID = '{1346CE8C-9039-11D0-8528-00C04FD8D503}';
- IID_IADsAggregator: TGUID = '{52DB5FB0-941F-11D0-8529-00C04FD8D503}';
- IID_IADsAccessControlEntry: TGUID = '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
- CLASS_AccessControlEntry: TGUID = '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
- IID_IADsAccessControlList: TGUID = '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
- CLASS_AccessControlList: TGUID = '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
- IID_IADsSecurityDescriptor: TGUID = '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
- CLASS_SecurityDescriptor: TGUID = '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
- IID_IADsLargeInteger: TGUID = '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
- CLASS_LargeInteger: TGUID = '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
- IID_IADsNameTranslate: TGUID = '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
- CLASS_NameTranslate: TGUID = '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
- IID_IADsCaseIgnoreList: TGUID = '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
- CLASS_CaseIgnoreList: TGUID = '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
- IID_IADsFaxNumber: TGUID = '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
- CLASS_FaxNumber: TGUID = '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
- IID_IADsNetAddress: TGUID = '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
- CLASS_NetAddress: TGUID = '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
- IID_IADsOctetList: TGUID = '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
- CLASS_OctetList: TGUID = '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
- IID_IADsEmail: TGUID = '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
- CLASS_Email: TGUID = '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
- IID_IADsPath: TGUID = '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
- CLASS_Path: TGUID = '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
- IID_IADsReplicaPointer: TGUID = '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
- CLASS_ReplicaPointer: TGUID = '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
- IID_IADsAcl: TGUID = '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
- CLASS_Acl: TGUID = '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
- IID_IADsTimestamp: TGUID = '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
- CLASS_Timestamp: TGUID = '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
- IID_IADsPostalAddress: TGUID = '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
- CLASS_PostalAddress: TGUID = '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
- IID_IADsBackLink: TGUID = '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
- CLASS_BackLink: TGUID = '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
- IID_IADsTypedName: TGUID = '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
- CLASS_TypedName: TGUID = '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
- IID_IADsHold: TGUID = '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
- CLASS_Hold: TGUID = '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
- IID_IADsObjectOptions: TGUID = '{46F14FDA-232B-11D1-A808-00C04FD8D5A8}';
- IID_IADsPathname: TGUID = '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
- CLASS_Pathname: TGUID = '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
- IID_IADsADSystemInfo: TGUID = '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
- CLASS_ADSystemInfo: TGUID = '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
- IID_IADsWinNTSystemInfo: TGUID = '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
- CLASS_WinNTSystemInfo: TGUID = '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
- IID_IADsDNWithBinary: TGUID = '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
- CLASS_DNWithBinary: TGUID = '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
- IID_IADsDNWithString: TGUID = '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
- CLASS_DNWithString: TGUID = '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
- // *********************************************************************//
- // Declaration of Enumerations defined in Type Library
- // *********************************************************************//
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0001
- type
- __MIDL___MIDL_itf_ads_0000_0001 = TOleEnum;
- const
- ADSTYPE_INVALID = $00000000;
- ADSTYPE_DN_STRING = $00000001;
- ADSTYPE_CASE_EXACT_STRING = $00000002;
- ADSTYPE_CASE_IGNORE_STRING = $00000003;
- ADSTYPE_PRINTABLE_STRING = $00000004;
- ADSTYPE_NUMERIC_STRING = $00000005;
- ADSTYPE_BOOLEAN = $00000006;
- ADSTYPE_INTEGER = $00000007;
- ADSTYPE_OCTET_STRING = $00000008;
- ADSTYPE_UTC_TIME = $00000009;
- ADSTYPE_LARGE_INTEGER = $0000000A;
- ADSTYPE_PROV_SPECIFIC = $0000000B;
- ADSTYPE_OBJECT_CLASS = $0000000C;
- ADSTYPE_CASEIGNORE_LIST = $0000000D;
- ADSTYPE_OCTET_LIST = $0000000E;
- ADSTYPE_PATH = $0000000F;
- ADSTYPE_POSTALADDRESS = $00000010;
- ADSTYPE_TIMESTAMP = $00000011;
- ADSTYPE_BACKLINK = $00000012;
- ADSTYPE_TYPEDNAME = $00000013;
- ADSTYPE_HOLD = $00000014;
- ADSTYPE_NETADDRESS = $00000015;
- ADSTYPE_REPLICAPOINTER = $00000016;
- ADSTYPE_FAXNUMBER = $00000017;
- ADSTYPE_EMAIL = $00000018;
- ADSTYPE_NT_SECURITY_DESCRIPTOR = $00000019;
- ADSTYPE_UNKNOWN = $0000001A;
- ADSTYPE_DN_WITH_BINARY = $0000001B;
- ADSTYPE_DN_WITH_STRING = $0000001C;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0018
- type
- __MIDL___MIDL_itf_ads_0000_0018 = TOleEnum;
- const
- ADS_SECURE_AUTHENTICATION = $00000001;
- ADS_USE_ENCRYPTION = $00000002;
- ADS_USE_SSL = $00000002;
- ADS_READONLY_SERVER = $00000004;
- ADS_PROMPT_CREDENTIALS = $00000008;
- ADS_NO_AUTHENTICATION = $00000010;
- ADS_FAST_BIND = $00000020;
- ADS_USE_SIGNING = $00000040;
- ADS_USE_SEALING = $00000080;
- ADS_USE_DELEGATION = $00000100;
- ADS_AUTH_RESERVED = $80000000;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0019
- type
- __MIDL___MIDL_itf_ads_0000_0019 = TOleEnum;
- const
- ADS_STATUS_S_OK = $00000000;
- ADS_STATUS_INVALID_SEARCHPREF = $00000001;
- ADS_STATUS_INVALID_SEARCHPREFVALUE = $00000002;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0020
- type
- __MIDL___MIDL_itf_ads_0000_0020 = TOleEnum;
- const
- ADS_DEREF_NEVER = $00000000;
- ADS_DEREF_SEARCHING = $00000001;
- ADS_DEREF_FINDING = $00000002;
- ADS_DEREF_ALWAYS = $00000003;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0021
- type
- __MIDL___MIDL_itf_ads_0000_0021 = TOleEnum;
- const
- ADS_SCOPE_BASE = $00000000;
- ADS_SCOPE_ONELEVEL = $00000001;
- ADS_SCOPE_SUBTREE = $00000002;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0022
- type
- __MIDL___MIDL_itf_ads_0000_0022 = TOleEnum;
- const
- ADSIPROP_ASYNCHRONOUS = $00000000;
- ADSIPROP_DEREF_ALIASES = $00000001;
- ADSIPROP_SIZE_LIMIT = $00000002;
- ADSIPROP_TIME_LIMIT = $00000003;
- ADSIPROP_ATTRIBTYPES_ONLY = $00000004;
- ADSIPROP_SEARCH_SCOPE = $00000005;
- ADSIPROP_TIMEOUT = $00000006;
- ADSIPROP_PAGESIZE = $00000007;
- ADSIPROP_PAGED_TIME_LIMIT = $00000008;
- ADSIPROP_CHASE_REFERRALS = $00000009;
- ADSIPROP_SORT_ON = $0000000A;
- ADSIPROP_CACHE_RESULTS = $0000000B;
- ADSIPROP_ADSIFLAG = $0000000C;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0023
- type
- __MIDL___MIDL_itf_ads_0000_0023 = TOleEnum;
- const
- ADSI_DIALECT_LDAP = $00000000;
- ADSI_DIALECT_SQL = $00000001;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0024
- type
- __MIDL___MIDL_itf_ads_0000_0024 = TOleEnum;
- const
- ADS_CHASE_REFERRALS_NEVER = $00000000;
- ADS_CHASE_REFERRALS_SUBORDINATE = $00000020;
- ADS_CHASE_REFERRALS_EXTERNAL = $00000040;
- ADS_CHASE_REFERRALS_ALWAYS = $00000060;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0025
- type
- __MIDL___MIDL_itf_ads_0000_0025 = TOleEnum;
- const
- ADS_SEARCHPREF_ASYNCHRONOUS = $00000000;
- ADS_SEARCHPREF_DEREF_ALIASES = $00000001;
- ADS_SEARCHPREF_SIZE_LIMIT = $00000002;
- ADS_SEARCHPREF_TIME_LIMIT = $00000003;
- ADS_SEARCHPREF_ATTRIBTYPES_ONLY = $00000004;
- ADS_SEARCHPREF_SEARCH_SCOPE = $00000005;
- ADS_SEARCHPREF_TIMEOUT = $00000006;
- ADS_SEARCHPREF_PAGESIZE = $00000007;
- ADS_SEARCHPREF_PAGED_TIME_LIMIT = $00000008;
- ADS_SEARCHPREF_CHASE_REFERRALS = $00000009;
- ADS_SEARCHPREF_SORT_ON = $0000000A;
- ADS_SEARCHPREF_CACHE_RESULTS = $0000000B;
- ADS_SEARCHPREF_DIRSYNC = $0000000C;
- ADS_SEARCHPREF_TOMBSTONE = $0000000D;
- // Constants for enum __MIDL___MIDL_itf_ads_0000_0026
- type
- __MIDL___MIDL_itf_ads_0000_0026 = TOleEnum;
- const
- ADS_PROPERTY_CLEAR = $00000001;
- ADS_PROPERTY_UPDATE = $00000002;
- ADS_PROPERTY_APPEND = $00000003;
- ADS_PROPERTY_DELETE = $00000004;
- // Constants for enum tagTYPEKIND
- type
- tagTYPEKIND = TOleEnum;
- const
- TKIND_ENUM = $00000000;
- TKIND_RECORD = $00000001;
- TKIND_MODULE = $00000002;
- TKIND_INTERFACE = $00000003;
- TKIND_DISPATCH = $00000004;
- TKIND_COCLASS = $00000005;
- TKIND_ALIAS = $00000006;
- TKIND_UNION = $00000007;
- TKIND_MAX = $00000008;
- // Constants for enum tagDESCKIND
- type
- tagDESCKIND = TOleEnum;
- const
- DESCKIND_NONE = $00000000;
- DESCKIND_FUNCDESC = $00000001;
- DESCKIND_VARDESC = $00000002;
- DESCKIND_TYPECOMP = $00000003;
- DESCKIND_IMPLICITAPPOBJ = $00000004;
- DESCKIND_MAX = $00000005;
- // Constants for enum tagFUNCKIND
- type
- tagFUNCKIND = TOleEnum;
- const
- FUNC_VIRTUAL = $00000000;
- FUNC_PUREVIRTUAL = $00000001;
- FUNC_NONVIRTUAL = $00000002;
- FUNC_STATIC = $00000003;
- FUNC_DISPATCH = $00000004;
- // Constants for enum tagINVOKEKIND
- type
- tagINVOKEKIND = TOleEnum;
- const
- INVOKE_FUNC = $00000001;
- INVOKE_PROPERTYGET = $00000002;
- INVOKE_PROPERTYPUT = $00000004;
- INVOKE_PROPERTYPUTREF = $00000008;
- // Constants for enum tagCALLCONV
- type
- tagCALLCONV = TOleEnum;
- const
- CC_FASTCALL = $00000000;
- CC_CDECL = $00000001;
- CC_MSCPASCAL = $00000002;
- CC_PASCAL = $00000002;
- CC_MACPASCAL = $00000003;
- CC_STDCALL = $00000004;
- CC_FPFASTCALL = $00000005;
- CC_SYSCALL = $00000006;
- CC_MPWCDECL = $00000007;
- CC_MPWPASCAL = $00000008;
- CC_MAX = $00000009;
- // Constants for enum tagVARKIND
- type
- tagVARKIND = TOleEnum;
- const
- VAR_PERINSTANCE = $00000000;
- VAR_STATIC = $00000001;
- VAR_CONST = $00000002;
- VAR_DISPATCH = $00000003;
- // Constants for enum tagSYSKIND
- type
- tagSYSKIND = TOleEnum;
- const
- SYS_WIN16 = $00000000;
- SYS_WIN32 = $00000001;
- SYS_MAC = $00000002;
- SYS_WIN64 = $00000001;
- // Constants for enum __MIDL___MIDL_itf_ads_0120_0001
- type
- __MIDL___MIDL_itf_ads_0120_0001 = TOleEnum;
- const
- ADS_SYSTEMFLAG_DISALLOW_DELETE = $80000000;
- ADS_SYSTEMFLAG_CONFIG_ALLOW_RENAME = $40000000;
- ADS_SYSTEMFLAG_CONFIG_ALLOW_MOVE = $20000000;
- ADS_SYSTEMFLAG_CONFIG_ALLOW_LIMITED_MOVE = $10000000;
- ADS_SYSTEMFLAG_DOMAIN_DISALLOW_RENAME = $08000000;
- ADS_SYSTEMFLAG_DOMAIN_DISALLOW_MOVE = $04000000;
- ADS_SYSTEMFLAG_CR_NTDS_NC = $00000001;
- ADS_SYSTEMFLAG_CR_NTDS_DOMAIN = $00000002;
- ADS_SYSTEMFLAG_ATTR_NOT_REPLICATED = $00000001;
- ADS_SYSTEMFLAG_ATTR_IS_CONSTRUCTED = $00000004;
- // Constants for enum __MIDL___MIDL_itf_ads_0126_0001
- type
- __MIDL___MIDL_itf_ads_0126_0001 = TOleEnum;
- const
- ADS_GROUP_TYPE_GLOBAL_GROUP = $00000002;
- ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = $00000004;
- ADS_GROUP_TYPE_LOCAL_GROUP = $00000004;
- ADS_GROUP_TYPE_UNIVERSAL_GROUP = $00000008;
- ADS_GROUP_TYPE_SECURITY_ENABLED = $80000000;
- // Constants for enum ADS_USER_FLAG
- type
- ADS_USER_FLAG = TOleEnum;
- const
- ADS_UF_SCRIPT = $00000001;
- ADS_UF_ACCOUNTDISABLE = $00000002;
- ADS_UF_HOMEDIR_REQUIRED = $00000008;
- ADS_UF_LOCKOUT = $00000010;
- ADS_UF_PASSWD_NOTREQD = $00000020;
- ADS_UF_PASSWD_CANT_CHANGE = $00000040;
- ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = $00000080;
- ADS_UF_TEMP_DUPLICATE_ACCOUNT = $00000100;
- ADS_UF_NORMAL_ACCOUNT = $00000200;
- ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = $00000800;
- ADS_UF_WORKSTATION_TRUST_ACCOUNT = $00001000;
- ADS_UF_SERVER_TRUST_ACCOUNT = $00002000;
- ADS_UF_DONT_EXPIRE_PASSWD = $00010000;
- ADS_UF_MNS_LOGON_ACCOUNT = $00020000;
- ADS_UF_SMARTCARD_REQUIRED = $00040000;
- ADS_UF_TRUSTED_FOR_DELEGATION = $00080000;
- ADS_UF_NOT_DELEGATED = $00100000;
- // Constants for enum __MIDL___MIDL_itf_ads_0148_0001
- type
- __MIDL___MIDL_itf_ads_0148_0001 = TOleEnum;
- const
- ADS_RIGHT_DELETE = $00010000;
- ADS_RIGHT_READ_CONTROL = $00020000;
- ADS_RIGHT_WRITE_DAC = $00040000;
- ADS_RIGHT_WRITE_OWNER = $00080000;
- ADS_RIGHT_SYNCHRONIZE = $00100000;
- ADS_RIGHT_ACCESS_SYSTEM_SECURITY = $01000000;
- ADS_RIGHT_GENERIC_READ = $80000000;
- ADS_RIGHT_GENERIC_WRITE = $40000000;
- ADS_RIGHT_GENERIC_EXECUTE = $20000000;
- ADS_RIGHT_GENERIC_ALL = $10000000;
- ADS_RIGHT_DS_CREATE_CHILD = $00000001;
- ADS_RIGHT_DS_DELETE_CHILD = $00000002;
- ADS_RIGHT_ACTRL_DS_LIST = $00000004;
- ADS_RIGHT_DS_SELF = $00000008;
- ADS_RIGHT_DS_READ_PROP = $00000010;
- ADS_RIGHT_DS_WRITE_PROP = $00000020;
- ADS_RIGHT_DS_DELETE_TREE = $00000040;
- ADS_RIGHT_DS_LIST_OBJECT = $00000080;
- ADS_RIGHT_DS_CONTROL_ACCESS = $00000100;
- // Constants for enum __MIDL___MIDL_itf_ads_0148_0002
- type
- __MIDL___MIDL_itf_ads_0148_0002 = TOleEnum;
- const
- ADS_ACETYPE_ACCESS_ALLOWED = $00000000;
- ADS_ACETYPE_ACCESS_DENIED = $00000001;
- ADS_ACETYPE_SYSTEM_AUDIT = $00000002;
- ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = $00000005;
- ADS_ACETYPE_ACCESS_DENIED_OBJECT = $00000006;
- ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = $00000007;
- // Constants for enum __MIDL___MIDL_itf_ads_0148_0003
- type
- __MIDL___MIDL_itf_ads_0148_0003 = TOleEnum;
- const
- ADS_ACEFLAG_INHERIT_ACE = $00000002;
- ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = $00000004;
- ADS_ACEFLAG_INHERIT_ONLY_ACE = $00000008;
- ADS_ACEFLAG_INHERITED_ACE = $00000010;
- ADS_ACEFLAG_VALID_INHERIT_FLAGS = $0000001F;
- ADS_ACEFLAG_SUCCESSFUL_ACCESS = $00000040;
- ADS_ACEFLAG_FAILED_ACCESS = $00000080;
- // Constants for enum __MIDL___MIDL_itf_ads_0148_0004
- type
- __MIDL___MIDL_itf_ads_0148_0004 = TOleEnum;
- const
- ADS_FLAG_OBJECT_TYPE_PRESENT = $00000001;
- ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = $00000002;
- // Constants for enum __MIDL___MIDL_itf_ads_0148_0005
- type
- __MIDL___MIDL_itf_ads_0148_0005 = TOleEnum;
- const
- ADS_SD_CONTROL_SE_OWNER_DEFAULTED = $00000001;
- ADS_SD_CONTROL_SE_GROUP_DEFAULTED = $00000002;
- ADS_SD_CONTROL_SE_DACL_PRESENT = $00000004;
- ADS_SD_CONTROL_SE_DACL_DEFAULTED = $00000008;
- ADS_SD_CONTROL_SE_SACL_PRESENT = $00000010;
- ADS_SD_CONTROL_SE_SACL_DEFAULTED = $00000020;
- ADS_SD_CONTROL_SE_DACL_AUTO_INHERIT_REQ = $00000100;
- ADS_SD_CONTROL_SE_SACL_AUTO_INHERIT_REQ = $00000200;
- ADS_SD_CONTROL_SE_DACL_AUTO_INHERITED = $00000400;
- ADS_SD_CONTROL_SE_SACL_AUTO_INHERITED = $00000800;
- ADS_SD_CONTROL_SE_DACL_PROTECTED = $00001000;
- ADS_SD_CONTROL_SE_SACL_PROTECTED = $00002000;
- ADS_SD_CONTROL_SE_SELF_RELATIVE = $00008000;
- // Constants for enum __MIDL___MIDL_itf_ads_0148_0006
- type
- __MIDL___MIDL_itf_ads_0148_0006 = TOleEnum;
- const
- ADS_SD_REVISION_DS = $00000004;
- // Constants for enum __MIDL___MIDL_itf_ads_0149_0001
- type
- __MIDL___MIDL_itf_ads_0149_0001 = TOleEnum;
- const
- ADS_NAME_TYPE_1779 = $00000001;
- ADS_NAME_TYPE_CANONICAL = $00000002;
- ADS_NAME_TYPE_NT4 = $00000003;
- ADS_NAME_TYPE_DISPLAY = $00000004;
- ADS_NAME_TYPE_DOMAIN_SIMPLE = $00000005;
- ADS_NAME_TYPE_ENTERPRISE_SIMPLE = $00000006;
- ADS_NAME_TYPE_GUID = $00000007;
- ADS_NAME_TYPE_UNKNOWN = $00000008;
- ADS_NAME_TYPE_USER_PRINCIPAL_NAME = $00000009;
- ADS_NAME_TYPE_CANONICAL_EX = $0000000A;
- ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME = $0000000B;
- ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME = $0000000C;
- // Constants for enum __MIDL___MIDL_itf_ads_0149_0002
- type
- __MIDL___MIDL_itf_ads_0149_0002 = TOleEnum;
- const
- ADS_NAME_INITTYPE_DOMAIN = $00000001;
- ADS_NAME_INITTYPE_SERVER = $00000002;
- ADS_NAME_INITTYPE_GC = $00000003;
- // Constants for enum __MIDL___MIDL_itf_ads_0163_0001
- type
- __MIDL___MIDL_itf_ads_0163_0001 = TOleEnum;
- const
- ADS_OPTION_SERVERNAME = $00000000;
- ADS_OPTION_REFERRALS = $00000001;
- ADS_OPTION_PAGE_SIZE = $00000002;
- ADS_OPTION_SECURITY_MASK = $00000003;
- ADS_OPTION_MUTUAL_AUTH_STATUS = $00000004;
- // Constants for enum __MIDL___MIDL_itf_ads_0163_0002
- type
- __MIDL___MIDL_itf_ads_0163_0002 = TOleEnum;
- const
- ADS_SECURITY_INFO_OWNER = $00000001;
- ADS_SECURITY_INFO_GROUP = $00000002;
- ADS_SECURITY_INFO_DACL = $00000004;
- ADS_SECURITY_INFO_SACL = $00000008;
- // Constants for enum __MIDL___MIDL_itf_ads_0164_0001
- type
- __MIDL___MIDL_itf_ads_0164_0001 = TOleEnum;
- const
- ADS_SETTYPE_FULL = $00000001;
- ADS_SETTYPE_PROVIDER = $00000002;
- ADS_SETTYPE_SERVER = $00000003;
- ADS_SETTYPE_DN = $00000004;
- // Constants for enum __MIDL___MIDL_itf_ads_0164_0002
- type
- __MIDL___MIDL_itf_ads_0164_0002 = TOleEnum;
- const
- ADS_FORMAT_WINDOWS = $00000001;
- ADS_FORMAT_WINDOWS_NO_SERVER = $00000002;
- ADS_FORMAT_WINDOWS_DN = $00000003;
- ADS_FORMAT_WINDOWS_PARENT = $00000004;
- ADS_FORMAT_X500 = $00000005;
- ADS_FORMAT_X500_NO_SERVER = $00000006;
- ADS_FORMAT_X500_DN = $00000007;
- ADS_FORMAT_X500_PARENT = $00000008;
- ADS_FORMAT_SERVER = $00000009;
- ADS_FORMAT_PROVIDER = $0000000A;
- ADS_FORMAT_LEAF = $0000000B;
- // Constants for enum __MIDL___MIDL_itf_ads_0164_0003
- type
- __MIDL___MIDL_itf_ads_0164_0003 = TOleEnum;
- const
- ADS_DISPLAY_FULL = $00000001;
- ADS_DISPLAY_VALUE_ONLY = $00000002;
- // Constants for enum __MIDL___MIDL_itf_ads_0164_0004
- type
- __MIDL___MIDL_itf_ads_0164_0004 = TOleEnum;
- const
- ADS_ESCAPEDMODE_DEFAULT = $00000001;
- ADS_ESCAPEDMODE_ON = $00000002;
- ADS_ESCAPEDMODE_OFF = $00000003;
- ADS_ESCAPEDMODE_OFF_EX = $00000004;
- type
- // *********************************************************************//
- // Forward declaration of types defined in TypeLibrary
- // *********************************************************************//
- IADs = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDisp = dispinterface;
- {$endif}
- IADsContainer = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsContainerDisp = dispinterface;
- {$endif}
- IADsCollection = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsCollectionDisp = dispinterface;
- {$endif}
- IADsMembers = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsMembersDisp = dispinterface;
- {$endif}
- IADsPropertyList = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyListDisp = dispinterface;
- {$endif}
- IADsPropertyEntry = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyEntryDisp = dispinterface;
- {$endif}
- IADsPropertyValue = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyValueDisp = dispinterface;
- {$endif}
- IADsPropertyValue2 = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyValue2Disp = dispinterface;
- {$endif}
- IPrivateDispatch = interface;
- ITypeInfo = interface;
- ITypeComp = interface;
- ITypeLib = interface;
- IPrivateUnknown = interface;
- IADsExtension = interface;
- IADsDeleteOps = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDeleteOpsDisp = dispinterface;
- {$endif}
- IADsNamespaces = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsNamespacesDisp = dispinterface;
- {$endif}
- IADsClass = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsClassDisp = dispinterface;
- {$endif}
- IADsProperty = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyDisp = dispinterface;
- {$endif}
- IADsSyntax = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsSyntaxDisp = dispinterface;
- {$endif}
- IADsLocality = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsLocalityDisp = dispinterface;
- {$endif}
- IADsO = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsODisp = dispinterface;
- {$endif}
- IADsOU = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsOUDisp = dispinterface;
- {$endif}
- IADsDomain = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDomainDisp = dispinterface;
- {$endif}
- IADsComputer = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsComputerDisp = dispinterface;
- {$endif}
- IADsComputerOperations = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsComputerOperationsDisp = dispinterface;
- {$endif}
- IADsGroup = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsGroupDisp = dispinterface;
- {$endif}
- IADsUser = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsUserDisp = dispinterface;
- {$endif}
- IADsPrintQueue = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintQueueDisp = dispinterface;
- {$endif}
- IADsPrintQueueOperations = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintQueueOperationsDisp = dispinterface;
- {$endif}
- IADsPrintJob = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintJobDisp = dispinterface;
- {$endif}
- IADsPrintJobOperations = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintJobOperationsDisp = dispinterface;
- {$endif}
- IADsService = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsServiceDisp = dispinterface;
- {$endif}
- IADsServiceOperations = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsServiceOperationsDisp = dispinterface;
- {$endif}
- IADsFileService = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFileServiceDisp = dispinterface;
- {$endif}
- IADsFileServiceOperations = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFileServiceOperationsDisp = dispinterface;
- {$endif}
- IADsFileShare = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFileShareDisp = dispinterface;
- {$endif}
- IADsSession = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsSessionDisp = dispinterface;
- {$endif}
- IADsResource = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsResourceDisp = dispinterface;
- {$endif}
- IADsOpenDSObject = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsOpenDSObjectDisp = dispinterface;
- {$endif}
- IDirectoryObject = interface;
- IDirectorySearch = interface;
- IDirectorySchemaMgmt = interface;
- IADsAggregatee = interface;
- IADsAggregator = interface;
- IADsAccessControlEntry = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsAccessControlEntryDisp = dispinterface;
- {$endif}
- IADsAccessControlList = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsAccessControlListDisp = dispinterface;
- {$endif}
- IADsSecurityDescriptor = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsSecurityDescriptorDisp = dispinterface;
- {$endif}
- IADsLargeInteger = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsLargeIntegerDisp = dispinterface;
- {$endif}
- IADsNameTranslate = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsNameTranslateDisp = dispinterface;
- {$endif}
- IADsCaseIgnoreList = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsCaseIgnoreListDisp = dispinterface;
- {$endif}
- IADsFaxNumber = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFaxNumberDisp = dispinterface;
- {$endif}
- IADsNetAddress = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsNetAddressDisp = dispinterface;
- {$endif}
- IADsOctetList = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsOctetListDisp = dispinterface;
- {$endif}
- IADsEmail = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsEmailDisp = dispinterface;
- {$endif}
- IADsPath = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPathDisp = dispinterface;
- {$endif}
- IADsReplicaPointer = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsReplicaPointerDisp = dispinterface;
- {$endif}
- IADsAcl = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsAclDisp = dispinterface;
- {$endif}
- IADsTimestamp = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsTimestampDisp = dispinterface;
- {$endif}
- IADsPostalAddress = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPostalAddressDisp = dispinterface;
- {$endif}
- IADsBackLink = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsBackLinkDisp = dispinterface;
- {$endif}
- IADsTypedName = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsTypedNameDisp = dispinterface;
- {$endif}
- IADsHold = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsHoldDisp = dispinterface;
- {$endif}
- IADsObjectOptions = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsObjectOptionsDisp = dispinterface;
- {$endif}
- IADsPathname = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPathnameDisp = dispinterface;
- {$endif}
- IADsADSystemInfo = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsADSystemInfoDisp = dispinterface;
- {$endif}
- IADsWinNTSystemInfo = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsWinNTSystemInfoDisp = dispinterface;
- {$endif}
- IADsDNWithBinary = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDNWithBinaryDisp = dispinterface;
- {$endif}
- IADsDNWithString = interface;
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDNWithStringDisp = dispinterface;
- {$endif}
- // *********************************************************************//
- // Declaration of CoClasses defined in Type Library
- // (NOTE: Here we map each CoClass to its Default Interface)
- // *********************************************************************//
- PropertyEntry = IADsPropertyEntry;
- PropertyValue = IADsPropertyValue;
- AccessControlEntry = IADsAccessControlEntry;
- AccessControlList = IADsAccessControlList;
- SecurityDescriptor = IADsSecurityDescriptor;
- LargeInteger = IADsLargeInteger;
- NameTranslate = IADsNameTranslate;
- CaseIgnoreList = IADsCaseIgnoreList;
- FaxNumber = IADsFaxNumber;
- NetAddress = IADsNetAddress;
- OctetList = IADsOctetList;
- Email = IADsEmail;
- Path = IADsPath;
- ReplicaPointer = IADsReplicaPointer;
- Acl = IADsAcl;
- Timestamp = IADsTimestamp;
- PostalAddress = IADsPostalAddress;
- BackLink = IADsBackLink;
- TypedName = IADsTypedName;
- Hold = IADsHold;
- Pathname = IADsPathname;
- ADSystemInfo = IADsADSystemInfo;
- WinNTSystemInfo = IADsWinNTSystemInfo;
- DNWithBinary = IADsDNWithBinary;
- DNWithString = IADsDNWithString;
- // *********************************************************************//
- // Declaration of structures, unions and aliases.
- // *********************************************************************//
- PUserType1 = ^_ADS_CASEIGNORE_LIST; {*}
- PUserType2 = ^_ADS_OCTET_LIST; {*}
- PPWideChar1 = ^PWideChar; {*}
- PUserType8 = ^tagTYPEDESC; {*}
- PUserType9 = ^tagARRAYDESC; {*}
- PUserType3 = ^TGUID; {*}
- PWord1 = ^Word; {*}
- PPWord1 = ^PWord1; {*}
- PUserType4 = ^TGUID; {*}
- PUserType5 = ^tagTYPEATTR; {*}
- PUserType6 = ^tagFUNCDESC; {*}
- PUserType7 = ^tagVARDESC; {*}
- PUserType10 = ^tagTLIBATTR; {*}
- PUserType11 = ^_ads_object_info; {*}
- PUserType12 = ^_ads_attr_info; {*}
- PUserType13 = ^ads_searchpref_info; {*}
- PUserType14 = ^ads_search_column; {*}
- PUserType15 = ^_ads_attr_def; {*}
- PPUserType1 = ^PUserType15; {*}
- PUINT1 = ^LongWord; {*}
- PUserType16 = ^_ads_class_def; {*}
- PPUserType2 = ^PUserType16; {*}
- ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0001;
- __MIDL___MIDL_itf_ads_0000_0002 = packed record
- dwLength: LongWord;
- lpValue: ^Byte;
- end;
- ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0002;
- __MIDL___MIDL_itf_ads_0000_0003 = packed record
- dwLength: LongWord;
- lpValue: ^Byte;
- end;
- ADS_NT_SECURITY_DESCRIPTOR = __MIDL___MIDL_itf_ads_0000_0003;
- _SYSTEMTIME = packed record
- wYear: Word;
- wMonth: Word;
- wDayOfWeek: Word;
- wDay: Word;
- wHour: Word;
- wMinute: Word;
- wSecond: Word;
- wMilliseconds: Word;
- end;
- _LARGE_INTEGER = packed record
- QuadPart: Int64;
- end;
- __MIDL___MIDL_itf_ads_0000_0004 = packed record
- dwLength: LongWord;
- lpValue: ^Byte;
- end;
- ADS_PROV_SPECIFIC = __MIDL___MIDL_itf_ads_0000_0004;
- __MIDL___MIDL_itf_ads_0000_0005 = packed record
- Type_: LongWord;
- VolumeName: PWideChar;
- Path: PWideChar;
- end;
- ADS_PATH = __MIDL___MIDL_itf_ads_0000_0005;
- __MIDL___MIDL_itf_ads_0000_0006 = packed record
- PostalAddress: array[0..5] of PWideChar;
- end;
- ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0006;
- __MIDL___MIDL_itf_ads_0000_0007 = packed record
- WholeSeconds: LongWord;
- EventID: LongWord;
- end;
- ADS_TIMESTAMP = __MIDL___MIDL_itf_ads_0000_0007;
- __MIDL___MIDL_itf_ads_0000_0008 = packed record
- RemoteID: LongWord;
- ObjectName: PWideChar;
- end;
- ADS_BACKLINK = __MIDL___MIDL_itf_ads_0000_0008;
- __MIDL___MIDL_itf_ads_0000_0009 = packed record
- ObjectName: PWideChar;
- Level: LongWord;
- Interval: LongWord;
- end;
- ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0009;
- __MIDL___MIDL_itf_ads_0000_0010 = packed record
- ObjectName: PWideChar;
- Amount: LongWord;
- end;
- ADS_HOLD = __MIDL___MIDL_itf_ads_0000_0010;
- __MIDL___MIDL_itf_ads_0000_0011 = packed record
- AddressType: LongWord;
- AddressLength: LongWord;
- Address: ^Byte;
- end;
- ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0011;
- __MIDL___MIDL_itf_ads_0000_0012 = packed record
- ServerName: PWideChar;
- ReplicaType: LongWord;
- ReplicaNumber: LongWord;
- Count: LongWord;
- ReplicaAddressHints: ^__MIDL___MIDL_itf_ads_0000_0011;
- end;
- ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0012;
- __MIDL___MIDL_itf_ads_0000_0013 = packed record
- TelephoneNumber: PWideChar;
- NumberOfBits: LongWord;
- Parameters: ^Byte;
- end;
- ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0013;
- __MIDL___MIDL_itf_ads_0000_0014 = packed record
- Address: PWideChar;
- Type_: LongWord;
- end;
- ADS_EMAIL = __MIDL___MIDL_itf_ads_0000_0014;
- __MIDL___MIDL_itf_ads_0000_0015 = packed record
- dwLength: LongWord;
- lpBinaryValue: ^Byte;
- pszDNString: PWideChar;
- end;
- ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0015;
- __MIDL___MIDL_itf_ads_0000_0016 = packed record
- pszStringValue: PWideChar;
- pszDNString: PWideChar;
- end;
- ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0016;
- _ADS_CASEIGNORE_LIST = packed record
- Next: PUserType1;
- String_: PWideChar;
- end;
- _ADS_OCTET_LIST = packed record
- Next: PUserType2;
- Length: LongWord;
- Data: ^Byte;
- end;
- __MIDL___MIDL_itf_ads_0000_0017 = record
- case Integer of
- 0: (DNString: PWideChar);
- 1: (CaseExactString: PWideChar);
- 2: (CaseIgnoreString: PWideChar);
- 3: (PrintableString: PWideChar);
- 4: (NumericString: PWideChar);
- 5: (Boolean: LongWord);
- 6: (Integer: LongWord);
- 7: (OctetString: ADS_OCTET_STRING);
- 8: (UTCTime: _SYSTEMTIME);
- 9: (LargeInteger: _LARGE_INTEGER);
- 10: (ClassName: PWideChar);
- 11: (ProviderSpecific: ADS_PROV_SPECIFIC);
- 12: (pCaseIgnoreList: ^_ADS_CASEIGNORE_LIST);
- 13: (pOctetList: ^_ADS_OCTET_LIST);
- 14: (pPath: ^__MIDL___MIDL_itf_ads_0000_0005);
- 15: (pPostalAddress: ^__MIDL___MIDL_itf_ads_0000_0006);
- 16: (Timestamp: ADS_TIMESTAMP);
- 17: (BackLink: ADS_BACKLINK);
- 18: (pTypedName: ^__MIDL___MIDL_itf_ads_0000_0009);
- 19: (Hold: ADS_HOLD);
- 20: (pNetAddress: ^__MIDL___MIDL_itf_ads_0000_0011);
- 21: (pReplicaPointer: ^__MIDL___MIDL_itf_ads_0000_0012);
- 22: (pFaxNumber: ^__MIDL___MIDL_itf_ads_0000_0013);
- 23: (Email: ADS_EMAIL);
- 24: (SecurityDescriptor: ADS_NT_SECURITY_DESCRIPTOR);
- 25: (pDNWithBinary: ^__MIDL___MIDL_itf_ads_0000_0015);
- 26: (pDNWithString: ^__MIDL___MIDL_itf_ads_0000_0016);
- end;
- ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0018;
- _ads_object_info = packed record
- pszRDN: PWideChar;
- pszObjectDN: PWideChar;
- pszParentDN: PWideChar;
- pszSchemaDN: PWideChar;
- pszClassName: PWideChar;
- end;
- ADS_STATUSENUM = __MIDL___MIDL_itf_ads_0000_0019;
- ADS_DEREFENUM = __MIDL___MIDL_itf_ads_0000_0020;
- ADS_SCOPEENUM = __MIDL___MIDL_itf_ads_0000_0021;
- ADS_PREFERENCES_ENUM = __MIDL___MIDL_itf_ads_0000_0022;
- ADSI_DIALECT_ENUM = __MIDL___MIDL_itf_ads_0000_0023;
- ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0024;
- ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0025;
- _adsvalue = packed record
- dwType: ADSTYPEENUM;
- __MIDL_0010: __MIDL___MIDL_itf_ads_0000_0017;
- end;
- ads_search_column = packed record
- pszAttrName: PWideChar;
- dwADsType: ADSTYPEENUM;
- pADsValues: ^_adsvalue;
- dwNumValues: LongWord;
- hReserved: Pointer;
- end;
- _ads_attr_def = packed record
- pszAttrName: PWideChar;
- dwADsType: ADSTYPEENUM;
- dwMinRange: LongWord;
- dwMaxRange: LongWord;
- fMultiValued: Integer;
- end;
- _ads_sortkey = packed record
- pszAttrType: PWideChar;
- pszReserved: PWideChar;
- fReverseorder: Shortint;
- end;
- ADS_PROPERTY_OPERATION_ENUM = __MIDL___MIDL_itf_ads_0000_0026;
- __MIDL_IOleAutomationTypes_0005 = record
- case Integer of
- 0: (lptdesc: PUserType8);
- 1: (lpadesc: PUserType9);
- 2: (hreftype: LongWord);
- end;
- tagTYPEDESC = packed record
- __MIDL_0008: __MIDL_IOleAutomationTypes_0005;
- vt: Word;
- end;
- tagSAFEARRAYBOUND = packed record
- cElements: LongWord;
- lLbound: Integer;
- end;
- ULONG_PTR = LongWord;
- tagIDLDESC = packed record
- dwReserved: ULONG_PTR;
- wIDLFlags: Word;
- end;
- DWORD = LongWord;
- tagPARAMDESCEX = packed record
- cBytes: LongWord;
- varDefaultValue: OleVariant;
- end;
- tagPARAMDESC = packed record
- pparamdescex: ^tagPARAMDESCEX;
- wParamFlags: Word;
- end;
- tagELEMDESC = packed record
- tdesc: tagTYPEDESC;
- paramdesc: tagPARAMDESC;
- end;
- tagFUNCDESC = packed record
- memid: Integer;
- lprgscode: ^SCODE;
- lprgelemdescParam: ^tagELEMDESC;
- funckind: tagFUNCKIND;
- invkind: tagINVOKEKIND;
- callconv: tagCALLCONV;
- cParams: Smallint;
- cParamsOpt: Smallint;
- oVft: Smallint;
- cScodes: Smallint;
- elemdescFunc: tagELEMDESC;
- wFuncFlags: Word;
- end;
- __MIDL_IOleAutomationTypes_0006 = record
- case Integer of
- 0: (oInst: LongWord);
- 1: (lpvarValue: ^OleVariant);
- end;
- tagVARDESC = packed record
- memid: Integer;
- lpstrSchema: PWideChar;
- __MIDL_0009: __MIDL_IOleAutomationTypes_0006;
- elemdescVar: tagELEMDESC;
- wVarFlags: Word;
- varkind: tagVARKIND;
- end;
- tagTLIBATTR = packed record
- GUID: TGUID;
- lcid: LongWord;
- syskind: tagSYSKIND;
- wMajorVerNum: Word;
- wMinorVerNum: Word;
- wLibFlags: Word;
- end;
- ADS_SYSTEMFLAG_ENUM = __MIDL___MIDL_itf_ads_0120_0001;
- ADS_GROUP_TYPE_ENUM = __MIDL___MIDL_itf_ads_0126_0001;
- ADS_RIGHTS_ENUM = __MIDL___MIDL_itf_ads_0148_0001;
- ADS_ACETYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0002;
- ADS_ACEFLAG_ENUM = __MIDL___MIDL_itf_ads_0148_0003;
- ADS_FLAGTYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0004;
- ADS_SD_CONTROL_ENUM = __MIDL___MIDL_itf_ads_0148_0005;
- ADS_SD_REVISION_ENUM = __MIDL___MIDL_itf_ads_0148_0006;
- ADS_NAME_TYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0001;
- ADS_NAME_INITTYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0002;
- ADS_OPTION_ENUM = __MIDL___MIDL_itf_ads_0163_0001;
- ADS_SECURITY_INFO_ENUM = __MIDL___MIDL_itf_ads_0163_0002;
- ADS_SETTYPE_ENUM = __MIDL___MIDL_itf_ads_0164_0001;
- ADS_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0164_0002;
- ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0164_0003;
- ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0164_0004;
- _ads_attr_info = packed record
- pszAttrName: PWideChar;
- dwControlCode: LongWord;
- dwADsType: ADSTYPEENUM;
- pADsValues: ^_adsvalue;
- dwNumValues: LongWord;
- end;
- ads_searchpref_info = packed record
- dwSearchPref: ADS_SEARCHPREF_ENUM;
- vValue: _adsvalue;
- dwStatus: ADS_STATUSENUM;
- end;
- _ads_class_def = packed record
- pszClassName: PWideChar;
- dwMandatoryAttrs: LongWord;
- ppszMandatoryAttrs: ^PWideChar;
- optionalAttrs: LongWord;
- ppszOptionalAttrs: ^PPWideChar1;
- dwNamingAttrs: LongWord;
- ppszNamingAttrs: ^PPWideChar1;
- dwSuperClasses: LongWord;
- ppszSuperClasses: ^PPWideChar1;
- fIsContainer: Integer;
- end;
- tagTYPEATTR = packed record
- GUID: TGUID;
- lcid: LongWord;
- dwReserved: LongWord;
- memidConstructor: Integer;
- memidDestructor: Integer;
- lpstrSchema: PWideChar;
- cbSizeInstance: LongWord;
- typekind: tagTYPEKIND;
- cFuncs: Word;
- cVars: Word;
- cImplTypes: Word;
- cbSizeVft: Word;
- cbAlignment: Word;
- wTypeFlags: Word;
- wMajorVerNum: Word;
- wMinorVerNum: Word;
- tdescAlias: tagTYPEDESC;
- idldescType: tagIDLDESC;
- end;
- tagARRAYDESC = packed record
- tdescElem: tagTYPEDESC;
- cDims: Word;
- rgbounds: ^tagSAFEARRAYBOUND;
- end;
- // *********************************************************************//
- // Interface: IADs
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
- // *********************************************************************//
- IADs = interface(IDispatch)
- ['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
- function Get_Name: WideString; safecall;
- function Get_Class_: WideString; safecall;
- function Get_GUID: WideString; safecall;
- function Get_ADsPath: WideString; safecall;
- function Get_Parent: WideString; safecall;
- function Get_Schema: WideString; safecall;
- procedure GetInfo; safecall;
- procedure SetInfo; safecall;
- function Get(const bstrName: WideString): OleVariant; safecall;
- procedure Put(const bstrName: WideString; vProp: OleVariant); safecall;
- function GetEx(const bstrName: WideString): OleVariant; safecall;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); safecall;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); safecall;
- property Name: WideString read Get_Name;
- property Class_: WideString read Get_Class_;
- property GUID: WideString read Get_GUID;
- property ADsPath: WideString read Get_ADsPath;
- property Parent: WideString read Get_Parent;
- property Schema: WideString read Get_Schema;
- end;
- // *********************************************************************//
- // DispIntf: IADsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDisp = dispinterface
- ['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsContainer
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
- // *********************************************************************//
- IADsContainer = interface(IDispatch)
- ['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
- function Get_Count: Integer; safecall;
- function Get__NewEnum: IUnknown; safecall;
- function Get_Filter: OleVariant; safecall;
- procedure Set_Filter(pVar: OleVariant); safecall;
- function Get_Hints: OleVariant; safecall;
- procedure Set_Hints(pvFilter: OleVariant); safecall;
- function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
- function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
- procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); safecall;
- function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
- function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
- property Count: Integer read Get_Count;
- property _NewEnum: IUnknown read Get__NewEnum;
- property Filter: OleVariant read Get_Filter write Set_Filter;
- property Hints: OleVariant read Get_Hints write Set_Hints;
- end;
- // *********************************************************************//
- // DispIntf: IADsContainerDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsContainerDisp = dispinterface
- ['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
- property Count: Integer readonly dispid 2;
- property _NewEnum: IUnknown readonly dispid -4;
- property Filter: OleVariant dispid 3;
- property Hints: OleVariant dispid 4;
- function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 5;
- function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 6;
- procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); dispid 7;
- function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 8;
- function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 9;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsCollection
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
- // *********************************************************************//
- IADsCollection = interface(IDispatch)
- ['{72B945E0-253B-11CF-A988-00AA006BC149}']
- function Get__NewEnum: IUnknown; safecall;
- procedure Add(const bstrName: WideString; vItem: OleVariant); safecall;
- procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
- function GetObject(const bstrName: WideString): OleVariant; safecall;
- property _NewEnum: IUnknown read Get__NewEnum;
- end;
- // *********************************************************************//
- // DispIntf: IADsCollectionDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsCollectionDisp = dispinterface
- ['{72B945E0-253B-11CF-A988-00AA006BC149}']
- property _NewEnum: IUnknown readonly dispid -4;
- procedure Add(const bstrName: WideString; vItem: OleVariant); dispid 4;
- procedure Remove(const bstrItemToBeRemoved: WideString); dispid 5;
- function GetObject(const bstrName: WideString): OleVariant; dispid 6;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsMembers
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
- // *********************************************************************//
- IADsMembers = interface(IDispatch)
- ['{451A0030-72EC-11CF-B03B-00AA006E0975}']
- function Get_Count: Integer; safecall;
- function Get__NewEnum: IUnknown; safecall;
- function Get_Filter: OleVariant; safecall;
- procedure Set_Filter(pvFilter: OleVariant); safecall;
- property Count: Integer read Get_Count;
- property _NewEnum: IUnknown read Get__NewEnum;
- property Filter: OleVariant read Get_Filter write Set_Filter;
- end;
- // *********************************************************************//
- // DispIntf: IADsMembersDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsMembersDisp = dispinterface
- ['{451A0030-72EC-11CF-B03B-00AA006E0975}']
- property Count: Integer readonly dispid 2;
- property _NewEnum: IUnknown readonly dispid -4;
- property Filter: OleVariant dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPropertyList
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
- // *********************************************************************//
- IADsPropertyList = interface(IDispatch)
- ['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
- function Get_PropertyCount: Integer; safecall;
- function Next: OleVariant; safecall;
- procedure Skip(cElements: Integer); safecall;
- procedure Reset; safecall;
- function Item(varIndex: OleVariant): OleVariant; safecall;
- function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; safecall;
- procedure PutPropertyItem(varData: OleVariant); safecall;
- procedure ResetPropertyItem(varEntry: OleVariant); safecall;
- procedure PurgePropertyList; safecall;
- property PropertyCount: Integer read Get_PropertyCount;
- end;
- // *********************************************************************//
- // DispIntf: IADsPropertyListDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyListDisp = dispinterface
- ['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
- property PropertyCount: Integer readonly dispid 2;
- function Next: OleVariant; dispid 3;
- procedure Skip(cElements: Integer); dispid 4;
- procedure Reset; dispid 5;
- function Item(varIndex: OleVariant): OleVariant; dispid 0;
- function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; dispid 6;
- procedure PutPropertyItem(varData: OleVariant); dispid 7;
- procedure ResetPropertyItem(varEntry: OleVariant); dispid 8;
- procedure PurgePropertyList; dispid 9;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPropertyEntry
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
- // *********************************************************************//
- IADsPropertyEntry = interface(IDispatch)
- ['{05792C8E-941F-11D0-8529-00C04FD8D503}']
- procedure Clear; safecall;
- function Get_Name: WideString; safecall;
- procedure Set_Name(const retval: WideString); safecall;
- function Get_ADsType: Integer; safecall;
- procedure Set_ADsType(retval: Integer); safecall;
- function Get_ControlCode: Integer; safecall;
- procedure Set_ControlCode(retval: Integer); safecall;
- function Get_Values: OleVariant; safecall;
- procedure Set_Values(retval: OleVariant); safecall;
- property Name: WideString read Get_Name write Set_Name;
- property ADsType: Integer read Get_ADsType write Set_ADsType;
- property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
- property Values: OleVariant read Get_Values write Set_Values;
- end;
- // *********************************************************************//
- // DispIntf: IADsPropertyEntryDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyEntryDisp = dispinterface
- ['{05792C8E-941F-11D0-8529-00C04FD8D503}']
- procedure Clear; dispid 1;
- property Name: WideString dispid 2;
- property ADsType: Integer dispid 3;
- property ControlCode: Integer dispid 4;
- property Values: OleVariant dispid 5;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPropertyValue
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
- // *********************************************************************//
- IADsPropertyValue = interface(IDispatch)
- ['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
- procedure Clear; safecall;
- function Get_ADsType: Integer; safecall;
- procedure Set_ADsType(retval: Integer); safecall;
- function Get_DNString: WideString; safecall;
- procedure Set_DNString(const retval: WideString); safecall;
- function Get_CaseExactString: WideString; safecall;
- procedure Set_CaseExactString(const retval: WideString); safecall;
- function Get_CaseIgnoreString: WideString; safecall;
- procedure Set_CaseIgnoreString(const retval: WideString); safecall;
- function Get_PrintableString: WideString; safecall;
- procedure Set_PrintableString(const retval: WideString); safecall;
- function Get_NumericString: WideString; safecall;
- procedure Set_NumericString(const retval: WideString); safecall;
- function Get_Boolean: Integer; safecall;
- procedure Set_Boolean(retval: Integer); safecall;
- function Get_Integer: Integer; safecall;
- procedure Set_Integer(retval: Integer); safecall;
- function Get_OctetString: OleVariant; safecall;
- procedure Set_OctetString(retval: OleVariant); safecall;
- function Get_SecurityDescriptor: IDispatch; safecall;
- procedure Set_SecurityDescriptor(const retval: IDispatch); safecall;
- function Get_LargeInteger: IDispatch; safecall;
- procedure Set_LargeInteger(const retval: IDispatch); safecall;
- function Get_UTCTime: TDateTime; safecall;
- procedure Set_UTCTime(retval: TDateTime); safecall;
- property ADsType: Integer read Get_ADsType write Set_ADsType;
- property DNString: WideString read Get_DNString write Set_DNString;
- property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
- property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
- property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
- property NumericString: WideString read Get_NumericString write Set_NumericString;
- property Boolean: Integer read Get_Boolean write Set_Boolean;
- property Integer: Integer read Get_Integer write Set_Integer;
- property OctetString: OleVariant read Get_OctetString write Set_OctetString;
- property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
- property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
- property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
- end;
- // *********************************************************************//
- // DispIntf: IADsPropertyValueDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyValueDisp = dispinterface
- ['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
- procedure Clear; dispid 1;
- property ADsType: Integer dispid 2;
- property DNString: WideString dispid 3;
- property CaseExactString: WideString dispid 4;
- property CaseIgnoreString: WideString dispid 5;
- property PrintableString: WideString dispid 6;
- property NumericString: WideString dispid 7;
- property Boolean: Integer dispid 8;
- property Integer: Integer dispid 9;
- property OctetString: OleVariant dispid 10;
- property SecurityDescriptor: IDispatch dispid 11;
- property LargeInteger: IDispatch dispid 12;
- property UTCTime: TDateTime dispid 13;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPropertyValue2
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
- // *********************************************************************//
- IADsPropertyValue2 = interface(IDispatch)
- ['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
- function GetObjectProperty(var lnADsType: Integer): OleVariant; safecall;
- procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); safecall;
- end;
- // *********************************************************************//
- // DispIntf: IADsPropertyValue2Disp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyValue2Disp = dispinterface
- ['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
- function GetObjectProperty(var lnADsType: Integer): OleVariant; dispid 1;
- procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); dispid 2;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IPrivateDispatch
- // Flags: (0)
- // GUID: {86AB4BBE-65F6-11D1-8C13-00C04FD8D503}
- // *********************************************************************//
- IPrivateDispatch = interface(IUnknown)
- ['{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}']
- function ADSIInitializeDispatchManager(dwExtensionId: Integer): HResult; stdcall;
- function ADSIGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
- function ADSIGetTypeInfo(itinfo: SYSUINT; lcid: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
- function ADSIGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
- lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
- function ADSIInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
- var pdispparams: TGUID; out pvarResult: OleVariant; out pexcepinfo: TGUID;
- out puArgErr: SYSUINT): HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: ITypeInfo
- // Flags: (0)
- // GUID: {00020401-0000-0000-C000-000000000046}
- // *********************************************************************//
- ITypeInfo = interface(IUnknown)
- ['{00020401-0000-0000-C000-000000000046}']
- function RemoteGetTypeAttr(out ppTypeAttr: PUserType5; out pDummy: DWORD): HResult; stdcall;
- function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
- function RemoteGetFuncDesc(index: SYSUINT; out ppFuncDesc: PUserType6; out pDummy: DWORD): HResult; stdcall;
- function RemoteGetVarDesc(index: SYSUINT; out ppVarDesc: PUserType7; out pDummy: DWORD): HResult; stdcall;
- function RemoteGetNames(memid: Integer; out rgBstrNames: WideString; cMaxNames: SYSUINT;
- out pcNames: SYSUINT): HResult; stdcall;
- function GetRefTypeOfImplType(index: SYSUINT; out pRefType: LongWord): HResult; stdcall;
- function GetImplTypeFlags(index: SYSUINT; out pImplTypeFlags: SYSINT): HResult; stdcall;
- function LocalGetIDsOfNames: HResult; stdcall;
- function LocalInvoke: HResult; stdcall;
- function RemoteGetDocumentation(memid: Integer; refPtrFlags: LongWord;
- out pBstrName: WideString; out pBstrDocString: WideString;
- out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
- function RemoteGetDllEntry(memid: Integer; invkind: tagINVOKEKIND; refPtrFlags: LongWord;
- out pBstrDllName: WideString; out pBstrName: WideString;
- out pwOrdinal: Word): HResult; stdcall;
- function GetRefTypeInfo(hreftype: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
- function LocalAddressOfMember: HResult; stdcall;
- function RemoteCreateInstance(var riid: TGUID; out ppvObj: IUnknown): HResult; stdcall;
- function GetMops(memid: Integer; out pBstrMops: WideString): HResult; stdcall;
- function RemoteGetContainingTypeLib(out ppTLib: ITypeLib; out pIndex: SYSUINT): HResult; stdcall;
- function LocalReleaseTypeAttr: HResult; stdcall;
- function LocalReleaseFuncDesc: HResult; stdcall;
- function LocalReleaseVarDesc: HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: ITypeComp
- // Flags: (0)
- // GUID: {00020403-0000-0000-C000-000000000046}
- // *********************************************************************//
- ITypeComp = interface(IUnknown)
- ['{00020403-0000-0000-C000-000000000046}']
- function RemoteBind(szName: PWideChar; lHashVal: LongWord; wFlags: Word;
- out ppTInfo: ITypeInfo; out pDescKind: tagDESCKIND;
- out ppFuncDesc: PUserType6; out ppVarDesc: PUserType7;
- out ppTypeComp: ITypeComp; out pDummy: DWORD): HResult; stdcall;
- function RemoteBindType(szName: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: ITypeLib
- // Flags: (0)
- // GUID: {00020402-0000-0000-C000-000000000046}
- // *********************************************************************//
- ITypeLib = interface(IUnknown)
- ['{00020402-0000-0000-C000-000000000046}']
- function RemoteGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
- function GetTypeInfo(index: SYSUINT; out ppTInfo: ITypeInfo): HResult; stdcall;
- function GetTypeInfoType(index: SYSUINT; out pTKind: tagTYPEKIND): HResult; stdcall;
- function GetTypeInfoOfGuid(var GUID: TGUID; out ppTInfo: ITypeInfo): HResult; stdcall;
- function RemoteGetLibAttr(out ppTLibAttr: PUserType10; out pDummy: DWORD): HResult; stdcall;
- function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
- function RemoteGetDocumentation(index: SYSINT; refPtrFlags: LongWord;
- out pBstrName: WideString; out pBstrDocString: WideString;
- out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
- function RemoteIsName(szNameBuf: PWideChar; lHashVal: LongWord; out pfName: Integer;
- out pBstrLibName: WideString): HResult; stdcall;
- function RemoteFindName(szNameBuf: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo;
- out rgMemId: Integer; var pcFound: Word; out pBstrLibName: WideString): HResult; stdcall;
- function LocalReleaseTLibAttr: HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IPrivateUnknown
- // Flags: (0)
- // GUID: {89126BAB-6EAD-11D1-8C18-00C04FD8D503}
- // *********************************************************************//
- IPrivateUnknown = interface(IUnknown)
- ['{89126BAB-6EAD-11D1-8C18-00C04FD8D503}']
- function ADSIInitializeObject(const lpszUserName: WideString; const lpszPassword: WideString;
- lnReserved: Integer): HResult; stdcall;
- function ADSIReleaseObject: HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IADsExtension
- // Flags: (0)
- // GUID: {3D35553C-D2B0-11D1-B17B-0000F87593A0}
- // *********************************************************************//
- IADsExtension = interface(IUnknown)
- ['{3D35553C-D2B0-11D1-B17B-0000F87593A0}']
- function Operate(dwCode: LongWord; varData1: OleVariant; varData2: OleVariant;
- varData3: OleVariant): HResult; stdcall;
- function PrivateGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
- lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
- function PrivateInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
- var pdispparams: TGUID; out pvarResult: OleVariant;
- out pexcepinfo: TGUID; out puArgErr: SYSUINT): HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IADsDeleteOps
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
- // *********************************************************************//
- IADsDeleteOps = interface(IDispatch)
- ['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
- procedure DeleteObject(lnFlags: Integer); safecall;
- end;
- // *********************************************************************//
- // DispIntf: IADsDeleteOpsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDeleteOpsDisp = dispinterface
- ['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
- procedure DeleteObject(lnFlags: Integer); dispid 2;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsNamespaces
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
- // *********************************************************************//
- IADsNamespaces = interface(IADs)
- ['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
- function Get_DefaultContainer: WideString; safecall;
- procedure Set_DefaultContainer(const retval: WideString); safecall;
- property DefaultContainer: WideString read Get_DefaultContainer write Set_DefaultContainer;
- end;
- // *********************************************************************//
- // DispIntf: IADsNamespacesDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsNamespacesDisp = dispinterface
- ['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
- property DefaultContainer: WideString dispid 1;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsClass
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
- // *********************************************************************//
- IADsClass = interface(IADs)
- ['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
- function Get_PrimaryInterface: WideString; safecall;
- function Get_CLSID: WideString; safecall;
- procedure Set_CLSID(const retval: WideString); safecall;
- function Get_OID: WideString; safecall;
- procedure Set_OID(const retval: WideString); safecall;
- function Get_Abstract: WordBool; safecall;
- procedure Set_Abstract(retval: WordBool); safecall;
- function Get_Auxiliary: WordBool; safecall;
- procedure Set_Auxiliary(retval: WordBool); safecall;
- function Get_MandatoryProperties: OleVariant; safecall;
- procedure Set_MandatoryProperties(retval: OleVariant); safecall;
- function Get_OptionalProperties: OleVariant; safecall;
- procedure Set_OptionalProperties(retval: OleVariant); safecall;
- function Get_NamingProperties: OleVariant; safecall;
- procedure Set_NamingProperties(retval: OleVariant); safecall;
- function Get_DerivedFrom: OleVariant; safecall;
- procedure Set_DerivedFrom(retval: OleVariant); safecall;
- function Get_AuxDerivedFrom: OleVariant; safecall;
- procedure Set_AuxDerivedFrom(retval: OleVariant); safecall;
- function Get_PossibleSuperiors: OleVariant; safecall;
- procedure Set_PossibleSuperiors(retval: OleVariant); safecall;
- function Get_Containment: OleVariant; safecall;
- procedure Set_Containment(retval: OleVariant); safecall;
- function Get_Container: WordBool; safecall;
- procedure Set_Container(retval: WordBool); safecall;
- function Get_HelpFileName: WideString; safecall;
- procedure Set_HelpFileName(const retval: WideString); safecall;
- function Get_HelpFileContext: Integer; safecall;
- procedure Set_HelpFileContext(retval: Integer); safecall;
- function Qualifiers: IADsCollection; safecall;
- property PrimaryInterface: WideString read Get_PrimaryInterface;
- property CLSID: WideString read Get_CLSID write Set_CLSID;
- property OID: WideString read Get_OID write Set_OID;
- property Abstract: WordBool read Get_Abstract write Set_Abstract;
- property Auxiliary: WordBool read Get_Auxiliary write Set_Auxiliary;
- property MandatoryProperties: OleVariant read Get_MandatoryProperties write Set_MandatoryProperties;
- property OptionalProperties: OleVariant read Get_OptionalProperties write Set_OptionalProperties;
- property NamingProperties: OleVariant read Get_NamingProperties write Set_NamingProperties;
- property DerivedFrom: OleVariant read Get_DerivedFrom write Set_DerivedFrom;
- property AuxDerivedFrom: OleVariant read Get_AuxDerivedFrom write Set_AuxDerivedFrom;
- property PossibleSuperiors: OleVariant read Get_PossibleSuperiors write Set_PossibleSuperiors;
- property Containment: OleVariant read Get_Containment write Set_Containment;
- property Container: WordBool read Get_Container write Set_Container;
- property HelpFileName: WideString read Get_HelpFileName write Set_HelpFileName;
- property HelpFileContext: Integer read Get_HelpFileContext write Set_HelpFileContext;
- end;
- // *********************************************************************//
- // DispIntf: IADsClassDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsClassDisp = dispinterface
- ['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
- property PrimaryInterface: WideString readonly dispid 15;
- property CLSID: WideString dispid 16;
- property OID: WideString dispid 17;
- property Abstract: WordBool dispid 18;
- property Auxiliary: WordBool dispid 26;
- property MandatoryProperties: OleVariant dispid 19;
- property OptionalProperties: OleVariant dispid 29;
- property NamingProperties: OleVariant dispid 30;
- property DerivedFrom: OleVariant dispid 20;
- property AuxDerivedFrom: OleVariant dispid 27;
- property PossibleSuperiors: OleVariant dispid 28;
- property Containment: OleVariant dispid 21;
- property Container: WordBool dispid 22;
- property HelpFileName: WideString dispid 23;
- property HelpFileContext: Integer dispid 24;
- function Qualifiers: IADsCollection; dispid 25;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsProperty
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
- // *********************************************************************//
- IADsProperty = interface(IADs)
- ['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
- function Get_OID: WideString; safecall;
- procedure Set_OID(const retval: WideString); safecall;
- function Get_Syntax: WideString; safecall;
- procedure Set_Syntax(const retval: WideString); safecall;
- function Get_MaxRange: Integer; safecall;
- procedure Set_MaxRange(retval: Integer); safecall;
- function Get_MinRange: Integer; safecall;
- procedure Set_MinRange(retval: Integer); safecall;
- function Get_MultiValued: WordBool; safecall;
- procedure Set_MultiValued(retval: WordBool); safecall;
- function Qualifiers: IADsCollection; safecall;
- property OID: WideString read Get_OID write Set_OID;
- property Syntax: WideString read Get_Syntax write Set_Syntax;
- property MaxRange: Integer read Get_MaxRange write Set_MaxRange;
- property MinRange: Integer read Get_MinRange write Set_MinRange;
- property MultiValued: WordBool read Get_MultiValued write Set_MultiValued;
- end;
- // *********************************************************************//
- // DispIntf: IADsPropertyDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPropertyDisp = dispinterface
- ['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
- property OID: WideString dispid 17;
- property Syntax: WideString dispid 18;
- property MaxRange: Integer dispid 19;
- property MinRange: Integer dispid 20;
- property MultiValued: WordBool dispid 21;
- function Qualifiers: IADsCollection; dispid 22;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsSyntax
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
- // *********************************************************************//
- IADsSyntax = interface(IADs)
- ['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
- function Get_OleAutoDataType: Integer; safecall;
- procedure Set_OleAutoDataType(retval: Integer); safecall;
- property OleAutoDataType: Integer read Get_OleAutoDataType write Set_OleAutoDataType;
- end;
- // *********************************************************************//
- // DispIntf: IADsSyntaxDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsSyntaxDisp = dispinterface
- ['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
- property OleAutoDataType: Integer dispid 15;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsLocality
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
- // *********************************************************************//
- IADsLocality = interface(IADs)
- ['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_LocalityName: WideString; safecall;
- procedure Set_LocalityName(const retval: WideString); safecall;
- function Get_PostalAddress: WideString; safecall;
- procedure Set_PostalAddress(const retval: WideString); safecall;
- function Get_SeeAlso: OleVariant; safecall;
- procedure Set_SeeAlso(retval: OleVariant); safecall;
- property Description: WideString read Get_Description write Set_Description;
- property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
- property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
- property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
- end;
- // *********************************************************************//
- // DispIntf: IADsLocalityDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsLocalityDisp = dispinterface
- ['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
- property Description: WideString dispid 15;
- property LocalityName: WideString dispid 16;
- property PostalAddress: WideString dispid 17;
- property SeeAlso: OleVariant dispid 18;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsO
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
- // *********************************************************************//
- IADsO = interface(IADs)
- ['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_LocalityName: WideString; safecall;
- procedure Set_LocalityName(const retval: WideString); safecall;
- function Get_PostalAddress: WideString; safecall;
- procedure Set_PostalAddress(const retval: WideString); safecall;
- function Get_TelephoneNumber: WideString; safecall;
- procedure Set_TelephoneNumber(const retval: WideString); safecall;
- function Get_FaxNumber: WideString; safecall;
- procedure Set_FaxNumber(const retval: WideString); safecall;
- function Get_SeeAlso: OleVariant; safecall;
- procedure Set_SeeAlso(retval: OleVariant); safecall;
- property Description: WideString read Get_Description write Set_Description;
- property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
- property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
- property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
- property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
- property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
- end;
- // *********************************************************************//
- // DispIntf: IADsODisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsODisp = dispinterface
- ['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
- property Description: WideString dispid 15;
- property LocalityName: WideString dispid 16;
- property PostalAddress: WideString dispid 17;
- property TelephoneNumber: WideString dispid 18;
- property FaxNumber: WideString dispid 19;
- property SeeAlso: OleVariant dispid 20;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsOU
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
- // *********************************************************************//
- IADsOU = interface(IADs)
- ['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_LocalityName: WideString; safecall;
- procedure Set_LocalityName(const retval: WideString); safecall;
- function Get_PostalAddress: WideString; safecall;
- procedure Set_PostalAddress(const retval: WideString); safecall;
- function Get_TelephoneNumber: WideString; safecall;
- procedure Set_TelephoneNumber(const retval: WideString); safecall;
- function Get_FaxNumber: WideString; safecall;
- procedure Set_FaxNumber(const retval: WideString); safecall;
- function Get_SeeAlso: OleVariant; safecall;
- procedure Set_SeeAlso(retval: OleVariant); safecall;
- function Get_BusinessCategory: WideString; safecall;
- procedure Set_BusinessCategory(const retval: WideString); safecall;
- property Description: WideString read Get_Description write Set_Description;
- property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
- property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
- property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
- property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
- property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
- property BusinessCategory: WideString read Get_BusinessCategory write Set_BusinessCategory;
- end;
- // *********************************************************************//
- // DispIntf: IADsOUDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsOUDisp = dispinterface
- ['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
- property Description: WideString dispid 15;
- property LocalityName: WideString dispid 16;
- property PostalAddress: WideString dispid 17;
- property TelephoneNumber: WideString dispid 18;
- property FaxNumber: WideString dispid 19;
- property SeeAlso: OleVariant dispid 20;
- property BusinessCategory: WideString dispid 21;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsDomain
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
- // *********************************************************************//
- IADsDomain = interface(IADs)
- ['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
- function Get_IsWorkgroup: WordBool; safecall;
- function Get_MinPasswordLength: Integer; safecall;
- procedure Set_MinPasswordLength(retval: Integer); safecall;
- function Get_MinPasswordAge: Integer; safecall;
- procedure Set_MinPasswordAge(retval: Integer); safecall;
- function Get_MaxPasswordAge: Integer; safecall;
- procedure Set_MaxPasswordAge(retval: Integer); safecall;
- function Get_MaxBadPasswordsAllowed: Integer; safecall;
- procedure Set_MaxBadPasswordsAllowed(retval: Integer); safecall;
- function Get_PasswordHistoryLength: Integer; safecall;
- procedure Set_PasswordHistoryLength(retval: Integer); safecall;
- function Get_PasswordAttributes: Integer; safecall;
- procedure Set_PasswordAttributes(retval: Integer); safecall;
- function Get_AutoUnlockInterval: Integer; safecall;
- procedure Set_AutoUnlockInterval(retval: Integer); safecall;
- function Get_LockoutObservationInterval: Integer; safecall;
- procedure Set_LockoutObservationInterval(retval: Integer); safecall;
- property IsWorkgroup: WordBool read Get_IsWorkgroup;
- property MinPasswordLength: Integer read Get_MinPasswordLength write Set_MinPasswordLength;
- property MinPasswordAge: Integer read Get_MinPasswordAge write Set_MinPasswordAge;
- property MaxPasswordAge: Integer read Get_MaxPasswordAge write Set_MaxPasswordAge;
- property MaxBadPasswordsAllowed: Integer read Get_MaxBadPasswordsAllowed write Set_MaxBadPasswordsAllowed;
- property PasswordHistoryLength: Integer read Get_PasswordHistoryLength write Set_PasswordHistoryLength;
- property PasswordAttributes: Integer read Get_PasswordAttributes write Set_PasswordAttributes;
- property AutoUnlockInterval: Integer read Get_AutoUnlockInterval write Set_AutoUnlockInterval;
- property LockoutObservationInterval: Integer read Get_LockoutObservationInterval write Set_LockoutObservationInterval;
- end;
- // *********************************************************************//
- // DispIntf: IADsDomainDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDomainDisp = dispinterface
- ['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
- property IsWorkgroup: WordBool readonly dispid 15;
- property MinPasswordLength: Integer dispid 16;
- property MinPasswordAge: Integer dispid 17;
- property MaxPasswordAge: Integer dispid 18;
- property MaxBadPasswordsAllowed: Integer dispid 19;
- property PasswordHistoryLength: Integer dispid 20;
- property PasswordAttributes: Integer dispid 21;
- property AutoUnlockInterval: Integer dispid 22;
- property LockoutObservationInterval: Integer dispid 23;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsComputer
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
- // *********************************************************************//
- IADsComputer = interface(IADs)
- ['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
- function Get_ComputerID: WideString; safecall;
- function Get_Site: WideString; safecall;
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_Location: WideString; safecall;
- procedure Set_Location(const retval: WideString); safecall;
- function Get_PrimaryUser: WideString; safecall;
- procedure Set_PrimaryUser(const retval: WideString); safecall;
- function Get_Owner: WideString; safecall;
- procedure Set_Owner(const retval: WideString); safecall;
- function Get_Division: WideString; safecall;
- procedure Set_Division(const retval: WideString); safecall;
- function Get_Department: WideString; safecall;
- procedure Set_Department(const retval: WideString); safecall;
- function Get_Role: WideString; safecall;
- procedure Set_Role(const retval: WideString); safecall;
- function Get_OperatingSystem: WideString; safecall;
- procedure Set_OperatingSystem(const retval: WideString); safecall;
- function Get_OperatingSystemVersion: WideString; safecall;
- procedure Set_OperatingSystemVersion(const retval: WideString); safecall;
- function Get_Model: WideString; safecall;
- procedure Set_Model(const retval: WideString); safecall;
- function Get_Processor: WideString; safecall;
- procedure Set_Processor(const retval: WideString); safecall;
- function Get_ProcessorCount: WideString; safecall;
- procedure Set_ProcessorCount(const retval: WideString); safecall;
- function Get_MemorySize: WideString; safecall;
- procedure Set_MemorySize(const retval: WideString); safecall;
- function Get_StorageCapacity: WideString; safecall;
- procedure Set_StorageCapacity(const retval: WideString); safecall;
- function Get_NetAddresses: OleVariant; safecall;
- procedure Set_NetAddresses(retval: OleVariant); safecall;
- property ComputerID: WideString read Get_ComputerID;
- property Site: WideString read Get_Site;
- property Description: WideString read Get_Description write Set_Description;
- property Location: WideString read Get_Location write Set_Location;
- property PrimaryUser: WideString read Get_PrimaryUser write Set_PrimaryUser;
- property Owner: WideString read Get_Owner write Set_Owner;
- property Division: WideString read Get_Division write Set_Division;
- property Department: WideString read Get_Department write Set_Department;
- property Role: WideString read Get_Role write Set_Role;
- property OperatingSystem: WideString read Get_OperatingSystem write Set_OperatingSystem;
- property OperatingSystemVersion: WideString read Get_OperatingSystemVersion write Set_OperatingSystemVersion;
- property Model: WideString read Get_Model write Set_Model;
- property Processor: WideString read Get_Processor write Set_Processor;
- property ProcessorCount: WideString read Get_ProcessorCount write Set_ProcessorCount;
- property MemorySize: WideString read Get_MemorySize write Set_MemorySize;
- property StorageCapacity: WideString read Get_StorageCapacity write Set_StorageCapacity;
- property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
- end;
- // *********************************************************************//
- // DispIntf: IADsComputerDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsComputerDisp = dispinterface
- ['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
- property ComputerID: WideString readonly dispid 16;
- property Site: WideString readonly dispid 18;
- property Description: WideString dispid 19;
- property Location: WideString dispid 20;
- property PrimaryUser: WideString dispid 21;
- property Owner: WideString dispid 22;
- property Division: WideString dispid 23;
- property Department: WideString dispid 24;
- property Role: WideString dispid 25;
- property OperatingSystem: WideString dispid 26;
- property OperatingSystemVersion: WideString dispid 27;
- property Model: WideString dispid 28;
- property Processor: WideString dispid 29;
- property ProcessorCount: WideString dispid 30;
- property MemorySize: WideString dispid 31;
- property StorageCapacity: WideString dispid 32;
- property NetAddresses: OleVariant dispid 17;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsComputerOperations
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
- // *********************************************************************//
- IADsComputerOperations = interface(IADs)
- ['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
- function Status: IDispatch; safecall;
- procedure Shutdown(bReboot: WordBool); safecall;
- end;
- // *********************************************************************//
- // DispIntf: IADsComputerOperationsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsComputerOperationsDisp = dispinterface
- ['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
- function Status: IDispatch; dispid 33;
- procedure Shutdown(bReboot: WordBool); dispid 34;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsGroup
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
- // *********************************************************************//
- IADsGroup = interface(IADs)
- ['{27636B00-410F-11CF-B1FF-02608C9E7553}']
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Members: IADsMembers; safecall;
- function IsMember(const bstrMember: WideString): WordBool; safecall;
- procedure Add(const bstrNewItem: WideString); safecall;
- procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
- property Description: WideString read Get_Description write Set_Description;
- end;
- // *********************************************************************//
- // DispIntf: IADsGroupDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsGroupDisp = dispinterface
- ['{27636B00-410F-11CF-B1FF-02608C9E7553}']
- property Description: WideString dispid 15;
- function Members: IADsMembers; dispid 16;
- function IsMember(const bstrMember: WideString): WordBool; dispid 17;
- procedure Add(const bstrNewItem: WideString); dispid 18;
- procedure Remove(const bstrItemToBeRemoved: WideString); dispid 19;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsUser
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
- // *********************************************************************//
- IADsUser = interface(IADs)
- ['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
- function Get_BadLoginAddress: WideString; safecall;
- function Get_BadLoginCount: Integer; safecall;
- function Get_LastLogin: TDateTime; safecall;
- function Get_LastLogoff: TDateTime; safecall;
- function Get_LastFailedLogin: TDateTime; safecall;
- function Get_PasswordLastChanged: TDateTime; safecall;
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_Division: WideString; safecall;
- procedure Set_Division(const retval: WideString); safecall;
- function Get_Department: WideString; safecall;
- procedure Set_Department(const retval: WideString); safecall;
- function Get_EmployeeID: WideString; safecall;
- procedure Set_EmployeeID(const retval: WideString); safecall;
- function Get_FullName: WideString; safecall;
- procedure Set_FullName(const retval: WideString); safecall;
- function Get_FirstName: WideString; safecall;
- procedure Set_FirstName(const retval: WideString); safecall;
- function Get_LastName: WideString; safecall;
- procedure Set_LastName(const retval: WideString); safecall;
- function Get_OtherName: WideString; safecall;
- procedure Set_OtherName(const retval: WideString); safecall;
- function Get_NamePrefix: WideString; safecall;
- procedure Set_NamePrefix(const retval: WideString); safecall;
- function Get_NameSuffix: WideString; safecall;
- procedure Set_NameSuffix(const retval: WideString); safecall;
- function Get_Title: WideString; safecall;
- procedure Set_Title(const retval: WideString); safecall;
- function Get_Manager: WideString; safecall;
- procedure Set_Manager(const retval: WideString); safecall;
- function Get_TelephoneHome: OleVariant; safecall;
- procedure Set_TelephoneHome(retval: OleVariant); safecall;
- function Get_TelephoneMobile: OleVariant; safecall;
- procedure Set_TelephoneMobile(retval: OleVariant); safecall;
- function Get_TelephoneNumber: OleVariant; safecall;
- procedure Set_TelephoneNumber(retval: OleVariant); safecall;
- function Get_TelephonePager: OleVariant; safecall;
- procedure Set_TelephonePager(retval: OleVariant); safecall;
- function Get_FaxNumber: OleVariant; safecall;
- procedure Set_FaxNumber(retval: OleVariant); safecall;
- function Get_OfficeLocations: OleVariant; safecall;
- procedure Set_OfficeLocations(retval: OleVariant); safecall;
- function Get_PostalAddresses: OleVariant; safecall;
- procedure Set_PostalAddresses(retval: OleVariant); safecall;
- function Get_PostalCodes: OleVariant; safecall;
- procedure Set_PostalCodes(retval: OleVariant); safecall;
- function Get_SeeAlso: OleVariant; safecall;
- procedure Set_SeeAlso(retval: OleVariant); safecall;
- function Get_AccountDisabled: WordBool; safecall;
- procedure Set_AccountDisabled(retval: WordBool); safecall;
- function Get_AccountExpirationDate: TDateTime; safecall;
- procedure Set_AccountExpirationDate(retval: TDateTime); safecall;
- function Get_GraceLoginsAllowed: Integer; safecall;
- procedure Set_GraceLoginsAllowed(retval: Integer); safecall;
- function Get_GraceLoginsRemaining: Integer; safecall;
- procedure Set_GraceLoginsRemaining(retval: Integer); safecall;
- function Get_IsAccountLocked: WordBool; safecall;
- procedure Set_IsAccountLocked(retval: WordBool); safecall;
- function Get_LoginHours: OleVariant; safecall;
- procedure Set_LoginHours(retval: OleVariant); safecall;
- function Get_LoginWorkstations: OleVariant; safecall;
- procedure Set_LoginWorkstations(retval: OleVariant); safecall;
- function Get_MaxLogins: Integer; safecall;
- procedure Set_MaxLogins(retval: Integer); safecall;
- function Get_MaxStorage: Integer; safecall;
- procedure Set_MaxStorage(retval: Integer); safecall;
- function Get_PasswordExpirationDate: TDateTime; safecall;
- procedure Set_PasswordExpirationDate(retval: TDateTime); safecall;
- function Get_PasswordMinimumLength: Integer; safecall;
- procedure Set_PasswordMinimumLength(retval: Integer); safecall;
- function Get_PasswordRequired: WordBool; safecall;
- procedure Set_PasswordRequired(retval: WordBool); safecall;
- function Get_RequireUniquePassword: WordBool; safecall;
- procedure Set_RequireUniquePassword(retval: WordBool); safecall;
- function Get_EmailAddress: WideString; safecall;
- procedure Set_EmailAddress(const retval: WideString); safecall;
- function Get_HomeDirectory: WideString; safecall;
- procedure Set_HomeDirectory(const retval: WideString); safecall;
- function Get_Languages: OleVariant; safecall;
- procedure Set_Languages(retval: OleVariant); safecall;
- function Get_Profile: WideString; safecall;
- procedure Set_Profile(const retval: WideString); safecall;
- function Get_LoginScript: WideString; safecall;
- procedure Set_LoginScript(const retval: WideString); safecall;
- function Get_Picture: OleVariant; safecall;
- procedure Set_Picture(retval: OleVariant); safecall;
- function Get_HomePage: WideString; safecall;
- procedure Set_HomePage(const retval: WideString); safecall;
- function Groups: IADsMembers; safecall;
- procedure SetPassword(const NewPassword: WideString); safecall;
- procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); safecall;
- property BadLoginAddress: WideString read Get_BadLoginAddress;
- property BadLoginCount: Integer read Get_BadLoginCount;
- property LastLogin: TDateTime read Get_LastLogin;
- property LastLogoff: TDateTime read Get_LastLogoff;
- property LastFailedLogin: TDateTime read Get_LastFailedLogin;
- property PasswordLastChanged: TDateTime read Get_PasswordLastChanged;
- property Description: WideString read Get_Description write Set_Description;
- property Division: WideString read Get_Division write Set_Division;
- property Department: WideString read Get_Department write Set_Department;
- property EmployeeID: WideString read Get_EmployeeID write Set_EmployeeID;
- property FullName: WideString read Get_FullName write Set_FullName;
- property FirstName: WideString read Get_FirstName write Set_FirstName;
- property LastName: WideString read Get_LastName write Set_LastName;
- property OtherName: WideString read Get_OtherName write Set_OtherName;
- property NamePrefix: WideString read Get_NamePrefix write Set_NamePrefix;
- property NameSuffix: WideString read Get_NameSuffix write Set_NameSuffix;
- property Title: WideString read Get_Title write Set_Title;
- property Manager: WideString read Get_Manager write Set_Manager;
- property TelephoneHome: OleVariant read Get_TelephoneHome write Set_TelephoneHome;
- property TelephoneMobile: OleVariant read Get_TelephoneMobile write Set_TelephoneMobile;
- property TelephoneNumber: OleVariant read Get_TelephoneNumber write Set_TelephoneNumber;
- property TelephonePager: OleVariant read Get_TelephonePager write Set_TelephonePager;
- property FaxNumber: OleVariant read Get_FaxNumber write Set_FaxNumber;
- property OfficeLocations: OleVariant read Get_OfficeLocations write Set_OfficeLocations;
- property PostalAddresses: OleVariant read Get_PostalAddresses write Set_PostalAddresses;
- property PostalCodes: OleVariant read Get_PostalCodes write Set_PostalCodes;
- property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
- property AccountDisabled: WordBool read Get_AccountDisabled write Set_AccountDisabled;
- property AccountExpirationDate: TDateTime read Get_AccountExpirationDate write Set_AccountExpirationDate;
- property GraceLoginsAllowed: Integer read Get_GraceLoginsAllowed write Set_GraceLoginsAllowed;
- property GraceLoginsRemaining: Integer read Get_GraceLoginsRemaining write Set_GraceLoginsRemaining;
- property IsAccountLocked: WordBool read Get_IsAccountLocked write Set_IsAccountLocked;
- property LoginHours: OleVariant read Get_LoginHours write Set_LoginHours;
- property LoginWorkstations: OleVariant read Get_LoginWorkstations write Set_LoginWorkstations;
- property MaxLogins: Integer read Get_MaxLogins write Set_MaxLogins;
- property MaxStorage: Integer read Get_MaxStorage write Set_MaxStorage;
- property PasswordExpirationDate: TDateTime read Get_PasswordExpirationDate write Set_PasswordExpirationDate;
- property PasswordMinimumLength: Integer read Get_PasswordMinimumLength write Set_PasswordMinimumLength;
- property PasswordRequired: WordBool read Get_PasswordRequired write Set_PasswordRequired;
- property RequireUniquePassword: WordBool read Get_RequireUniquePassword write Set_RequireUniquePassword;
- property EmailAddress: WideString read Get_EmailAddress write Set_EmailAddress;
- property HomeDirectory: WideString read Get_HomeDirectory write Set_HomeDirectory;
- property Languages: OleVariant read Get_Languages write Set_Languages;
- property Profile: WideString read Get_Profile write Set_Profile;
- property LoginScript: WideString read Get_LoginScript write Set_LoginScript;
- property Picture: OleVariant read Get_Picture write Set_Picture;
- property HomePage: WideString read Get_HomePage write Set_HomePage;
- end;
- // *********************************************************************//
- // DispIntf: IADsUserDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsUserDisp = dispinterface
- ['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
- property BadLoginAddress: WideString readonly dispid 53;
- property BadLoginCount: Integer readonly dispid 54;
- property LastLogin: TDateTime readonly dispid 56;
- property LastLogoff: TDateTime readonly dispid 57;
- property LastFailedLogin: TDateTime readonly dispid 58;
- property PasswordLastChanged: TDateTime readonly dispid 59;
- property Description: WideString dispid 15;
- property Division: WideString dispid 19;
- property Department: WideString dispid 122;
- property EmployeeID: WideString dispid 20;
- property FullName: WideString dispid 23;
- property FirstName: WideString dispid 22;
- property LastName: WideString dispid 25;
- property OtherName: WideString dispid 27;
- property NamePrefix: WideString dispid 114;
- property NameSuffix: WideString dispid 115;
- property Title: WideString dispid 36;
- property Manager: WideString dispid 26;
- property TelephoneHome: OleVariant dispid 32;
- property TelephoneMobile: OleVariant dispid 33;
- property TelephoneNumber: OleVariant dispid 34;
- property TelephonePager: OleVariant dispid 17;
- property FaxNumber: OleVariant dispid 16;
- property OfficeLocations: OleVariant dispid 28;
- property PostalAddresses: OleVariant dispid 30;
- property PostalCodes: OleVariant dispid 31;
- property SeeAlso: OleVariant dispid 117;
- property AccountDisabled: WordBool dispid 37;
- property AccountExpirationDate: TDateTime dispid 38;
- property GraceLoginsAllowed: Integer dispid 41;
- property GraceLoginsRemaining: Integer dispid 42;
- property IsAccountLocked: WordBool dispid 43;
- property LoginHours: OleVariant dispid 45;
- property LoginWorkstations: OleVariant dispid 46;
- property MaxLogins: Integer dispid 47;
- property MaxStorage: Integer dispid 48;
- property PasswordExpirationDate: TDateTime dispid 49;
- property PasswordMinimumLength: Integer dispid 50;
- property PasswordRequired: WordBool dispid 51;
- property RequireUniquePassword: WordBool dispid 52;
- property EmailAddress: WideString dispid 60;
- property HomeDirectory: WideString dispid 61;
- property Languages: OleVariant dispid 62;
- property Profile: WideString dispid 63;
- property LoginScript: WideString dispid 64;
- property Picture: OleVariant dispid 65;
- property HomePage: WideString dispid 120;
- function Groups: IADsMembers; dispid 66;
- procedure SetPassword(const NewPassword: WideString); dispid 67;
- procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); dispid 68;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPrintQueue
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
- // *********************************************************************//
- IADsPrintQueue = interface(IADs)
- ['{B15160D0-1226-11CF-A985-00AA006BC149}']
- function Get_PrinterPath: WideString; safecall;
- procedure Set_PrinterPath(const retval: WideString); safecall;
- function Get_Model: WideString; safecall;
- procedure Set_Model(const retval: WideString); safecall;
- function Get_Datatype: WideString; safecall;
- procedure Set_Datatype(const retval: WideString); safecall;
- function Get_PrintProcessor: WideString; safecall;
- procedure Set_PrintProcessor(const retval: WideString); safecall;
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_Location: WideString; safecall;
- procedure Set_Location(const retval: WideString); safecall;
- function Get_StartTime: TDateTime; safecall;
- procedure Set_StartTime(retval: TDateTime); safecall;
- function Get_UntilTime: TDateTime; safecall;
- procedure Set_UntilTime(retval: TDateTime); safecall;
- function Get_DefaultJobPriority: Integer; safecall;
- procedure Set_DefaultJobPriority(retval: Integer); safecall;
- function Get_Priority: Integer; safecall;
- procedure Set_Priority(retval: Integer); safecall;
- function Get_BannerPage: WideString; safecall;
- procedure Set_BannerPage(const retval: WideString); safecall;
- function Get_PrintDevices: OleVariant; safecall;
- procedure Set_PrintDevices(retval: OleVariant); safecall;
- function Get_NetAddresses: OleVariant; safecall;
- procedure Set_NetAddresses(retval: OleVariant); safecall;
- property PrinterPath: WideString read Get_PrinterPath write Set_PrinterPath;
- property Model: WideString read Get_Model write Set_Model;
- property Datatype: WideString read Get_Datatype write Set_Datatype;
- property PrintProcessor: WideString read Get_PrintProcessor write Set_PrintProcessor;
- property Description: WideString read Get_Description write Set_Description;
- property Location: WideString read Get_Location write Set_Location;
- property StartTime: TDateTime read Get_StartTime write Set_StartTime;
- property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
- property DefaultJobPriority: Integer read Get_DefaultJobPriority write Set_DefaultJobPriority;
- property Priority: Integer read Get_Priority write Set_Priority;
- property BannerPage: WideString read Get_BannerPage write Set_BannerPage;
- property PrintDevices: OleVariant read Get_PrintDevices write Set_PrintDevices;
- property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
- end;
- // *********************************************************************//
- // DispIntf: IADsPrintQueueDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintQueueDisp = dispinterface
- ['{B15160D0-1226-11CF-A985-00AA006BC149}']
- property PrinterPath: WideString dispid 15;
- property Model: WideString dispid 16;
- property Datatype: WideString dispid 17;
- property PrintProcessor: WideString dispid 18;
- property Description: WideString dispid 19;
- property Location: WideString dispid 20;
- property StartTime: TDateTime dispid 21;
- property UntilTime: TDateTime dispid 22;
- property DefaultJobPriority: Integer dispid 23;
- property Priority: Integer dispid 24;
- property BannerPage: WideString dispid 25;
- property PrintDevices: OleVariant dispid 26;
- property NetAddresses: OleVariant dispid 27;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPrintQueueOperations
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
- // *********************************************************************//
- IADsPrintQueueOperations = interface(IADs)
- ['{124BE5C0-156E-11CF-A986-00AA006BC149}']
- function Get_Status: Integer; safecall;
- function PrintJobs: IADsCollection; safecall;
- procedure Pause; safecall;
- procedure Resume; safecall;
- procedure Purge; safecall;
- property Status: Integer read Get_Status;
- end;
- // *********************************************************************//
- // DispIntf: IADsPrintQueueOperationsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintQueueOperationsDisp = dispinterface
- ['{124BE5C0-156E-11CF-A986-00AA006BC149}']
- property Status: Integer readonly dispid 27;
- function PrintJobs: IADsCollection; dispid 28;
- procedure Pause; dispid 29;
- procedure Resume; dispid 30;
- procedure Purge; dispid 31;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPrintJob
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
- // *********************************************************************//
- IADsPrintJob = interface(IADs)
- ['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
- function Get_HostPrintQueue: WideString; safecall;
- function Get_User: WideString; safecall;
- function Get_UserPath: WideString; safecall;
- function Get_TimeSubmitted: TDateTime; safecall;
- function Get_TotalPages: Integer; safecall;
- function Get_Size: Integer; safecall;
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_Priority: Integer; safecall;
- procedure Set_Priority(retval: Integer); safecall;
- function Get_StartTime: TDateTime; safecall;
- procedure Set_StartTime(retval: TDateTime); safecall;
- function Get_UntilTime: TDateTime; safecall;
- procedure Set_UntilTime(retval: TDateTime); safecall;
- function Get_Notify: WideString; safecall;
- procedure Set_Notify(const retval: WideString); safecall;
- function Get_NotifyPath: WideString; safecall;
- procedure Set_NotifyPath(const retval: WideString); safecall;
- property HostPrintQueue: WideString read Get_HostPrintQueue;
- property User: WideString read Get_User;
- property UserPath: WideString read Get_UserPath;
- property TimeSubmitted: TDateTime read Get_TimeSubmitted;
- property TotalPages: Integer read Get_TotalPages;
- property Size: Integer read Get_Size;
- property Description: WideString read Get_Description write Set_Description;
- property Priority: Integer read Get_Priority write Set_Priority;
- property StartTime: TDateTime read Get_StartTime write Set_StartTime;
- property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
- property Notify: WideString read Get_Notify write Set_Notify;
- property NotifyPath: WideString read Get_NotifyPath write Set_NotifyPath;
- end;
- // *********************************************************************//
- // DispIntf: IADsPrintJobDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintJobDisp = dispinterface
- ['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
- property HostPrintQueue: WideString readonly dispid 15;
- property User: WideString readonly dispid 16;
- property UserPath: WideString readonly dispid 17;
- property TimeSubmitted: TDateTime readonly dispid 18;
- property TotalPages: Integer readonly dispid 19;
- property Size: Integer readonly dispid 234;
- property Description: WideString dispid 20;
- property Priority: Integer dispid 21;
- property StartTime: TDateTime dispid 22;
- property UntilTime: TDateTime dispid 23;
- property Notify: WideString dispid 24;
- property NotifyPath: WideString dispid 25;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPrintJobOperations
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
- // *********************************************************************//
- IADsPrintJobOperations = interface(IADs)
- ['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
- function Get_Status: Integer; safecall;
- function Get_TimeElapsed: Integer; safecall;
- function Get_PagesPrinted: Integer; safecall;
- function Get_Position: Integer; safecall;
- procedure Set_Position(retval: Integer); safecall;
- procedure Pause; safecall;
- procedure Resume; safecall;
- property Status: Integer read Get_Status;
- property TimeElapsed: Integer read Get_TimeElapsed;
- property PagesPrinted: Integer read Get_PagesPrinted;
- property Position: Integer read Get_Position write Set_Position;
- end;
- // *********************************************************************//
- // DispIntf: IADsPrintJobOperationsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPrintJobOperationsDisp = dispinterface
- ['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
- property Status: Integer readonly dispid 26;
- property TimeElapsed: Integer readonly dispid 27;
- property PagesPrinted: Integer readonly dispid 28;
- property Position: Integer dispid 29;
- procedure Pause; dispid 30;
- procedure Resume; dispid 31;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsService
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- IADsService = interface(IADs)
- ['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
- function Get_HostComputer: WideString; safecall;
- procedure Set_HostComputer(const retval: WideString); safecall;
- function Get_DisplayName: WideString; safecall;
- procedure Set_DisplayName(const retval: WideString); safecall;
- function Get_Version: WideString; safecall;
- procedure Set_Version(const retval: WideString); safecall;
- function Get_ServiceType: Integer; safecall;
- procedure Set_ServiceType(retval: Integer); safecall;
- function Get_StartType: Integer; safecall;
- procedure Set_StartType(retval: Integer); safecall;
- function Get_Path: WideString; safecall;
- procedure Set_Path(const retval: WideString); safecall;
- function Get_StartupParameters: WideString; safecall;
- procedure Set_StartupParameters(const retval: WideString); safecall;
- function Get_ErrorControl: Integer; safecall;
- procedure Set_ErrorControl(retval: Integer); safecall;
- function Get_LoadOrderGroup: WideString; safecall;
- procedure Set_LoadOrderGroup(const retval: WideString); safecall;
- function Get_ServiceAccountName: WideString; safecall;
- procedure Set_ServiceAccountName(const retval: WideString); safecall;
- function Get_ServiceAccountPath: WideString; safecall;
- procedure Set_ServiceAccountPath(const retval: WideString); safecall;
- function Get_Dependencies: OleVariant; safecall;
- procedure Set_Dependencies(retval: OleVariant); safecall;
- property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
- property DisplayName: WideString read Get_DisplayName write Set_DisplayName;
- property Version: WideString read Get_Version write Set_Version;
- property ServiceType: Integer read Get_ServiceType write Set_ServiceType;
- property StartType: Integer read Get_StartType write Set_StartType;
- property Path: WideString read Get_Path write Set_Path;
- property StartupParameters: WideString read Get_StartupParameters write Set_StartupParameters;
- property ErrorControl: Integer read Get_ErrorControl write Set_ErrorControl;
- property LoadOrderGroup: WideString read Get_LoadOrderGroup write Set_LoadOrderGroup;
- property ServiceAccountName: WideString read Get_ServiceAccountName write Set_ServiceAccountName;
- property ServiceAccountPath: WideString read Get_ServiceAccountPath write Set_ServiceAccountPath;
- property Dependencies: OleVariant read Get_Dependencies write Set_Dependencies;
- end;
- // *********************************************************************//
- // DispIntf: IADsServiceDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsServiceDisp = dispinterface
- ['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
- property HostComputer: WideString dispid 15;
- property DisplayName: WideString dispid 16;
- property Version: WideString dispid 17;
- property ServiceType: Integer dispid 18;
- property StartType: Integer dispid 19;
- property Path: WideString dispid 20;
- property StartupParameters: WideString dispid 21;
- property ErrorControl: Integer dispid 22;
- property LoadOrderGroup: WideString dispid 23;
- property ServiceAccountName: WideString dispid 24;
- property ServiceAccountPath: WideString dispid 25;
- property Dependencies: OleVariant dispid 26;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsServiceOperations
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- IADsServiceOperations = interface(IADs)
- ['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
- function Get_Status: Integer; safecall;
- procedure Start; safecall;
- procedure Stop; safecall;
- procedure Pause; safecall;
- procedure Continue; safecall;
- procedure SetPassword(const bstrNewPassword: WideString); safecall;
- property Status: Integer read Get_Status;
- end;
- // *********************************************************************//
- // DispIntf: IADsServiceOperationsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsServiceOperationsDisp = dispinterface
- ['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
- property Status: Integer readonly dispid 27;
- procedure Start; dispid 28;
- procedure Stop; dispid 29;
- procedure Pause; dispid 30;
- procedure Continue; dispid 31;
- procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsFileService
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- IADsFileService = interface(IADsService)
- ['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_MaxUserCount: Integer; safecall;
- procedure Set_MaxUserCount(retval: Integer); safecall;
- property Description: WideString read Get_Description write Set_Description;
- property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
- end;
- // *********************************************************************//
- // DispIntf: IADsFileServiceDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFileServiceDisp = dispinterface
- ['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
- property Description: WideString dispid 33;
- property MaxUserCount: Integer dispid 34;
- property HostComputer: WideString dispid 15;
- property DisplayName: WideString dispid 16;
- property Version: WideString dispid 17;
- property ServiceType: Integer dispid 18;
- property StartType: Integer dispid 19;
- property Path: WideString dispid 20;
- property StartupParameters: WideString dispid 21;
- property ErrorControl: Integer dispid 22;
- property LoadOrderGroup: WideString dispid 23;
- property ServiceAccountName: WideString dispid 24;
- property ServiceAccountPath: WideString dispid 25;
- property Dependencies: OleVariant dispid 26;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsFileServiceOperations
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- IADsFileServiceOperations = interface(IADsServiceOperations)
- ['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
- function Sessions: IADsCollection; safecall;
- function Resources: IADsCollection; safecall;
- end;
- // *********************************************************************//
- // DispIntf: IADsFileServiceOperationsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFileServiceOperationsDisp = dispinterface
- ['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
- function Sessions: IADsCollection; dispid 35;
- function Resources: IADsCollection; dispid 36;
- property Status: Integer readonly dispid 27;
- procedure Start; dispid 28;
- procedure Stop; dispid 29;
- procedure Pause; dispid 30;
- procedure Continue; dispid 31;
- procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsFileShare
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
- // *********************************************************************//
- IADsFileShare = interface(IADs)
- ['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
- function Get_CurrentUserCount: Integer; safecall;
- function Get_Description: WideString; safecall;
- procedure Set_Description(const retval: WideString); safecall;
- function Get_HostComputer: WideString; safecall;
- procedure Set_HostComputer(const retval: WideString); safecall;
- function Get_Path: WideString; safecall;
- procedure Set_Path(const retval: WideString); safecall;
- function Get_MaxUserCount: Integer; safecall;
- procedure Set_MaxUserCount(retval: Integer); safecall;
- property CurrentUserCount: Integer read Get_CurrentUserCount;
- property Description: WideString read Get_Description write Set_Description;
- property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
- property Path: WideString read Get_Path write Set_Path;
- property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
- end;
- // *********************************************************************//
- // DispIntf: IADsFileShareDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFileShareDisp = dispinterface
- ['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
- property CurrentUserCount: Integer readonly dispid 15;
- property Description: WideString dispid 16;
- property HostComputer: WideString dispid 17;
- property Path: WideString dispid 18;
- property MaxUserCount: Integer dispid 19;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsSession
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
- // *********************************************************************//
- IADsSession = interface(IADs)
- ['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
- function Get_User: WideString; safecall;
- function Get_UserPath: WideString; safecall;
- function Get_Computer: WideString; safecall;
- function Get_ComputerPath: WideString; safecall;
- function Get_ConnectTime: Integer; safecall;
- function Get_IdleTime: Integer; safecall;
- property User: WideString read Get_User;
- property UserPath: WideString read Get_UserPath;
- property Computer: WideString read Get_Computer;
- property ComputerPath: WideString read Get_ComputerPath;
- property ConnectTime: Integer read Get_ConnectTime;
- property IdleTime: Integer read Get_IdleTime;
- end;
- // *********************************************************************//
- // DispIntf: IADsSessionDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsSessionDisp = dispinterface
- ['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
- property User: WideString readonly dispid 15;
- property UserPath: WideString readonly dispid 16;
- property Computer: WideString readonly dispid 17;
- property ComputerPath: WideString readonly dispid 18;
- property ConnectTime: Integer readonly dispid 19;
- property IdleTime: Integer readonly dispid 20;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsResource
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
- // *********************************************************************//
- IADsResource = interface(IADs)
- ['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
- function Get_User: WideString; safecall;
- function Get_UserPath: WideString; safecall;
- function Get_Path: WideString; safecall;
- function Get_LockCount: Integer; safecall;
- property User: WideString read Get_User;
- property UserPath: WideString read Get_UserPath;
- property Path: WideString read Get_Path;
- property LockCount: Integer read Get_LockCount;
- end;
- // *********************************************************************//
- // DispIntf: IADsResourceDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsResourceDisp = dispinterface
- ['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
- property User: WideString readonly dispid 15;
- property UserPath: WideString readonly dispid 16;
- property Path: WideString readonly dispid 17;
- property LockCount: Integer readonly dispid 18;
- property Name: WideString readonly dispid 2;
- property Class_: WideString readonly dispid 3;
- property GUID: WideString readonly dispid 4;
- property ADsPath: WideString readonly dispid 5;
- property Parent: WideString readonly dispid 6;
- property Schema: WideString readonly dispid 7;
- procedure GetInfo; dispid 8;
- procedure SetInfo; dispid 9;
- function Get(const bstrName: WideString): OleVariant; dispid 10;
- procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
- function GetEx(const bstrName: WideString): OleVariant; dispid 12;
- procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
- procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsOpenDSObject
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
- // *********************************************************************//
- IADsOpenDSObject = interface(IDispatch)
- ['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
- function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
- const lpszPassword: WideString; lnReserved: Integer): IDispatch; safecall;
- end;
- // *********************************************************************//
- // DispIntf: IADsOpenDSObjectDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsOpenDSObjectDisp = dispinterface
- ['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
- function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
- const lpszPassword: WideString; lnReserved: Integer): IDispatch; dispid 1;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IDirectoryObject
- // Flags: (0)
- // GUID: {E798DE2C-22E4-11D0-84FE-00C04FD8D503}
- // *********************************************************************//
- IDirectoryObject = interface(IUnknown)
- ['{E798DE2C-22E4-11D0-84FE-00C04FD8D503}']
- function GetObjectInformation(out ppObjInfo: PUserType11): HResult; stdcall;
- function GetObjectAttributes(var pAttributeNames: PWideChar; dwNumberAttributes: LongWord;
- out ppAttributeEntries: PUserType12;
- out pdwNumAttributesReturned: LongWord): HResult; stdcall;
- function SetObjectAttributes(var pAttributeEntries: _ads_attr_info; dwNumAttributes: LongWord;
- out pdwNumAttributesModified: LongWord): HResult; stdcall;
- function CreateDSObject(pszRDNName: PWideChar; var pAttributeEntries: _ads_attr_info;
- dwNumAttributes: LongWord; out ppObject: IDispatch): HResult; stdcall;
- function DeleteDSObject(pszRDNName: PWideChar): HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IDirectorySearch
- // Flags: (0)
- // GUID: {109BA8EC-92F0-11D0-A790-00C04FD8D5A8}
- // *********************************************************************//
- IDirectorySearch = interface(IUnknown)
- ['{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}']
- function SetSearchPreference(var pSearchPrefs: ads_searchpref_info; dwNumPrefs: LongWord): HResult; stdcall;
- function ExecuteSearch(pszSearchFilter: PWideChar; var pAttributeNames: PWideChar;
- dwNumberAttributes: LongWord; out phSearchResult: Pointer): HResult; stdcall;
- function AbandonSearch(var phSearchResult: Pointer): HResult; stdcall;
- function GetFirstRow(var hSearchResult: Pointer): HResult; stdcall;
- function GetNextRow(var hSearchResult: Pointer): HResult; stdcall;
- function GetPreviousRow(var hSearchResult: Pointer): HResult; stdcall;
- function GetNextColumnName(var hSearchHandle: Pointer; out ppszColumnName: PWideChar): HResult; stdcall;
- function GetColumn(var hSearchResult: Pointer; szColumnName: PWideChar;
- out pSearchColumn: ads_search_column): HResult; stdcall;
- function FreeColumn(var pSearchColumn: ads_search_column): HResult; stdcall;
- function CloseSearchHandle(var hSearchResult: Pointer): HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IDirectorySchemaMgmt
- // Flags: (0)
- // GUID: {75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}
- // *********************************************************************//
- IDirectorySchemaMgmt = interface(IUnknown)
- ['{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}']
- function EnumAttributes(var ppszAttrNames: PWideChar; dwNumAttributes: LongWord;
- ppAttrDefinition: PPUserType1; var pdwNumAttributes: LongWord): HResult; stdcall;
- function CreateAttributeDefinition(pszAttributeName: PWideChar;
- var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
- function WriteAttributeDefinition(pszAttributeName: PWideChar;
- var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
- function DeleteAttributeDefinition(pszAttributeName: PWideChar): HResult; stdcall;
- function EnumClasses(var ppszClassNames: PWideChar; dwNumClasses: LongWord;
- ppClassDefinition: PPUserType2; var pdwNumClasses: LongWord): HResult; stdcall;
- function WriteClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
- function CreateClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
- function DeleteClassDefinition(pszClassName: PWideChar): HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IADsAggregatee
- // Flags: (0)
- // GUID: {1346CE8C-9039-11D0-8528-00C04FD8D503}
- // *********************************************************************//
- IADsAggregatee = interface(IUnknown)
- ['{1346CE8C-9039-11D0-8528-00C04FD8D503}']
- function ConnectAsAggregatee(const pOuterUnknown: IUnknown): HResult; stdcall;
- function DisconnectAsAggregatee: HResult; stdcall;
- function RelinquishInterface(var riid: TGUID): HResult; stdcall;
- function RestoreInterface(var riid: TGUID): HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IADsAggregator
- // Flags: (0)
- // GUID: {52DB5FB0-941F-11D0-8529-00C04FD8D503}
- // *********************************************************************//
- IADsAggregator = interface(IUnknown)
- ['{52DB5FB0-941F-11D0-8529-00C04FD8D503}']
- function ConnectAsAggregator(const pAggregatee: IUnknown): HResult; stdcall;
- function DisconnectAsAggregator: HResult; stdcall;
- end;
- // *********************************************************************//
- // Interface: IADsAccessControlEntry
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
- // *********************************************************************//
- IADsAccessControlEntry = interface(IDispatch)
- ['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
- function Get_AccessMask: Integer; safecall;
- procedure Set_AccessMask(retval: Integer); safecall;
- function Get_AceType: Integer; safecall;
- procedure Set_AceType(retval: Integer); safecall;
- function Get_AceFlags: Integer; safecall;
- procedure Set_AceFlags(retval: Integer); safecall;
- function Get_Flags: Integer; safecall;
- procedure Set_Flags(retval: Integer); safecall;
- function Get_ObjectType: WideString; safecall;
- procedure Set_ObjectType(const retval: WideString); safecall;
- function Get_InheritedObjectType: WideString; safecall;
- procedure Set_InheritedObjectType(const retval: WideString); safecall;
- function Get_Trustee: WideString; safecall;
- procedure Set_Trustee(const retval: WideString); safecall;
- property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
- property AceType: Integer read Get_AceType write Set_AceType;
- property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
- property Flags: Integer read Get_Flags write Set_Flags;
- property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
- property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
- property Trustee: WideString read Get_Trustee write Set_Trustee;
- end;
- // *********************************************************************//
- // DispIntf: IADsAccessControlEntryDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsAccessControlEntryDisp = dispinterface
- ['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
- property AccessMask: Integer dispid 2;
- property AceType: Integer dispid 3;
- property AceFlags: Integer dispid 4;
- property Flags: Integer dispid 5;
- property ObjectType: WideString dispid 6;
- property InheritedObjectType: WideString dispid 7;
- property Trustee: WideString dispid 8;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsAccessControlList
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
- // *********************************************************************//
- IADsAccessControlList = interface(IDispatch)
- ['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
- function Get_AclRevision: Integer; safecall;
- procedure Set_AclRevision(retval: Integer); safecall;
- function Get_AceCount: Integer; safecall;
- procedure Set_AceCount(retval: Integer); safecall;
- procedure AddAce(const pAccessControlEntry: IDispatch); safecall;
- procedure RemoveAce(const pAccessControlEntry: IDispatch); safecall;
- function CopyAccessList: IDispatch; safecall;
- function Get__NewEnum: IUnknown; safecall;
- property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
- property AceCount: Integer read Get_AceCount write Set_AceCount;
- property _NewEnum: IUnknown read Get__NewEnum;
- end;
- // *********************************************************************//
- // DispIntf: IADsAccessControlListDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsAccessControlListDisp = dispinterface
- ['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
- property AclRevision: Integer dispid 3;
- property AceCount: Integer dispid 4;
- procedure AddAce(const pAccessControlEntry: IDispatch); dispid 5;
- procedure RemoveAce(const pAccessControlEntry: IDispatch); dispid 6;
- function CopyAccessList: IDispatch; dispid 7;
- property _NewEnum: IUnknown readonly dispid -4;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsSecurityDescriptor
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
- // *********************************************************************//
- IADsSecurityDescriptor = interface(IDispatch)
- ['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
- function Get_Revision: Integer; safecall;
- procedure Set_Revision(retval: Integer); safecall;
- function Get_Control: Integer; safecall;
- procedure Set_Control(retval: Integer); safecall;
- function Get_Owner: WideString; safecall;
- procedure Set_Owner(const retval: WideString); safecall;
- function Get_OwnerDefaulted: WordBool; safecall;
- procedure Set_OwnerDefaulted(retval: WordBool); safecall;
- function Get_Group: WideString; safecall;
- procedure Set_Group(const retval: WideString); safecall;
- function Get_GroupDefaulted: WordBool; safecall;
- procedure Set_GroupDefaulted(retval: WordBool); safecall;
- function Get_DiscretionaryAcl: IDispatch; safecall;
- procedure Set_DiscretionaryAcl(const retval: IDispatch); safecall;
- function Get_DaclDefaulted: WordBool; safecall;
- procedure Set_DaclDefaulted(retval: WordBool); safecall;
- function Get_SystemAcl: IDispatch; safecall;
- procedure Set_SystemAcl(const retval: IDispatch); safecall;
- function Get_SaclDefaulted: WordBool; safecall;
- procedure Set_SaclDefaulted(retval: WordBool); safecall;
- function CopySecurityDescriptor: IDispatch; safecall;
- property Revision: Integer read Get_Revision write Set_Revision;
- property Control: Integer read Get_Control write Set_Control;
- property Owner: WideString read Get_Owner write Set_Owner;
- property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
- property Group: WideString read Get_Group write Set_Group;
- property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
- property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
- property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
- property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
- property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
- end;
- // *********************************************************************//
- // DispIntf: IADsSecurityDescriptorDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsSecurityDescriptorDisp = dispinterface
- ['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
- property Revision: Integer dispid 2;
- property Control: Integer dispid 3;
- property Owner: WideString dispid 4;
- property OwnerDefaulted: WordBool dispid 5;
- property Group: WideString dispid 6;
- property GroupDefaulted: WordBool dispid 7;
- property DiscretionaryAcl: IDispatch dispid 8;
- property DaclDefaulted: WordBool dispid 9;
- property SystemAcl: IDispatch dispid 10;
- property SaclDefaulted: WordBool dispid 11;
- function CopySecurityDescriptor: IDispatch; dispid 12;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsLargeInteger
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
- // *********************************************************************//
- IADsLargeInteger = interface(IDispatch)
- ['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
- function Get_HighPart: Integer; safecall;
- procedure Set_HighPart(retval: Integer); safecall;
- function Get_LowPart: Integer; safecall;
- procedure Set_LowPart(retval: Integer); safecall;
- property HighPart: Integer read Get_HighPart write Set_HighPart;
- property LowPart: Integer read Get_LowPart write Set_LowPart;
- end;
- // *********************************************************************//
- // DispIntf: IADsLargeIntegerDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsLargeIntegerDisp = dispinterface
- ['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
- property HighPart: Integer dispid 2;
- property LowPart: Integer dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsNameTranslate
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
- // *********************************************************************//
- IADsNameTranslate = interface(IDispatch)
- ['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
- procedure Set_ChaseReferral(Param1: Integer); safecall;
- procedure Init(lnSetType: Integer; const bstrADsPath: WideString); safecall;
- procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
- const bstrUserID: WideString; const bstrDomain: WideString;
- const bstrPassword: WideString); safecall;
- procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); safecall;
- function Get(lnFormatType: Integer): WideString; safecall;
- procedure SetEx(lnFormatType: Integer; pVar: OleVariant); safecall;
- function GetEx(lnFormatType: Integer): OleVariant; safecall;
- property ChaseReferral: Integer write Set_ChaseReferral;
- end;
- // *********************************************************************//
- // DispIntf: IADsNameTranslateDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsNameTranslateDisp = dispinterface
- ['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
- property ChaseReferral: Integer writeonly dispid 1;
- procedure Init(lnSetType: Integer; const bstrADsPath: WideString); dispid 2;
- procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
- const bstrUserID: WideString; const bstrDomain: WideString;
- const bstrPassword: WideString); dispid 3;
- procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); dispid 4;
- function Get(lnFormatType: Integer): WideString; dispid 5;
- procedure SetEx(lnFormatType: Integer; pVar: OleVariant); dispid 6;
- function GetEx(lnFormatType: Integer): OleVariant; dispid 7;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsCaseIgnoreList
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- IADsCaseIgnoreList = interface(IDispatch)
- ['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
- function Get_CaseIgnoreList: OleVariant; safecall;
- procedure Set_CaseIgnoreList(retval: OleVariant); safecall;
- property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
- end;
- // *********************************************************************//
- // DispIntf: IADsCaseIgnoreListDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsCaseIgnoreListDisp = dispinterface
- ['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
- property CaseIgnoreList: OleVariant dispid 2;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsFaxNumber
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- IADsFaxNumber = interface(IDispatch)
- ['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
- function Get_TelephoneNumber: WideString; safecall;
- procedure Set_TelephoneNumber(const retval: WideString); safecall;
- function Get_Parameters: OleVariant; safecall;
- procedure Set_Parameters(retval: OleVariant); safecall;
- property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
- property Parameters: OleVariant read Get_Parameters write Set_Parameters;
- end;
- // *********************************************************************//
- // DispIntf: IADsFaxNumberDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsFaxNumberDisp = dispinterface
- ['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
- property TelephoneNumber: WideString dispid 2;
- property Parameters: OleVariant dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsNetAddress
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- IADsNetAddress = interface(IDispatch)
- ['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
- function Get_AddressType: Integer; safecall;
- procedure Set_AddressType(retval: Integer); safecall;
- function Get_Address: OleVariant; safecall;
- procedure Set_Address(retval: OleVariant); safecall;
- property AddressType: Integer read Get_AddressType write Set_AddressType;
- property Address: OleVariant read Get_Address write Set_Address;
- end;
- // *********************************************************************//
- // DispIntf: IADsNetAddressDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsNetAddressDisp = dispinterface
- ['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
- property AddressType: Integer dispid 2;
- property Address: OleVariant dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsOctetList
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- IADsOctetList = interface(IDispatch)
- ['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
- function Get_OctetList: OleVariant; safecall;
- procedure Set_OctetList(retval: OleVariant); safecall;
- property OctetList: OleVariant read Get_OctetList write Set_OctetList;
- end;
- // *********************************************************************//
- // DispIntf: IADsOctetListDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsOctetListDisp = dispinterface
- ['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
- property OctetList: OleVariant dispid 2;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsEmail
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- IADsEmail = interface(IDispatch)
- ['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
- function Get_Type_: Integer; safecall;
- procedure Set_Type_(retval: Integer); safecall;
- function Get_Address: WideString; safecall;
- procedure Set_Address(const retval: WideString); safecall;
- property Type_: Integer read Get_Type_ write Set_Type_;
- property Address: WideString read Get_Address write Set_Address;
- end;
- // *********************************************************************//
- // DispIntf: IADsEmailDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsEmailDisp = dispinterface
- ['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
- property Type_: Integer dispid 2;
- property Address: WideString dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPath
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- IADsPath = interface(IDispatch)
- ['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
- function Get_Type_: Integer; safecall;
- procedure Set_Type_(retval: Integer); safecall;
- function Get_VolumeName: WideString; safecall;
- procedure Set_VolumeName(const retval: WideString); safecall;
- function Get_Path: WideString; safecall;
- procedure Set_Path(const retval: WideString); safecall;
- property Type_: Integer read Get_Type_ write Set_Type_;
- property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
- property Path: WideString read Get_Path write Set_Path;
- end;
- // *********************************************************************//
- // DispIntf: IADsPathDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPathDisp = dispinterface
- ['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
- property Type_: Integer dispid 2;
- property VolumeName: WideString dispid 3;
- property Path: WideString dispid 4;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsReplicaPointer
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- IADsReplicaPointer = interface(IDispatch)
- ['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
- function Get_ServerName: WideString; safecall;
- procedure Set_ServerName(const retval: WideString); safecall;
- function Get_ReplicaType: Integer; safecall;
- procedure Set_ReplicaType(retval: Integer); safecall;
- function Get_ReplicaNumber: Integer; safecall;
- procedure Set_ReplicaNumber(retval: Integer); safecall;
- function Get_Count: Integer; safecall;
- procedure Set_Count(retval: Integer); safecall;
- function Get_ReplicaAddressHints: OleVariant; safecall;
- procedure Set_ReplicaAddressHints(retval: OleVariant); safecall;
- property ServerName: WideString read Get_ServerName write Set_ServerName;
- property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
- property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
- property Count: Integer read Get_Count write Set_Count;
- property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
- end;
- // *********************************************************************//
- // DispIntf: IADsReplicaPointerDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsReplicaPointerDisp = dispinterface
- ['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
- property ServerName: WideString dispid 2;
- property ReplicaType: Integer dispid 3;
- property ReplicaNumber: Integer dispid 4;
- property Count: Integer dispid 5;
- property ReplicaAddressHints: OleVariant dispid 6;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsAcl
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
- // *********************************************************************//
- IADsAcl = interface(IDispatch)
- ['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
- function Get_ProtectedAttrName: WideString; safecall;
- procedure Set_ProtectedAttrName(const retval: WideString); safecall;
- function Get_SubjectName: WideString; safecall;
- procedure Set_SubjectName(const retval: WideString); safecall;
- function Get_Privileges: Integer; safecall;
- procedure Set_Privileges(retval: Integer); safecall;
- function CopyAcl: IDispatch; safecall;
- property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
- property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
- property Privileges: Integer read Get_Privileges write Set_Privileges;
- end;
- // *********************************************************************//
- // DispIntf: IADsAclDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsAclDisp = dispinterface
- ['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
- property ProtectedAttrName: WideString dispid 2;
- property SubjectName: WideString dispid 3;
- property Privileges: Integer dispid 4;
- function CopyAcl: IDispatch; dispid 5;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsTimestamp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- IADsTimestamp = interface(IDispatch)
- ['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
- function Get_WholeSeconds: Integer; safecall;
- procedure Set_WholeSeconds(retval: Integer); safecall;
- function Get_EventID: Integer; safecall;
- procedure Set_EventID(retval: Integer); safecall;
- property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
- property EventID: Integer read Get_EventID write Set_EventID;
- end;
- // *********************************************************************//
- // DispIntf: IADsTimestampDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsTimestampDisp = dispinterface
- ['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
- property WholeSeconds: Integer dispid 2;
- property EventID: Integer dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPostalAddress
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- IADsPostalAddress = interface(IDispatch)
- ['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
- function Get_PostalAddress: OleVariant; safecall;
- procedure Set_PostalAddress(retval: OleVariant); safecall;
- property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
- end;
- // *********************************************************************//
- // DispIntf: IADsPostalAddressDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPostalAddressDisp = dispinterface
- ['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
- property PostalAddress: OleVariant dispid 2;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsBackLink
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- IADsBackLink = interface(IDispatch)
- ['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
- function Get_RemoteID: Integer; safecall;
- procedure Set_RemoteID(retval: Integer); safecall;
- function Get_ObjectName: WideString; safecall;
- procedure Set_ObjectName(const retval: WideString); safecall;
- property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- end;
- // *********************************************************************//
- // DispIntf: IADsBackLinkDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsBackLinkDisp = dispinterface
- ['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
- property RemoteID: Integer dispid 2;
- property ObjectName: WideString dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsTypedName
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- IADsTypedName = interface(IDispatch)
- ['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
- function Get_ObjectName: WideString; safecall;
- procedure Set_ObjectName(const retval: WideString); safecall;
- function Get_Level: Integer; safecall;
- procedure Set_Level(retval: Integer); safecall;
- function Get_Interval: Integer; safecall;
- procedure Set_Interval(retval: Integer); safecall;
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- property Level: Integer read Get_Level write Set_Level;
- property Interval: Integer read Get_Interval write Set_Interval;
- end;
- // *********************************************************************//
- // DispIntf: IADsTypedNameDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsTypedNameDisp = dispinterface
- ['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
- property ObjectName: WideString dispid 2;
- property Level: Integer dispid 3;
- property Interval: Integer dispid 4;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsHold
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- IADsHold = interface(IDispatch)
- ['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
- function Get_ObjectName: WideString; safecall;
- procedure Set_ObjectName(const retval: WideString); safecall;
- function Get_Amount: Integer; safecall;
- procedure Set_Amount(retval: Integer); safecall;
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- property Amount: Integer read Get_Amount write Set_Amount;
- end;
- // *********************************************************************//
- // DispIntf: IADsHoldDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsHoldDisp = dispinterface
- ['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
- property ObjectName: WideString dispid 2;
- property Amount: Integer dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsObjectOptions
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
- // *********************************************************************//
- IADsObjectOptions = interface(IDispatch)
- ['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
- function GetOption(lnOption: Integer): OleVariant; safecall;
- procedure SetOption(lnOption: Integer; vValue: OleVariant); safecall;
- end;
- // *********************************************************************//
- // DispIntf: IADsObjectOptionsDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsObjectOptionsDisp = dispinterface
- ['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
- function GetOption(lnOption: Integer): OleVariant; dispid 2;
- procedure SetOption(lnOption: Integer; vValue: OleVariant); dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsPathname
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
- // *********************************************************************//
- IADsPathname = interface(IDispatch)
- ['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
- procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); safecall;
- procedure SetDisplayType(lnDisplayType: Integer); safecall;
- function Retrieve(lnFormatType: Integer): WideString; safecall;
- function GetNumElements: Integer; safecall;
- function GetElement(lnElementIndex: Integer): WideString; safecall;
- procedure AddLeafElement(const bstrLeafElement: WideString); safecall;
- procedure RemoveLeafElement; safecall;
- function CopyPath: IDispatch; safecall;
- function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; safecall;
- function Get_EscapedMode: Integer; safecall;
- procedure Set_EscapedMode(retval: Integer); safecall;
- property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
- end;
- // *********************************************************************//
- // DispIntf: IADsPathnameDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsPathnameDisp = dispinterface
- ['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
- procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); dispid 2;
- procedure SetDisplayType(lnDisplayType: Integer); dispid 3;
- function Retrieve(lnFormatType: Integer): WideString; dispid 4;
- function GetNumElements: Integer; dispid 5;
- function GetElement(lnElementIndex: Integer): WideString; dispid 6;
- procedure AddLeafElement(const bstrLeafElement: WideString); dispid 7;
- procedure RemoveLeafElement; dispid 8;
- function CopyPath: IDispatch; dispid 9;
- function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; dispid 10;
- property EscapedMode: Integer dispid 11;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsADSystemInfo
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
- // *********************************************************************//
- IADsADSystemInfo = interface(IDispatch)
- ['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
- function Get_UserName: WideString; safecall;
- function Get_ComputerName: WideString; safecall;
- function Get_SiteName: WideString; safecall;
- function Get_DomainShortName: WideString; safecall;
- function Get_DomainDNSName: WideString; safecall;
- function Get_ForestDNSName: WideString; safecall;
- function Get_PDCRoleOwner: WideString; safecall;
- function Get_SchemaRoleOwner: WideString; safecall;
- function Get_IsNativeMode: WordBool; safecall;
- function GetAnyDCName: WideString; safecall;
- function GetDCSiteName(const szServer: WideString): WideString; safecall;
- procedure RefreshSchemaCache; safecall;
- function GetTrees: OleVariant; safecall;
- property UserName: WideString read Get_UserName;
- property ComputerName: WideString read Get_ComputerName;
- property SiteName: WideString read Get_SiteName;
- property DomainShortName: WideString read Get_DomainShortName;
- property DomainDNSName: WideString read Get_DomainDNSName;
- property ForestDNSName: WideString read Get_ForestDNSName;
- property PDCRoleOwner: WideString read Get_PDCRoleOwner;
- property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
- property IsNativeMode: WordBool read Get_IsNativeMode;
- end;
- // *********************************************************************//
- // DispIntf: IADsADSystemInfoDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsADSystemInfoDisp = dispinterface
- ['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
- property UserName: WideString readonly dispid 2;
- property ComputerName: WideString readonly dispid 3;
- property SiteName: WideString readonly dispid 4;
- property DomainShortName: WideString readonly dispid 5;
- property DomainDNSName: WideString readonly dispid 6;
- property ForestDNSName: WideString readonly dispid 7;
- property PDCRoleOwner: WideString readonly dispid 8;
- property SchemaRoleOwner: WideString readonly dispid 9;
- property IsNativeMode: WordBool readonly dispid 10;
- function GetAnyDCName: WideString; dispid 11;
- function GetDCSiteName(const szServer: WideString): WideString; dispid 12;
- procedure RefreshSchemaCache; dispid 13;
- function GetTrees: OleVariant; dispid 14;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsWinNTSystemInfo
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
- // *********************************************************************//
- IADsWinNTSystemInfo = interface(IDispatch)
- ['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
- function Get_UserName: WideString; safecall;
- function Get_ComputerName: WideString; safecall;
- function Get_DomainName: WideString; safecall;
- function Get_PDC: WideString; safecall;
- property UserName: WideString read Get_UserName;
- property ComputerName: WideString read Get_ComputerName;
- property DomainName: WideString read Get_DomainName;
- property PDC: WideString read Get_PDC;
- end;
- // *********************************************************************//
- // DispIntf: IADsWinNTSystemInfoDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsWinNTSystemInfoDisp = dispinterface
- ['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
- property UserName: WideString readonly dispid 2;
- property ComputerName: WideString readonly dispid 3;
- property DomainName: WideString readonly dispid 4;
- property PDC: WideString readonly dispid 5;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsDNWithBinary
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
- // *********************************************************************//
- IADsDNWithBinary = interface(IDispatch)
- ['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
- function Get_BinaryValue: OleVariant; safecall;
- procedure Set_BinaryValue(retval: OleVariant); safecall;
- function Get_DNString: WideString; safecall;
- procedure Set_DNString(const retval: WideString); safecall;
- property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
- property DNString: WideString read Get_DNString write Set_DNString;
- end;
- // *********************************************************************//
- // DispIntf: IADsDNWithBinaryDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDNWithBinaryDisp = dispinterface
- ['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
- property BinaryValue: OleVariant dispid 2;
- property DNString: WideString dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // Interface: IADsDNWithString
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
- // *********************************************************************//
- IADsDNWithString = interface(IDispatch)
- ['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
- function Get_StringValue: WideString; safecall;
- procedure Set_StringValue(const retval: WideString); safecall;
- function Get_DNString: WideString; safecall;
- procedure Set_DNString(const retval: WideString); safecall;
- property StringValue: WideString read Get_StringValue write Set_StringValue;
- property DNString: WideString read Get_DNString write Set_DNString;
- end;
- // *********************************************************************//
- // DispIntf: IADsDNWithStringDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
- // *********************************************************************//
- {$ifdef SUPPORTS_DISPINTERFACE}
- IADsDNWithStringDisp = dispinterface
- ['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
- property StringValue: WideString dispid 2;
- property DNString: WideString dispid 3;
- end;
- {$endif}
- // *********************************************************************//
- // The Class CoPropertyEntry provides a Create and CreateRemote method to
- // create instances of the default interface IADsPropertyEntry exposed by
- // the CoClass PropertyEntry. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoPropertyEntry = class
- class function Create: IADsPropertyEntry;
- class function CreateRemote(const MachineName: string): IADsPropertyEntry;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TPropertyEntry
- // Help String :
- // Default Interface: IADsPropertyEntry
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TPropertyEntryProperties= class;
- {$ENDIF}
- TPropertyEntry = class(TOleServer)
- private
- FIntf: IADsPropertyEntry;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TPropertyEntryProperties;
- function GetServerProperties: TPropertyEntryProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsPropertyEntry;
- protected
- procedure InitServerData; override;
- function Get_Name: WideString;
- procedure Set_Name(const retval: WideString);
- function Get_ADsType: Integer;
- procedure Set_ADsType(retval: Integer);
- function Get_ControlCode: Integer;
- procedure Set_ControlCode(retval: Integer);
- function Get_Values: OleVariant;
- procedure Set_Values(retval: OleVariant);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsPropertyEntry);
- procedure Disconnect; override;
- procedure Clear;
- property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
- property Values: OleVariant read Get_Values write Set_Values;
- property Name: WideString read Get_Name write Set_Name;
- property ADsType: Integer read Get_ADsType write Set_ADsType;
- property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TPropertyEntryProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TPropertyEntry
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TPropertyEntryProperties = class(TPersistent)
- private
- FServer: TPropertyEntry;
- function GetDefaultInterface: IADsPropertyEntry;
- constructor Create(AServer: TPropertyEntry);
- protected
- function Get_Name: WideString;
- procedure Set_Name(const retval: WideString);
- function Get_ADsType: Integer;
- procedure Set_ADsType(retval: Integer);
- function Get_ControlCode: Integer;
- procedure Set_ControlCode(retval: Integer);
- function Get_Values: OleVariant;
- procedure Set_Values(retval: OleVariant);
- public
- property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
- published
- property Name: WideString read Get_Name write Set_Name;
- property ADsType: Integer read Get_ADsType write Set_ADsType;
- property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoPropertyValue provides a Create and CreateRemote method to
- // create instances of the default interface IADsPropertyValue exposed by
- // the CoClass PropertyValue. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoPropertyValue = class
- class function Create: IADsPropertyValue;
- class function CreateRemote(const MachineName: string): IADsPropertyValue;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TPropertyValue
- // Help String :
- // Default Interface: IADsPropertyValue
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TPropertyValueProperties= class;
- {$ENDIF}
- TPropertyValue = class(TOleServer)
- private
- FIntf: IADsPropertyValue;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TPropertyValueProperties;
- function GetServerProperties: TPropertyValueProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsPropertyValue;
- protected
- procedure InitServerData; override;
- function Get_ADsType: Integer;
- procedure Set_ADsType(retval: Integer);
- function Get_DNString: WideString;
- procedure Set_DNString(const retval: WideString);
- function Get_CaseExactString: WideString;
- procedure Set_CaseExactString(const retval: WideString);
- function Get_CaseIgnoreString: WideString;
- procedure Set_CaseIgnoreString(const retval: WideString);
- function Get_PrintableString: WideString;
- procedure Set_PrintableString(const retval: WideString);
- function Get_NumericString: WideString;
- procedure Set_NumericString(const retval: WideString);
- function Get_Boolean: Integer;
- procedure Set_Boolean(retval: Integer);
- function Get_Integer: Integer;
- procedure Set_Integer(retval: Integer);
- function Get_OctetString: OleVariant;
- procedure Set_OctetString(retval: OleVariant);
- function Get_SecurityDescriptor: IDispatch;
- procedure Set_SecurityDescriptor(const retval: IDispatch);
- function Get_LargeInteger: IDispatch;
- procedure Set_LargeInteger(const retval: IDispatch);
- function Get_UTCTime: TDateTime;
- procedure Set_UTCTime(retval: TDateTime);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsPropertyValue);
- procedure Disconnect; override;
- procedure Clear;
- property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
- property OctetString: OleVariant read Get_OctetString write Set_OctetString;
- property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
- property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
- property ADsType: Integer read Get_ADsType write Set_ADsType;
- property DNString: WideString read Get_DNString write Set_DNString;
- property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
- property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
- property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
- property NumericString: WideString read Get_NumericString write Set_NumericString;
- property Boolean: Integer read Get_Boolean write Set_Boolean;
- property Integer: Integer read Get_Integer write Set_Integer;
- property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TPropertyValueProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TPropertyValue
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TPropertyValueProperties = class(TPersistent)
- private
- FServer: TPropertyValue;
- function GetDefaultInterface: IADsPropertyValue;
- constructor Create(AServer: TPropertyValue);
- protected
- function Get_ADsType: Integer;
- procedure Set_ADsType(retval: Integer);
- function Get_DNString: WideString;
- procedure Set_DNString(const retval: WideString);
- function Get_CaseExactString: WideString;
- procedure Set_CaseExactString(const retval: WideString);
- function Get_CaseIgnoreString: WideString;
- procedure Set_CaseIgnoreString(const retval: WideString);
- function Get_PrintableString: WideString;
- procedure Set_PrintableString(const retval: WideString);
- function Get_NumericString: WideString;
- procedure Set_NumericString(const retval: WideString);
- function Get_Boolean: Integer;
- procedure Set_Boolean(retval: Integer);
- function Get_Integer: Integer;
- procedure Set_Integer(retval: Integer);
- function Get_OctetString: OleVariant;
- procedure Set_OctetString(retval: OleVariant);
- function Get_SecurityDescriptor: IDispatch;
- procedure Set_SecurityDescriptor(const retval: IDispatch);
- function Get_LargeInteger: IDispatch;
- procedure Set_LargeInteger(const retval: IDispatch);
- function Get_UTCTime: TDateTime;
- procedure Set_UTCTime(retval: TDateTime);
- public
- property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
- published
- property ADsType: Integer read Get_ADsType write Set_ADsType;
- property DNString: WideString read Get_DNString write Set_DNString;
- property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
- property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
- property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
- property NumericString: WideString read Get_NumericString write Set_NumericString;
- property Boolean: Integer read Get_Boolean write Set_Boolean;
- property Integer: Integer read Get_Integer write Set_Integer;
- property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoAccessControlEntry provides a Create and CreateRemote method to
- // create instances of the default interface IADsAccessControlEntry exposed by
- // the CoClass AccessControlEntry. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoAccessControlEntry = class
- class function Create: IADsAccessControlEntry;
- class function CreateRemote(const MachineName: string): IADsAccessControlEntry;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TAccessControlEntry
- // Help String :
- // Default Interface: IADsAccessControlEntry
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TAccessControlEntryProperties= class;
- {$ENDIF}
- TAccessControlEntry = class(TOleServer)
- private
- FIntf: IADsAccessControlEntry;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TAccessControlEntryProperties;
- function GetServerProperties: TAccessControlEntryProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsAccessControlEntry;
- protected
- procedure InitServerData; override;
- function Get_AccessMask: Integer;
- procedure Set_AccessMask(retval: Integer);
- function Get_AceType: Integer;
- procedure Set_AceType(retval: Integer);
- function Get_AceFlags: Integer;
- procedure Set_AceFlags(retval: Integer);
- function Get_Flags: Integer;
- procedure Set_Flags(retval: Integer);
- function Get_ObjectType: WideString;
- procedure Set_ObjectType(const retval: WideString);
- function Get_InheritedObjectType: WideString;
- procedure Set_InheritedObjectType(const retval: WideString);
- function Get_Trustee: WideString;
- procedure Set_Trustee(const retval: WideString);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsAccessControlEntry);
- procedure Disconnect; override;
- property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
- property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
- property AceType: Integer read Get_AceType write Set_AceType;
- property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
- property Flags: Integer read Get_Flags write Set_Flags;
- property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
- property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
- property Trustee: WideString read Get_Trustee write Set_Trustee;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TAccessControlEntryProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TAccessControlEntry
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TAccessControlEntryProperties = class(TPersistent)
- private
- FServer: TAccessControlEntry;
- function GetDefaultInterface: IADsAccessControlEntry;
- constructor Create(AServer: TAccessControlEntry);
- protected
- function Get_AccessMask: Integer;
- procedure Set_AccessMask(retval: Integer);
- function Get_AceType: Integer;
- procedure Set_AceType(retval: Integer);
- function Get_AceFlags: Integer;
- procedure Set_AceFlags(retval: Integer);
- function Get_Flags: Integer;
- procedure Set_Flags(retval: Integer);
- function Get_ObjectType: WideString;
- procedure Set_ObjectType(const retval: WideString);
- function Get_InheritedObjectType: WideString;
- procedure Set_InheritedObjectType(const retval: WideString);
- function Get_Trustee: WideString;
- procedure Set_Trustee(const retval: WideString);
- public
- property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
- published
- property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
- property AceType: Integer read Get_AceType write Set_AceType;
- property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
- property Flags: Integer read Get_Flags write Set_Flags;
- property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
- property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
- property Trustee: WideString read Get_Trustee write Set_Trustee;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoAccessControlList provides a Create and CreateRemote method to
- // create instances of the default interface IADsAccessControlList exposed by
- // the CoClass AccessControlList. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoAccessControlList = class
- class function Create: IADsAccessControlList;
- class function CreateRemote(const MachineName: string): IADsAccessControlList;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TAccessControlList
- // Help String :
- // Default Interface: IADsAccessControlList
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TAccessControlListProperties= class;
- {$ENDIF}
- TAccessControlList = class(TOleServer)
- private
- FIntf: IADsAccessControlList;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TAccessControlListProperties;
- function GetServerProperties: TAccessControlListProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsAccessControlList;
- protected
- procedure InitServerData; override;
- function Get_AclRevision: Integer;
- procedure Set_AclRevision(retval: Integer);
- function Get_AceCount: Integer;
- procedure Set_AceCount(retval: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsAccessControlList);
- procedure Disconnect; override;
- procedure AddAce(const pAccessControlEntry: IDispatch);
- procedure RemoveAce(const pAccessControlEntry: IDispatch);
- function CopyAccessList: IDispatch;
- property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
- property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
- property AceCount: Integer read Get_AceCount write Set_AceCount;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TAccessControlListProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TAccessControlList
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TAccessControlListProperties = class(TPersistent)
- private
- FServer: TAccessControlList;
- function GetDefaultInterface: IADsAccessControlList;
- constructor Create(AServer: TAccessControlList);
- protected
- function Get_AclRevision: Integer;
- procedure Set_AclRevision(retval: Integer);
- function Get_AceCount: Integer;
- procedure Set_AceCount(retval: Integer);
- public
- property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
- published
- property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
- property AceCount: Integer read Get_AceCount write Set_AceCount;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoSecurityDescriptor provides a Create and CreateRemote method to
- // create instances of the default interface IADsSecurityDescriptor exposed by
- // the CoClass SecurityDescriptor. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoSecurityDescriptor = class
- class function Create: IADsSecurityDescriptor;
- class function CreateRemote(const MachineName: string): IADsSecurityDescriptor;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TSecurityDescriptor
- // Help String :
- // Default Interface: IADsSecurityDescriptor
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TSecurityDescriptorProperties= class;
- {$ENDIF}
- TSecurityDescriptor = class(TOleServer)
- private
- FIntf: IADsSecurityDescriptor;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TSecurityDescriptorProperties;
- function GetServerProperties: TSecurityDescriptorProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsSecurityDescriptor;
- protected
- procedure InitServerData; override;
- function Get_Revision: Integer;
- procedure Set_Revision(retval: Integer);
- function Get_Control: Integer;
- procedure Set_Control(retval: Integer);
- function Get_Owner: WideString;
- procedure Set_Owner(const retval: WideString);
- function Get_OwnerDefaulted: WordBool;
- procedure Set_OwnerDefaulted(retval: WordBool);
- function Get_Group: WideString;
- procedure Set_Group(const retval: WideString);
- function Get_GroupDefaulted: WordBool;
- procedure Set_GroupDefaulted(retval: WordBool);
- function Get_DiscretionaryAcl: IDispatch;
- procedure Set_DiscretionaryAcl(const retval: IDispatch);
- function Get_DaclDefaulted: WordBool;
- procedure Set_DaclDefaulted(retval: WordBool);
- function Get_SystemAcl: IDispatch;
- procedure Set_SystemAcl(const retval: IDispatch);
- function Get_SaclDefaulted: WordBool;
- procedure Set_SaclDefaulted(retval: WordBool);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsSecurityDescriptor);
- procedure Disconnect; override;
- function CopySecurityDescriptor: IDispatch;
- property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
- property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
- property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
- property Revision: Integer read Get_Revision write Set_Revision;
- property Control: Integer read Get_Control write Set_Control;
- property Owner: WideString read Get_Owner write Set_Owner;
- property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
- property Group: WideString read Get_Group write Set_Group;
- property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
- property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
- property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TSecurityDescriptorProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TSecurityDescriptor
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TSecurityDescriptorProperties = class(TPersistent)
- private
- FServer: TSecurityDescriptor;
- function GetDefaultInterface: IADsSecurityDescriptor;
- constructor Create(AServer: TSecurityDescriptor);
- protected
- function Get_Revision: Integer;
- procedure Set_Revision(retval: Integer);
- function Get_Control: Integer;
- procedure Set_Control(retval: Integer);
- function Get_Owner: WideString;
- procedure Set_Owner(const retval: WideString);
- function Get_OwnerDefaulted: WordBool;
- procedure Set_OwnerDefaulted(retval: WordBool);
- function Get_Group: WideString;
- procedure Set_Group(const retval: WideString);
- function Get_GroupDefaulted: WordBool;
- procedure Set_GroupDefaulted(retval: WordBool);
- function Get_DiscretionaryAcl: IDispatch;
- procedure Set_DiscretionaryAcl(const retval: IDispatch);
- function Get_DaclDefaulted: WordBool;
- procedure Set_DaclDefaulted(retval: WordBool);
- function Get_SystemAcl: IDispatch;
- procedure Set_SystemAcl(const retval: IDispatch);
- function Get_SaclDefaulted: WordBool;
- procedure Set_SaclDefaulted(retval: WordBool);
- public
- property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
- published
- property Revision: Integer read Get_Revision write Set_Revision;
- property Control: Integer read Get_Control write Set_Control;
- property Owner: WideString read Get_Owner write Set_Owner;
- property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
- property Group: WideString read Get_Group write Set_Group;
- property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
- property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
- property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoLargeInteger provides a Create and CreateRemote method to
- // create instances of the default interface IADsLargeInteger exposed by
- // the CoClass LargeInteger. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoLargeInteger = class
- class function Create: IADsLargeInteger;
- class function CreateRemote(const MachineName: string): IADsLargeInteger;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TLargeInteger
- // Help String :
- // Default Interface: IADsLargeInteger
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TLargeIntegerProperties= class;
- {$ENDIF}
- TLargeInteger = class(TOleServer)
- private
- FIntf: IADsLargeInteger;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TLargeIntegerProperties;
- function GetServerProperties: TLargeIntegerProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsLargeInteger;
- protected
- procedure InitServerData; override;
- function Get_HighPart: Integer;
- procedure Set_HighPart(retval: Integer);
- function Get_LowPart: Integer;
- procedure Set_LowPart(retval: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsLargeInteger);
- procedure Disconnect; override;
- property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
- property HighPart: Integer read Get_HighPart write Set_HighPart;
- property LowPart: Integer read Get_LowPart write Set_LowPart;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TLargeIntegerProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TLargeInteger
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TLargeIntegerProperties = class(TPersistent)
- private
- FServer: TLargeInteger;
- function GetDefaultInterface: IADsLargeInteger;
- constructor Create(AServer: TLargeInteger);
- protected
- function Get_HighPart: Integer;
- procedure Set_HighPart(retval: Integer);
- function Get_LowPart: Integer;
- procedure Set_LowPart(retval: Integer);
- public
- property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
- published
- property HighPart: Integer read Get_HighPart write Set_HighPart;
- property LowPart: Integer read Get_LowPart write Set_LowPart;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoNameTranslate provides a Create and CreateRemote method to
- // create instances of the default interface IADsNameTranslate exposed by
- // the CoClass NameTranslate. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoNameTranslate = class
- class function Create: IADsNameTranslate;
- class function CreateRemote(const MachineName: string): IADsNameTranslate;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TNameTranslate
- // Help String :
- // Default Interface: IADsNameTranslate
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TNameTranslateProperties= class;
- {$ENDIF}
- TNameTranslate = class(TOleServer)
- private
- FIntf: IADsNameTranslate;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TNameTranslateProperties;
- function GetServerProperties: TNameTranslateProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsNameTranslate;
- protected
- procedure InitServerData; override;
- procedure Set_ChaseReferral(Param1: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsNameTranslate);
- procedure Disconnect; override;
- procedure Init(lnSetType: Integer; const bstrADsPath: WideString);
- procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
- const bstrUserID: WideString; const bstrDomain: WideString;
- const bstrPassword: WideString);
- procedure Set_(lnSetType: Integer; const bstrADsPath: WideString);
- function Get(lnFormatType: Integer): WideString;
- procedure SetEx(lnFormatType: Integer; pVar: OleVariant);
- function GetEx(lnFormatType: Integer): OleVariant;
- property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
- property ChaseReferral: Integer write Set_ChaseReferral;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TNameTranslateProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TNameTranslate
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TNameTranslateProperties = class(TPersistent)
- private
- FServer: TNameTranslate;
- function GetDefaultInterface: IADsNameTranslate;
- constructor Create(AServer: TNameTranslate);
- protected
- procedure Set_ChaseReferral(Param1: Integer);
- public
- property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
- published
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoCaseIgnoreList provides a Create and CreateRemote method to
- // create instances of the default interface IADsCaseIgnoreList exposed by
- // the CoClass CaseIgnoreList. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoCaseIgnoreList = class
- class function Create: IADsCaseIgnoreList;
- class function CreateRemote(const MachineName: string): IADsCaseIgnoreList;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TCaseIgnoreList
- // Help String :
- // Default Interface: IADsCaseIgnoreList
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TCaseIgnoreListProperties= class;
- {$ENDIF}
- TCaseIgnoreList = class(TOleServer)
- private
- FIntf: IADsCaseIgnoreList;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TCaseIgnoreListProperties;
- function GetServerProperties: TCaseIgnoreListProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsCaseIgnoreList;
- protected
- procedure InitServerData; override;
- function Get_CaseIgnoreList: OleVariant;
- procedure Set_CaseIgnoreList(retval: OleVariant);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsCaseIgnoreList);
- procedure Disconnect; override;
- property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
- property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TCaseIgnoreListProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TCaseIgnoreList
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TCaseIgnoreListProperties = class(TPersistent)
- private
- FServer: TCaseIgnoreList;
- function GetDefaultInterface: IADsCaseIgnoreList;
- constructor Create(AServer: TCaseIgnoreList);
- protected
- function Get_CaseIgnoreList: OleVariant;
- procedure Set_CaseIgnoreList(retval: OleVariant);
- public
- property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
- published
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoFaxNumber provides a Create and CreateRemote method to
- // create instances of the default interface IADsFaxNumber exposed by
- // the CoClass FaxNumber. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoFaxNumber = class
- class function Create: IADsFaxNumber;
- class function CreateRemote(const MachineName: string): IADsFaxNumber;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TFaxNumber
- // Help String :
- // Default Interface: IADsFaxNumber
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TFaxNumberProperties= class;
- {$ENDIF}
- TFaxNumber = class(TOleServer)
- private
- FIntf: IADsFaxNumber;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TFaxNumberProperties;
- function GetServerProperties: TFaxNumberProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsFaxNumber;
- protected
- procedure InitServerData; override;
- function Get_TelephoneNumber: WideString;
- procedure Set_TelephoneNumber(const retval: WideString);
- function Get_Parameters: OleVariant;
- procedure Set_Parameters(retval: OleVariant);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsFaxNumber);
- procedure Disconnect; override;
- property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
- property Parameters: OleVariant read Get_Parameters write Set_Parameters;
- property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TFaxNumberProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TFaxNumber
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TFaxNumberProperties = class(TPersistent)
- private
- FServer: TFaxNumber;
- function GetDefaultInterface: IADsFaxNumber;
- constructor Create(AServer: TFaxNumber);
- protected
- function Get_TelephoneNumber: WideString;
- procedure Set_TelephoneNumber(const retval: WideString);
- function Get_Parameters: OleVariant;
- procedure Set_Parameters(retval: OleVariant);
- public
- property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
- published
- property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoNetAddress provides a Create and CreateRemote method to
- // create instances of the default interface IADsNetAddress exposed by
- // the CoClass NetAddress. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoNetAddress = class
- class function Create: IADsNetAddress;
- class function CreateRemote(const MachineName: string): IADsNetAddress;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TNetAddress
- // Help String :
- // Default Interface: IADsNetAddress
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TNetAddressProperties= class;
- {$ENDIF}
- TNetAddress = class(TOleServer)
- private
- FIntf: IADsNetAddress;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TNetAddressProperties;
- function GetServerProperties: TNetAddressProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsNetAddress;
- protected
- procedure InitServerData; override;
- function Get_AddressType: Integer;
- procedure Set_AddressType(retval: Integer);
- function Get_Address: OleVariant;
- procedure Set_Address(retval: OleVariant);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsNetAddress);
- procedure Disconnect; override;
- property DefaultInterface: IADsNetAddress read GetDefaultInterface;
- property Address: OleVariant read Get_Address write Set_Address;
- property AddressType: Integer read Get_AddressType write Set_AddressType;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TNetAddressProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TNetAddress
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TNetAddressProperties = class(TPersistent)
- private
- FServer: TNetAddress;
- function GetDefaultInterface: IADsNetAddress;
- constructor Create(AServer: TNetAddress);
- protected
- function Get_AddressType: Integer;
- procedure Set_AddressType(retval: Integer);
- function Get_Address: OleVariant;
- procedure Set_Address(retval: OleVariant);
- public
- property DefaultInterface: IADsNetAddress read GetDefaultInterface;
- published
- property AddressType: Integer read Get_AddressType write Set_AddressType;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoOctetList provides a Create and CreateRemote method to
- // create instances of the default interface IADsOctetList exposed by
- // the CoClass OctetList. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoOctetList = class
- class function Create: IADsOctetList;
- class function CreateRemote(const MachineName: string): IADsOctetList;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TOctetList
- // Help String :
- // Default Interface: IADsOctetList
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TOctetListProperties= class;
- {$ENDIF}
- TOctetList = class(TOleServer)
- private
- FIntf: IADsOctetList;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TOctetListProperties;
- function GetServerProperties: TOctetListProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsOctetList;
- protected
- procedure InitServerData; override;
- function Get_OctetList: OleVariant;
- procedure Set_OctetList(retval: OleVariant);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsOctetList);
- procedure Disconnect; override;
- property DefaultInterface: IADsOctetList read GetDefaultInterface;
- property OctetList: OleVariant read Get_OctetList write Set_OctetList;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TOctetListProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TOctetList
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TOctetListProperties = class(TPersistent)
- private
- FServer: TOctetList;
- function GetDefaultInterface: IADsOctetList;
- constructor Create(AServer: TOctetList);
- protected
- function Get_OctetList: OleVariant;
- procedure Set_OctetList(retval: OleVariant);
- public
- property DefaultInterface: IADsOctetList read GetDefaultInterface;
- published
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoEmail provides a Create and CreateRemote method to
- // create instances of the default interface IADsEmail exposed by
- // the CoClass Email. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoEmail = class
- class function Create: IADsEmail;
- class function CreateRemote(const MachineName: string): IADsEmail;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TEmail
- // Help String :
- // Default Interface: IADsEmail
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TEmailProperties= class;
- {$ENDIF}
- TEmail = class(TOleServer)
- private
- FIntf: IADsEmail;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TEmailProperties;
- function GetServerProperties: TEmailProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsEmail;
- protected
- procedure InitServerData; override;
- function Get_Type_: Integer;
- procedure Set_Type_(retval: Integer);
- function Get_Address: WideString;
- procedure Set_Address(const retval: WideString);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsEmail);
- procedure Disconnect; override;
- property DefaultInterface: IADsEmail read GetDefaultInterface;
- property Type_: Integer read Get_Type_ write Set_Type_;
- property Address: WideString read Get_Address write Set_Address;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TEmailProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TEmail
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TEmailProperties = class(TPersistent)
- private
- FServer: TEmail;
- function GetDefaultInterface: IADsEmail;
- constructor Create(AServer: TEmail);
- protected
- function Get_Type_: Integer;
- procedure Set_Type_(retval: Integer);
- function Get_Address: WideString;
- procedure Set_Address(const retval: WideString);
- public
- property DefaultInterface: IADsEmail read GetDefaultInterface;
- published
- property Type_: Integer read Get_Type_ write Set_Type_;
- property Address: WideString read Get_Address write Set_Address;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoPath provides a Create and CreateRemote method to
- // create instances of the default interface IADsPath exposed by
- // the CoClass Path. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoPath = class
- class function Create: IADsPath;
- class function CreateRemote(const MachineName: string): IADsPath;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TPath
- // Help String :
- // Default Interface: IADsPath
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TPathProperties= class;
- {$ENDIF}
- TPath = class(TOleServer)
- private
- FIntf: IADsPath;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TPathProperties;
- function GetServerProperties: TPathProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsPath;
- protected
- procedure InitServerData; override;
- function Get_Type_: Integer;
- procedure Set_Type_(retval: Integer);
- function Get_VolumeName: WideString;
- procedure Set_VolumeName(const retval: WideString);
- function Get_Path: WideString;
- procedure Set_Path(const retval: WideString);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsPath);
- procedure Disconnect; override;
- property DefaultInterface: IADsPath read GetDefaultInterface;
- property Type_: Integer read Get_Type_ write Set_Type_;
- property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
- property Path: WideString read Get_Path write Set_Path;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TPathProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TPath
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TPathProperties = class(TPersistent)
- private
- FServer: TPath;
- function GetDefaultInterface: IADsPath;
- constructor Create(AServer: TPath);
- protected
- function Get_Type_: Integer;
- procedure Set_Type_(retval: Integer);
- function Get_VolumeName: WideString;
- procedure Set_VolumeName(const retval: WideString);
- function Get_Path: WideString;
- procedure Set_Path(const retval: WideString);
- public
- property DefaultInterface: IADsPath read GetDefaultInterface;
- published
- property Type_: Integer read Get_Type_ write Set_Type_;
- property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
- property Path: WideString read Get_Path write Set_Path;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoReplicaPointer provides a Create and CreateRemote method to
- // create instances of the default interface IADsReplicaPointer exposed by
- // the CoClass ReplicaPointer. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoReplicaPointer = class
- class function Create: IADsReplicaPointer;
- class function CreateRemote(const MachineName: string): IADsReplicaPointer;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TReplicaPointer
- // Help String :
- // Default Interface: IADsReplicaPointer
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TReplicaPointerProperties= class;
- {$ENDIF}
- TReplicaPointer = class(TOleServer)
- private
- FIntf: IADsReplicaPointer;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TReplicaPointerProperties;
- function GetServerProperties: TReplicaPointerProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsReplicaPointer;
- protected
- procedure InitServerData; override;
- function Get_ServerName: WideString;
- procedure Set_ServerName(const retval: WideString);
- function Get_ReplicaType: Integer;
- procedure Set_ReplicaType(retval: Integer);
- function Get_ReplicaNumber: Integer;
- procedure Set_ReplicaNumber(retval: Integer);
- function Get_Count: Integer;
- procedure Set_Count(retval: Integer);
- function Get_ReplicaAddressHints: OleVariant;
- procedure Set_ReplicaAddressHints(retval: OleVariant);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsReplicaPointer);
- procedure Disconnect; override;
- property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
- property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
- property ServerName: WideString read Get_ServerName write Set_ServerName;
- property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
- property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
- property Count: Integer read Get_Count write Set_Count;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TReplicaPointerProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TReplicaPointer
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TReplicaPointerProperties = class(TPersistent)
- private
- FServer: TReplicaPointer;
- function GetDefaultInterface: IADsReplicaPointer;
- constructor Create(AServer: TReplicaPointer);
- protected
- function Get_ServerName: WideString;
- procedure Set_ServerName(const retval: WideString);
- function Get_ReplicaType: Integer;
- procedure Set_ReplicaType(retval: Integer);
- function Get_ReplicaNumber: Integer;
- procedure Set_ReplicaNumber(retval: Integer);
- function Get_Count: Integer;
- procedure Set_Count(retval: Integer);
- function Get_ReplicaAddressHints: OleVariant;
- procedure Set_ReplicaAddressHints(retval: OleVariant);
- public
- property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
- published
- property ServerName: WideString read Get_ServerName write Set_ServerName;
- property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
- property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
- property Count: Integer read Get_Count write Set_Count;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoAcl provides a Create and CreateRemote method to
- // create instances of the default interface IADsAcl exposed by
- // the CoClass Acl. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoAcl = class
- class function Create: IADsAcl;
- class function CreateRemote(const MachineName: string): IADsAcl;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TAcl
- // Help String :
- // Default Interface: IADsAcl
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TAclProperties= class;
- {$ENDIF}
- TAcl = class(TOleServer)
- private
- FIntf: IADsAcl;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TAclProperties;
- function GetServerProperties: TAclProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsAcl;
- protected
- procedure InitServerData; override;
- function Get_ProtectedAttrName: WideString;
- procedure Set_ProtectedAttrName(const retval: WideString);
- function Get_SubjectName: WideString;
- procedure Set_SubjectName(const retval: WideString);
- function Get_Privileges: Integer;
- procedure Set_Privileges(retval: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsAcl);
- procedure Disconnect; override;
- function CopyAcl: IDispatch;
- property DefaultInterface: IADsAcl read GetDefaultInterface;
- property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
- property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
- property Privileges: Integer read Get_Privileges write Set_Privileges;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TAclProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TAcl
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TAclProperties = class(TPersistent)
- private
- FServer: TAcl;
- function GetDefaultInterface: IADsAcl;
- constructor Create(AServer: TAcl);
- protected
- function Get_ProtectedAttrName: WideString;
- procedure Set_ProtectedAttrName(const retval: WideString);
- function Get_SubjectName: WideString;
- procedure Set_SubjectName(const retval: WideString);
- function Get_Privileges: Integer;
- procedure Set_Privileges(retval: Integer);
- public
- property DefaultInterface: IADsAcl read GetDefaultInterface;
- published
- property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
- property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
- property Privileges: Integer read Get_Privileges write Set_Privileges;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoTimestamp provides a Create and CreateRemote method to
- // create instances of the default interface IADsTimestamp exposed by
- // the CoClass Timestamp. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoTimestamp = class
- class function Create: IADsTimestamp;
- class function CreateRemote(const MachineName: string): IADsTimestamp;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TTimestamp
- // Help String :
- // Default Interface: IADsTimestamp
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TTimestampProperties= class;
- {$ENDIF}
- TTimestamp = class(TOleServer)
- private
- FIntf: IADsTimestamp;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TTimestampProperties;
- function GetServerProperties: TTimestampProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsTimestamp;
- protected
- procedure InitServerData; override;
- function Get_WholeSeconds: Integer;
- procedure Set_WholeSeconds(retval: Integer);
- function Get_EventID: Integer;
- procedure Set_EventID(retval: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsTimestamp);
- procedure Disconnect; override;
- property DefaultInterface: IADsTimestamp read GetDefaultInterface;
- property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
- property EventID: Integer read Get_EventID write Set_EventID;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TTimestampProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TTimestamp
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TTimestampProperties = class(TPersistent)
- private
- FServer: TTimestamp;
- function GetDefaultInterface: IADsTimestamp;
- constructor Create(AServer: TTimestamp);
- protected
- function Get_WholeSeconds: Integer;
- procedure Set_WholeSeconds(retval: Integer);
- function Get_EventID: Integer;
- procedure Set_EventID(retval: Integer);
- public
- property DefaultInterface: IADsTimestamp read GetDefaultInterface;
- published
- property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
- property EventID: Integer read Get_EventID write Set_EventID;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoPostalAddress provides a Create and CreateRemote method to
- // create instances of the default interface IADsPostalAddress exposed by
- // the CoClass PostalAddress. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoPostalAddress = class
- class function Create: IADsPostalAddress;
- class function CreateRemote(const MachineName: string): IADsPostalAddress;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TPostalAddress
- // Help String :
- // Default Interface: IADsPostalAddress
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TPostalAddressProperties= class;
- {$ENDIF}
- TPostalAddress = class(TOleServer)
- private
- FIntf: IADsPostalAddress;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TPostalAddressProperties;
- function GetServerProperties: TPostalAddressProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsPostalAddress;
- protected
- procedure InitServerData; override;
- function Get_PostalAddress: OleVariant;
- procedure Set_PostalAddress(retval: OleVariant);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsPostalAddress);
- procedure Disconnect; override;
- property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
- property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TPostalAddressProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TPostalAddress
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TPostalAddressProperties = class(TPersistent)
- private
- FServer: TPostalAddress;
- function GetDefaultInterface: IADsPostalAddress;
- constructor Create(AServer: TPostalAddress);
- protected
- function Get_PostalAddress: OleVariant;
- procedure Set_PostalAddress(retval: OleVariant);
- public
- property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
- published
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoBackLink provides a Create and CreateRemote method to
- // create instances of the default interface IADsBackLink exposed by
- // the CoClass BackLink. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoBackLink = class
- class function Create: IADsBackLink;
- class function CreateRemote(const MachineName: string): IADsBackLink;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TBackLink
- // Help String :
- // Default Interface: IADsBackLink
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TBackLinkProperties= class;
- {$ENDIF}
- TBackLink = class(TOleServer)
- private
- FIntf: IADsBackLink;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TBackLinkProperties;
- function GetServerProperties: TBackLinkProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsBackLink;
- protected
- procedure InitServerData; override;
- function Get_RemoteID: Integer;
- procedure Set_RemoteID(retval: Integer);
- function Get_ObjectName: WideString;
- procedure Set_ObjectName(const retval: WideString);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsBackLink);
- procedure Disconnect; override;
- property DefaultInterface: IADsBackLink read GetDefaultInterface;
- property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TBackLinkProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TBackLink
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TBackLinkProperties = class(TPersistent)
- private
- FServer: TBackLink;
- function GetDefaultInterface: IADsBackLink;
- constructor Create(AServer: TBackLink);
- protected
- function Get_RemoteID: Integer;
- procedure Set_RemoteID(retval: Integer);
- function Get_ObjectName: WideString;
- procedure Set_ObjectName(const retval: WideString);
- public
- property DefaultInterface: IADsBackLink read GetDefaultInterface;
- published
- property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoTypedName provides a Create and CreateRemote method to
- // create instances of the default interface IADsTypedName exposed by
- // the CoClass TypedName. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoTypedName = class
- class function Create: IADsTypedName;
- class function CreateRemote(const MachineName: string): IADsTypedName;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TTypedName
- // Help String :
- // Default Interface: IADsTypedName
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TTypedNameProperties= class;
- {$ENDIF}
- TTypedName = class(TOleServer)
- private
- FIntf: IADsTypedName;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TTypedNameProperties;
- function GetServerProperties: TTypedNameProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsTypedName;
- protected
- procedure InitServerData; override;
- function Get_ObjectName: WideString;
- procedure Set_ObjectName(const retval: WideString);
- function Get_Level: Integer;
- procedure Set_Level(retval: Integer);
- function Get_Interval: Integer;
- procedure Set_Interval(retval: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsTypedName);
- procedure Disconnect; override;
- property DefaultInterface: IADsTypedName read GetDefaultInterface;
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- property Level: Integer read Get_Level write Set_Level;
- property Interval: Integer read Get_Interval write Set_Interval;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TTypedNameProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TTypedName
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TTypedNameProperties = class(TPersistent)
- private
- FServer: TTypedName;
- function GetDefaultInterface: IADsTypedName;
- constructor Create(AServer: TTypedName);
- protected
- function Get_ObjectName: WideString;
- procedure Set_ObjectName(const retval: WideString);
- function Get_Level: Integer;
- procedure Set_Level(retval: Integer);
- function Get_Interval: Integer;
- procedure Set_Interval(retval: Integer);
- public
- property DefaultInterface: IADsTypedName read GetDefaultInterface;
- published
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- property Level: Integer read Get_Level write Set_Level;
- property Interval: Integer read Get_Interval write Set_Interval;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoHold provides a Create and CreateRemote method to
- // create instances of the default interface IADsHold exposed by
- // the CoClass Hold. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoHold = class
- class function Create: IADsHold;
- class function CreateRemote(const MachineName: string): IADsHold;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : THold
- // Help String :
- // Default Interface: IADsHold
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- THoldProperties= class;
- {$ENDIF}
- THold = class(TOleServer)
- private
- FIntf: IADsHold;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: THoldProperties;
- function GetServerProperties: THoldProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsHold;
- protected
- procedure InitServerData; override;
- function Get_ObjectName: WideString;
- procedure Set_ObjectName(const retval: WideString);
- function Get_Amount: Integer;
- procedure Set_Amount(retval: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsHold);
- procedure Disconnect; override;
- property DefaultInterface: IADsHold read GetDefaultInterface;
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- property Amount: Integer read Get_Amount write Set_Amount;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: THoldProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : THold
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- THoldProperties = class(TPersistent)
- private
- FServer: THold;
- function GetDefaultInterface: IADsHold;
- constructor Create(AServer: THold);
- protected
- function Get_ObjectName: WideString;
- procedure Set_ObjectName(const retval: WideString);
- function Get_Amount: Integer;
- procedure Set_Amount(retval: Integer);
- public
- property DefaultInterface: IADsHold read GetDefaultInterface;
- published
- property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
- property Amount: Integer read Get_Amount write Set_Amount;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoPathname provides a Create and CreateRemote method to
- // create instances of the default interface IADsPathname exposed by
- // the CoClass Pathname. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoPathname = class
- class function Create: IADsPathname;
- class function CreateRemote(const MachineName: string): IADsPathname;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TPathname
- // Help String :
- // Default Interface: IADsPathname
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TPathnameProperties= class;
- {$ENDIF}
- TPathname = class(TOleServer)
- private
- FIntf: IADsPathname;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TPathnameProperties;
- function GetServerProperties: TPathnameProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsPathname;
- protected
- procedure InitServerData; override;
- function Get_EscapedMode: Integer;
- procedure Set_EscapedMode(retval: Integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsPathname);
- procedure Disconnect; override;
- procedure Set_(const bstrADsPath: WideString; lnSetType: Integer);
- procedure SetDisplayType(lnDisplayType: Integer);
- function Retrieve(lnFormatType: Integer): WideString;
- function GetNumElements: Integer;
- function GetElement(lnElementIndex: Integer): WideString;
- procedure AddLeafElement(const bstrLeafElement: WideString);
- procedure RemoveLeafElement;
- function CopyPath: IDispatch;
- function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
- property DefaultInterface: IADsPathname read GetDefaultInterface;
- property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TPathnameProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TPathname
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TPathnameProperties = class(TPersistent)
- private
- FServer: TPathname;
- function GetDefaultInterface: IADsPathname;
- constructor Create(AServer: TPathname);
- protected
- function Get_EscapedMode: Integer;
- procedure Set_EscapedMode(retval: Integer);
- public
- property DefaultInterface: IADsPathname read GetDefaultInterface;
- published
- property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoADSystemInfo provides a Create and CreateRemote method to
- // create instances of the default interface IADsADSystemInfo exposed by
- // the CoClass ADSystemInfo. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoADSystemInfo = class
- class function Create: IADsADSystemInfo;
- class function CreateRemote(const MachineName: string): IADsADSystemInfo;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TADSystemInfo
- // Help String :
- // Default Interface: IADsADSystemInfo
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TADSystemInfoProperties= class;
- {$ENDIF}
- TADSystemInfo = class(TOleServer)
- private
- FIntf: IADsADSystemInfo;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TADSystemInfoProperties;
- function GetServerProperties: TADSystemInfoProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsADSystemInfo;
- protected
- procedure InitServerData; override;
- function Get_UserName: WideString;
- function Get_ComputerName: WideString;
- function Get_SiteName: WideString;
- function Get_DomainShortName: WideString;
- function Get_DomainDNSName: WideString;
- function Get_ForestDNSName: WideString;
- function Get_PDCRoleOwner: WideString;
- function Get_SchemaRoleOwner: WideString;
- function Get_IsNativeMode: WordBool;
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsADSystemInfo);
- procedure Disconnect; override;
- function GetAnyDCName: WideString;
- function GetDCSiteName(const szServer: WideString): WideString;
- procedure RefreshSchemaCache;
- function GetTrees: OleVariant;
- property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
- property UserName: WideString read Get_UserName;
- property ComputerName: WideString read Get_ComputerName;
- property SiteName: WideString read Get_SiteName;
- property DomainShortName: WideString read Get_DomainShortName;
- property DomainDNSName: WideString read Get_DomainDNSName;
- property ForestDNSName: WideString read Get_ForestDNSName;
- property PDCRoleOwner: WideString read Get_PDCRoleOwner;
- property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
- property IsNativeMode: WordBool read Get_IsNativeMode;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TADSystemInfoProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TADSystemInfo
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TADSystemInfoProperties = class(TPersistent)
- private
- FServer: TADSystemInfo;
- function GetDefaultInterface: IADsADSystemInfo;
- constructor Create(AServer: TADSystemInfo);
- protected
- function Get_UserName: WideString;
- function Get_ComputerName: WideString;
- function Get_SiteName: WideString;
- function Get_DomainShortName: WideString;
- function Get_DomainDNSName: WideString;
- function Get_ForestDNSName: WideString;
- function Get_PDCRoleOwner: WideString;
- function Get_SchemaRoleOwner: WideString;
- function Get_IsNativeMode: WordBool;
- public
- property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
- published
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoWinNTSystemInfo provides a Create and CreateRemote method to
- // create instances of the default interface IADsWinNTSystemInfo exposed by
- // the CoClass WinNTSystemInfo. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoWinNTSystemInfo = class
- class function Create: IADsWinNTSystemInfo;
- class function CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TWinNTSystemInfo
- // Help String :
- // Default Interface: IADsWinNTSystemInfo
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TWinNTSystemInfoProperties= class;
- {$ENDIF}
- TWinNTSystemInfo = class(TOleServer)
- private
- FIntf: IADsWinNTSystemInfo;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TWinNTSystemInfoProperties;
- function GetServerProperties: TWinNTSystemInfoProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsWinNTSystemInfo;
- protected
- procedure InitServerData; override;
- function Get_UserName: WideString;
- function Get_ComputerName: WideString;
- function Get_DomainName: WideString;
- function Get_PDC: WideString;
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsWinNTSystemInfo);
- procedure Disconnect; override;
- property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
- property UserName: WideString read Get_UserName;
- property ComputerName: WideString read Get_ComputerName;
- property DomainName: WideString read Get_DomainName;
- property PDC: WideString read Get_PDC;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TWinNTSystemInfoProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TWinNTSystemInfo
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TWinNTSystemInfoProperties = class(TPersistent)
- private
- FServer: TWinNTSystemInfo;
- function GetDefaultInterface: IADsWinNTSystemInfo;
- constructor Create(AServer: TWinNTSystemInfo);
- protected
- function Get_UserName: WideString;
- function Get_ComputerName: WideString;
- function Get_DomainName: WideString;
- function Get_PDC: WideString;
- public
- property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
- published
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoDNWithBinary provides a Create and CreateRemote method to
- // create instances of the default interface IADsDNWithBinary exposed by
- // the CoClass DNWithBinary. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoDNWithBinary = class
- class function Create: IADsDNWithBinary;
- class function CreateRemote(const MachineName: string): IADsDNWithBinary;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TDNWithBinary
- // Help String :
- // Default Interface: IADsDNWithBinary
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TDNWithBinaryProperties= class;
- {$ENDIF}
- TDNWithBinary = class(TOleServer)
- private
- FIntf: IADsDNWithBinary;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TDNWithBinaryProperties;
- function GetServerProperties: TDNWithBinaryProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsDNWithBinary;
- protected
- procedure InitServerData; override;
- function Get_BinaryValue: OleVariant;
- procedure Set_BinaryValue(retval: OleVariant);
- function Get_DNString: WideString;
- procedure Set_DNString(const retval: WideString);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsDNWithBinary);
- procedure Disconnect; override;
- property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
- property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
- property DNString: WideString read Get_DNString write Set_DNString;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TDNWithBinaryProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TDNWithBinary
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TDNWithBinaryProperties = class(TPersistent)
- private
- FServer: TDNWithBinary;
- function GetDefaultInterface: IADsDNWithBinary;
- constructor Create(AServer: TDNWithBinary);
- protected
- function Get_BinaryValue: OleVariant;
- procedure Set_BinaryValue(retval: OleVariant);
- function Get_DNString: WideString;
- procedure Set_DNString(const retval: WideString);
- public
- property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
- published
- property DNString: WideString read Get_DNString write Set_DNString;
- end;
- {$ENDIF}
- // *********************************************************************//
- // The Class CoDNWithString provides a Create and CreateRemote method to
- // create instances of the default interface IADsDNWithString exposed by
- // the CoClass DNWithString. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoDNWithString = class
- class function Create: IADsDNWithString;
- class function CreateRemote(const MachineName: string): IADsDNWithString;
- end;
- // *********************************************************************//
- // OLE Server Proxy class declaration
- // Server Object : TDNWithString
- // Help String :
- // Default Interface: IADsDNWithString
- // Def. Intf. DISP? : No
- // Event Interface:
- // TypeFlags : (2) CanCreate
- // *********************************************************************//
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- TDNWithStringProperties= class;
- {$ENDIF}
- TDNWithString = class(TOleServer)
- private
- FIntf: IADsDNWithString;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps: TDNWithStringProperties;
- function GetServerProperties: TDNWithStringProperties;
- {$ENDIF}
- function GetDefaultInterface: IADsDNWithString;
- protected
- procedure InitServerData; override;
- function Get_StringValue: WideString;
- procedure Set_StringValue(const retval: WideString);
- function Get_DNString: WideString;
- procedure Set_DNString(const retval: WideString);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect; override;
- procedure ConnectTo(svrIntf: IADsDNWithString);
- procedure Disconnect; override;
- property DefaultInterface: IADsDNWithString read GetDefaultInterface;
- property StringValue: WideString read Get_StringValue write Set_StringValue;
- property DNString: WideString read Get_DNString write Set_DNString;
- published
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- property Server: TDNWithStringProperties read GetServerProperties;
- {$ENDIF}
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- // *********************************************************************//
- // OLE Server Properties Proxy Class
- // Server Object : TDNWithString
- // (This object is used by the IDE's Property Inspector to allow editing
- // of the properties of this server)
- // *********************************************************************//
- TDNWithStringProperties = class(TPersistent)
- private
- FServer: TDNWithString;
- function GetDefaultInterface: IADsDNWithString;
- constructor Create(AServer: TDNWithString);
- protected
- function Get_StringValue: WideString;
- procedure Set_StringValue(const retval: WideString);
- function Get_DNString: WideString;
- procedure Set_DNString(const retval: WideString);
- public
- property DefaultInterface: IADsDNWithString read GetDefaultInterface;
- published
- property StringValue: WideString read Get_StringValue write Set_StringValue;
- property DNString: WideString read Get_DNString write Set_DNString;
- end;
- {$ENDIF}
- procedure Register;
- implementation
- uses ComObj;
- class function CoPropertyEntry.Create: IADsPropertyEntry;
- begin
- Result := CreateComObject(CLASS_PropertyEntry) as IADsPropertyEntry;
- end;
- class function CoPropertyEntry.CreateRemote(const MachineName: string): IADsPropertyEntry;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_PropertyEntry) as IADsPropertyEntry;
- end;
- procedure TPropertyEntry.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
- IntfIID: '{05792C8E-941F-11D0-8529-00C04FD8D503}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TPropertyEntry.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsPropertyEntry;
- end;
- end;
- procedure TPropertyEntry.ConnectTo(svrIntf: IADsPropertyEntry);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TPropertyEntry.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TPropertyEntry.GetDefaultInterface: IADsPropertyEntry;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TPropertyEntry.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TPropertyEntryProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TPropertyEntry.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TPropertyEntry.GetServerProperties: TPropertyEntryProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TPropertyEntry.Get_Name: WideString;
- begin
- Result := DefaultInterface.Get_Name;
- end;
- procedure TPropertyEntry.Set_Name(const retval: WideString);
- begin
- DefaultInterface.Set_Name(retval);
- end;
- function TPropertyEntry.Get_ADsType: Integer;
- begin
- Result := DefaultInterface.Get_ADsType;
- end;
- procedure TPropertyEntry.Set_ADsType(retval: Integer);
- begin
- DefaultInterface.Set_ADsType(retval);
- end;
- function TPropertyEntry.Get_ControlCode: Integer;
- begin
- Result := DefaultInterface.Get_ControlCode;
- end;
- procedure TPropertyEntry.Set_ControlCode(retval: Integer);
- begin
- DefaultInterface.Set_ControlCode(retval);
- end;
- function TPropertyEntry.Get_Values: OleVariant;
- begin
- Result := DefaultInterface.Get_Values;
- end;
- procedure TPropertyEntry.Set_Values(retval: OleVariant);
- begin
- DefaultInterface.Set_Values(retval);
- end;
- procedure TPropertyEntry.Clear;
- begin
- DefaultInterface.Clear;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TPropertyEntryProperties.Create(AServer: TPropertyEntry);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TPropertyEntryProperties.GetDefaultInterface: IADsPropertyEntry;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TPropertyEntryProperties.Get_Name: WideString;
- begin
- Result := DefaultInterface.Get_Name;
- end;
- procedure TPropertyEntryProperties.Set_Name(const retval: WideString);
- begin
- DefaultInterface.Set_Name(retval);
- end;
- function TPropertyEntryProperties.Get_ADsType: Integer;
- begin
- Result := DefaultInterface.Get_ADsType;
- end;
- procedure TPropertyEntryProperties.Set_ADsType(retval: Integer);
- begin
- DefaultInterface.Set_ADsType(retval);
- end;
- function TPropertyEntryProperties.Get_ControlCode: Integer;
- begin
- Result := DefaultInterface.Get_ControlCode;
- end;
- procedure TPropertyEntryProperties.Set_ControlCode(retval: Integer);
- begin
- DefaultInterface.Set_ControlCode(retval);
- end;
- function TPropertyEntryProperties.Get_Values: OleVariant;
- begin
- Result := DefaultInterface.Get_Values;
- end;
- procedure TPropertyEntryProperties.Set_Values(retval: OleVariant);
- begin
- DefaultInterface.Set_Values(retval);
- end;
- {$ENDIF}
- class function CoPropertyValue.Create: IADsPropertyValue;
- begin
- Result := CreateComObject(CLASS_PropertyValue) as IADsPropertyValue;
- end;
- class function CoPropertyValue.CreateRemote(const MachineName: string): IADsPropertyValue;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_PropertyValue) as IADsPropertyValue;
- end;
- procedure TPropertyValue.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
- IntfIID: '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TPropertyValue.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsPropertyValue;
- end;
- end;
- procedure TPropertyValue.ConnectTo(svrIntf: IADsPropertyValue);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TPropertyValue.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TPropertyValue.GetDefaultInterface: IADsPropertyValue;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TPropertyValue.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TPropertyValueProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TPropertyValue.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TPropertyValue.GetServerProperties: TPropertyValueProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TPropertyValue.Get_ADsType: Integer;
- begin
- Result := DefaultInterface.Get_ADsType;
- end;
- procedure TPropertyValue.Set_ADsType(retval: Integer);
- begin
- DefaultInterface.Set_ADsType(retval);
- end;
- function TPropertyValue.Get_DNString: WideString;
- begin
- Result := DefaultInterface.Get_DNString;
- end;
- procedure TPropertyValue.Set_DNString(const retval: WideString);
- begin
- DefaultInterface.Set_DNString(retval);
- end;
- function TPropertyValue.Get_CaseExactString: WideString;
- begin
- Result := DefaultInterface.Get_CaseExactString;
- end;
- procedure TPropertyValue.Set_CaseExactString(const retval: WideString);
- begin
- DefaultInterface.Set_CaseExactString(retval);
- end;
- function TPropertyValue.Get_CaseIgnoreString: WideString;
- begin
- Result := DefaultInterface.Get_CaseIgnoreString;
- end;
- procedure TPropertyValue.Set_CaseIgnoreString(const retval: WideString);
- begin
- DefaultInterface.Set_CaseIgnoreString(retval);
- end;
- function TPropertyValue.Get_PrintableString: WideString;
- begin
- Result := DefaultInterface.Get_PrintableString;
- end;
- procedure TPropertyValue.Set_PrintableString(const retval: WideString);
- begin
- DefaultInterface.Set_PrintableString(retval);
- end;
- function TPropertyValue.Get_NumericString: WideString;
- begin
- Result := DefaultInterface.Get_NumericString;
- end;
- procedure TPropertyValue.Set_NumericString(const retval: WideString);
- begin
- DefaultInterface.Set_NumericString(retval);
- end;
- function TPropertyValue.Get_Boolean: Integer;
- begin
- Result := DefaultInterface.Get_Boolean;
- end;
- procedure TPropertyValue.Set_Boolean(retval: Integer);
- begin
- DefaultInterface.Set_Boolean(retval);
- end;
- function TPropertyValue.Get_Integer: Integer;
- begin
- Result := DefaultInterface.Get_Integer;
- end;
- procedure TPropertyValue.Set_Integer(retval: Integer);
- begin
- DefaultInterface.Set_Integer(retval);
- end;
- function TPropertyValue.Get_OctetString: OleVariant;
- begin
- Result := DefaultInterface.Get_OctetString;
- end;
- procedure TPropertyValue.Set_OctetString(retval: OleVariant);
- begin
- DefaultInterface.Set_OctetString(retval);
- end;
- function TPropertyValue.Get_SecurityDescriptor: IDispatch;
- begin
- Result := DefaultInterface.Get_SecurityDescriptor;
- end;
- procedure TPropertyValue.Set_SecurityDescriptor(const retval: IDispatch);
- begin
- DefaultInterface.Set_SecurityDescriptor(retval);
- end;
- function TPropertyValue.Get_LargeInteger: IDispatch;
- begin
- Result := DefaultInterface.Get_LargeInteger;
- end;
- procedure TPropertyValue.Set_LargeInteger(const retval: IDispatch);
- begin
- DefaultInterface.Set_LargeInteger(retval);
- end;
- function TPropertyValue.Get_UTCTime: TDateTime;
- begin
- Result := DefaultInterface.Get_UTCTime;
- end;
- procedure TPropertyValue.Set_UTCTime(retval: TDateTime);
- begin
- DefaultInterface.Set_UTCTime(retval);
- end;
- procedure TPropertyValue.Clear;
- begin
- DefaultInterface.Clear;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TPropertyValueProperties.Create(AServer: TPropertyValue);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TPropertyValueProperties.GetDefaultInterface: IADsPropertyValue;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TPropertyValueProperties.Get_ADsType: Integer;
- begin
- Result := DefaultInterface.Get_ADsType;
- end;
- procedure TPropertyValueProperties.Set_ADsType(retval: Integer);
- begin
- DefaultInterface.Set_ADsType(retval);
- end;
- function TPropertyValueProperties.Get_DNString: WideString;
- begin
- Result := DefaultInterface.Get_DNString;
- end;
- procedure TPropertyValueProperties.Set_DNString(const retval: WideString);
- begin
- DefaultInterface.Set_DNString(retval);
- end;
- function TPropertyValueProperties.Get_CaseExactString: WideString;
- begin
- Result := DefaultInterface.Get_CaseExactString;
- end;
- procedure TPropertyValueProperties.Set_CaseExactString(const retval: WideString);
- begin
- DefaultInterface.Set_CaseExactString(retval);
- end;
- function TPropertyValueProperties.Get_CaseIgnoreString: WideString;
- begin
- Result := DefaultInterface.Get_CaseIgnoreString;
- end;
- procedure TPropertyValueProperties.Set_CaseIgnoreString(const retval: WideString);
- begin
- DefaultInterface.Set_CaseIgnoreString(retval);
- end;
- function TPropertyValueProperties.Get_PrintableString: WideString;
- begin
- Result := DefaultInterface.Get_PrintableString;
- end;
- procedure TPropertyValueProperties.Set_PrintableString(const retval: WideString);
- begin
- DefaultInterface.Set_PrintableString(retval);
- end;
- function TPropertyValueProperties.Get_NumericString: WideString;
- begin
- Result := DefaultInterface.Get_NumericString;
- end;
- procedure TPropertyValueProperties.Set_NumericString(const retval: WideString);
- begin
- DefaultInterface.Set_NumericString(retval);
- end;
- function TPropertyValueProperties.Get_Boolean: Integer;
- begin
- Result := DefaultInterface.Get_Boolean;
- end;
- procedure TPropertyValueProperties.Set_Boolean(retval: Integer);
- begin
- DefaultInterface.Set_Boolean(retval);
- end;
- function TPropertyValueProperties.Get_Integer: Integer;
- begin
- Result := DefaultInterface.Get_Integer;
- end;
- procedure TPropertyValueProperties.Set_Integer(retval: Integer);
- begin
- DefaultInterface.Set_Integer(retval);
- end;
- function TPropertyValueProperties.Get_OctetString: OleVariant;
- begin
- Result := DefaultInterface.Get_OctetString;
- end;
- procedure TPropertyValueProperties.Set_OctetString(retval: OleVariant);
- begin
- DefaultInterface.Set_OctetString(retval);
- end;
- function TPropertyValueProperties.Get_SecurityDescriptor: IDispatch;
- begin
- Result := DefaultInterface.Get_SecurityDescriptor;
- end;
- procedure TPropertyValueProperties.Set_SecurityDescriptor(const retval: IDispatch);
- begin
- DefaultInterface.Set_SecurityDescriptor(retval);
- end;
- function TPropertyValueProperties.Get_LargeInteger: IDispatch;
- begin
- Result := DefaultInterface.Get_LargeInteger;
- end;
- procedure TPropertyValueProperties.Set_LargeInteger(const retval: IDispatch);
- begin
- DefaultInterface.Set_LargeInteger(retval);
- end;
- function TPropertyValueProperties.Get_UTCTime: TDateTime;
- begin
- Result := DefaultInterface.Get_UTCTime;
- end;
- procedure TPropertyValueProperties.Set_UTCTime(retval: TDateTime);
- begin
- DefaultInterface.Set_UTCTime(retval);
- end;
- {$ENDIF}
- class function CoAccessControlEntry.Create: IADsAccessControlEntry;
- begin
- Result := CreateComObject(CLASS_AccessControlEntry) as IADsAccessControlEntry;
- end;
- class function CoAccessControlEntry.CreateRemote(const MachineName: string): IADsAccessControlEntry;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_AccessControlEntry) as IADsAccessControlEntry;
- end;
- procedure TAccessControlEntry.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
- IntfIID: '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TAccessControlEntry.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsAccessControlEntry;
- end;
- end;
- procedure TAccessControlEntry.ConnectTo(svrIntf: IADsAccessControlEntry);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TAccessControlEntry.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TAccessControlEntry.GetDefaultInterface: IADsAccessControlEntry;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TAccessControlEntry.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TAccessControlEntryProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TAccessControlEntry.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TAccessControlEntry.GetServerProperties: TAccessControlEntryProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TAccessControlEntry.Get_AccessMask: Integer;
- begin
- Result := DefaultInterface.Get_AccessMask;
- end;
- procedure TAccessControlEntry.Set_AccessMask(retval: Integer);
- begin
- DefaultInterface.Set_AccessMask(retval);
- end;
- function TAccessControlEntry.Get_AceType: Integer;
- begin
- Result := DefaultInterface.Get_AceType;
- end;
- procedure TAccessControlEntry.Set_AceType(retval: Integer);
- begin
- DefaultInterface.Set_AceType(retval);
- end;
- function TAccessControlEntry.Get_AceFlags: Integer;
- begin
- Result := DefaultInterface.Get_AceFlags;
- end;
- procedure TAccessControlEntry.Set_AceFlags(retval: Integer);
- begin
- DefaultInterface.Set_AceFlags(retval);
- end;
- function TAccessControlEntry.Get_Flags: Integer;
- begin
- Result := DefaultInterface.Get_Flags;
- end;
- procedure TAccessControlEntry.Set_Flags(retval: Integer);
- begin
- DefaultInterface.Set_Flags(retval);
- end;
- function TAccessControlEntry.Get_ObjectType: WideString;
- begin
- Result := DefaultInterface.Get_ObjectType;
- end;
- procedure TAccessControlEntry.Set_ObjectType(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectType(retval);
- end;
- function TAccessControlEntry.Get_InheritedObjectType: WideString;
- begin
- Result := DefaultInterface.Get_InheritedObjectType;
- end;
- procedure TAccessControlEntry.Set_InheritedObjectType(const retval: WideString);
- begin
- DefaultInterface.Set_InheritedObjectType(retval);
- end;
- function TAccessControlEntry.Get_Trustee: WideString;
- begin
- Result := DefaultInterface.Get_Trustee;
- end;
- procedure TAccessControlEntry.Set_Trustee(const retval: WideString);
- begin
- DefaultInterface.Set_Trustee(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TAccessControlEntryProperties.Create(AServer: TAccessControlEntry);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TAccessControlEntryProperties.GetDefaultInterface: IADsAccessControlEntry;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TAccessControlEntryProperties.Get_AccessMask: Integer;
- begin
- Result := DefaultInterface.Get_AccessMask;
- end;
- procedure TAccessControlEntryProperties.Set_AccessMask(retval: Integer);
- begin
- DefaultInterface.Set_AccessMask(retval);
- end;
- function TAccessControlEntryProperties.Get_AceType: Integer;
- begin
- Result := DefaultInterface.Get_AceType;
- end;
- procedure TAccessControlEntryProperties.Set_AceType(retval: Integer);
- begin
- DefaultInterface.Set_AceType(retval);
- end;
- function TAccessControlEntryProperties.Get_AceFlags: Integer;
- begin
- Result := DefaultInterface.Get_AceFlags;
- end;
- procedure TAccessControlEntryProperties.Set_AceFlags(retval: Integer);
- begin
- DefaultInterface.Set_AceFlags(retval);
- end;
- function TAccessControlEntryProperties.Get_Flags: Integer;
- begin
- Result := DefaultInterface.Get_Flags;
- end;
- procedure TAccessControlEntryProperties.Set_Flags(retval: Integer);
- begin
- DefaultInterface.Set_Flags(retval);
- end;
- function TAccessControlEntryProperties.Get_ObjectType: WideString;
- begin
- Result := DefaultInterface.Get_ObjectType;
- end;
- procedure TAccessControlEntryProperties.Set_ObjectType(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectType(retval);
- end;
- function TAccessControlEntryProperties.Get_InheritedObjectType: WideString;
- begin
- Result := DefaultInterface.Get_InheritedObjectType;
- end;
- procedure TAccessControlEntryProperties.Set_InheritedObjectType(const retval: WideString);
- begin
- DefaultInterface.Set_InheritedObjectType(retval);
- end;
- function TAccessControlEntryProperties.Get_Trustee: WideString;
- begin
- Result := DefaultInterface.Get_Trustee;
- end;
- procedure TAccessControlEntryProperties.Set_Trustee(const retval: WideString);
- begin
- DefaultInterface.Set_Trustee(retval);
- end;
- {$ENDIF}
- class function CoAccessControlList.Create: IADsAccessControlList;
- begin
- Result := CreateComObject(CLASS_AccessControlList) as IADsAccessControlList;
- end;
- class function CoAccessControlList.CreateRemote(const MachineName: string): IADsAccessControlList;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_AccessControlList) as IADsAccessControlList;
- end;
- procedure TAccessControlList.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
- IntfIID: '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TAccessControlList.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsAccessControlList;
- end;
- end;
- procedure TAccessControlList.ConnectTo(svrIntf: IADsAccessControlList);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TAccessControlList.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TAccessControlList.GetDefaultInterface: IADsAccessControlList;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TAccessControlList.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TAccessControlListProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TAccessControlList.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TAccessControlList.GetServerProperties: TAccessControlListProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TAccessControlList.Get_AclRevision: Integer;
- begin
- Result := DefaultInterface.Get_AclRevision;
- end;
- procedure TAccessControlList.Set_AclRevision(retval: Integer);
- begin
- DefaultInterface.Set_AclRevision(retval);
- end;
- function TAccessControlList.Get_AceCount: Integer;
- begin
- Result := DefaultInterface.Get_AceCount;
- end;
- procedure TAccessControlList.Set_AceCount(retval: Integer);
- begin
- DefaultInterface.Set_AceCount(retval);
- end;
- procedure TAccessControlList.AddAce(const pAccessControlEntry: IDispatch);
- begin
- DefaultInterface.AddAce(pAccessControlEntry);
- end;
- procedure TAccessControlList.RemoveAce(const pAccessControlEntry: IDispatch);
- begin
- DefaultInterface.RemoveAce(pAccessControlEntry);
- end;
- function TAccessControlList.CopyAccessList: IDispatch;
- begin
- Result := DefaultInterface.CopyAccessList;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TAccessControlListProperties.Create(AServer: TAccessControlList);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TAccessControlListProperties.GetDefaultInterface: IADsAccessControlList;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TAccessControlListProperties.Get_AclRevision: Integer;
- begin
- Result := DefaultInterface.Get_AclRevision;
- end;
- procedure TAccessControlListProperties.Set_AclRevision(retval: Integer);
- begin
- DefaultInterface.Set_AclRevision(retval);
- end;
- function TAccessControlListProperties.Get_AceCount: Integer;
- begin
- Result := DefaultInterface.Get_AceCount;
- end;
- procedure TAccessControlListProperties.Set_AceCount(retval: Integer);
- begin
- DefaultInterface.Set_AceCount(retval);
- end;
- {$ENDIF}
- class function CoSecurityDescriptor.Create: IADsSecurityDescriptor;
- begin
- Result := CreateComObject(CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
- end;
- class function CoSecurityDescriptor.CreateRemote(const MachineName: string): IADsSecurityDescriptor;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
- end;
- procedure TSecurityDescriptor.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
- IntfIID: '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TSecurityDescriptor.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsSecurityDescriptor;
- end;
- end;
- procedure TSecurityDescriptor.ConnectTo(svrIntf: IADsSecurityDescriptor);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TSecurityDescriptor.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TSecurityDescriptor.GetDefaultInterface: IADsSecurityDescriptor;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TSecurityDescriptor.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TSecurityDescriptorProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TSecurityDescriptor.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TSecurityDescriptor.GetServerProperties: TSecurityDescriptorProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TSecurityDescriptor.Get_Revision: Integer;
- begin
- Result := DefaultInterface.Get_Revision;
- end;
- procedure TSecurityDescriptor.Set_Revision(retval: Integer);
- begin
- DefaultInterface.Set_Revision(retval);
- end;
- function TSecurityDescriptor.Get_Control: Integer;
- begin
- Result := DefaultInterface.Get_Control;
- end;
- procedure TSecurityDescriptor.Set_Control(retval: Integer);
- begin
- DefaultInterface.Set_Control(retval);
- end;
- function TSecurityDescriptor.Get_Owner: WideString;
- begin
- Result := DefaultInterface.Get_Owner;
- end;
- procedure TSecurityDescriptor.Set_Owner(const retval: WideString);
- begin
- DefaultInterface.Set_Owner(retval);
- end;
- function TSecurityDescriptor.Get_OwnerDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_OwnerDefaulted;
- end;
- procedure TSecurityDescriptor.Set_OwnerDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_OwnerDefaulted(retval);
- end;
- function TSecurityDescriptor.Get_Group: WideString;
- begin
- Result := DefaultInterface.Get_Group;
- end;
- procedure TSecurityDescriptor.Set_Group(const retval: WideString);
- begin
- DefaultInterface.Set_Group(retval);
- end;
- function TSecurityDescriptor.Get_GroupDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_GroupDefaulted;
- end;
- procedure TSecurityDescriptor.Set_GroupDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_GroupDefaulted(retval);
- end;
- function TSecurityDescriptor.Get_DiscretionaryAcl: IDispatch;
- begin
- Result := DefaultInterface.Get_DiscretionaryAcl;
- end;
- procedure TSecurityDescriptor.Set_DiscretionaryAcl(const retval: IDispatch);
- begin
- DefaultInterface.Set_DiscretionaryAcl(retval);
- end;
- function TSecurityDescriptor.Get_DaclDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_DaclDefaulted;
- end;
- procedure TSecurityDescriptor.Set_DaclDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_DaclDefaulted(retval);
- end;
- function TSecurityDescriptor.Get_SystemAcl: IDispatch;
- begin
- Result := DefaultInterface.Get_SystemAcl;
- end;
- procedure TSecurityDescriptor.Set_SystemAcl(const retval: IDispatch);
- begin
- DefaultInterface.Set_SystemAcl(retval);
- end;
- function TSecurityDescriptor.Get_SaclDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_SaclDefaulted;
- end;
- procedure TSecurityDescriptor.Set_SaclDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_SaclDefaulted(retval);
- end;
- function TSecurityDescriptor.CopySecurityDescriptor: IDispatch;
- begin
- Result := DefaultInterface.CopySecurityDescriptor;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TSecurityDescriptorProperties.Create(AServer: TSecurityDescriptor);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TSecurityDescriptorProperties.GetDefaultInterface: IADsSecurityDescriptor;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TSecurityDescriptorProperties.Get_Revision: Integer;
- begin
- Result := DefaultInterface.Get_Revision;
- end;
- procedure TSecurityDescriptorProperties.Set_Revision(retval: Integer);
- begin
- DefaultInterface.Set_Revision(retval);
- end;
- function TSecurityDescriptorProperties.Get_Control: Integer;
- begin
- Result := DefaultInterface.Get_Control;
- end;
- procedure TSecurityDescriptorProperties.Set_Control(retval: Integer);
- begin
- DefaultInterface.Set_Control(retval);
- end;
- function TSecurityDescriptorProperties.Get_Owner: WideString;
- begin
- Result := DefaultInterface.Get_Owner;
- end;
- procedure TSecurityDescriptorProperties.Set_Owner(const retval: WideString);
- begin
- DefaultInterface.Set_Owner(retval);
- end;
- function TSecurityDescriptorProperties.Get_OwnerDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_OwnerDefaulted;
- end;
- procedure TSecurityDescriptorProperties.Set_OwnerDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_OwnerDefaulted(retval);
- end;
- function TSecurityDescriptorProperties.Get_Group: WideString;
- begin
- Result := DefaultInterface.Get_Group;
- end;
- procedure TSecurityDescriptorProperties.Set_Group(const retval: WideString);
- begin
- DefaultInterface.Set_Group(retval);
- end;
- function TSecurityDescriptorProperties.Get_GroupDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_GroupDefaulted;
- end;
- procedure TSecurityDescriptorProperties.Set_GroupDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_GroupDefaulted(retval);
- end;
- function TSecurityDescriptorProperties.Get_DiscretionaryAcl: IDispatch;
- begin
- Result := DefaultInterface.Get_DiscretionaryAcl;
- end;
- procedure TSecurityDescriptorProperties.Set_DiscretionaryAcl(const retval: IDispatch);
- begin
- DefaultInterface.Set_DiscretionaryAcl(retval);
- end;
- function TSecurityDescriptorProperties.Get_DaclDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_DaclDefaulted;
- end;
- procedure TSecurityDescriptorProperties.Set_DaclDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_DaclDefaulted(retval);
- end;
- function TSecurityDescriptorProperties.Get_SystemAcl: IDispatch;
- begin
- Result := DefaultInterface.Get_SystemAcl;
- end;
- procedure TSecurityDescriptorProperties.Set_SystemAcl(const retval: IDispatch);
- begin
- DefaultInterface.Set_SystemAcl(retval);
- end;
- function TSecurityDescriptorProperties.Get_SaclDefaulted: WordBool;
- begin
- Result := DefaultInterface.Get_SaclDefaulted;
- end;
- procedure TSecurityDescriptorProperties.Set_SaclDefaulted(retval: WordBool);
- begin
- DefaultInterface.Set_SaclDefaulted(retval);
- end;
- {$ENDIF}
- class function CoLargeInteger.Create: IADsLargeInteger;
- begin
- Result := CreateComObject(CLASS_LargeInteger) as IADsLargeInteger;
- end;
- class function CoLargeInteger.CreateRemote(const MachineName: string): IADsLargeInteger;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_LargeInteger) as IADsLargeInteger;
- end;
- procedure TLargeInteger.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
- IntfIID: '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TLargeInteger.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsLargeInteger;
- end;
- end;
- procedure TLargeInteger.ConnectTo(svrIntf: IADsLargeInteger);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TLargeInteger.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TLargeInteger.GetDefaultInterface: IADsLargeInteger;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TLargeInteger.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TLargeIntegerProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TLargeInteger.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TLargeInteger.GetServerProperties: TLargeIntegerProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TLargeInteger.Get_HighPart: Integer;
- begin
- Result := DefaultInterface.Get_HighPart;
- end;
- procedure TLargeInteger.Set_HighPart(retval: Integer);
- begin
- DefaultInterface.Set_HighPart(retval);
- end;
- function TLargeInteger.Get_LowPart: Integer;
- begin
- Result := DefaultInterface.Get_LowPart;
- end;
- procedure TLargeInteger.Set_LowPart(retval: Integer);
- begin
- DefaultInterface.Set_LowPart(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TLargeIntegerProperties.Create(AServer: TLargeInteger);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TLargeIntegerProperties.GetDefaultInterface: IADsLargeInteger;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TLargeIntegerProperties.Get_HighPart: Integer;
- begin
- Result := DefaultInterface.Get_HighPart;
- end;
- procedure TLargeIntegerProperties.Set_HighPart(retval: Integer);
- begin
- DefaultInterface.Set_HighPart(retval);
- end;
- function TLargeIntegerProperties.Get_LowPart: Integer;
- begin
- Result := DefaultInterface.Get_LowPart;
- end;
- procedure TLargeIntegerProperties.Set_LowPart(retval: Integer);
- begin
- DefaultInterface.Set_LowPart(retval);
- end;
- {$ENDIF}
- class function CoNameTranslate.Create: IADsNameTranslate;
- begin
- Result := CreateComObject(CLASS_NameTranslate) as IADsNameTranslate;
- end;
- class function CoNameTranslate.CreateRemote(const MachineName: string): IADsNameTranslate;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_NameTranslate) as IADsNameTranslate;
- end;
- procedure TNameTranslate.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
- IntfIID: '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TNameTranslate.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsNameTranslate;
- end;
- end;
- procedure TNameTranslate.ConnectTo(svrIntf: IADsNameTranslate);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TNameTranslate.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TNameTranslate.GetDefaultInterface: IADsNameTranslate;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TNameTranslate.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TNameTranslateProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TNameTranslate.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TNameTranslate.GetServerProperties: TNameTranslateProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- procedure TNameTranslate.Set_ChaseReferral(Param1: Integer);
- begin
- DefaultInterface.Set_ChaseReferral(Param1);
- end;
- procedure TNameTranslate.Init(lnSetType: Integer; const bstrADsPath: WideString);
- begin
- DefaultInterface.Init(lnSetType, bstrADsPath);
- end;
- procedure TNameTranslate.InitEx(lnSetType: Integer; const bstrADsPath: WideString;
- const bstrUserID: WideString; const bstrDomain: WideString;
- const bstrPassword: WideString);
- begin
- DefaultInterface.InitEx(lnSetType, bstrADsPath, bstrUserID, bstrDomain, bstrPassword);
- end;
- procedure TNameTranslate.Set_(lnSetType: Integer; const bstrADsPath: WideString);
- begin
- DefaultInterface.Set_(lnSetType, bstrADsPath);
- end;
- function TNameTranslate.Get(lnFormatType: Integer): WideString;
- begin
- Result := DefaultInterface.Get(lnFormatType);
- end;
- procedure TNameTranslate.SetEx(lnFormatType: Integer; pVar: OleVariant);
- begin
- DefaultInterface.SetEx(lnFormatType, pVar);
- end;
- function TNameTranslate.GetEx(lnFormatType: Integer): OleVariant;
- begin
- Result := DefaultInterface.GetEx(lnFormatType);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TNameTranslateProperties.Create(AServer: TNameTranslate);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TNameTranslateProperties.GetDefaultInterface: IADsNameTranslate;
- begin
- Result := FServer.DefaultInterface;
- end;
- procedure TNameTranslateProperties.Set_ChaseReferral(Param1: Integer);
- begin
- DefaultInterface.Set_ChaseReferral(Param1);
- end;
- {$ENDIF}
- class function CoCaseIgnoreList.Create: IADsCaseIgnoreList;
- begin
- Result := CreateComObject(CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
- end;
- class function CoCaseIgnoreList.CreateRemote(const MachineName: string): IADsCaseIgnoreList;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
- end;
- procedure TCaseIgnoreList.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
- IntfIID: '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TCaseIgnoreList.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsCaseIgnoreList;
- end;
- end;
- procedure TCaseIgnoreList.ConnectTo(svrIntf: IADsCaseIgnoreList);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TCaseIgnoreList.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TCaseIgnoreList.GetDefaultInterface: IADsCaseIgnoreList;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TCaseIgnoreList.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TCaseIgnoreListProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TCaseIgnoreList.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TCaseIgnoreList.GetServerProperties: TCaseIgnoreListProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TCaseIgnoreList.Get_CaseIgnoreList: OleVariant;
- begin
- Result := DefaultInterface.Get_CaseIgnoreList;
- end;
- procedure TCaseIgnoreList.Set_CaseIgnoreList(retval: OleVariant);
- begin
- DefaultInterface.Set_CaseIgnoreList(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TCaseIgnoreListProperties.Create(AServer: TCaseIgnoreList);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TCaseIgnoreListProperties.GetDefaultInterface: IADsCaseIgnoreList;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TCaseIgnoreListProperties.Get_CaseIgnoreList: OleVariant;
- begin
- Result := DefaultInterface.Get_CaseIgnoreList;
- end;
- procedure TCaseIgnoreListProperties.Set_CaseIgnoreList(retval: OleVariant);
- begin
- DefaultInterface.Set_CaseIgnoreList(retval);
- end;
- {$ENDIF}
- class function CoFaxNumber.Create: IADsFaxNumber;
- begin
- Result := CreateComObject(CLASS_FaxNumber) as IADsFaxNumber;
- end;
- class function CoFaxNumber.CreateRemote(const MachineName: string): IADsFaxNumber;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_FaxNumber) as IADsFaxNumber;
- end;
- procedure TFaxNumber.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
- IntfIID: '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TFaxNumber.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsFaxNumber;
- end;
- end;
- procedure TFaxNumber.ConnectTo(svrIntf: IADsFaxNumber);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TFaxNumber.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TFaxNumber.GetDefaultInterface: IADsFaxNumber;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TFaxNumber.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TFaxNumberProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TFaxNumber.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TFaxNumber.GetServerProperties: TFaxNumberProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TFaxNumber.Get_TelephoneNumber: WideString;
- begin
- Result := DefaultInterface.Get_TelephoneNumber;
- end;
- procedure TFaxNumber.Set_TelephoneNumber(const retval: WideString);
- begin
- DefaultInterface.Set_TelephoneNumber(retval);
- end;
- function TFaxNumber.Get_Parameters: OleVariant;
- begin
- Result := DefaultInterface.Get_Parameters;
- end;
- procedure TFaxNumber.Set_Parameters(retval: OleVariant);
- begin
- DefaultInterface.Set_Parameters(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TFaxNumberProperties.Create(AServer: TFaxNumber);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TFaxNumberProperties.GetDefaultInterface: IADsFaxNumber;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TFaxNumberProperties.Get_TelephoneNumber: WideString;
- begin
- Result := DefaultInterface.Get_TelephoneNumber;
- end;
- procedure TFaxNumberProperties.Set_TelephoneNumber(const retval: WideString);
- begin
- DefaultInterface.Set_TelephoneNumber(retval);
- end;
- function TFaxNumberProperties.Get_Parameters: OleVariant;
- begin
- Result := DefaultInterface.Get_Parameters;
- end;
- procedure TFaxNumberProperties.Set_Parameters(retval: OleVariant);
- begin
- DefaultInterface.Set_Parameters(retval);
- end;
- {$ENDIF}
- class function CoNetAddress.Create: IADsNetAddress;
- begin
- Result := CreateComObject(CLASS_NetAddress) as IADsNetAddress;
- end;
- class function CoNetAddress.CreateRemote(const MachineName: string): IADsNetAddress;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_NetAddress) as IADsNetAddress;
- end;
- procedure TNetAddress.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
- IntfIID: '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TNetAddress.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsNetAddress;
- end;
- end;
- procedure TNetAddress.ConnectTo(svrIntf: IADsNetAddress);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TNetAddress.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TNetAddress.GetDefaultInterface: IADsNetAddress;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TNetAddress.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TNetAddressProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TNetAddress.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TNetAddress.GetServerProperties: TNetAddressProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TNetAddress.Get_AddressType: Integer;
- begin
- Result := DefaultInterface.Get_AddressType;
- end;
- procedure TNetAddress.Set_AddressType(retval: Integer);
- begin
- DefaultInterface.Set_AddressType(retval);
- end;
- function TNetAddress.Get_Address: OleVariant;
- begin
- Result := DefaultInterface.Get_Address;
- end;
- procedure TNetAddress.Set_Address(retval: OleVariant);
- begin
- DefaultInterface.Set_Address(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TNetAddressProperties.Create(AServer: TNetAddress);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TNetAddressProperties.GetDefaultInterface: IADsNetAddress;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TNetAddressProperties.Get_AddressType: Integer;
- begin
- Result := DefaultInterface.Get_AddressType;
- end;
- procedure TNetAddressProperties.Set_AddressType(retval: Integer);
- begin
- DefaultInterface.Set_AddressType(retval);
- end;
- function TNetAddressProperties.Get_Address: OleVariant;
- begin
- Result := DefaultInterface.Get_Address;
- end;
- procedure TNetAddressProperties.Set_Address(retval: OleVariant);
- begin
- DefaultInterface.Set_Address(retval);
- end;
- {$ENDIF}
- class function CoOctetList.Create: IADsOctetList;
- begin
- Result := CreateComObject(CLASS_OctetList) as IADsOctetList;
- end;
- class function CoOctetList.CreateRemote(const MachineName: string): IADsOctetList;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_OctetList) as IADsOctetList;
- end;
- procedure TOctetList.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
- IntfIID: '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TOctetList.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsOctetList;
- end;
- end;
- procedure TOctetList.ConnectTo(svrIntf: IADsOctetList);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TOctetList.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TOctetList.GetDefaultInterface: IADsOctetList;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TOctetList.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TOctetListProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TOctetList.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TOctetList.GetServerProperties: TOctetListProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TOctetList.Get_OctetList: OleVariant;
- begin
- Result := DefaultInterface.Get_OctetList;
- end;
- procedure TOctetList.Set_OctetList(retval: OleVariant);
- begin
- DefaultInterface.Set_OctetList(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TOctetListProperties.Create(AServer: TOctetList);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TOctetListProperties.GetDefaultInterface: IADsOctetList;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TOctetListProperties.Get_OctetList: OleVariant;
- begin
- Result := DefaultInterface.Get_OctetList;
- end;
- procedure TOctetListProperties.Set_OctetList(retval: OleVariant);
- begin
- DefaultInterface.Set_OctetList(retval);
- end;
- {$ENDIF}
- class function CoEmail.Create: IADsEmail;
- begin
- Result := CreateComObject(CLASS_Email) as IADsEmail;
- end;
- class function CoEmail.CreateRemote(const MachineName: string): IADsEmail;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_Email) as IADsEmail;
- end;
- procedure TEmail.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
- IntfIID: '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TEmail.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsEmail;
- end;
- end;
- procedure TEmail.ConnectTo(svrIntf: IADsEmail);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TEmail.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TEmail.GetDefaultInterface: IADsEmail;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TEmail.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TEmailProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TEmail.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TEmail.GetServerProperties: TEmailProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TEmail.Get_Type_: Integer;
- begin
- Result := DefaultInterface.Get_Type_;
- end;
- procedure TEmail.Set_Type_(retval: Integer);
- begin
- DefaultInterface.Set_Type_(retval);
- end;
- function TEmail.Get_Address: WideString;
- begin
- Result := DefaultInterface.Get_Address;
- end;
- procedure TEmail.Set_Address(const retval: WideString);
- begin
- DefaultInterface.Set_Address(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TEmailProperties.Create(AServer: TEmail);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TEmailProperties.GetDefaultInterface: IADsEmail;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TEmailProperties.Get_Type_: Integer;
- begin
- Result := DefaultInterface.Get_Type_;
- end;
- procedure TEmailProperties.Set_Type_(retval: Integer);
- begin
- DefaultInterface.Set_Type_(retval);
- end;
- function TEmailProperties.Get_Address: WideString;
- begin
- Result := DefaultInterface.Get_Address;
- end;
- procedure TEmailProperties.Set_Address(const retval: WideString);
- begin
- DefaultInterface.Set_Address(retval);
- end;
- {$ENDIF}
- class function CoPath.Create: IADsPath;
- begin
- Result := CreateComObject(CLASS_Path) as IADsPath;
- end;
- class function CoPath.CreateRemote(const MachineName: string): IADsPath;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_Path) as IADsPath;
- end;
- procedure TPath.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
- IntfIID: '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TPath.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsPath;
- end;
- end;
- procedure TPath.ConnectTo(svrIntf: IADsPath);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TPath.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TPath.GetDefaultInterface: IADsPath;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TPath.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TPathProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TPath.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TPath.GetServerProperties: TPathProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TPath.Get_Type_: Integer;
- begin
- Result := DefaultInterface.Get_Type_;
- end;
- procedure TPath.Set_Type_(retval: Integer);
- begin
- DefaultInterface.Set_Type_(retval);
- end;
- function TPath.Get_VolumeName: WideString;
- begin
- Result := DefaultInterface.Get_VolumeName;
- end;
- procedure TPath.Set_VolumeName(const retval: WideString);
- begin
- DefaultInterface.Set_VolumeName(retval);
- end;
- function TPath.Get_Path: WideString;
- begin
- Result := DefaultInterface.Get_Path;
- end;
- procedure TPath.Set_Path(const retval: WideString);
- begin
- DefaultInterface.Set_Path(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TPathProperties.Create(AServer: TPath);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TPathProperties.GetDefaultInterface: IADsPath;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TPathProperties.Get_Type_: Integer;
- begin
- Result := DefaultInterface.Get_Type_;
- end;
- procedure TPathProperties.Set_Type_(retval: Integer);
- begin
- DefaultInterface.Set_Type_(retval);
- end;
- function TPathProperties.Get_VolumeName: WideString;
- begin
- Result := DefaultInterface.Get_VolumeName;
- end;
- procedure TPathProperties.Set_VolumeName(const retval: WideString);
- begin
- DefaultInterface.Set_VolumeName(retval);
- end;
- function TPathProperties.Get_Path: WideString;
- begin
- Result := DefaultInterface.Get_Path;
- end;
- procedure TPathProperties.Set_Path(const retval: WideString);
- begin
- DefaultInterface.Set_Path(retval);
- end;
- {$ENDIF}
- class function CoReplicaPointer.Create: IADsReplicaPointer;
- begin
- Result := CreateComObject(CLASS_ReplicaPointer) as IADsReplicaPointer;
- end;
- class function CoReplicaPointer.CreateRemote(const MachineName: string): IADsReplicaPointer;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_ReplicaPointer) as IADsReplicaPointer;
- end;
- procedure TReplicaPointer.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
- IntfIID: '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TReplicaPointer.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsReplicaPointer;
- end;
- end;
- procedure TReplicaPointer.ConnectTo(svrIntf: IADsReplicaPointer);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TReplicaPointer.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TReplicaPointer.GetDefaultInterface: IADsReplicaPointer;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TReplicaPointer.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TReplicaPointerProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TReplicaPointer.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TReplicaPointer.GetServerProperties: TReplicaPointerProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TReplicaPointer.Get_ServerName: WideString;
- begin
- Result := DefaultInterface.Get_ServerName;
- end;
- procedure TReplicaPointer.Set_ServerName(const retval: WideString);
- begin
- DefaultInterface.Set_ServerName(retval);
- end;
- function TReplicaPointer.Get_ReplicaType: Integer;
- begin
- Result := DefaultInterface.Get_ReplicaType;
- end;
- procedure TReplicaPointer.Set_ReplicaType(retval: Integer);
- begin
- DefaultInterface.Set_ReplicaType(retval);
- end;
- function TReplicaPointer.Get_ReplicaNumber: Integer;
- begin
- Result := DefaultInterface.Get_ReplicaNumber;
- end;
- procedure TReplicaPointer.Set_ReplicaNumber(retval: Integer);
- begin
- DefaultInterface.Set_ReplicaNumber(retval);
- end;
- function TReplicaPointer.Get_Count: Integer;
- begin
- Result := DefaultInterface.Get_Count;
- end;
- procedure TReplicaPointer.Set_Count(retval: Integer);
- begin
- DefaultInterface.Set_Count(retval);
- end;
- function TReplicaPointer.Get_ReplicaAddressHints: OleVariant;
- begin
- Result := DefaultInterface.Get_ReplicaAddressHints;
- end;
- procedure TReplicaPointer.Set_ReplicaAddressHints(retval: OleVariant);
- begin
- DefaultInterface.Set_ReplicaAddressHints(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TReplicaPointerProperties.Create(AServer: TReplicaPointer);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TReplicaPointerProperties.GetDefaultInterface: IADsReplicaPointer;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TReplicaPointerProperties.Get_ServerName: WideString;
- begin
- Result := DefaultInterface.Get_ServerName;
- end;
- procedure TReplicaPointerProperties.Set_ServerName(const retval: WideString);
- begin
- DefaultInterface.Set_ServerName(retval);
- end;
- function TReplicaPointerProperties.Get_ReplicaType: Integer;
- begin
- Result := DefaultInterface.Get_ReplicaType;
- end;
- procedure TReplicaPointerProperties.Set_ReplicaType(retval: Integer);
- begin
- DefaultInterface.Set_ReplicaType(retval);
- end;
- function TReplicaPointerProperties.Get_ReplicaNumber: Integer;
- begin
- Result := DefaultInterface.Get_ReplicaNumber;
- end;
- procedure TReplicaPointerProperties.Set_ReplicaNumber(retval: Integer);
- begin
- DefaultInterface.Set_ReplicaNumber(retval);
- end;
- function TReplicaPointerProperties.Get_Count: Integer;
- begin
- Result := DefaultInterface.Get_Count;
- end;
- procedure TReplicaPointerProperties.Set_Count(retval: Integer);
- begin
- DefaultInterface.Set_Count(retval);
- end;
- function TReplicaPointerProperties.Get_ReplicaAddressHints: OleVariant;
- begin
- Result := DefaultInterface.Get_ReplicaAddressHints;
- end;
- procedure TReplicaPointerProperties.Set_ReplicaAddressHints(retval: OleVariant);
- begin
- DefaultInterface.Set_ReplicaAddressHints(retval);
- end;
- {$ENDIF}
- class function CoAcl.Create: IADsAcl;
- begin
- Result := CreateComObject(CLASS_Acl) as IADsAcl;
- end;
- class function CoAcl.CreateRemote(const MachineName: string): IADsAcl;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_Acl) as IADsAcl;
- end;
- procedure TAcl.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
- IntfIID: '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TAcl.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsAcl;
- end;
- end;
- procedure TAcl.ConnectTo(svrIntf: IADsAcl);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TAcl.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TAcl.GetDefaultInterface: IADsAcl;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TAcl.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TAclProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TAcl.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TAcl.GetServerProperties: TAclProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TAcl.Get_ProtectedAttrName: WideString;
- begin
- Result := DefaultInterface.Get_ProtectedAttrName;
- end;
- procedure TAcl.Set_ProtectedAttrName(const retval: WideString);
- begin
- DefaultInterface.Set_ProtectedAttrName(retval);
- end;
- function TAcl.Get_SubjectName: WideString;
- begin
- Result := DefaultInterface.Get_SubjectName;
- end;
- procedure TAcl.Set_SubjectName(const retval: WideString);
- begin
- DefaultInterface.Set_SubjectName(retval);
- end;
- function TAcl.Get_Privileges: Integer;
- begin
- Result := DefaultInterface.Get_Privileges;
- end;
- procedure TAcl.Set_Privileges(retval: Integer);
- begin
- DefaultInterface.Set_Privileges(retval);
- end;
- function TAcl.CopyAcl: IDispatch;
- begin
- Result := DefaultInterface.CopyAcl;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TAclProperties.Create(AServer: TAcl);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TAclProperties.GetDefaultInterface: IADsAcl;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TAclProperties.Get_ProtectedAttrName: WideString;
- begin
- Result := DefaultInterface.Get_ProtectedAttrName;
- end;
- procedure TAclProperties.Set_ProtectedAttrName(const retval: WideString);
- begin
- DefaultInterface.Set_ProtectedAttrName(retval);
- end;
- function TAclProperties.Get_SubjectName: WideString;
- begin
- Result := DefaultInterface.Get_SubjectName;
- end;
- procedure TAclProperties.Set_SubjectName(const retval: WideString);
- begin
- DefaultInterface.Set_SubjectName(retval);
- end;
- function TAclProperties.Get_Privileges: Integer;
- begin
- Result := DefaultInterface.Get_Privileges;
- end;
- procedure TAclProperties.Set_Privileges(retval: Integer);
- begin
- DefaultInterface.Set_Privileges(retval);
- end;
- {$ENDIF}
- class function CoTimestamp.Create: IADsTimestamp;
- begin
- Result := CreateComObject(CLASS_Timestamp) as IADsTimestamp;
- end;
- class function CoTimestamp.CreateRemote(const MachineName: string): IADsTimestamp;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_Timestamp) as IADsTimestamp;
- end;
- procedure TTimestamp.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
- IntfIID: '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TTimestamp.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsTimestamp;
- end;
- end;
- procedure TTimestamp.ConnectTo(svrIntf: IADsTimestamp);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TTimestamp.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TTimestamp.GetDefaultInterface: IADsTimestamp;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TTimestamp.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TTimestampProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TTimestamp.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TTimestamp.GetServerProperties: TTimestampProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TTimestamp.Get_WholeSeconds: Integer;
- begin
- Result := DefaultInterface.Get_WholeSeconds;
- end;
- procedure TTimestamp.Set_WholeSeconds(retval: Integer);
- begin
- DefaultInterface.Set_WholeSeconds(retval);
- end;
- function TTimestamp.Get_EventID: Integer;
- begin
- Result := DefaultInterface.Get_EventID;
- end;
- procedure TTimestamp.Set_EventID(retval: Integer);
- begin
- DefaultInterface.Set_EventID(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TTimestampProperties.Create(AServer: TTimestamp);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TTimestampProperties.GetDefaultInterface: IADsTimestamp;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TTimestampProperties.Get_WholeSeconds: Integer;
- begin
- Result := DefaultInterface.Get_WholeSeconds;
- end;
- procedure TTimestampProperties.Set_WholeSeconds(retval: Integer);
- begin
- DefaultInterface.Set_WholeSeconds(retval);
- end;
- function TTimestampProperties.Get_EventID: Integer;
- begin
- Result := DefaultInterface.Get_EventID;
- end;
- procedure TTimestampProperties.Set_EventID(retval: Integer);
- begin
- DefaultInterface.Set_EventID(retval);
- end;
- {$ENDIF}
- class function CoPostalAddress.Create: IADsPostalAddress;
- begin
- Result := CreateComObject(CLASS_PostalAddress) as IADsPostalAddress;
- end;
- class function CoPostalAddress.CreateRemote(const MachineName: string): IADsPostalAddress;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_PostalAddress) as IADsPostalAddress;
- end;
- procedure TPostalAddress.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
- IntfIID: '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TPostalAddress.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsPostalAddress;
- end;
- end;
- procedure TPostalAddress.ConnectTo(svrIntf: IADsPostalAddress);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TPostalAddress.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TPostalAddress.GetDefaultInterface: IADsPostalAddress;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TPostalAddress.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TPostalAddressProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TPostalAddress.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TPostalAddress.GetServerProperties: TPostalAddressProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TPostalAddress.Get_PostalAddress: OleVariant;
- begin
- Result := DefaultInterface.Get_PostalAddress;
- end;
- procedure TPostalAddress.Set_PostalAddress(retval: OleVariant);
- begin
- DefaultInterface.Set_PostalAddress(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TPostalAddressProperties.Create(AServer: TPostalAddress);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TPostalAddressProperties.GetDefaultInterface: IADsPostalAddress;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TPostalAddressProperties.Get_PostalAddress: OleVariant;
- begin
- Result := DefaultInterface.Get_PostalAddress;
- end;
- procedure TPostalAddressProperties.Set_PostalAddress(retval: OleVariant);
- begin
- DefaultInterface.Set_PostalAddress(retval);
- end;
- {$ENDIF}
- class function CoBackLink.Create: IADsBackLink;
- begin
- Result := CreateComObject(CLASS_BackLink) as IADsBackLink;
- end;
- class function CoBackLink.CreateRemote(const MachineName: string): IADsBackLink;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_BackLink) as IADsBackLink;
- end;
- procedure TBackLink.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
- IntfIID: '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TBackLink.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsBackLink;
- end;
- end;
- procedure TBackLink.ConnectTo(svrIntf: IADsBackLink);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TBackLink.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TBackLink.GetDefaultInterface: IADsBackLink;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TBackLink.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TBackLinkProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TBackLink.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TBackLink.GetServerProperties: TBackLinkProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TBackLink.Get_RemoteID: Integer;
- begin
- Result := DefaultInterface.Get_RemoteID;
- end;
- procedure TBackLink.Set_RemoteID(retval: Integer);
- begin
- DefaultInterface.Set_RemoteID(retval);
- end;
- function TBackLink.Get_ObjectName: WideString;
- begin
- Result := DefaultInterface.Get_ObjectName;
- end;
- procedure TBackLink.Set_ObjectName(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectName(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TBackLinkProperties.Create(AServer: TBackLink);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TBackLinkProperties.GetDefaultInterface: IADsBackLink;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TBackLinkProperties.Get_RemoteID: Integer;
- begin
- Result := DefaultInterface.Get_RemoteID;
- end;
- procedure TBackLinkProperties.Set_RemoteID(retval: Integer);
- begin
- DefaultInterface.Set_RemoteID(retval);
- end;
- function TBackLinkProperties.Get_ObjectName: WideString;
- begin
- Result := DefaultInterface.Get_ObjectName;
- end;
- procedure TBackLinkProperties.Set_ObjectName(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectName(retval);
- end;
- {$ENDIF}
- class function CoTypedName.Create: IADsTypedName;
- begin
- Result := CreateComObject(CLASS_TypedName) as IADsTypedName;
- end;
- class function CoTypedName.CreateRemote(const MachineName: string): IADsTypedName;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_TypedName) as IADsTypedName;
- end;
- procedure TTypedName.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
- IntfIID: '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TTypedName.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsTypedName;
- end;
- end;
- procedure TTypedName.ConnectTo(svrIntf: IADsTypedName);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TTypedName.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TTypedName.GetDefaultInterface: IADsTypedName;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TTypedName.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TTypedNameProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TTypedName.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TTypedName.GetServerProperties: TTypedNameProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TTypedName.Get_ObjectName: WideString;
- begin
- Result := DefaultInterface.Get_ObjectName;
- end;
- procedure TTypedName.Set_ObjectName(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectName(retval);
- end;
- function TTypedName.Get_Level: Integer;
- begin
- Result := DefaultInterface.Get_Level;
- end;
- procedure TTypedName.Set_Level(retval: Integer);
- begin
- DefaultInterface.Set_Level(retval);
- end;
- function TTypedName.Get_Interval: Integer;
- begin
- Result := DefaultInterface.Get_Interval;
- end;
- procedure TTypedName.Set_Interval(retval: Integer);
- begin
- DefaultInterface.Set_Interval(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TTypedNameProperties.Create(AServer: TTypedName);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TTypedNameProperties.GetDefaultInterface: IADsTypedName;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TTypedNameProperties.Get_ObjectName: WideString;
- begin
- Result := DefaultInterface.Get_ObjectName;
- end;
- procedure TTypedNameProperties.Set_ObjectName(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectName(retval);
- end;
- function TTypedNameProperties.Get_Level: Integer;
- begin
- Result := DefaultInterface.Get_Level;
- end;
- procedure TTypedNameProperties.Set_Level(retval: Integer);
- begin
- DefaultInterface.Set_Level(retval);
- end;
- function TTypedNameProperties.Get_Interval: Integer;
- begin
- Result := DefaultInterface.Get_Interval;
- end;
- procedure TTypedNameProperties.Set_Interval(retval: Integer);
- begin
- DefaultInterface.Set_Interval(retval);
- end;
- {$ENDIF}
- class function CoHold.Create: IADsHold;
- begin
- Result := CreateComObject(CLASS_Hold) as IADsHold;
- end;
- class function CoHold.CreateRemote(const MachineName: string): IADsHold;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_Hold) as IADsHold;
- end;
- procedure THold.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
- IntfIID: '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure THold.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsHold;
- end;
- end;
- procedure THold.ConnectTo(svrIntf: IADsHold);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure THold.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function THold.GetDefaultInterface: IADsHold;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor THold.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := THoldProperties.Create(Self);
- {$ENDIF}
- end;
- destructor THold.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function THold.GetServerProperties: THoldProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function THold.Get_ObjectName: WideString;
- begin
- Result := DefaultInterface.Get_ObjectName;
- end;
- procedure THold.Set_ObjectName(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectName(retval);
- end;
- function THold.Get_Amount: Integer;
- begin
- Result := DefaultInterface.Get_Amount;
- end;
- procedure THold.Set_Amount(retval: Integer);
- begin
- DefaultInterface.Set_Amount(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor THoldProperties.Create(AServer: THold);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function THoldProperties.GetDefaultInterface: IADsHold;
- begin
- Result := FServer.DefaultInterface;
- end;
- function THoldProperties.Get_ObjectName: WideString;
- begin
- Result := DefaultInterface.Get_ObjectName;
- end;
- procedure THoldProperties.Set_ObjectName(const retval: WideString);
- begin
- DefaultInterface.Set_ObjectName(retval);
- end;
- function THoldProperties.Get_Amount: Integer;
- begin
- Result := DefaultInterface.Get_Amount;
- end;
- procedure THoldProperties.Set_Amount(retval: Integer);
- begin
- DefaultInterface.Set_Amount(retval);
- end;
- {$ENDIF}
- class function CoPathname.Create: IADsPathname;
- begin
- Result := CreateComObject(CLASS_Pathname) as IADsPathname;
- end;
- class function CoPathname.CreateRemote(const MachineName: string): IADsPathname;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_Pathname) as IADsPathname;
- end;
- procedure TPathname.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
- IntfIID: '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TPathname.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsPathname;
- end;
- end;
- procedure TPathname.ConnectTo(svrIntf: IADsPathname);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TPathname.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TPathname.GetDefaultInterface: IADsPathname;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TPathname.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TPathnameProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TPathname.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TPathname.GetServerProperties: TPathnameProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TPathname.Get_EscapedMode: Integer;
- begin
- Result := DefaultInterface.Get_EscapedMode;
- end;
- procedure TPathname.Set_EscapedMode(retval: Integer);
- begin
- DefaultInterface.Set_EscapedMode(retval);
- end;
- procedure TPathname.Set_(const bstrADsPath: WideString; lnSetType: Integer);
- begin
- DefaultInterface.Set_(bstrADsPath, lnSetType);
- end;
- procedure TPathname.SetDisplayType(lnDisplayType: Integer);
- begin
- DefaultInterface.SetDisplayType(lnDisplayType);
- end;
- function TPathname.Retrieve(lnFormatType: Integer): WideString;
- begin
- Result := DefaultInterface.Retrieve(lnFormatType);
- end;
- function TPathname.GetNumElements: Integer;
- begin
- Result := DefaultInterface.GetNumElements;
- end;
- function TPathname.GetElement(lnElementIndex: Integer): WideString;
- begin
- Result := DefaultInterface.GetElement(lnElementIndex);
- end;
- procedure TPathname.AddLeafElement(const bstrLeafElement: WideString);
- begin
- DefaultInterface.AddLeafElement(bstrLeafElement);
- end;
- procedure TPathname.RemoveLeafElement;
- begin
- DefaultInterface.RemoveLeafElement;
- end;
- function TPathname.CopyPath: IDispatch;
- begin
- Result := DefaultInterface.CopyPath;
- end;
- function TPathname.GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
- begin
- Result := DefaultInterface.GetEscapedElement(lnReserved, bstrInStr);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TPathnameProperties.Create(AServer: TPathname);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TPathnameProperties.GetDefaultInterface: IADsPathname;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TPathnameProperties.Get_EscapedMode: Integer;
- begin
- Result := DefaultInterface.Get_EscapedMode;
- end;
- procedure TPathnameProperties.Set_EscapedMode(retval: Integer);
- begin
- DefaultInterface.Set_EscapedMode(retval);
- end;
- {$ENDIF}
- class function CoADSystemInfo.Create: IADsADSystemInfo;
- begin
- Result := CreateComObject(CLASS_ADSystemInfo) as IADsADSystemInfo;
- end;
- class function CoADSystemInfo.CreateRemote(const MachineName: string): IADsADSystemInfo;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_ADSystemInfo) as IADsADSystemInfo;
- end;
- procedure TADSystemInfo.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
- IntfIID: '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TADSystemInfo.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsADSystemInfo;
- end;
- end;
- procedure TADSystemInfo.ConnectTo(svrIntf: IADsADSystemInfo);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TADSystemInfo.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TADSystemInfo.GetDefaultInterface: IADsADSystemInfo;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TADSystemInfo.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TADSystemInfoProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TADSystemInfo.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TADSystemInfo.GetServerProperties: TADSystemInfoProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TADSystemInfo.Get_UserName: WideString;
- begin
- Result := DefaultInterface.Get_UserName;
- end;
- function TADSystemInfo.Get_ComputerName: WideString;
- begin
- Result := DefaultInterface.Get_ComputerName;
- end;
- function TADSystemInfo.Get_SiteName: WideString;
- begin
- Result := DefaultInterface.Get_SiteName;
- end;
- function TADSystemInfo.Get_DomainShortName: WideString;
- begin
- Result := DefaultInterface.Get_DomainShortName;
- end;
- function TADSystemInfo.Get_DomainDNSName: WideString;
- begin
- Result := DefaultInterface.Get_DomainDNSName;
- end;
- function TADSystemInfo.Get_ForestDNSName: WideString;
- begin
- Result := DefaultInterface.Get_ForestDNSName;
- end;
- function TADSystemInfo.Get_PDCRoleOwner: WideString;
- begin
- Result := DefaultInterface.Get_PDCRoleOwner;
- end;
- function TADSystemInfo.Get_SchemaRoleOwner: WideString;
- begin
- Result := DefaultInterface.Get_SchemaRoleOwner;
- end;
- function TADSystemInfo.Get_IsNativeMode: WordBool;
- begin
- Result := DefaultInterface.Get_IsNativeMode;
- end;
- function TADSystemInfo.GetAnyDCName: WideString;
- begin
- Result := DefaultInterface.GetAnyDCName;
- end;
- function TADSystemInfo.GetDCSiteName(const szServer: WideString): WideString;
- begin
- Result := DefaultInterface.GetDCSiteName(szServer);
- end;
- procedure TADSystemInfo.RefreshSchemaCache;
- begin
- DefaultInterface.RefreshSchemaCache;
- end;
- function TADSystemInfo.GetTrees: OleVariant;
- begin
- Result := DefaultInterface.GetTrees;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TADSystemInfoProperties.Create(AServer: TADSystemInfo);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TADSystemInfoProperties.GetDefaultInterface: IADsADSystemInfo;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TADSystemInfoProperties.Get_UserName: WideString;
- begin
- Result := DefaultInterface.Get_UserName;
- end;
- function TADSystemInfoProperties.Get_ComputerName: WideString;
- begin
- Result := DefaultInterface.Get_ComputerName;
- end;
- function TADSystemInfoProperties.Get_SiteName: WideString;
- begin
- Result := DefaultInterface.Get_SiteName;
- end;
- function TADSystemInfoProperties.Get_DomainShortName: WideString;
- begin
- Result := DefaultInterface.Get_DomainShortName;
- end;
- function TADSystemInfoProperties.Get_DomainDNSName: WideString;
- begin
- Result := DefaultInterface.Get_DomainDNSName;
- end;
- function TADSystemInfoProperties.Get_ForestDNSName: WideString;
- begin
- Result := DefaultInterface.Get_ForestDNSName;
- end;
- function TADSystemInfoProperties.Get_PDCRoleOwner: WideString;
- begin
- Result := DefaultInterface.Get_PDCRoleOwner;
- end;
- function TADSystemInfoProperties.Get_SchemaRoleOwner: WideString;
- begin
- Result := DefaultInterface.Get_SchemaRoleOwner;
- end;
- function TADSystemInfoProperties.Get_IsNativeMode: WordBool;
- begin
- Result := DefaultInterface.Get_IsNativeMode;
- end;
- {$ENDIF}
- class function CoWinNTSystemInfo.Create: IADsWinNTSystemInfo;
- begin
- Result := CreateComObject(CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
- end;
- class function CoWinNTSystemInfo.CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
- end;
- procedure TWinNTSystemInfo.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
- IntfIID: '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TWinNTSystemInfo.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsWinNTSystemInfo;
- end;
- end;
- procedure TWinNTSystemInfo.ConnectTo(svrIntf: IADsWinNTSystemInfo);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TWinNTSystemInfo.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TWinNTSystemInfo.GetDefaultInterface: IADsWinNTSystemInfo;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TWinNTSystemInfo.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TWinNTSystemInfoProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TWinNTSystemInfo.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TWinNTSystemInfo.GetServerProperties: TWinNTSystemInfoProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TWinNTSystemInfo.Get_UserName: WideString;
- begin
- Result := DefaultInterface.Get_UserName;
- end;
- function TWinNTSystemInfo.Get_ComputerName: WideString;
- begin
- Result := DefaultInterface.Get_ComputerName;
- end;
- function TWinNTSystemInfo.Get_DomainName: WideString;
- begin
- Result := DefaultInterface.Get_DomainName;
- end;
- function TWinNTSystemInfo.Get_PDC: WideString;
- begin
- Result := DefaultInterface.Get_PDC;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TWinNTSystemInfoProperties.Create(AServer: TWinNTSystemInfo);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TWinNTSystemInfoProperties.GetDefaultInterface: IADsWinNTSystemInfo;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TWinNTSystemInfoProperties.Get_UserName: WideString;
- begin
- Result := DefaultInterface.Get_UserName;
- end;
- function TWinNTSystemInfoProperties.Get_ComputerName: WideString;
- begin
- Result := DefaultInterface.Get_ComputerName;
- end;
- function TWinNTSystemInfoProperties.Get_DomainName: WideString;
- begin
- Result := DefaultInterface.Get_DomainName;
- end;
- function TWinNTSystemInfoProperties.Get_PDC: WideString;
- begin
- Result := DefaultInterface.Get_PDC;
- end;
- {$ENDIF}
- class function CoDNWithBinary.Create: IADsDNWithBinary;
- begin
- Result := CreateComObject(CLASS_DNWithBinary) as IADsDNWithBinary;
- end;
- class function CoDNWithBinary.CreateRemote(const MachineName: string): IADsDNWithBinary;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_DNWithBinary) as IADsDNWithBinary;
- end;
- procedure TDNWithBinary.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
- IntfIID: '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TDNWithBinary.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsDNWithBinary;
- end;
- end;
- procedure TDNWithBinary.ConnectTo(svrIntf: IADsDNWithBinary);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TDNWithBinary.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TDNWithBinary.GetDefaultInterface: IADsDNWithBinary;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TDNWithBinary.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TDNWithBinaryProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TDNWithBinary.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TDNWithBinary.GetServerProperties: TDNWithBinaryProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TDNWithBinary.Get_BinaryValue: OleVariant;
- begin
- Result := DefaultInterface.Get_BinaryValue;
- end;
- procedure TDNWithBinary.Set_BinaryValue(retval: OleVariant);
- begin
- DefaultInterface.Set_BinaryValue(retval);
- end;
- function TDNWithBinary.Get_DNString: WideString;
- begin
- Result := DefaultInterface.Get_DNString;
- end;
- procedure TDNWithBinary.Set_DNString(const retval: WideString);
- begin
- DefaultInterface.Set_DNString(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TDNWithBinaryProperties.Create(AServer: TDNWithBinary);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TDNWithBinaryProperties.GetDefaultInterface: IADsDNWithBinary;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TDNWithBinaryProperties.Get_BinaryValue: OleVariant;
- begin
- Result := DefaultInterface.Get_BinaryValue;
- end;
- procedure TDNWithBinaryProperties.Set_BinaryValue(retval: OleVariant);
- begin
- DefaultInterface.Set_BinaryValue(retval);
- end;
- function TDNWithBinaryProperties.Get_DNString: WideString;
- begin
- Result := DefaultInterface.Get_DNString;
- end;
- procedure TDNWithBinaryProperties.Set_DNString(const retval: WideString);
- begin
- DefaultInterface.Set_DNString(retval);
- end;
- {$ENDIF}
- class function CoDNWithString.Create: IADsDNWithString;
- begin
- Result := CreateComObject(CLASS_DNWithString) as IADsDNWithString;
- end;
- class function CoDNWithString.CreateRemote(const MachineName: string): IADsDNWithString;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_DNWithString) as IADsDNWithString;
- end;
- procedure TDNWithString.InitServerData;
- const
- CServerData: TServerData = (
- ClassID: '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
- IntfIID: '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
- EventIID: '';
- LicenseKey: nil;
- Version: 500);
- begin
- ServerData := @CServerData;
- end;
- procedure TDNWithString.Connect;
- var
- punk: IUnknown;
- begin
- if FIntf = nil then
- begin
- punk := GetServer;
- Fintf:= punk as IADsDNWithString;
- end;
- end;
- procedure TDNWithString.ConnectTo(svrIntf: IADsDNWithString);
- begin
- Disconnect;
- FIntf := svrIntf;
- end;
- procedure TDNWithString.DisConnect;
- begin
- if Fintf <> nil then
- begin
- FIntf := nil;
- end;
- end;
- function TDNWithString.GetDefaultInterface: IADsDNWithString;
- begin
- if FIntf = nil then
- Connect;
- Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
- Result := FIntf;
- end;
- constructor TDNWithString.Create(AOwner: TComponent);
- begin
- inherited Create(AOwner);
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps := TDNWithStringProperties.Create(Self);
- {$ENDIF}
- end;
- destructor TDNWithString.Destroy;
- begin
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- FProps.Free;
- {$ENDIF}
- inherited Destroy;
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- function TDNWithString.GetServerProperties: TDNWithStringProperties;
- begin
- Result := FProps;
- end;
- {$ENDIF}
- function TDNWithString.Get_StringValue: WideString;
- begin
- Result := DefaultInterface.Get_StringValue;
- end;
- procedure TDNWithString.Set_StringValue(const retval: WideString);
- begin
- DefaultInterface.Set_StringValue(retval);
- end;
- function TDNWithString.Get_DNString: WideString;
- begin
- Result := DefaultInterface.Get_DNString;
- end;
- procedure TDNWithString.Set_DNString(const retval: WideString);
- begin
- DefaultInterface.Set_DNString(retval);
- end;
- {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
- constructor TDNWithStringProperties.Create(AServer: TDNWithString);
- begin
- inherited Create;
- FServer := AServer;
- end;
- function TDNWithStringProperties.GetDefaultInterface: IADsDNWithString;
- begin
- Result := FServer.DefaultInterface;
- end;
- function TDNWithStringProperties.Get_StringValue: WideString;
- begin
- Result := DefaultInterface.Get_StringValue;
- end;
- procedure TDNWithStringProperties.Set_StringValue(const retval: WideString);
- begin
- DefaultInterface.Set_StringValue(retval);
- end;
- function TDNWithStringProperties.Get_DNString: WideString;
- begin
- Result := DefaultInterface.Get_DNString;
- end;
- procedure TDNWithStringProperties.Set_DNString(const retval: WideString);
- begin
- DefaultInterface.Set_DNString(retval);
- end;
- {$ENDIF}
- {$ifdef FPC} // dummy
- {
- function CreateComObject(ID: TGUID): IUnknown; //empty
- begin
- end;
- function CreateRemoteComObject(w:widestring; ID: TGUID): IUnknown; //empty
- begin
- end;
- }
- function tOleServer.GetServer:IUnknown;
- begin
- end;
- procedure tOleServer.InitServerData;
- begin
- end;
- constructor tOleServer.Create(AOwner: TComponent);
- begin
- end;
- Procedure tOleServer.Connect;
- begin
- end;
- procedure tOleServer.Disconnect;
- begin
- end;
- {$endif}
- procedure Register;
- begin
- RegisterComponents('ActiveX',[TPropertyEntry, TPropertyValue, TAccessControlEntry, TAccessControlList,
- TSecurityDescriptor, TLargeInteger, TNameTranslate, TCaseIgnoreList, TFaxNumber,
- TNetAddress, TOctetList, TEmail, TPath, TReplicaPointer,
- TAcl, TTimestamp, TPostalAddress, TBackLink, TTypedName,
- THold, TPathname, TADSystemInfo, TWinNTSystemInfo, TDNWithBinary,
- TDNWithString]);
- end;
- end.
|