jwaadstlb.pas 364 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818581958205821582258235824582558265827582858295830583158325833583458355836583758385839584058415842584358445845584658475848584958505851585258535854585558565857585858595860586158625863586458655866586758685869587058715872587358745875587658775878587958805881588258835884588558865887588858895890589158925893589458955896589758985899590059015902590359045905590659075908590959105911591259135914591559165917591859195920592159225923592459255926592759285929593059315932593359345935593659375938593959405941594259435944594559465947594859495950595159525953595459555956595759585959596059615962596359645965596659675968596959705971597259735974597559765977597859795980598159825983598459855986598759885989599059915992599359945995599659975998599960006001600260036004600560066007600860096010601160126013601460156016601760186019602060216022602360246025602660276028602960306031603260336034603560366037603860396040604160426043604460456046604760486049605060516052605360546055605660576058605960606061606260636064606560666067606860696070607160726073607460756076607760786079608060816082608360846085608660876088608960906091609260936094609560966097609860996100610161026103610461056106610761086109611061116112611361146115611661176118611961206121612261236124612561266127612861296130613161326133613461356136613761386139614061416142614361446145614661476148614961506151615261536154615561566157615861596160616161626163616461656166616761686169617061716172617361746175617661776178617961806181618261836184618561866187618861896190619161926193619461956196619761986199620062016202620362046205620662076208620962106211621262136214621562166217621862196220622162226223622462256226622762286229623062316232623362346235623662376238623962406241624262436244624562466247624862496250625162526253625462556256625762586259626062616262626362646265626662676268626962706271627262736274627562766277627862796280628162826283628462856286628762886289629062916292629362946295629662976298629963006301630263036304630563066307630863096310631163126313631463156316631763186319632063216322632363246325632663276328632963306331633263336334633563366337633863396340634163426343634463456346634763486349635063516352635363546355635663576358635963606361636263636364636563666367636863696370637163726373637463756376637763786379638063816382638363846385638663876388638963906391639263936394639563966397639863996400640164026403640464056406640764086409641064116412641364146415641664176418641964206421642264236424642564266427642864296430643164326433643464356436643764386439644064416442644364446445644664476448644964506451645264536454645564566457645864596460646164626463646464656466646764686469647064716472647364746475647664776478647964806481648264836484648564866487648864896490649164926493649464956496649764986499650065016502650365046505650665076508650965106511651265136514651565166517651865196520652165226523652465256526652765286529653065316532653365346535653665376538653965406541654265436544654565466547654865496550655165526553655465556556655765586559656065616562656365646565656665676568656965706571657265736574657565766577657865796580658165826583658465856586658765886589659065916592659365946595659665976598659966006601660266036604660566066607660866096610661166126613661466156616661766186619662066216622662366246625662666276628662966306631663266336634663566366637663866396640664166426643664466456646664766486649665066516652665366546655665666576658665966606661666266636664666566666667666866696670667166726673667466756676667766786679668066816682668366846685668666876688668966906691669266936694669566966697669866996700670167026703670467056706670767086709671067116712671367146715671667176718671967206721672267236724672567266727672867296730673167326733673467356736673767386739674067416742674367446745674667476748674967506751675267536754675567566757675867596760676167626763676467656766676767686769677067716772677367746775677667776778677967806781678267836784678567866787678867896790679167926793679467956796679767986799680068016802680368046805680668076808680968106811681268136814681568166817681868196820682168226823682468256826682768286829683068316832683368346835683668376838683968406841684268436844684568466847684868496850685168526853685468556856685768586859686068616862686368646865686668676868686968706871687268736874687568766877687868796880688168826883688468856886688768886889689068916892689368946895689668976898689969006901690269036904690569066907690869096910691169126913691469156916691769186919692069216922692369246925692669276928692969306931693269336934693569366937693869396940694169426943694469456946694769486949695069516952695369546955695669576958695969606961696269636964696569666967696869696970697169726973697469756976697769786979698069816982698369846985698669876988698969906991699269936994699569966997699869997000700170027003700470057006700770087009701070117012701370147015701670177018701970207021702270237024702570267027702870297030703170327033703470357036703770387039704070417042704370447045704670477048704970507051705270537054705570567057705870597060706170627063706470657066706770687069707070717072707370747075707670777078707970807081708270837084708570867087708870897090709170927093709470957096709770987099710071017102710371047105710671077108710971107111711271137114711571167117711871197120712171227123712471257126712771287129713071317132713371347135713671377138713971407141714271437144714571467147714871497150715171527153715471557156715771587159716071617162716371647165716671677168716971707171717271737174717571767177717871797180718171827183718471857186718771887189719071917192719371947195719671977198719972007201720272037204720572067207720872097210721172127213721472157216721772187219722072217222722372247225722672277228722972307231723272337234723572367237723872397240724172427243724472457246724772487249725072517252725372547255725672577258725972607261726272637264726572667267726872697270727172727273727472757276727772787279728072817282728372847285728672877288728972907291729272937294729572967297729872997300730173027303730473057306730773087309731073117312731373147315731673177318731973207321732273237324732573267327732873297330733173327333733473357336733773387339734073417342734373447345734673477348734973507351735273537354735573567357735873597360736173627363736473657366736773687369737073717372737373747375737673777378737973807381738273837384738573867387738873897390739173927393739473957396739773987399740074017402740374047405740674077408740974107411741274137414741574167417741874197420742174227423742474257426742774287429743074317432743374347435743674377438743974407441744274437444744574467447744874497450745174527453745474557456745774587459746074617462746374647465746674677468746974707471747274737474747574767477747874797480748174827483748474857486748774887489749074917492749374947495749674977498749975007501750275037504750575067507750875097510751175127513751475157516751775187519752075217522752375247525752675277528752975307531753275337534753575367537753875397540754175427543754475457546754775487549755075517552755375547555755675577558755975607561756275637564756575667567756875697570757175727573757475757576757775787579758075817582758375847585758675877588758975907591759275937594759575967597759875997600760176027603760476057606760776087609761076117612761376147615761676177618761976207621762276237624762576267627762876297630763176327633763476357636763776387639764076417642764376447645764676477648764976507651765276537654765576567657765876597660766176627663766476657666766776687669767076717672767376747675767676777678767976807681768276837684768576867687768876897690769176927693769476957696769776987699770077017702770377047705770677077708770977107711771277137714771577167717771877197720772177227723772477257726772777287729773077317732773377347735773677377738773977407741774277437744774577467747774877497750775177527753775477557756775777587759776077617762776377647765776677677768776977707771777277737774777577767777777877797780778177827783778477857786778777887789779077917792779377947795779677977798779978007801780278037804780578067807780878097810781178127813781478157816781778187819782078217822782378247825782678277828782978307831783278337834783578367837783878397840784178427843784478457846784778487849785078517852785378547855785678577858785978607861786278637864786578667867786878697870787178727873787478757876787778787879788078817882788378847885788678877888788978907891789278937894789578967897789878997900790179027903790479057906790779087909791079117912791379147915791679177918791979207921792279237924792579267927792879297930793179327933793479357936793779387939794079417942794379447945794679477948794979507951795279537954795579567957795879597960796179627963796479657966796779687969797079717972797379747975797679777978797979807981798279837984798579867987798879897990799179927993799479957996799779987999800080018002800380048005800680078008800980108011801280138014801580168017801880198020802180228023802480258026802780288029803080318032803380348035803680378038803980408041804280438044804580468047804880498050805180528053805480558056805780588059806080618062806380648065806680678068806980708071807280738074807580768077807880798080808180828083808480858086808780888089809080918092809380948095809680978098809981008101810281038104810581068107810881098110811181128113811481158116811781188119812081218122812381248125812681278128812981308131813281338134813581368137813881398140814181428143814481458146814781488149815081518152815381548155815681578158815981608161816281638164816581668167816881698170817181728173817481758176817781788179818081818182818381848185818681878188818981908191819281938194819581968197819881998200820182028203820482058206820782088209821082118212821382148215821682178218821982208221822282238224822582268227822882298230823182328233823482358236823782388239824082418242824382448245824682478248824982508251825282538254825582568257825882598260826182628263826482658266826782688269827082718272827382748275827682778278827982808281828282838284828582868287828882898290829182928293829482958296829782988299830083018302830383048305830683078308830983108311831283138314831583168317831883198320832183228323832483258326832783288329833083318332833383348335833683378338833983408341834283438344834583468347834883498350835183528353835483558356835783588359836083618362836383648365836683678368836983708371837283738374837583768377837883798380838183828383838483858386838783888389839083918392839383948395839683978398839984008401840284038404840584068407840884098410841184128413841484158416841784188419842084218422842384248425842684278428842984308431843284338434843584368437843884398440844184428443844484458446844784488449845084518452845384548455845684578458845984608461846284638464846584668467846884698470847184728473847484758476847784788479848084818482848384848485848684878488848984908491849284938494849584968497849884998500850185028503850485058506850785088509851085118512851385148515851685178518851985208521852285238524852585268527852885298530853185328533853485358536853785388539854085418542854385448545854685478548854985508551855285538554855585568557855885598560856185628563856485658566856785688569857085718572857385748575857685778578857985808581858285838584858585868587858885898590859185928593859485958596859785988599860086018602860386048605860686078608860986108611861286138614861586168617861886198620862186228623862486258626862786288629863086318632863386348635863686378638863986408641864286438644864586468647864886498650865186528653865486558656865786588659866086618662866386648665866686678668866986708671867286738674867586768677867886798680868186828683868486858686868786888689869086918692869386948695869686978698869987008701870287038704870587068707870887098710871187128713871487158716871787188719872087218722872387248725872687278728872987308731873287338734873587368737873887398740874187428743874487458746874787488749875087518752875387548755875687578758875987608761876287638764876587668767876887698770877187728773877487758776877787788779878087818782878387848785878687878788878987908791879287938794879587968797879887998800880188028803880488058806880788088809881088118812881388148815881688178818881988208821882288238824882588268827882888298830883188328833883488358836883788388839884088418842884388448845884688478848884988508851885288538854885588568857885888598860886188628863886488658866886788688869887088718872887388748875887688778878887988808881888288838884888588868887888888898890889188928893889488958896889788988899890089018902890389048905890689078908890989108911891289138914891589168917891889198920892189228923892489258926892789288929893089318932893389348935893689378938893989408941894289438944894589468947894889498950895189528953895489558956895789588959896089618962896389648965896689678968896989708971897289738974897589768977897889798980898189828983898489858986898789888989899089918992899389948995899689978998899990009001900290039004900590069007900890099010901190129013901490159016901790189019902090219022902390249025902690279028902990309031903290339034903590369037903890399040904190429043904490459046904790489049905090519052905390549055905690579058905990609061906290639064906590669067906890699070907190729073907490759076907790789079908090819082908390849085908690879088908990909091909290939094909590969097909890999100910191029103910491059106910791089109911091119112911391149115911691179118911991209121912291239124912591269127912891299130913191329133913491359136913791389139914091419142914391449145914691479148914991509151915291539154915591569157915891599160916191629163916491659166916791689169917091719172917391749175917691779178917991809181918291839184918591869187918891899190919191929193919491959196919791989199920092019202920392049205920692079208920992109211921292139214921592169217921892199220922192229223922492259226922792289229923092319232923392349235923692379238923992409241924292439244924592469247924892499250925192529253925492559256925792589259926092619262926392649265926692679268926992709271927292739274927592769277927892799280928192829283928492859286928792889289929092919292929392949295929692979298929993009301930293039304930593069307930893099310931193129313931493159316931793189319932093219322932393249325932693279328932993309331933293339334933593369337933893399340934193429343934493459346934793489349935093519352935393549355935693579358935993609361936293639364936593669367936893699370937193729373937493759376937793789379938093819382938393849385938693879388938993909391939293939394939593969397939893999400940194029403940494059406940794089409941094119412941394149415941694179418941994209421942294239424942594269427942894299430943194329433943494359436943794389439944094419442944394449445944694479448944994509451945294539454945594569457945894599460946194629463946494659466946794689469947094719472947394749475947694779478947994809481948294839484948594869487948894899490949194929493949494959496949794989499950095019502950395049505950695079508950995109511951295139514951595169517951895199520952195229523952495259526952795289529953095319532953395349535953695379538953995409541954295439544954595469547954895499550955195529553955495559556955795589559956095619562956395649565956695679568956995709571957295739574957595769577957895799580958195829583958495859586958795889589959095919592959395949595959695979598959996009601960296039604960596069607960896099610961196129613961496159616961796189619962096219622962396249625962696279628962996309631963296339634963596369637963896399640964196429643964496459646964796489649965096519652965396549655965696579658965996609661966296639664966596669667966896699670967196729673967496759676967796789679968096819682968396849685968696879688968996909691969296939694969596969697969896999700970197029703970497059706970797089709971097119712971397149715971697179718971997209721972297239724972597269727972897299730973197329733973497359736973797389739974097419742974397449745974697479748974997509751975297539754975597569757975897599760976197629763976497659766976797689769977097719772977397749775977697779778977997809781978297839784978597869787978897899790979197929793979497959796979797989799980098019802980398049805980698079808980998109811981298139814981598169817981898199820982198229823982498259826982798289829983098319832983398349835983698379838983998409841984298439844984598469847984898499850985198529853985498559856985798589859986098619862986398649865986698679868986998709871987298739874987598769877987898799880988198829883988498859886988798889889989098919892989398949895989698979898989999009901990299039904990599069907990899099910991199129913991499159916991799189919992099219922992399249925992699279928992999309931993299339934993599369937993899399940994199429943994499459946994799489949995099519952995399549955995699579958995999609961996299639964996599669967996899699970997199729973997499759976997799789979998099819982998399849985998699879988998999909991999299939994999599969997999899991000010001100021000310004100051000610007100081000910010100111001210013100141001510016100171001810019100201002110022100231002410025100261002710028100291003010031100321003310034100351003610037100381003910040100411004210043100441004510046100471004810049100501005110052100531005410055100561005710058100591006010061100621006310064100651006610067100681006910070100711007210073100741007510076100771007810079100801008110082100831008410085100861008710088100891009010091100921009310094100951009610097100981009910100101011010210103101041010510106101071010810109101101011110112101131011410115101161011710118101191012010121101221012310124101251012610127101281012910130101311013210133101341013510136101371013810139101401014110142101431014410145101461014710148101491015010151101521015310154101551015610157101581015910160101611016210163101641016510166101671016810169101701017110172101731017410175101761017710178101791018010181101821018310184101851018610187101881018910190101911019210193101941019510196101971019810199102001020110202102031020410205102061020710208102091021010211102121021310214102151021610217102181021910220102211022210223102241022510226102271022810229102301023110232102331023410235102361023710238102391024010241102421024310244102451024610247102481024910250102511025210253102541025510256102571025810259102601026110262102631026410265102661026710268102691027010271102721027310274102751027610277102781027910280102811028210283102841028510286102871028810289102901029110292102931029410295102961029710298102991030010301
  1. unit JwaAdsTLB;
  2. // ************************************************************************ //
  3. // WARNING
  4. // -------
  5. // The types declared in this file were generated from data read from a
  6. // Type Library. If this type library is explicitly or indirectly (via
  7. // another type library referring to this type library) re-imported, or the
  8. // 'Refresh' command of the Type Library Editor activated while editing the
  9. // Type Library, the contents of this file will be regenerated and all
  10. // manual modifications will be lost.
  11. // ************************************************************************ //
  12. // (rom) deactivated CVS string
  13. // PASTLWTR : Revision: 1.88.1.0.1.0
  14. // File generated on 9/25/2000 11:37:09 AM from Type Library described below.
  15. // *************************************************************************//
  16. // NOTE:
  17. // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
  18. // which return objects that may need to be explicitly created via a function
  19. // call prior to any access via the property. These items have been disabled
  20. // in order to prevent accidental use from within the object inspector. You
  21. // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
  22. // removing them from the $IFDEF blocks. However, such items must still be
  23. // programmatically created via a method of the appropriate CoClass before
  24. // they can be used.
  25. // ************************************************************************ //
  26. // Type Lib: C:\WINNT\system32\activeds.tlb (1)
  27. // IID\LCID: {97D25DB0-0363-11CF-ABC4-02608C9E7553}\0
  28. // Helpfile:
  29. // DepndLst:
  30. // (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
  31. // (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
  32. // Errors:
  33. // Hint: Member 'String' of '_ADS_CASEIGNORE_LIST' changed to 'String_'
  34. // Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0005' changed to 'Type_'
  35. // Hint: Member 'Type' of '__MIDL___MIDL_itf_ads_0000_0014' changed to 'Type_'
  36. // Hint: Member 'Class' of 'IADs' changed to 'Class_'
  37. // Hint: Member 'Set' of 'IADsNameTranslate' changed to 'Set_'
  38. // Hint: Member 'Type' of 'IADsEmail' changed to 'Type_'
  39. // Hint: Member 'Type' of 'IADsPath' changed to 'Type_'
  40. // Hint: Member 'Set' of 'IADsPathname' changed to 'Set_'
  41. // Error creating palette bitmap of (TPropertyEntry) : Server activeds.dll contains no icons
  42. // Error creating palette bitmap of (TPropertyValue) : Server activeds.dll contains no icons
  43. // Error creating palette bitmap of (TAccessControlEntry) : Server activeds.dll contains no icons
  44. // Error creating palette bitmap of (TAccessControlList) : Server activeds.dll contains no icons
  45. // Error creating palette bitmap of (TSecurityDescriptor) : Server activeds.dll contains no icons
  46. // Error creating palette bitmap of (TLargeInteger) : Server activeds.dll contains no icons
  47. // Error creating palette bitmap of (TNameTranslate) : Server activeds.dll contains no icons
  48. // Error creating palette bitmap of (TCaseIgnoreList) : Server activeds.dll contains no icons
  49. // Error creating palette bitmap of (TFaxNumber) : Server activeds.dll contains no icons
  50. // Error creating palette bitmap of (TNetAddress) : Server activeds.dll contains no icons
  51. // Error creating palette bitmap of (TOctetList) : Server activeds.dll contains no icons
  52. // Error creating palette bitmap of (TEmail) : Server activeds.dll contains no icons
  53. // Error creating palette bitmap of (TPath) : Server activeds.dll contains no icons
  54. // Error creating palette bitmap of (TReplicaPointer) : Server activeds.dll contains no icons
  55. // Error creating palette bitmap of (TAcl) : Server activeds.dll contains no icons
  56. // Error creating palette bitmap of (TTimestamp) : Server activeds.dll contains no icons
  57. // Error creating palette bitmap of (TPostalAddress) : Server activeds.dll contains no icons
  58. // Error creating palette bitmap of (TBackLink) : Server activeds.dll contains no icons
  59. // Error creating palette bitmap of (TTypedName) : Server activeds.dll contains no icons
  60. // Error creating palette bitmap of (THold) : Server activeds.dll contains no icons
  61. // Error creating palette bitmap of (TPathname) : Server activeds.dll contains no icons
  62. // Error creating palette bitmap of (TADSystemInfo) : Server activeds.dll contains no icons
  63. // Error creating palette bitmap of (TWinNTSystemInfo) : Server activeds.dll contains no icons
  64. // Error creating palette bitmap of (TDNWithBinary) : Server activeds.dll contains no icons
  65. // Error creating palette bitmap of (TDNWithString) : Server activeds.dll contains no icons
  66. // ************************************************************************ //
  67. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
  68. interface
  69. {$i jediapilib.inc}
  70. uses
  71. Windows, ActiveX, Classes {$IFNDEF NOVCL} ,Graphics, OleServer, OleCtrls, StdVCL {$ENDIF} ;
  72. {$IFDEF FPC}
  73. Type
  74. // Temporary dummies to get FPC working.
  75. TServerData= Record
  76. ClassID: TGUID;
  77. IntfIID: TGUID;
  78. EventIID: String; // probably TGUID too
  79. LicenseKey: pointer;
  80. Version: integer
  81. end;
  82. TOleServer = Class(TComponent) // for registercomponents to work
  83. private
  84. ServerData : ^TServerData;
  85. public
  86. function GetServer:IUnknown;
  87. procedure InitServerData; virtual;
  88. constructor Create(AOwner: TComponent); virtual;
  89. Procedure Connect; virtual;
  90. procedure Disconnect; virtual;
  91. end;
  92. SysUINT = Windows.UINT;
  93. SysINT = Windows.WINT;
  94. {$endif}
  95. // *********************************************************************//
  96. // GUIDS declared in the TypeLibrary. Following prefixes are used:
  97. // Type Libraries : LIBID_xxxx
  98. // CoClasses : CLASS_xxxx
  99. // DISPInterfaces : DIID_xxxx
  100. // Non-DISP interfaces: IID_xxxx
  101. // *********************************************************************//
  102. const
  103. // TypeLibrary Major and minor versions
  104. ActiveDsMajorVersion = 1;
  105. ActiveDsMinorVersion = 0;
  106. LIBID_ActiveDs: TGUID = '{97D25DB0-0363-11CF-ABC4-02608C9E7553}';
  107. IID_IADs: TGUID = '{FD8256D0-FD15-11CE-ABC4-02608C9E7553}';
  108. IID_IADsContainer: TGUID = '{001677D0-FD16-11CE-ABC4-02608C9E7553}';
  109. IID_IADsCollection: TGUID = '{72B945E0-253B-11CF-A988-00AA006BC149}';
  110. IID_IADsMembers: TGUID = '{451A0030-72EC-11CF-B03B-00AA006E0975}';
  111. IID_IADsPropertyList: TGUID = '{C6F602B6-8F69-11D0-8528-00C04FD8D503}';
  112. IID_IADsPropertyEntry: TGUID = '{05792C8E-941F-11D0-8529-00C04FD8D503}';
  113. CLASS_PropertyEntry: TGUID = '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
  114. IID_IADsPropertyValue: TGUID = '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
  115. IID_IADsPropertyValue2: TGUID = '{306E831C-5BC7-11D1-A3B8-00C04FB950DC}';
  116. CLASS_PropertyValue: TGUID = '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
  117. IID_IPrivateDispatch: TGUID = '{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}';
  118. IID_ITypeInfo: TGUID = '{00020401-0000-0000-C000-000000000046}';
  119. IID_ITypeComp: TGUID = '{00020403-0000-0000-C000-000000000046}';
  120. IID_ITypeLib: TGUID = '{00020402-0000-0000-C000-000000000046}';
  121. IID_IPrivateUnknown: TGUID = '{89126BAB-6EAD-11D1-8C18-00C04FD8D503}';
  122. IID_IADsExtension: TGUID = '{3D35553C-D2B0-11D1-B17B-0000F87593A0}';
  123. IID_IADsDeleteOps: TGUID = '{B2BD0902-8878-11D1-8C21-00C04FD8D503}';
  124. IID_IADsNamespaces: TGUID = '{28B96BA0-B330-11CF-A9AD-00AA006BC149}';
  125. IID_IADsClass: TGUID = '{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}';
  126. IID_IADsProperty: TGUID = '{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}';
  127. IID_IADsSyntax: TGUID = '{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}';
  128. IID_IADsLocality: TGUID = '{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}';
  129. IID_IADsO: TGUID = '{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}';
  130. IID_IADsOU: TGUID = '{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}';
  131. IID_IADsDomain: TGUID = '{00E4C220-FD16-11CE-ABC4-02608C9E7553}';
  132. IID_IADsComputer: TGUID = '{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}';
  133. IID_IADsComputerOperations: TGUID = '{EF497680-1D9F-11CF-B1F3-02608C9E7553}';
  134. IID_IADsGroup: TGUID = '{27636B00-410F-11CF-B1FF-02608C9E7553}';
  135. IID_IADsUser: TGUID = '{3E37E320-17E2-11CF-ABC4-02608C9E7553}';
  136. IID_IADsPrintQueue: TGUID = '{B15160D0-1226-11CF-A985-00AA006BC149}';
  137. IID_IADsPrintQueueOperations: TGUID = '{124BE5C0-156E-11CF-A986-00AA006BC149}';
  138. IID_IADsPrintJob: TGUID = '{32FB6780-1ED0-11CF-A988-00AA006BC149}';
  139. IID_IADsPrintJobOperations: TGUID = '{9A52DB30-1ECF-11CF-A988-00AA006BC149}';
  140. IID_IADsService: TGUID = '{68AF66E0-31CA-11CF-A98A-00AA006BC149}';
  141. IID_IADsServiceOperations: TGUID = '{5D7B33F0-31CA-11CF-A98A-00AA006BC149}';
  142. IID_IADsFileService: TGUID = '{A89D1900-31CA-11CF-A98A-00AA006BC149}';
  143. IID_IADsFileServiceOperations: TGUID = '{A02DED10-31CA-11CF-A98A-00AA006BC149}';
  144. IID_IADsFileShare: TGUID = '{EB6DCAF0-4B83-11CF-A995-00AA006BC149}';
  145. IID_IADsSession: TGUID = '{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}';
  146. IID_IADsResource: TGUID = '{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}';
  147. IID_IADsOpenDSObject: TGUID = '{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}';
  148. IID_IDirectoryObject: TGUID = '{E798DE2C-22E4-11D0-84FE-00C04FD8D503}';
  149. IID_IDirectorySearch: TGUID = '{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}';
  150. IID_IDirectorySchemaMgmt: TGUID = '{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}';
  151. IID_IADsAggregatee: TGUID = '{1346CE8C-9039-11D0-8528-00C04FD8D503}';
  152. IID_IADsAggregator: TGUID = '{52DB5FB0-941F-11D0-8529-00C04FD8D503}';
  153. IID_IADsAccessControlEntry: TGUID = '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
  154. CLASS_AccessControlEntry: TGUID = '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
  155. IID_IADsAccessControlList: TGUID = '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
  156. CLASS_AccessControlList: TGUID = '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
  157. IID_IADsSecurityDescriptor: TGUID = '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
  158. CLASS_SecurityDescriptor: TGUID = '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
  159. IID_IADsLargeInteger: TGUID = '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
  160. CLASS_LargeInteger: TGUID = '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
  161. IID_IADsNameTranslate: TGUID = '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
  162. CLASS_NameTranslate: TGUID = '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
  163. IID_IADsCaseIgnoreList: TGUID = '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
  164. CLASS_CaseIgnoreList: TGUID = '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
  165. IID_IADsFaxNumber: TGUID = '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
  166. CLASS_FaxNumber: TGUID = '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
  167. IID_IADsNetAddress: TGUID = '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
  168. CLASS_NetAddress: TGUID = '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
  169. IID_IADsOctetList: TGUID = '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
  170. CLASS_OctetList: TGUID = '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
  171. IID_IADsEmail: TGUID = '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
  172. CLASS_Email: TGUID = '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
  173. IID_IADsPath: TGUID = '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
  174. CLASS_Path: TGUID = '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
  175. IID_IADsReplicaPointer: TGUID = '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
  176. CLASS_ReplicaPointer: TGUID = '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
  177. IID_IADsAcl: TGUID = '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
  178. CLASS_Acl: TGUID = '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
  179. IID_IADsTimestamp: TGUID = '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
  180. CLASS_Timestamp: TGUID = '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
  181. IID_IADsPostalAddress: TGUID = '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
  182. CLASS_PostalAddress: TGUID = '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
  183. IID_IADsBackLink: TGUID = '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
  184. CLASS_BackLink: TGUID = '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
  185. IID_IADsTypedName: TGUID = '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
  186. CLASS_TypedName: TGUID = '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
  187. IID_IADsHold: TGUID = '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
  188. CLASS_Hold: TGUID = '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
  189. IID_IADsObjectOptions: TGUID = '{46F14FDA-232B-11D1-A808-00C04FD8D5A8}';
  190. IID_IADsPathname: TGUID = '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
  191. CLASS_Pathname: TGUID = '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
  192. IID_IADsADSystemInfo: TGUID = '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
  193. CLASS_ADSystemInfo: TGUID = '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
  194. IID_IADsWinNTSystemInfo: TGUID = '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
  195. CLASS_WinNTSystemInfo: TGUID = '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
  196. IID_IADsDNWithBinary: TGUID = '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
  197. CLASS_DNWithBinary: TGUID = '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
  198. IID_IADsDNWithString: TGUID = '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
  199. CLASS_DNWithString: TGUID = '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
  200. // *********************************************************************//
  201. // Declaration of Enumerations defined in Type Library
  202. // *********************************************************************//
  203. // Constants for enum __MIDL___MIDL_itf_ads_0000_0001
  204. type
  205. __MIDL___MIDL_itf_ads_0000_0001 = TOleEnum;
  206. const
  207. ADSTYPE_INVALID = $00000000;
  208. ADSTYPE_DN_STRING = $00000001;
  209. ADSTYPE_CASE_EXACT_STRING = $00000002;
  210. ADSTYPE_CASE_IGNORE_STRING = $00000003;
  211. ADSTYPE_PRINTABLE_STRING = $00000004;
  212. ADSTYPE_NUMERIC_STRING = $00000005;
  213. ADSTYPE_BOOLEAN = $00000006;
  214. ADSTYPE_INTEGER = $00000007;
  215. ADSTYPE_OCTET_STRING = $00000008;
  216. ADSTYPE_UTC_TIME = $00000009;
  217. ADSTYPE_LARGE_INTEGER = $0000000A;
  218. ADSTYPE_PROV_SPECIFIC = $0000000B;
  219. ADSTYPE_OBJECT_CLASS = $0000000C;
  220. ADSTYPE_CASEIGNORE_LIST = $0000000D;
  221. ADSTYPE_OCTET_LIST = $0000000E;
  222. ADSTYPE_PATH = $0000000F;
  223. ADSTYPE_POSTALADDRESS = $00000010;
  224. ADSTYPE_TIMESTAMP = $00000011;
  225. ADSTYPE_BACKLINK = $00000012;
  226. ADSTYPE_TYPEDNAME = $00000013;
  227. ADSTYPE_HOLD = $00000014;
  228. ADSTYPE_NETADDRESS = $00000015;
  229. ADSTYPE_REPLICAPOINTER = $00000016;
  230. ADSTYPE_FAXNUMBER = $00000017;
  231. ADSTYPE_EMAIL = $00000018;
  232. ADSTYPE_NT_SECURITY_DESCRIPTOR = $00000019;
  233. ADSTYPE_UNKNOWN = $0000001A;
  234. ADSTYPE_DN_WITH_BINARY = $0000001B;
  235. ADSTYPE_DN_WITH_STRING = $0000001C;
  236. // Constants for enum __MIDL___MIDL_itf_ads_0000_0018
  237. type
  238. __MIDL___MIDL_itf_ads_0000_0018 = TOleEnum;
  239. const
  240. ADS_SECURE_AUTHENTICATION = $00000001;
  241. ADS_USE_ENCRYPTION = $00000002;
  242. ADS_USE_SSL = $00000002;
  243. ADS_READONLY_SERVER = $00000004;
  244. ADS_PROMPT_CREDENTIALS = $00000008;
  245. ADS_NO_AUTHENTICATION = $00000010;
  246. ADS_FAST_BIND = $00000020;
  247. ADS_USE_SIGNING = $00000040;
  248. ADS_USE_SEALING = $00000080;
  249. ADS_USE_DELEGATION = $00000100;
  250. ADS_AUTH_RESERVED = $80000000;
  251. // Constants for enum __MIDL___MIDL_itf_ads_0000_0019
  252. type
  253. __MIDL___MIDL_itf_ads_0000_0019 = TOleEnum;
  254. const
  255. ADS_STATUS_S_OK = $00000000;
  256. ADS_STATUS_INVALID_SEARCHPREF = $00000001;
  257. ADS_STATUS_INVALID_SEARCHPREFVALUE = $00000002;
  258. // Constants for enum __MIDL___MIDL_itf_ads_0000_0020
  259. type
  260. __MIDL___MIDL_itf_ads_0000_0020 = TOleEnum;
  261. const
  262. ADS_DEREF_NEVER = $00000000;
  263. ADS_DEREF_SEARCHING = $00000001;
  264. ADS_DEREF_FINDING = $00000002;
  265. ADS_DEREF_ALWAYS = $00000003;
  266. // Constants for enum __MIDL___MIDL_itf_ads_0000_0021
  267. type
  268. __MIDL___MIDL_itf_ads_0000_0021 = TOleEnum;
  269. const
  270. ADS_SCOPE_BASE = $00000000;
  271. ADS_SCOPE_ONELEVEL = $00000001;
  272. ADS_SCOPE_SUBTREE = $00000002;
  273. // Constants for enum __MIDL___MIDL_itf_ads_0000_0022
  274. type
  275. __MIDL___MIDL_itf_ads_0000_0022 = TOleEnum;
  276. const
  277. ADSIPROP_ASYNCHRONOUS = $00000000;
  278. ADSIPROP_DEREF_ALIASES = $00000001;
  279. ADSIPROP_SIZE_LIMIT = $00000002;
  280. ADSIPROP_TIME_LIMIT = $00000003;
  281. ADSIPROP_ATTRIBTYPES_ONLY = $00000004;
  282. ADSIPROP_SEARCH_SCOPE = $00000005;
  283. ADSIPROP_TIMEOUT = $00000006;
  284. ADSIPROP_PAGESIZE = $00000007;
  285. ADSIPROP_PAGED_TIME_LIMIT = $00000008;
  286. ADSIPROP_CHASE_REFERRALS = $00000009;
  287. ADSIPROP_SORT_ON = $0000000A;
  288. ADSIPROP_CACHE_RESULTS = $0000000B;
  289. ADSIPROP_ADSIFLAG = $0000000C;
  290. // Constants for enum __MIDL___MIDL_itf_ads_0000_0023
  291. type
  292. __MIDL___MIDL_itf_ads_0000_0023 = TOleEnum;
  293. const
  294. ADSI_DIALECT_LDAP = $00000000;
  295. ADSI_DIALECT_SQL = $00000001;
  296. // Constants for enum __MIDL___MIDL_itf_ads_0000_0024
  297. type
  298. __MIDL___MIDL_itf_ads_0000_0024 = TOleEnum;
  299. const
  300. ADS_CHASE_REFERRALS_NEVER = $00000000;
  301. ADS_CHASE_REFERRALS_SUBORDINATE = $00000020;
  302. ADS_CHASE_REFERRALS_EXTERNAL = $00000040;
  303. ADS_CHASE_REFERRALS_ALWAYS = $00000060;
  304. // Constants for enum __MIDL___MIDL_itf_ads_0000_0025
  305. type
  306. __MIDL___MIDL_itf_ads_0000_0025 = TOleEnum;
  307. const
  308. ADS_SEARCHPREF_ASYNCHRONOUS = $00000000;
  309. ADS_SEARCHPREF_DEREF_ALIASES = $00000001;
  310. ADS_SEARCHPREF_SIZE_LIMIT = $00000002;
  311. ADS_SEARCHPREF_TIME_LIMIT = $00000003;
  312. ADS_SEARCHPREF_ATTRIBTYPES_ONLY = $00000004;
  313. ADS_SEARCHPREF_SEARCH_SCOPE = $00000005;
  314. ADS_SEARCHPREF_TIMEOUT = $00000006;
  315. ADS_SEARCHPREF_PAGESIZE = $00000007;
  316. ADS_SEARCHPREF_PAGED_TIME_LIMIT = $00000008;
  317. ADS_SEARCHPREF_CHASE_REFERRALS = $00000009;
  318. ADS_SEARCHPREF_SORT_ON = $0000000A;
  319. ADS_SEARCHPREF_CACHE_RESULTS = $0000000B;
  320. ADS_SEARCHPREF_DIRSYNC = $0000000C;
  321. ADS_SEARCHPREF_TOMBSTONE = $0000000D;
  322. // Constants for enum __MIDL___MIDL_itf_ads_0000_0026
  323. type
  324. __MIDL___MIDL_itf_ads_0000_0026 = TOleEnum;
  325. const
  326. ADS_PROPERTY_CLEAR = $00000001;
  327. ADS_PROPERTY_UPDATE = $00000002;
  328. ADS_PROPERTY_APPEND = $00000003;
  329. ADS_PROPERTY_DELETE = $00000004;
  330. // Constants for enum tagTYPEKIND
  331. type
  332. tagTYPEKIND = TOleEnum;
  333. const
  334. TKIND_ENUM = $00000000;
  335. TKIND_RECORD = $00000001;
  336. TKIND_MODULE = $00000002;
  337. TKIND_INTERFACE = $00000003;
  338. TKIND_DISPATCH = $00000004;
  339. TKIND_COCLASS = $00000005;
  340. TKIND_ALIAS = $00000006;
  341. TKIND_UNION = $00000007;
  342. TKIND_MAX = $00000008;
  343. // Constants for enum tagDESCKIND
  344. type
  345. tagDESCKIND = TOleEnum;
  346. const
  347. DESCKIND_NONE = $00000000;
  348. DESCKIND_FUNCDESC = $00000001;
  349. DESCKIND_VARDESC = $00000002;
  350. DESCKIND_TYPECOMP = $00000003;
  351. DESCKIND_IMPLICITAPPOBJ = $00000004;
  352. DESCKIND_MAX = $00000005;
  353. // Constants for enum tagFUNCKIND
  354. type
  355. tagFUNCKIND = TOleEnum;
  356. const
  357. FUNC_VIRTUAL = $00000000;
  358. FUNC_PUREVIRTUAL = $00000001;
  359. FUNC_NONVIRTUAL = $00000002;
  360. FUNC_STATIC = $00000003;
  361. FUNC_DISPATCH = $00000004;
  362. // Constants for enum tagINVOKEKIND
  363. type
  364. tagINVOKEKIND = TOleEnum;
  365. const
  366. INVOKE_FUNC = $00000001;
  367. INVOKE_PROPERTYGET = $00000002;
  368. INVOKE_PROPERTYPUT = $00000004;
  369. INVOKE_PROPERTYPUTREF = $00000008;
  370. // Constants for enum tagCALLCONV
  371. type
  372. tagCALLCONV = TOleEnum;
  373. const
  374. CC_FASTCALL = $00000000;
  375. CC_CDECL = $00000001;
  376. CC_MSCPASCAL = $00000002;
  377. CC_PASCAL = $00000002;
  378. CC_MACPASCAL = $00000003;
  379. CC_STDCALL = $00000004;
  380. CC_FPFASTCALL = $00000005;
  381. CC_SYSCALL = $00000006;
  382. CC_MPWCDECL = $00000007;
  383. CC_MPWPASCAL = $00000008;
  384. CC_MAX = $00000009;
  385. // Constants for enum tagVARKIND
  386. type
  387. tagVARKIND = TOleEnum;
  388. const
  389. VAR_PERINSTANCE = $00000000;
  390. VAR_STATIC = $00000001;
  391. VAR_CONST = $00000002;
  392. VAR_DISPATCH = $00000003;
  393. // Constants for enum tagSYSKIND
  394. type
  395. tagSYSKIND = TOleEnum;
  396. const
  397. SYS_WIN16 = $00000000;
  398. SYS_WIN32 = $00000001;
  399. SYS_MAC = $00000002;
  400. SYS_WIN64 = $00000001;
  401. // Constants for enum __MIDL___MIDL_itf_ads_0120_0001
  402. type
  403. __MIDL___MIDL_itf_ads_0120_0001 = TOleEnum;
  404. const
  405. ADS_SYSTEMFLAG_DISALLOW_DELETE = $80000000;
  406. ADS_SYSTEMFLAG_CONFIG_ALLOW_RENAME = $40000000;
  407. ADS_SYSTEMFLAG_CONFIG_ALLOW_MOVE = $20000000;
  408. ADS_SYSTEMFLAG_CONFIG_ALLOW_LIMITED_MOVE = $10000000;
  409. ADS_SYSTEMFLAG_DOMAIN_DISALLOW_RENAME = $08000000;
  410. ADS_SYSTEMFLAG_DOMAIN_DISALLOW_MOVE = $04000000;
  411. ADS_SYSTEMFLAG_CR_NTDS_NC = $00000001;
  412. ADS_SYSTEMFLAG_CR_NTDS_DOMAIN = $00000002;
  413. ADS_SYSTEMFLAG_ATTR_NOT_REPLICATED = $00000001;
  414. ADS_SYSTEMFLAG_ATTR_IS_CONSTRUCTED = $00000004;
  415. // Constants for enum __MIDL___MIDL_itf_ads_0126_0001
  416. type
  417. __MIDL___MIDL_itf_ads_0126_0001 = TOleEnum;
  418. const
  419. ADS_GROUP_TYPE_GLOBAL_GROUP = $00000002;
  420. ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = $00000004;
  421. ADS_GROUP_TYPE_LOCAL_GROUP = $00000004;
  422. ADS_GROUP_TYPE_UNIVERSAL_GROUP = $00000008;
  423. ADS_GROUP_TYPE_SECURITY_ENABLED = $80000000;
  424. // Constants for enum ADS_USER_FLAG
  425. type
  426. ADS_USER_FLAG = TOleEnum;
  427. const
  428. ADS_UF_SCRIPT = $00000001;
  429. ADS_UF_ACCOUNTDISABLE = $00000002;
  430. ADS_UF_HOMEDIR_REQUIRED = $00000008;
  431. ADS_UF_LOCKOUT = $00000010;
  432. ADS_UF_PASSWD_NOTREQD = $00000020;
  433. ADS_UF_PASSWD_CANT_CHANGE = $00000040;
  434. ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = $00000080;
  435. ADS_UF_TEMP_DUPLICATE_ACCOUNT = $00000100;
  436. ADS_UF_NORMAL_ACCOUNT = $00000200;
  437. ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = $00000800;
  438. ADS_UF_WORKSTATION_TRUST_ACCOUNT = $00001000;
  439. ADS_UF_SERVER_TRUST_ACCOUNT = $00002000;
  440. ADS_UF_DONT_EXPIRE_PASSWD = $00010000;
  441. ADS_UF_MNS_LOGON_ACCOUNT = $00020000;
  442. ADS_UF_SMARTCARD_REQUIRED = $00040000;
  443. ADS_UF_TRUSTED_FOR_DELEGATION = $00080000;
  444. ADS_UF_NOT_DELEGATED = $00100000;
  445. // Constants for enum __MIDL___MIDL_itf_ads_0148_0001
  446. type
  447. __MIDL___MIDL_itf_ads_0148_0001 = TOleEnum;
  448. const
  449. ADS_RIGHT_DELETE = $00010000;
  450. ADS_RIGHT_READ_CONTROL = $00020000;
  451. ADS_RIGHT_WRITE_DAC = $00040000;
  452. ADS_RIGHT_WRITE_OWNER = $00080000;
  453. ADS_RIGHT_SYNCHRONIZE = $00100000;
  454. ADS_RIGHT_ACCESS_SYSTEM_SECURITY = $01000000;
  455. ADS_RIGHT_GENERIC_READ = $80000000;
  456. ADS_RIGHT_GENERIC_WRITE = $40000000;
  457. ADS_RIGHT_GENERIC_EXECUTE = $20000000;
  458. ADS_RIGHT_GENERIC_ALL = $10000000;
  459. ADS_RIGHT_DS_CREATE_CHILD = $00000001;
  460. ADS_RIGHT_DS_DELETE_CHILD = $00000002;
  461. ADS_RIGHT_ACTRL_DS_LIST = $00000004;
  462. ADS_RIGHT_DS_SELF = $00000008;
  463. ADS_RIGHT_DS_READ_PROP = $00000010;
  464. ADS_RIGHT_DS_WRITE_PROP = $00000020;
  465. ADS_RIGHT_DS_DELETE_TREE = $00000040;
  466. ADS_RIGHT_DS_LIST_OBJECT = $00000080;
  467. ADS_RIGHT_DS_CONTROL_ACCESS = $00000100;
  468. // Constants for enum __MIDL___MIDL_itf_ads_0148_0002
  469. type
  470. __MIDL___MIDL_itf_ads_0148_0002 = TOleEnum;
  471. const
  472. ADS_ACETYPE_ACCESS_ALLOWED = $00000000;
  473. ADS_ACETYPE_ACCESS_DENIED = $00000001;
  474. ADS_ACETYPE_SYSTEM_AUDIT = $00000002;
  475. ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = $00000005;
  476. ADS_ACETYPE_ACCESS_DENIED_OBJECT = $00000006;
  477. ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = $00000007;
  478. // Constants for enum __MIDL___MIDL_itf_ads_0148_0003
  479. type
  480. __MIDL___MIDL_itf_ads_0148_0003 = TOleEnum;
  481. const
  482. ADS_ACEFLAG_INHERIT_ACE = $00000002;
  483. ADS_ACEFLAG_NO_PROPAGATE_INHERIT_ACE = $00000004;
  484. ADS_ACEFLAG_INHERIT_ONLY_ACE = $00000008;
  485. ADS_ACEFLAG_INHERITED_ACE = $00000010;
  486. ADS_ACEFLAG_VALID_INHERIT_FLAGS = $0000001F;
  487. ADS_ACEFLAG_SUCCESSFUL_ACCESS = $00000040;
  488. ADS_ACEFLAG_FAILED_ACCESS = $00000080;
  489. // Constants for enum __MIDL___MIDL_itf_ads_0148_0004
  490. type
  491. __MIDL___MIDL_itf_ads_0148_0004 = TOleEnum;
  492. const
  493. ADS_FLAG_OBJECT_TYPE_PRESENT = $00000001;
  494. ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = $00000002;
  495. // Constants for enum __MIDL___MIDL_itf_ads_0148_0005
  496. type
  497. __MIDL___MIDL_itf_ads_0148_0005 = TOleEnum;
  498. const
  499. ADS_SD_CONTROL_SE_OWNER_DEFAULTED = $00000001;
  500. ADS_SD_CONTROL_SE_GROUP_DEFAULTED = $00000002;
  501. ADS_SD_CONTROL_SE_DACL_PRESENT = $00000004;
  502. ADS_SD_CONTROL_SE_DACL_DEFAULTED = $00000008;
  503. ADS_SD_CONTROL_SE_SACL_PRESENT = $00000010;
  504. ADS_SD_CONTROL_SE_SACL_DEFAULTED = $00000020;
  505. ADS_SD_CONTROL_SE_DACL_AUTO_INHERIT_REQ = $00000100;
  506. ADS_SD_CONTROL_SE_SACL_AUTO_INHERIT_REQ = $00000200;
  507. ADS_SD_CONTROL_SE_DACL_AUTO_INHERITED = $00000400;
  508. ADS_SD_CONTROL_SE_SACL_AUTO_INHERITED = $00000800;
  509. ADS_SD_CONTROL_SE_DACL_PROTECTED = $00001000;
  510. ADS_SD_CONTROL_SE_SACL_PROTECTED = $00002000;
  511. ADS_SD_CONTROL_SE_SELF_RELATIVE = $00008000;
  512. // Constants for enum __MIDL___MIDL_itf_ads_0148_0006
  513. type
  514. __MIDL___MIDL_itf_ads_0148_0006 = TOleEnum;
  515. const
  516. ADS_SD_REVISION_DS = $00000004;
  517. // Constants for enum __MIDL___MIDL_itf_ads_0149_0001
  518. type
  519. __MIDL___MIDL_itf_ads_0149_0001 = TOleEnum;
  520. const
  521. ADS_NAME_TYPE_1779 = $00000001;
  522. ADS_NAME_TYPE_CANONICAL = $00000002;
  523. ADS_NAME_TYPE_NT4 = $00000003;
  524. ADS_NAME_TYPE_DISPLAY = $00000004;
  525. ADS_NAME_TYPE_DOMAIN_SIMPLE = $00000005;
  526. ADS_NAME_TYPE_ENTERPRISE_SIMPLE = $00000006;
  527. ADS_NAME_TYPE_GUID = $00000007;
  528. ADS_NAME_TYPE_UNKNOWN = $00000008;
  529. ADS_NAME_TYPE_USER_PRINCIPAL_NAME = $00000009;
  530. ADS_NAME_TYPE_CANONICAL_EX = $0000000A;
  531. ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME = $0000000B;
  532. ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME = $0000000C;
  533. // Constants for enum __MIDL___MIDL_itf_ads_0149_0002
  534. type
  535. __MIDL___MIDL_itf_ads_0149_0002 = TOleEnum;
  536. const
  537. ADS_NAME_INITTYPE_DOMAIN = $00000001;
  538. ADS_NAME_INITTYPE_SERVER = $00000002;
  539. ADS_NAME_INITTYPE_GC = $00000003;
  540. // Constants for enum __MIDL___MIDL_itf_ads_0163_0001
  541. type
  542. __MIDL___MIDL_itf_ads_0163_0001 = TOleEnum;
  543. const
  544. ADS_OPTION_SERVERNAME = $00000000;
  545. ADS_OPTION_REFERRALS = $00000001;
  546. ADS_OPTION_PAGE_SIZE = $00000002;
  547. ADS_OPTION_SECURITY_MASK = $00000003;
  548. ADS_OPTION_MUTUAL_AUTH_STATUS = $00000004;
  549. // Constants for enum __MIDL___MIDL_itf_ads_0163_0002
  550. type
  551. __MIDL___MIDL_itf_ads_0163_0002 = TOleEnum;
  552. const
  553. ADS_SECURITY_INFO_OWNER = $00000001;
  554. ADS_SECURITY_INFO_GROUP = $00000002;
  555. ADS_SECURITY_INFO_DACL = $00000004;
  556. ADS_SECURITY_INFO_SACL = $00000008;
  557. // Constants for enum __MIDL___MIDL_itf_ads_0164_0001
  558. type
  559. __MIDL___MIDL_itf_ads_0164_0001 = TOleEnum;
  560. const
  561. ADS_SETTYPE_FULL = $00000001;
  562. ADS_SETTYPE_PROVIDER = $00000002;
  563. ADS_SETTYPE_SERVER = $00000003;
  564. ADS_SETTYPE_DN = $00000004;
  565. // Constants for enum __MIDL___MIDL_itf_ads_0164_0002
  566. type
  567. __MIDL___MIDL_itf_ads_0164_0002 = TOleEnum;
  568. const
  569. ADS_FORMAT_WINDOWS = $00000001;
  570. ADS_FORMAT_WINDOWS_NO_SERVER = $00000002;
  571. ADS_FORMAT_WINDOWS_DN = $00000003;
  572. ADS_FORMAT_WINDOWS_PARENT = $00000004;
  573. ADS_FORMAT_X500 = $00000005;
  574. ADS_FORMAT_X500_NO_SERVER = $00000006;
  575. ADS_FORMAT_X500_DN = $00000007;
  576. ADS_FORMAT_X500_PARENT = $00000008;
  577. ADS_FORMAT_SERVER = $00000009;
  578. ADS_FORMAT_PROVIDER = $0000000A;
  579. ADS_FORMAT_LEAF = $0000000B;
  580. // Constants for enum __MIDL___MIDL_itf_ads_0164_0003
  581. type
  582. __MIDL___MIDL_itf_ads_0164_0003 = TOleEnum;
  583. const
  584. ADS_DISPLAY_FULL = $00000001;
  585. ADS_DISPLAY_VALUE_ONLY = $00000002;
  586. // Constants for enum __MIDL___MIDL_itf_ads_0164_0004
  587. type
  588. __MIDL___MIDL_itf_ads_0164_0004 = TOleEnum;
  589. const
  590. ADS_ESCAPEDMODE_DEFAULT = $00000001;
  591. ADS_ESCAPEDMODE_ON = $00000002;
  592. ADS_ESCAPEDMODE_OFF = $00000003;
  593. ADS_ESCAPEDMODE_OFF_EX = $00000004;
  594. type
  595. // *********************************************************************//
  596. // Forward declaration of types defined in TypeLibrary
  597. // *********************************************************************//
  598. IADs = interface;
  599. {$ifdef SUPPORTS_DISPINTERFACE}
  600. IADsDisp = dispinterface;
  601. {$endif}
  602. IADsContainer = interface;
  603. {$ifdef SUPPORTS_DISPINTERFACE}
  604. IADsContainerDisp = dispinterface;
  605. {$endif}
  606. IADsCollection = interface;
  607. {$ifdef SUPPORTS_DISPINTERFACE}
  608. IADsCollectionDisp = dispinterface;
  609. {$endif}
  610. IADsMembers = interface;
  611. {$ifdef SUPPORTS_DISPINTERFACE}
  612. IADsMembersDisp = dispinterface;
  613. {$endif}
  614. IADsPropertyList = interface;
  615. {$ifdef SUPPORTS_DISPINTERFACE}
  616. IADsPropertyListDisp = dispinterface;
  617. {$endif}
  618. IADsPropertyEntry = interface;
  619. {$ifdef SUPPORTS_DISPINTERFACE}
  620. IADsPropertyEntryDisp = dispinterface;
  621. {$endif}
  622. IADsPropertyValue = interface;
  623. {$ifdef SUPPORTS_DISPINTERFACE}
  624. IADsPropertyValueDisp = dispinterface;
  625. {$endif}
  626. IADsPropertyValue2 = interface;
  627. {$ifdef SUPPORTS_DISPINTERFACE}
  628. IADsPropertyValue2Disp = dispinterface;
  629. {$endif}
  630. IPrivateDispatch = interface;
  631. ITypeInfo = interface;
  632. ITypeComp = interface;
  633. ITypeLib = interface;
  634. IPrivateUnknown = interface;
  635. IADsExtension = interface;
  636. IADsDeleteOps = interface;
  637. {$ifdef SUPPORTS_DISPINTERFACE}
  638. IADsDeleteOpsDisp = dispinterface;
  639. {$endif}
  640. IADsNamespaces = interface;
  641. {$ifdef SUPPORTS_DISPINTERFACE}
  642. IADsNamespacesDisp = dispinterface;
  643. {$endif}
  644. IADsClass = interface;
  645. {$ifdef SUPPORTS_DISPINTERFACE}
  646. IADsClassDisp = dispinterface;
  647. {$endif}
  648. IADsProperty = interface;
  649. {$ifdef SUPPORTS_DISPINTERFACE}
  650. IADsPropertyDisp = dispinterface;
  651. {$endif}
  652. IADsSyntax = interface;
  653. {$ifdef SUPPORTS_DISPINTERFACE}
  654. IADsSyntaxDisp = dispinterface;
  655. {$endif}
  656. IADsLocality = interface;
  657. {$ifdef SUPPORTS_DISPINTERFACE}
  658. IADsLocalityDisp = dispinterface;
  659. {$endif}
  660. IADsO = interface;
  661. {$ifdef SUPPORTS_DISPINTERFACE}
  662. IADsODisp = dispinterface;
  663. {$endif}
  664. IADsOU = interface;
  665. {$ifdef SUPPORTS_DISPINTERFACE}
  666. IADsOUDisp = dispinterface;
  667. {$endif}
  668. IADsDomain = interface;
  669. {$ifdef SUPPORTS_DISPINTERFACE}
  670. IADsDomainDisp = dispinterface;
  671. {$endif}
  672. IADsComputer = interface;
  673. {$ifdef SUPPORTS_DISPINTERFACE}
  674. IADsComputerDisp = dispinterface;
  675. {$endif}
  676. IADsComputerOperations = interface;
  677. {$ifdef SUPPORTS_DISPINTERFACE}
  678. IADsComputerOperationsDisp = dispinterface;
  679. {$endif}
  680. IADsGroup = interface;
  681. {$ifdef SUPPORTS_DISPINTERFACE}
  682. IADsGroupDisp = dispinterface;
  683. {$endif}
  684. IADsUser = interface;
  685. {$ifdef SUPPORTS_DISPINTERFACE}
  686. IADsUserDisp = dispinterface;
  687. {$endif}
  688. IADsPrintQueue = interface;
  689. {$ifdef SUPPORTS_DISPINTERFACE}
  690. IADsPrintQueueDisp = dispinterface;
  691. {$endif}
  692. IADsPrintQueueOperations = interface;
  693. {$ifdef SUPPORTS_DISPINTERFACE}
  694. IADsPrintQueueOperationsDisp = dispinterface;
  695. {$endif}
  696. IADsPrintJob = interface;
  697. {$ifdef SUPPORTS_DISPINTERFACE}
  698. IADsPrintJobDisp = dispinterface;
  699. {$endif}
  700. IADsPrintJobOperations = interface;
  701. {$ifdef SUPPORTS_DISPINTERFACE}
  702. IADsPrintJobOperationsDisp = dispinterface;
  703. {$endif}
  704. IADsService = interface;
  705. {$ifdef SUPPORTS_DISPINTERFACE}
  706. IADsServiceDisp = dispinterface;
  707. {$endif}
  708. IADsServiceOperations = interface;
  709. {$ifdef SUPPORTS_DISPINTERFACE}
  710. IADsServiceOperationsDisp = dispinterface;
  711. {$endif}
  712. IADsFileService = interface;
  713. {$ifdef SUPPORTS_DISPINTERFACE}
  714. IADsFileServiceDisp = dispinterface;
  715. {$endif}
  716. IADsFileServiceOperations = interface;
  717. {$ifdef SUPPORTS_DISPINTERFACE}
  718. IADsFileServiceOperationsDisp = dispinterface;
  719. {$endif}
  720. IADsFileShare = interface;
  721. {$ifdef SUPPORTS_DISPINTERFACE}
  722. IADsFileShareDisp = dispinterface;
  723. {$endif}
  724. IADsSession = interface;
  725. {$ifdef SUPPORTS_DISPINTERFACE}
  726. IADsSessionDisp = dispinterface;
  727. {$endif}
  728. IADsResource = interface;
  729. {$ifdef SUPPORTS_DISPINTERFACE}
  730. IADsResourceDisp = dispinterface;
  731. {$endif}
  732. IADsOpenDSObject = interface;
  733. {$ifdef SUPPORTS_DISPINTERFACE}
  734. IADsOpenDSObjectDisp = dispinterface;
  735. {$endif}
  736. IDirectoryObject = interface;
  737. IDirectorySearch = interface;
  738. IDirectorySchemaMgmt = interface;
  739. IADsAggregatee = interface;
  740. IADsAggregator = interface;
  741. IADsAccessControlEntry = interface;
  742. {$ifdef SUPPORTS_DISPINTERFACE}
  743. IADsAccessControlEntryDisp = dispinterface;
  744. {$endif}
  745. IADsAccessControlList = interface;
  746. {$ifdef SUPPORTS_DISPINTERFACE}
  747. IADsAccessControlListDisp = dispinterface;
  748. {$endif}
  749. IADsSecurityDescriptor = interface;
  750. {$ifdef SUPPORTS_DISPINTERFACE}
  751. IADsSecurityDescriptorDisp = dispinterface;
  752. {$endif}
  753. IADsLargeInteger = interface;
  754. {$ifdef SUPPORTS_DISPINTERFACE}
  755. IADsLargeIntegerDisp = dispinterface;
  756. {$endif}
  757. IADsNameTranslate = interface;
  758. {$ifdef SUPPORTS_DISPINTERFACE}
  759. IADsNameTranslateDisp = dispinterface;
  760. {$endif}
  761. IADsCaseIgnoreList = interface;
  762. {$ifdef SUPPORTS_DISPINTERFACE}
  763. IADsCaseIgnoreListDisp = dispinterface;
  764. {$endif}
  765. IADsFaxNumber = interface;
  766. {$ifdef SUPPORTS_DISPINTERFACE}
  767. IADsFaxNumberDisp = dispinterface;
  768. {$endif}
  769. IADsNetAddress = interface;
  770. {$ifdef SUPPORTS_DISPINTERFACE}
  771. IADsNetAddressDisp = dispinterface;
  772. {$endif}
  773. IADsOctetList = interface;
  774. {$ifdef SUPPORTS_DISPINTERFACE}
  775. IADsOctetListDisp = dispinterface;
  776. {$endif}
  777. IADsEmail = interface;
  778. {$ifdef SUPPORTS_DISPINTERFACE}
  779. IADsEmailDisp = dispinterface;
  780. {$endif}
  781. IADsPath = interface;
  782. {$ifdef SUPPORTS_DISPINTERFACE}
  783. IADsPathDisp = dispinterface;
  784. {$endif}
  785. IADsReplicaPointer = interface;
  786. {$ifdef SUPPORTS_DISPINTERFACE}
  787. IADsReplicaPointerDisp = dispinterface;
  788. {$endif}
  789. IADsAcl = interface;
  790. {$ifdef SUPPORTS_DISPINTERFACE}
  791. IADsAclDisp = dispinterface;
  792. {$endif}
  793. IADsTimestamp = interface;
  794. {$ifdef SUPPORTS_DISPINTERFACE}
  795. IADsTimestampDisp = dispinterface;
  796. {$endif}
  797. IADsPostalAddress = interface;
  798. {$ifdef SUPPORTS_DISPINTERFACE}
  799. IADsPostalAddressDisp = dispinterface;
  800. {$endif}
  801. IADsBackLink = interface;
  802. {$ifdef SUPPORTS_DISPINTERFACE}
  803. IADsBackLinkDisp = dispinterface;
  804. {$endif}
  805. IADsTypedName = interface;
  806. {$ifdef SUPPORTS_DISPINTERFACE}
  807. IADsTypedNameDisp = dispinterface;
  808. {$endif}
  809. IADsHold = interface;
  810. {$ifdef SUPPORTS_DISPINTERFACE}
  811. IADsHoldDisp = dispinterface;
  812. {$endif}
  813. IADsObjectOptions = interface;
  814. {$ifdef SUPPORTS_DISPINTERFACE}
  815. IADsObjectOptionsDisp = dispinterface;
  816. {$endif}
  817. IADsPathname = interface;
  818. {$ifdef SUPPORTS_DISPINTERFACE}
  819. IADsPathnameDisp = dispinterface;
  820. {$endif}
  821. IADsADSystemInfo = interface;
  822. {$ifdef SUPPORTS_DISPINTERFACE}
  823. IADsADSystemInfoDisp = dispinterface;
  824. {$endif}
  825. IADsWinNTSystemInfo = interface;
  826. {$ifdef SUPPORTS_DISPINTERFACE}
  827. IADsWinNTSystemInfoDisp = dispinterface;
  828. {$endif}
  829. IADsDNWithBinary = interface;
  830. {$ifdef SUPPORTS_DISPINTERFACE}
  831. IADsDNWithBinaryDisp = dispinterface;
  832. {$endif}
  833. IADsDNWithString = interface;
  834. {$ifdef SUPPORTS_DISPINTERFACE}
  835. IADsDNWithStringDisp = dispinterface;
  836. {$endif}
  837. // *********************************************************************//
  838. // Declaration of CoClasses defined in Type Library
  839. // (NOTE: Here we map each CoClass to its Default Interface)
  840. // *********************************************************************//
  841. PropertyEntry = IADsPropertyEntry;
  842. PropertyValue = IADsPropertyValue;
  843. AccessControlEntry = IADsAccessControlEntry;
  844. AccessControlList = IADsAccessControlList;
  845. SecurityDescriptor = IADsSecurityDescriptor;
  846. LargeInteger = IADsLargeInteger;
  847. NameTranslate = IADsNameTranslate;
  848. CaseIgnoreList = IADsCaseIgnoreList;
  849. FaxNumber = IADsFaxNumber;
  850. NetAddress = IADsNetAddress;
  851. OctetList = IADsOctetList;
  852. Email = IADsEmail;
  853. Path = IADsPath;
  854. ReplicaPointer = IADsReplicaPointer;
  855. Acl = IADsAcl;
  856. Timestamp = IADsTimestamp;
  857. PostalAddress = IADsPostalAddress;
  858. BackLink = IADsBackLink;
  859. TypedName = IADsTypedName;
  860. Hold = IADsHold;
  861. Pathname = IADsPathname;
  862. ADSystemInfo = IADsADSystemInfo;
  863. WinNTSystemInfo = IADsWinNTSystemInfo;
  864. DNWithBinary = IADsDNWithBinary;
  865. DNWithString = IADsDNWithString;
  866. // *********************************************************************//
  867. // Declaration of structures, unions and aliases.
  868. // *********************************************************************//
  869. PUserType1 = ^_ADS_CASEIGNORE_LIST; {*}
  870. PUserType2 = ^_ADS_OCTET_LIST; {*}
  871. PPWideChar1 = ^PWideChar; {*}
  872. PUserType8 = ^tagTYPEDESC; {*}
  873. PUserType9 = ^tagARRAYDESC; {*}
  874. PUserType3 = ^TGUID; {*}
  875. PWord1 = ^Word; {*}
  876. PPWord1 = ^PWord1; {*}
  877. PUserType4 = ^TGUID; {*}
  878. PUserType5 = ^tagTYPEATTR; {*}
  879. PUserType6 = ^tagFUNCDESC; {*}
  880. PUserType7 = ^tagVARDESC; {*}
  881. PUserType10 = ^tagTLIBATTR; {*}
  882. PUserType11 = ^_ads_object_info; {*}
  883. PUserType12 = ^_ads_attr_info; {*}
  884. PUserType13 = ^ads_searchpref_info; {*}
  885. PUserType14 = ^ads_search_column; {*}
  886. PUserType15 = ^_ads_attr_def; {*}
  887. PPUserType1 = ^PUserType15; {*}
  888. PUINT1 = ^LongWord; {*}
  889. PUserType16 = ^_ads_class_def; {*}
  890. PPUserType2 = ^PUserType16; {*}
  891. ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0001;
  892. __MIDL___MIDL_itf_ads_0000_0002 = packed record
  893. dwLength: LongWord;
  894. lpValue: ^Byte;
  895. end;
  896. ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0002;
  897. __MIDL___MIDL_itf_ads_0000_0003 = packed record
  898. dwLength: LongWord;
  899. lpValue: ^Byte;
  900. end;
  901. ADS_NT_SECURITY_DESCRIPTOR = __MIDL___MIDL_itf_ads_0000_0003;
  902. _SYSTEMTIME = packed record
  903. wYear: Word;
  904. wMonth: Word;
  905. wDayOfWeek: Word;
  906. wDay: Word;
  907. wHour: Word;
  908. wMinute: Word;
  909. wSecond: Word;
  910. wMilliseconds: Word;
  911. end;
  912. _LARGE_INTEGER = packed record
  913. QuadPart: Int64;
  914. end;
  915. __MIDL___MIDL_itf_ads_0000_0004 = packed record
  916. dwLength: LongWord;
  917. lpValue: ^Byte;
  918. end;
  919. ADS_PROV_SPECIFIC = __MIDL___MIDL_itf_ads_0000_0004;
  920. __MIDL___MIDL_itf_ads_0000_0005 = packed record
  921. Type_: LongWord;
  922. VolumeName: PWideChar;
  923. Path: PWideChar;
  924. end;
  925. ADS_PATH = __MIDL___MIDL_itf_ads_0000_0005;
  926. __MIDL___MIDL_itf_ads_0000_0006 = packed record
  927. PostalAddress: array[0..5] of PWideChar;
  928. end;
  929. ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0006;
  930. __MIDL___MIDL_itf_ads_0000_0007 = packed record
  931. WholeSeconds: LongWord;
  932. EventID: LongWord;
  933. end;
  934. ADS_TIMESTAMP = __MIDL___MIDL_itf_ads_0000_0007;
  935. __MIDL___MIDL_itf_ads_0000_0008 = packed record
  936. RemoteID: LongWord;
  937. ObjectName: PWideChar;
  938. end;
  939. ADS_BACKLINK = __MIDL___MIDL_itf_ads_0000_0008;
  940. __MIDL___MIDL_itf_ads_0000_0009 = packed record
  941. ObjectName: PWideChar;
  942. Level: LongWord;
  943. Interval: LongWord;
  944. end;
  945. ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0009;
  946. __MIDL___MIDL_itf_ads_0000_0010 = packed record
  947. ObjectName: PWideChar;
  948. Amount: LongWord;
  949. end;
  950. ADS_HOLD = __MIDL___MIDL_itf_ads_0000_0010;
  951. __MIDL___MIDL_itf_ads_0000_0011 = packed record
  952. AddressType: LongWord;
  953. AddressLength: LongWord;
  954. Address: ^Byte;
  955. end;
  956. ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0011;
  957. __MIDL___MIDL_itf_ads_0000_0012 = packed record
  958. ServerName: PWideChar;
  959. ReplicaType: LongWord;
  960. ReplicaNumber: LongWord;
  961. Count: LongWord;
  962. ReplicaAddressHints: ^__MIDL___MIDL_itf_ads_0000_0011;
  963. end;
  964. ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0012;
  965. __MIDL___MIDL_itf_ads_0000_0013 = packed record
  966. TelephoneNumber: PWideChar;
  967. NumberOfBits: LongWord;
  968. Parameters: ^Byte;
  969. end;
  970. ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0013;
  971. __MIDL___MIDL_itf_ads_0000_0014 = packed record
  972. Address: PWideChar;
  973. Type_: LongWord;
  974. end;
  975. ADS_EMAIL = __MIDL___MIDL_itf_ads_0000_0014;
  976. __MIDL___MIDL_itf_ads_0000_0015 = packed record
  977. dwLength: LongWord;
  978. lpBinaryValue: ^Byte;
  979. pszDNString: PWideChar;
  980. end;
  981. ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0015;
  982. __MIDL___MIDL_itf_ads_0000_0016 = packed record
  983. pszStringValue: PWideChar;
  984. pszDNString: PWideChar;
  985. end;
  986. ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0016;
  987. _ADS_CASEIGNORE_LIST = packed record
  988. Next: PUserType1;
  989. String_: PWideChar;
  990. end;
  991. _ADS_OCTET_LIST = packed record
  992. Next: PUserType2;
  993. Length: LongWord;
  994. Data: ^Byte;
  995. end;
  996. __MIDL___MIDL_itf_ads_0000_0017 = record
  997. case Integer of
  998. 0: (DNString: PWideChar);
  999. 1: (CaseExactString: PWideChar);
  1000. 2: (CaseIgnoreString: PWideChar);
  1001. 3: (PrintableString: PWideChar);
  1002. 4: (NumericString: PWideChar);
  1003. 5: (Boolean: LongWord);
  1004. 6: (Integer: LongWord);
  1005. 7: (OctetString: ADS_OCTET_STRING);
  1006. 8: (UTCTime: _SYSTEMTIME);
  1007. 9: (LargeInteger: _LARGE_INTEGER);
  1008. 10: (ClassName: PWideChar);
  1009. 11: (ProviderSpecific: ADS_PROV_SPECIFIC);
  1010. 12: (pCaseIgnoreList: ^_ADS_CASEIGNORE_LIST);
  1011. 13: (pOctetList: ^_ADS_OCTET_LIST);
  1012. 14: (pPath: ^__MIDL___MIDL_itf_ads_0000_0005);
  1013. 15: (pPostalAddress: ^__MIDL___MIDL_itf_ads_0000_0006);
  1014. 16: (Timestamp: ADS_TIMESTAMP);
  1015. 17: (BackLink: ADS_BACKLINK);
  1016. 18: (pTypedName: ^__MIDL___MIDL_itf_ads_0000_0009);
  1017. 19: (Hold: ADS_HOLD);
  1018. 20: (pNetAddress: ^__MIDL___MIDL_itf_ads_0000_0011);
  1019. 21: (pReplicaPointer: ^__MIDL___MIDL_itf_ads_0000_0012);
  1020. 22: (pFaxNumber: ^__MIDL___MIDL_itf_ads_0000_0013);
  1021. 23: (Email: ADS_EMAIL);
  1022. 24: (SecurityDescriptor: ADS_NT_SECURITY_DESCRIPTOR);
  1023. 25: (pDNWithBinary: ^__MIDL___MIDL_itf_ads_0000_0015);
  1024. 26: (pDNWithString: ^__MIDL___MIDL_itf_ads_0000_0016);
  1025. end;
  1026. ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0018;
  1027. _ads_object_info = packed record
  1028. pszRDN: PWideChar;
  1029. pszObjectDN: PWideChar;
  1030. pszParentDN: PWideChar;
  1031. pszSchemaDN: PWideChar;
  1032. pszClassName: PWideChar;
  1033. end;
  1034. ADS_STATUSENUM = __MIDL___MIDL_itf_ads_0000_0019;
  1035. ADS_DEREFENUM = __MIDL___MIDL_itf_ads_0000_0020;
  1036. ADS_SCOPEENUM = __MIDL___MIDL_itf_ads_0000_0021;
  1037. ADS_PREFERENCES_ENUM = __MIDL___MIDL_itf_ads_0000_0022;
  1038. ADSI_DIALECT_ENUM = __MIDL___MIDL_itf_ads_0000_0023;
  1039. ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0024;
  1040. ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0025;
  1041. _adsvalue = packed record
  1042. dwType: ADSTYPEENUM;
  1043. __MIDL_0010: __MIDL___MIDL_itf_ads_0000_0017;
  1044. end;
  1045. ads_search_column = packed record
  1046. pszAttrName: PWideChar;
  1047. dwADsType: ADSTYPEENUM;
  1048. pADsValues: ^_adsvalue;
  1049. dwNumValues: LongWord;
  1050. hReserved: Pointer;
  1051. end;
  1052. _ads_attr_def = packed record
  1053. pszAttrName: PWideChar;
  1054. dwADsType: ADSTYPEENUM;
  1055. dwMinRange: LongWord;
  1056. dwMaxRange: LongWord;
  1057. fMultiValued: Integer;
  1058. end;
  1059. _ads_sortkey = packed record
  1060. pszAttrType: PWideChar;
  1061. pszReserved: PWideChar;
  1062. fReverseorder: Shortint;
  1063. end;
  1064. ADS_PROPERTY_OPERATION_ENUM = __MIDL___MIDL_itf_ads_0000_0026;
  1065. __MIDL_IOleAutomationTypes_0005 = record
  1066. case Integer of
  1067. 0: (lptdesc: PUserType8);
  1068. 1: (lpadesc: PUserType9);
  1069. 2: (hreftype: LongWord);
  1070. end;
  1071. tagTYPEDESC = packed record
  1072. __MIDL_0008: __MIDL_IOleAutomationTypes_0005;
  1073. vt: Word;
  1074. end;
  1075. tagSAFEARRAYBOUND = packed record
  1076. cElements: LongWord;
  1077. lLbound: Integer;
  1078. end;
  1079. ULONG_PTR = LongWord;
  1080. tagIDLDESC = packed record
  1081. dwReserved: ULONG_PTR;
  1082. wIDLFlags: Word;
  1083. end;
  1084. DWORD = LongWord;
  1085. tagPARAMDESCEX = packed record
  1086. cBytes: LongWord;
  1087. varDefaultValue: OleVariant;
  1088. end;
  1089. tagPARAMDESC = packed record
  1090. pparamdescex: ^tagPARAMDESCEX;
  1091. wParamFlags: Word;
  1092. end;
  1093. tagELEMDESC = packed record
  1094. tdesc: tagTYPEDESC;
  1095. paramdesc: tagPARAMDESC;
  1096. end;
  1097. tagFUNCDESC = packed record
  1098. memid: Integer;
  1099. lprgscode: ^SCODE;
  1100. lprgelemdescParam: ^tagELEMDESC;
  1101. funckind: tagFUNCKIND;
  1102. invkind: tagINVOKEKIND;
  1103. callconv: tagCALLCONV;
  1104. cParams: Smallint;
  1105. cParamsOpt: Smallint;
  1106. oVft: Smallint;
  1107. cScodes: Smallint;
  1108. elemdescFunc: tagELEMDESC;
  1109. wFuncFlags: Word;
  1110. end;
  1111. __MIDL_IOleAutomationTypes_0006 = record
  1112. case Integer of
  1113. 0: (oInst: LongWord);
  1114. 1: (lpvarValue: ^OleVariant);
  1115. end;
  1116. tagVARDESC = packed record
  1117. memid: Integer;
  1118. lpstrSchema: PWideChar;
  1119. __MIDL_0009: __MIDL_IOleAutomationTypes_0006;
  1120. elemdescVar: tagELEMDESC;
  1121. wVarFlags: Word;
  1122. varkind: tagVARKIND;
  1123. end;
  1124. tagTLIBATTR = packed record
  1125. GUID: TGUID;
  1126. lcid: LongWord;
  1127. syskind: tagSYSKIND;
  1128. wMajorVerNum: Word;
  1129. wMinorVerNum: Word;
  1130. wLibFlags: Word;
  1131. end;
  1132. ADS_SYSTEMFLAG_ENUM = __MIDL___MIDL_itf_ads_0120_0001;
  1133. ADS_GROUP_TYPE_ENUM = __MIDL___MIDL_itf_ads_0126_0001;
  1134. ADS_RIGHTS_ENUM = __MIDL___MIDL_itf_ads_0148_0001;
  1135. ADS_ACETYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0002;
  1136. ADS_ACEFLAG_ENUM = __MIDL___MIDL_itf_ads_0148_0003;
  1137. ADS_FLAGTYPE_ENUM = __MIDL___MIDL_itf_ads_0148_0004;
  1138. ADS_SD_CONTROL_ENUM = __MIDL___MIDL_itf_ads_0148_0005;
  1139. ADS_SD_REVISION_ENUM = __MIDL___MIDL_itf_ads_0148_0006;
  1140. ADS_NAME_TYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0001;
  1141. ADS_NAME_INITTYPE_ENUM = __MIDL___MIDL_itf_ads_0149_0002;
  1142. ADS_OPTION_ENUM = __MIDL___MIDL_itf_ads_0163_0001;
  1143. ADS_SECURITY_INFO_ENUM = __MIDL___MIDL_itf_ads_0163_0002;
  1144. ADS_SETTYPE_ENUM = __MIDL___MIDL_itf_ads_0164_0001;
  1145. ADS_FORMAT_ENUM = __MIDL___MIDL_itf_ads_0164_0002;
  1146. ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0164_0003;
  1147. ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0164_0004;
  1148. _ads_attr_info = packed record
  1149. pszAttrName: PWideChar;
  1150. dwControlCode: LongWord;
  1151. dwADsType: ADSTYPEENUM;
  1152. pADsValues: ^_adsvalue;
  1153. dwNumValues: LongWord;
  1154. end;
  1155. ads_searchpref_info = packed record
  1156. dwSearchPref: ADS_SEARCHPREF_ENUM;
  1157. vValue: _adsvalue;
  1158. dwStatus: ADS_STATUSENUM;
  1159. end;
  1160. _ads_class_def = packed record
  1161. pszClassName: PWideChar;
  1162. dwMandatoryAttrs: LongWord;
  1163. ppszMandatoryAttrs: ^PWideChar;
  1164. optionalAttrs: LongWord;
  1165. ppszOptionalAttrs: ^PPWideChar1;
  1166. dwNamingAttrs: LongWord;
  1167. ppszNamingAttrs: ^PPWideChar1;
  1168. dwSuperClasses: LongWord;
  1169. ppszSuperClasses: ^PPWideChar1;
  1170. fIsContainer: Integer;
  1171. end;
  1172. tagTYPEATTR = packed record
  1173. GUID: TGUID;
  1174. lcid: LongWord;
  1175. dwReserved: LongWord;
  1176. memidConstructor: Integer;
  1177. memidDestructor: Integer;
  1178. lpstrSchema: PWideChar;
  1179. cbSizeInstance: LongWord;
  1180. typekind: tagTYPEKIND;
  1181. cFuncs: Word;
  1182. cVars: Word;
  1183. cImplTypes: Word;
  1184. cbSizeVft: Word;
  1185. cbAlignment: Word;
  1186. wTypeFlags: Word;
  1187. wMajorVerNum: Word;
  1188. wMinorVerNum: Word;
  1189. tdescAlias: tagTYPEDESC;
  1190. idldescType: tagIDLDESC;
  1191. end;
  1192. tagARRAYDESC = packed record
  1193. tdescElem: tagTYPEDESC;
  1194. cDims: Word;
  1195. rgbounds: ^tagSAFEARRAYBOUND;
  1196. end;
  1197. // *********************************************************************//
  1198. // Interface: IADs
  1199. // Flags: (4416) Dual OleAutomation Dispatchable
  1200. // GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
  1201. // *********************************************************************//
  1202. IADs = interface(IDispatch)
  1203. ['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
  1204. function Get_Name: WideString; safecall;
  1205. function Get_Class_: WideString; safecall;
  1206. function Get_GUID: WideString; safecall;
  1207. function Get_ADsPath: WideString; safecall;
  1208. function Get_Parent: WideString; safecall;
  1209. function Get_Schema: WideString; safecall;
  1210. procedure GetInfo; safecall;
  1211. procedure SetInfo; safecall;
  1212. function Get(const bstrName: WideString): OleVariant; safecall;
  1213. procedure Put(const bstrName: WideString; vProp: OleVariant); safecall;
  1214. function GetEx(const bstrName: WideString): OleVariant; safecall;
  1215. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); safecall;
  1216. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); safecall;
  1217. property Name: WideString read Get_Name;
  1218. property Class_: WideString read Get_Class_;
  1219. property GUID: WideString read Get_GUID;
  1220. property ADsPath: WideString read Get_ADsPath;
  1221. property Parent: WideString read Get_Parent;
  1222. property Schema: WideString read Get_Schema;
  1223. end;
  1224. // *********************************************************************//
  1225. // DispIntf: IADsDisp
  1226. // Flags: (4416) Dual OleAutomation Dispatchable
  1227. // GUID: {FD8256D0-FD15-11CE-ABC4-02608C9E7553}
  1228. // *********************************************************************//
  1229. {$ifdef SUPPORTS_DISPINTERFACE}
  1230. IADsDisp = dispinterface
  1231. ['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
  1232. property Name: WideString readonly dispid 2;
  1233. property Class_: WideString readonly dispid 3;
  1234. property GUID: WideString readonly dispid 4;
  1235. property ADsPath: WideString readonly dispid 5;
  1236. property Parent: WideString readonly dispid 6;
  1237. property Schema: WideString readonly dispid 7;
  1238. procedure GetInfo; dispid 8;
  1239. procedure SetInfo; dispid 9;
  1240. function Get(const bstrName: WideString): OleVariant; dispid 10;
  1241. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  1242. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  1243. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  1244. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  1245. end;
  1246. {$endif}
  1247. // *********************************************************************//
  1248. // Interface: IADsContainer
  1249. // Flags: (4416) Dual OleAutomation Dispatchable
  1250. // GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
  1251. // *********************************************************************//
  1252. IADsContainer = interface(IDispatch)
  1253. ['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
  1254. function Get_Count: Integer; safecall;
  1255. function Get__NewEnum: IUnknown; safecall;
  1256. function Get_Filter: OleVariant; safecall;
  1257. procedure Set_Filter(pVar: OleVariant); safecall;
  1258. function Get_Hints: OleVariant; safecall;
  1259. procedure Set_Hints(pvFilter: OleVariant); safecall;
  1260. function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
  1261. function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; safecall;
  1262. procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); safecall;
  1263. function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
  1264. function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; safecall;
  1265. property Count: Integer read Get_Count;
  1266. property _NewEnum: IUnknown read Get__NewEnum;
  1267. property Filter: OleVariant read Get_Filter write Set_Filter;
  1268. property Hints: OleVariant read Get_Hints write Set_Hints;
  1269. end;
  1270. // *********************************************************************//
  1271. // DispIntf: IADsContainerDisp
  1272. // Flags: (4416) Dual OleAutomation Dispatchable
  1273. // GUID: {001677D0-FD16-11CE-ABC4-02608C9E7553}
  1274. // *********************************************************************//
  1275. {$ifdef SUPPORTS_DISPINTERFACE}
  1276. IADsContainerDisp = dispinterface
  1277. ['{001677D0-FD16-11CE-ABC4-02608C9E7553}']
  1278. property Count: Integer readonly dispid 2;
  1279. property _NewEnum: IUnknown readonly dispid -4;
  1280. property Filter: OleVariant dispid 3;
  1281. property Hints: OleVariant dispid 4;
  1282. function GetObject(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 5;
  1283. function Create(const ClassName: WideString; const RelativeName: WideString): IDispatch; dispid 6;
  1284. procedure Delete(const bstrClassName: WideString; const bstrRelativeName: WideString); dispid 7;
  1285. function CopyHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 8;
  1286. function MoveHere(const SourceName: WideString; const NewName: WideString): IDispatch; dispid 9;
  1287. end;
  1288. {$endif}
  1289. // *********************************************************************//
  1290. // Interface: IADsCollection
  1291. // Flags: (4416) Dual OleAutomation Dispatchable
  1292. // GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
  1293. // *********************************************************************//
  1294. IADsCollection = interface(IDispatch)
  1295. ['{72B945E0-253B-11CF-A988-00AA006BC149}']
  1296. function Get__NewEnum: IUnknown; safecall;
  1297. procedure Add(const bstrName: WideString; vItem: OleVariant); safecall;
  1298. procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
  1299. function GetObject(const bstrName: WideString): OleVariant; safecall;
  1300. property _NewEnum: IUnknown read Get__NewEnum;
  1301. end;
  1302. // *********************************************************************//
  1303. // DispIntf: IADsCollectionDisp
  1304. // Flags: (4416) Dual OleAutomation Dispatchable
  1305. // GUID: {72B945E0-253B-11CF-A988-00AA006BC149}
  1306. // *********************************************************************//
  1307. {$ifdef SUPPORTS_DISPINTERFACE}
  1308. IADsCollectionDisp = dispinterface
  1309. ['{72B945E0-253B-11CF-A988-00AA006BC149}']
  1310. property _NewEnum: IUnknown readonly dispid -4;
  1311. procedure Add(const bstrName: WideString; vItem: OleVariant); dispid 4;
  1312. procedure Remove(const bstrItemToBeRemoved: WideString); dispid 5;
  1313. function GetObject(const bstrName: WideString): OleVariant; dispid 6;
  1314. end;
  1315. {$endif}
  1316. // *********************************************************************//
  1317. // Interface: IADsMembers
  1318. // Flags: (4416) Dual OleAutomation Dispatchable
  1319. // GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
  1320. // *********************************************************************//
  1321. IADsMembers = interface(IDispatch)
  1322. ['{451A0030-72EC-11CF-B03B-00AA006E0975}']
  1323. function Get_Count: Integer; safecall;
  1324. function Get__NewEnum: IUnknown; safecall;
  1325. function Get_Filter: OleVariant; safecall;
  1326. procedure Set_Filter(pvFilter: OleVariant); safecall;
  1327. property Count: Integer read Get_Count;
  1328. property _NewEnum: IUnknown read Get__NewEnum;
  1329. property Filter: OleVariant read Get_Filter write Set_Filter;
  1330. end;
  1331. // *********************************************************************//
  1332. // DispIntf: IADsMembersDisp
  1333. // Flags: (4416) Dual OleAutomation Dispatchable
  1334. // GUID: {451A0030-72EC-11CF-B03B-00AA006E0975}
  1335. // *********************************************************************//
  1336. {$ifdef SUPPORTS_DISPINTERFACE}
  1337. IADsMembersDisp = dispinterface
  1338. ['{451A0030-72EC-11CF-B03B-00AA006E0975}']
  1339. property Count: Integer readonly dispid 2;
  1340. property _NewEnum: IUnknown readonly dispid -4;
  1341. property Filter: OleVariant dispid 3;
  1342. end;
  1343. {$endif}
  1344. // *********************************************************************//
  1345. // Interface: IADsPropertyList
  1346. // Flags: (4416) Dual OleAutomation Dispatchable
  1347. // GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
  1348. // *********************************************************************//
  1349. IADsPropertyList = interface(IDispatch)
  1350. ['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
  1351. function Get_PropertyCount: Integer; safecall;
  1352. function Next: OleVariant; safecall;
  1353. procedure Skip(cElements: Integer); safecall;
  1354. procedure Reset; safecall;
  1355. function Item(varIndex: OleVariant): OleVariant; safecall;
  1356. function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; safecall;
  1357. procedure PutPropertyItem(varData: OleVariant); safecall;
  1358. procedure ResetPropertyItem(varEntry: OleVariant); safecall;
  1359. procedure PurgePropertyList; safecall;
  1360. property PropertyCount: Integer read Get_PropertyCount;
  1361. end;
  1362. // *********************************************************************//
  1363. // DispIntf: IADsPropertyListDisp
  1364. // Flags: (4416) Dual OleAutomation Dispatchable
  1365. // GUID: {C6F602B6-8F69-11D0-8528-00C04FD8D503}
  1366. // *********************************************************************//
  1367. {$ifdef SUPPORTS_DISPINTERFACE}
  1368. IADsPropertyListDisp = dispinterface
  1369. ['{C6F602B6-8F69-11D0-8528-00C04FD8D503}']
  1370. property PropertyCount: Integer readonly dispid 2;
  1371. function Next: OleVariant; dispid 3;
  1372. procedure Skip(cElements: Integer); dispid 4;
  1373. procedure Reset; dispid 5;
  1374. function Item(varIndex: OleVariant): OleVariant; dispid 0;
  1375. function GetPropertyItem(const bstrName: WideString; lnADsType: Integer): OleVariant; dispid 6;
  1376. procedure PutPropertyItem(varData: OleVariant); dispid 7;
  1377. procedure ResetPropertyItem(varEntry: OleVariant); dispid 8;
  1378. procedure PurgePropertyList; dispid 9;
  1379. end;
  1380. {$endif}
  1381. // *********************************************************************//
  1382. // Interface: IADsPropertyEntry
  1383. // Flags: (4416) Dual OleAutomation Dispatchable
  1384. // GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
  1385. // *********************************************************************//
  1386. IADsPropertyEntry = interface(IDispatch)
  1387. ['{05792C8E-941F-11D0-8529-00C04FD8D503}']
  1388. procedure Clear; safecall;
  1389. function Get_Name: WideString; safecall;
  1390. procedure Set_Name(const retval: WideString); safecall;
  1391. function Get_ADsType: Integer; safecall;
  1392. procedure Set_ADsType(retval: Integer); safecall;
  1393. function Get_ControlCode: Integer; safecall;
  1394. procedure Set_ControlCode(retval: Integer); safecall;
  1395. function Get_Values: OleVariant; safecall;
  1396. procedure Set_Values(retval: OleVariant); safecall;
  1397. property Name: WideString read Get_Name write Set_Name;
  1398. property ADsType: Integer read Get_ADsType write Set_ADsType;
  1399. property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
  1400. property Values: OleVariant read Get_Values write Set_Values;
  1401. end;
  1402. // *********************************************************************//
  1403. // DispIntf: IADsPropertyEntryDisp
  1404. // Flags: (4416) Dual OleAutomation Dispatchable
  1405. // GUID: {05792C8E-941F-11D0-8529-00C04FD8D503}
  1406. // *********************************************************************//
  1407. {$ifdef SUPPORTS_DISPINTERFACE}
  1408. IADsPropertyEntryDisp = dispinterface
  1409. ['{05792C8E-941F-11D0-8529-00C04FD8D503}']
  1410. procedure Clear; dispid 1;
  1411. property Name: WideString dispid 2;
  1412. property ADsType: Integer dispid 3;
  1413. property ControlCode: Integer dispid 4;
  1414. property Values: OleVariant dispid 5;
  1415. end;
  1416. {$endif}
  1417. // *********************************************************************//
  1418. // Interface: IADsPropertyValue
  1419. // Flags: (4416) Dual OleAutomation Dispatchable
  1420. // GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
  1421. // *********************************************************************//
  1422. IADsPropertyValue = interface(IDispatch)
  1423. ['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
  1424. procedure Clear; safecall;
  1425. function Get_ADsType: Integer; safecall;
  1426. procedure Set_ADsType(retval: Integer); safecall;
  1427. function Get_DNString: WideString; safecall;
  1428. procedure Set_DNString(const retval: WideString); safecall;
  1429. function Get_CaseExactString: WideString; safecall;
  1430. procedure Set_CaseExactString(const retval: WideString); safecall;
  1431. function Get_CaseIgnoreString: WideString; safecall;
  1432. procedure Set_CaseIgnoreString(const retval: WideString); safecall;
  1433. function Get_PrintableString: WideString; safecall;
  1434. procedure Set_PrintableString(const retval: WideString); safecall;
  1435. function Get_NumericString: WideString; safecall;
  1436. procedure Set_NumericString(const retval: WideString); safecall;
  1437. function Get_Boolean: Integer; safecall;
  1438. procedure Set_Boolean(retval: Integer); safecall;
  1439. function Get_Integer: Integer; safecall;
  1440. procedure Set_Integer(retval: Integer); safecall;
  1441. function Get_OctetString: OleVariant; safecall;
  1442. procedure Set_OctetString(retval: OleVariant); safecall;
  1443. function Get_SecurityDescriptor: IDispatch; safecall;
  1444. procedure Set_SecurityDescriptor(const retval: IDispatch); safecall;
  1445. function Get_LargeInteger: IDispatch; safecall;
  1446. procedure Set_LargeInteger(const retval: IDispatch); safecall;
  1447. function Get_UTCTime: TDateTime; safecall;
  1448. procedure Set_UTCTime(retval: TDateTime); safecall;
  1449. property ADsType: Integer read Get_ADsType write Set_ADsType;
  1450. property DNString: WideString read Get_DNString write Set_DNString;
  1451. property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
  1452. property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
  1453. property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
  1454. property NumericString: WideString read Get_NumericString write Set_NumericString;
  1455. property Boolean: Integer read Get_Boolean write Set_Boolean;
  1456. property Integer: Integer read Get_Integer write Set_Integer;
  1457. property OctetString: OleVariant read Get_OctetString write Set_OctetString;
  1458. property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
  1459. property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
  1460. property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
  1461. end;
  1462. // *********************************************************************//
  1463. // DispIntf: IADsPropertyValueDisp
  1464. // Flags: (4416) Dual OleAutomation Dispatchable
  1465. // GUID: {79FA9AD0-A97C-11D0-8534-00C04FD8D503}
  1466. // *********************************************************************//
  1467. {$ifdef SUPPORTS_DISPINTERFACE}
  1468. IADsPropertyValueDisp = dispinterface
  1469. ['{79FA9AD0-A97C-11D0-8534-00C04FD8D503}']
  1470. procedure Clear; dispid 1;
  1471. property ADsType: Integer dispid 2;
  1472. property DNString: WideString dispid 3;
  1473. property CaseExactString: WideString dispid 4;
  1474. property CaseIgnoreString: WideString dispid 5;
  1475. property PrintableString: WideString dispid 6;
  1476. property NumericString: WideString dispid 7;
  1477. property Boolean: Integer dispid 8;
  1478. property Integer: Integer dispid 9;
  1479. property OctetString: OleVariant dispid 10;
  1480. property SecurityDescriptor: IDispatch dispid 11;
  1481. property LargeInteger: IDispatch dispid 12;
  1482. property UTCTime: TDateTime dispid 13;
  1483. end;
  1484. {$endif}
  1485. // *********************************************************************//
  1486. // Interface: IADsPropertyValue2
  1487. // Flags: (4416) Dual OleAutomation Dispatchable
  1488. // GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
  1489. // *********************************************************************//
  1490. IADsPropertyValue2 = interface(IDispatch)
  1491. ['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
  1492. function GetObjectProperty(var lnADsType: Integer): OleVariant; safecall;
  1493. procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); safecall;
  1494. end;
  1495. // *********************************************************************//
  1496. // DispIntf: IADsPropertyValue2Disp
  1497. // Flags: (4416) Dual OleAutomation Dispatchable
  1498. // GUID: {306E831C-5BC7-11D1-A3B8-00C04FB950DC}
  1499. // *********************************************************************//
  1500. {$ifdef SUPPORTS_DISPINTERFACE}
  1501. IADsPropertyValue2Disp = dispinterface
  1502. ['{306E831C-5BC7-11D1-A3B8-00C04FB950DC}']
  1503. function GetObjectProperty(var lnADsType: Integer): OleVariant; dispid 1;
  1504. procedure PutObjectProperty(lnADsType: Integer; vProp: OleVariant); dispid 2;
  1505. end;
  1506. {$endif}
  1507. // *********************************************************************//
  1508. // Interface: IPrivateDispatch
  1509. // Flags: (0)
  1510. // GUID: {86AB4BBE-65F6-11D1-8C13-00C04FD8D503}
  1511. // *********************************************************************//
  1512. IPrivateDispatch = interface(IUnknown)
  1513. ['{86AB4BBE-65F6-11D1-8C13-00C04FD8D503}']
  1514. function ADSIInitializeDispatchManager(dwExtensionId: Integer): HResult; stdcall;
  1515. function ADSIGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
  1516. function ADSIGetTypeInfo(itinfo: SYSUINT; lcid: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
  1517. function ADSIGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
  1518. lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
  1519. function ADSIInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
  1520. var pdispparams: TGUID; out pvarResult: OleVariant; out pexcepinfo: TGUID;
  1521. out puArgErr: SYSUINT): HResult; stdcall;
  1522. end;
  1523. // *********************************************************************//
  1524. // Interface: ITypeInfo
  1525. // Flags: (0)
  1526. // GUID: {00020401-0000-0000-C000-000000000046}
  1527. // *********************************************************************//
  1528. ITypeInfo = interface(IUnknown)
  1529. ['{00020401-0000-0000-C000-000000000046}']
  1530. function RemoteGetTypeAttr(out ppTypeAttr: PUserType5; out pDummy: DWORD): HResult; stdcall;
  1531. function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
  1532. function RemoteGetFuncDesc(index: SYSUINT; out ppFuncDesc: PUserType6; out pDummy: DWORD): HResult; stdcall;
  1533. function RemoteGetVarDesc(index: SYSUINT; out ppVarDesc: PUserType7; out pDummy: DWORD): HResult; stdcall;
  1534. function RemoteGetNames(memid: Integer; out rgBstrNames: WideString; cMaxNames: SYSUINT;
  1535. out pcNames: SYSUINT): HResult; stdcall;
  1536. function GetRefTypeOfImplType(index: SYSUINT; out pRefType: LongWord): HResult; stdcall;
  1537. function GetImplTypeFlags(index: SYSUINT; out pImplTypeFlags: SYSINT): HResult; stdcall;
  1538. function LocalGetIDsOfNames: HResult; stdcall;
  1539. function LocalInvoke: HResult; stdcall;
  1540. function RemoteGetDocumentation(memid: Integer; refPtrFlags: LongWord;
  1541. out pBstrName: WideString; out pBstrDocString: WideString;
  1542. out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
  1543. function RemoteGetDllEntry(memid: Integer; invkind: tagINVOKEKIND; refPtrFlags: LongWord;
  1544. out pBstrDllName: WideString; out pBstrName: WideString;
  1545. out pwOrdinal: Word): HResult; stdcall;
  1546. function GetRefTypeInfo(hreftype: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
  1547. function LocalAddressOfMember: HResult; stdcall;
  1548. function RemoteCreateInstance(var riid: TGUID; out ppvObj: IUnknown): HResult; stdcall;
  1549. function GetMops(memid: Integer; out pBstrMops: WideString): HResult; stdcall;
  1550. function RemoteGetContainingTypeLib(out ppTLib: ITypeLib; out pIndex: SYSUINT): HResult; stdcall;
  1551. function LocalReleaseTypeAttr: HResult; stdcall;
  1552. function LocalReleaseFuncDesc: HResult; stdcall;
  1553. function LocalReleaseVarDesc: HResult; stdcall;
  1554. end;
  1555. // *********************************************************************//
  1556. // Interface: ITypeComp
  1557. // Flags: (0)
  1558. // GUID: {00020403-0000-0000-C000-000000000046}
  1559. // *********************************************************************//
  1560. ITypeComp = interface(IUnknown)
  1561. ['{00020403-0000-0000-C000-000000000046}']
  1562. function RemoteBind(szName: PWideChar; lHashVal: LongWord; wFlags: Word;
  1563. out ppTInfo: ITypeInfo; out pDescKind: tagDESCKIND;
  1564. out ppFuncDesc: PUserType6; out ppVarDesc: PUserType7;
  1565. out ppTypeComp: ITypeComp; out pDummy: DWORD): HResult; stdcall;
  1566. function RemoteBindType(szName: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo): HResult; stdcall;
  1567. end;
  1568. // *********************************************************************//
  1569. // Interface: ITypeLib
  1570. // Flags: (0)
  1571. // GUID: {00020402-0000-0000-C000-000000000046}
  1572. // *********************************************************************//
  1573. ITypeLib = interface(IUnknown)
  1574. ['{00020402-0000-0000-C000-000000000046}']
  1575. function RemoteGetTypeInfoCount(out pctinfo: SYSUINT): HResult; stdcall;
  1576. function GetTypeInfo(index: SYSUINT; out ppTInfo: ITypeInfo): HResult; stdcall;
  1577. function GetTypeInfoType(index: SYSUINT; out pTKind: tagTYPEKIND): HResult; stdcall;
  1578. function GetTypeInfoOfGuid(var GUID: TGUID; out ppTInfo: ITypeInfo): HResult; stdcall;
  1579. function RemoteGetLibAttr(out ppTLibAttr: PUserType10; out pDummy: DWORD): HResult; stdcall;
  1580. function GetTypeComp(out ppTComp: ITypeComp): HResult; stdcall;
  1581. function RemoteGetDocumentation(index: SYSINT; refPtrFlags: LongWord;
  1582. out pBstrName: WideString; out pBstrDocString: WideString;
  1583. out pdwHelpContext: LongWord; out pBstrHelpFile: WideString): HResult; stdcall;
  1584. function RemoteIsName(szNameBuf: PWideChar; lHashVal: LongWord; out pfName: Integer;
  1585. out pBstrLibName: WideString): HResult; stdcall;
  1586. function RemoteFindName(szNameBuf: PWideChar; lHashVal: LongWord; out ppTInfo: ITypeInfo;
  1587. out rgMemId: Integer; var pcFound: Word; out pBstrLibName: WideString): HResult; stdcall;
  1588. function LocalReleaseTLibAttr: HResult; stdcall;
  1589. end;
  1590. // *********************************************************************//
  1591. // Interface: IPrivateUnknown
  1592. // Flags: (0)
  1593. // GUID: {89126BAB-6EAD-11D1-8C18-00C04FD8D503}
  1594. // *********************************************************************//
  1595. IPrivateUnknown = interface(IUnknown)
  1596. ['{89126BAB-6EAD-11D1-8C18-00C04FD8D503}']
  1597. function ADSIInitializeObject(const lpszUserName: WideString; const lpszPassword: WideString;
  1598. lnReserved: Integer): HResult; stdcall;
  1599. function ADSIReleaseObject: HResult; stdcall;
  1600. end;
  1601. // *********************************************************************//
  1602. // Interface: IADsExtension
  1603. // Flags: (0)
  1604. // GUID: {3D35553C-D2B0-11D1-B17B-0000F87593A0}
  1605. // *********************************************************************//
  1606. IADsExtension = interface(IUnknown)
  1607. ['{3D35553C-D2B0-11D1-B17B-0000F87593A0}']
  1608. function Operate(dwCode: LongWord; varData1: OleVariant; varData2: OleVariant;
  1609. varData3: OleVariant): HResult; stdcall;
  1610. function PrivateGetIDsOfNames(var riid: TGUID; rgszNames: PPWord1; cNames: SYSUINT;
  1611. lcid: LongWord; out rgdispid: Integer): HResult; stdcall;
  1612. function PrivateInvoke(dispidMember: Integer; var riid: TGUID; lcid: LongWord; wFlags: Word;
  1613. var pdispparams: TGUID; out pvarResult: OleVariant;
  1614. out pexcepinfo: TGUID; out puArgErr: SYSUINT): HResult; stdcall;
  1615. end;
  1616. // *********************************************************************//
  1617. // Interface: IADsDeleteOps
  1618. // Flags: (4416) Dual OleAutomation Dispatchable
  1619. // GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
  1620. // *********************************************************************//
  1621. IADsDeleteOps = interface(IDispatch)
  1622. ['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
  1623. procedure DeleteObject(lnFlags: Integer); safecall;
  1624. end;
  1625. // *********************************************************************//
  1626. // DispIntf: IADsDeleteOpsDisp
  1627. // Flags: (4416) Dual OleAutomation Dispatchable
  1628. // GUID: {B2BD0902-8878-11D1-8C21-00C04FD8D503}
  1629. // *********************************************************************//
  1630. {$ifdef SUPPORTS_DISPINTERFACE}
  1631. IADsDeleteOpsDisp = dispinterface
  1632. ['{B2BD0902-8878-11D1-8C21-00C04FD8D503}']
  1633. procedure DeleteObject(lnFlags: Integer); dispid 2;
  1634. end;
  1635. {$endif}
  1636. // *********************************************************************//
  1637. // Interface: IADsNamespaces
  1638. // Flags: (4416) Dual OleAutomation Dispatchable
  1639. // GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
  1640. // *********************************************************************//
  1641. IADsNamespaces = interface(IADs)
  1642. ['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
  1643. function Get_DefaultContainer: WideString; safecall;
  1644. procedure Set_DefaultContainer(const retval: WideString); safecall;
  1645. property DefaultContainer: WideString read Get_DefaultContainer write Set_DefaultContainer;
  1646. end;
  1647. // *********************************************************************//
  1648. // DispIntf: IADsNamespacesDisp
  1649. // Flags: (4416) Dual OleAutomation Dispatchable
  1650. // GUID: {28B96BA0-B330-11CF-A9AD-00AA006BC149}
  1651. // *********************************************************************//
  1652. {$ifdef SUPPORTS_DISPINTERFACE}
  1653. IADsNamespacesDisp = dispinterface
  1654. ['{28B96BA0-B330-11CF-A9AD-00AA006BC149}']
  1655. property DefaultContainer: WideString dispid 1;
  1656. property Name: WideString readonly dispid 2;
  1657. property Class_: WideString readonly dispid 3;
  1658. property GUID: WideString readonly dispid 4;
  1659. property ADsPath: WideString readonly dispid 5;
  1660. property Parent: WideString readonly dispid 6;
  1661. property Schema: WideString readonly dispid 7;
  1662. procedure GetInfo; dispid 8;
  1663. procedure SetInfo; dispid 9;
  1664. function Get(const bstrName: WideString): OleVariant; dispid 10;
  1665. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  1666. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  1667. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  1668. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  1669. end;
  1670. {$endif}
  1671. // *********************************************************************//
  1672. // Interface: IADsClass
  1673. // Flags: (4416) Dual OleAutomation Dispatchable
  1674. // GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
  1675. // *********************************************************************//
  1676. IADsClass = interface(IADs)
  1677. ['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
  1678. function Get_PrimaryInterface: WideString; safecall;
  1679. function Get_CLSID: WideString; safecall;
  1680. procedure Set_CLSID(const retval: WideString); safecall;
  1681. function Get_OID: WideString; safecall;
  1682. procedure Set_OID(const retval: WideString); safecall;
  1683. function Get_Abstract: WordBool; safecall;
  1684. procedure Set_Abstract(retval: WordBool); safecall;
  1685. function Get_Auxiliary: WordBool; safecall;
  1686. procedure Set_Auxiliary(retval: WordBool); safecall;
  1687. function Get_MandatoryProperties: OleVariant; safecall;
  1688. procedure Set_MandatoryProperties(retval: OleVariant); safecall;
  1689. function Get_OptionalProperties: OleVariant; safecall;
  1690. procedure Set_OptionalProperties(retval: OleVariant); safecall;
  1691. function Get_NamingProperties: OleVariant; safecall;
  1692. procedure Set_NamingProperties(retval: OleVariant); safecall;
  1693. function Get_DerivedFrom: OleVariant; safecall;
  1694. procedure Set_DerivedFrom(retval: OleVariant); safecall;
  1695. function Get_AuxDerivedFrom: OleVariant; safecall;
  1696. procedure Set_AuxDerivedFrom(retval: OleVariant); safecall;
  1697. function Get_PossibleSuperiors: OleVariant; safecall;
  1698. procedure Set_PossibleSuperiors(retval: OleVariant); safecall;
  1699. function Get_Containment: OleVariant; safecall;
  1700. procedure Set_Containment(retval: OleVariant); safecall;
  1701. function Get_Container: WordBool; safecall;
  1702. procedure Set_Container(retval: WordBool); safecall;
  1703. function Get_HelpFileName: WideString; safecall;
  1704. procedure Set_HelpFileName(const retval: WideString); safecall;
  1705. function Get_HelpFileContext: Integer; safecall;
  1706. procedure Set_HelpFileContext(retval: Integer); safecall;
  1707. function Qualifiers: IADsCollection; safecall;
  1708. property PrimaryInterface: WideString read Get_PrimaryInterface;
  1709. property CLSID: WideString read Get_CLSID write Set_CLSID;
  1710. property OID: WideString read Get_OID write Set_OID;
  1711. property Abstract: WordBool read Get_Abstract write Set_Abstract;
  1712. property Auxiliary: WordBool read Get_Auxiliary write Set_Auxiliary;
  1713. property MandatoryProperties: OleVariant read Get_MandatoryProperties write Set_MandatoryProperties;
  1714. property OptionalProperties: OleVariant read Get_OptionalProperties write Set_OptionalProperties;
  1715. property NamingProperties: OleVariant read Get_NamingProperties write Set_NamingProperties;
  1716. property DerivedFrom: OleVariant read Get_DerivedFrom write Set_DerivedFrom;
  1717. property AuxDerivedFrom: OleVariant read Get_AuxDerivedFrom write Set_AuxDerivedFrom;
  1718. property PossibleSuperiors: OleVariant read Get_PossibleSuperiors write Set_PossibleSuperiors;
  1719. property Containment: OleVariant read Get_Containment write Set_Containment;
  1720. property Container: WordBool read Get_Container write Set_Container;
  1721. property HelpFileName: WideString read Get_HelpFileName write Set_HelpFileName;
  1722. property HelpFileContext: Integer read Get_HelpFileContext write Set_HelpFileContext;
  1723. end;
  1724. // *********************************************************************//
  1725. // DispIntf: IADsClassDisp
  1726. // Flags: (4416) Dual OleAutomation Dispatchable
  1727. // GUID: {C8F93DD0-4AE0-11CF-9E73-00AA004A5691}
  1728. // *********************************************************************//
  1729. {$ifdef SUPPORTS_DISPINTERFACE}
  1730. IADsClassDisp = dispinterface
  1731. ['{C8F93DD0-4AE0-11CF-9E73-00AA004A5691}']
  1732. property PrimaryInterface: WideString readonly dispid 15;
  1733. property CLSID: WideString dispid 16;
  1734. property OID: WideString dispid 17;
  1735. property Abstract: WordBool dispid 18;
  1736. property Auxiliary: WordBool dispid 26;
  1737. property MandatoryProperties: OleVariant dispid 19;
  1738. property OptionalProperties: OleVariant dispid 29;
  1739. property NamingProperties: OleVariant dispid 30;
  1740. property DerivedFrom: OleVariant dispid 20;
  1741. property AuxDerivedFrom: OleVariant dispid 27;
  1742. property PossibleSuperiors: OleVariant dispid 28;
  1743. property Containment: OleVariant dispid 21;
  1744. property Container: WordBool dispid 22;
  1745. property HelpFileName: WideString dispid 23;
  1746. property HelpFileContext: Integer dispid 24;
  1747. function Qualifiers: IADsCollection; dispid 25;
  1748. property Name: WideString readonly dispid 2;
  1749. property Class_: WideString readonly dispid 3;
  1750. property GUID: WideString readonly dispid 4;
  1751. property ADsPath: WideString readonly dispid 5;
  1752. property Parent: WideString readonly dispid 6;
  1753. property Schema: WideString readonly dispid 7;
  1754. procedure GetInfo; dispid 8;
  1755. procedure SetInfo; dispid 9;
  1756. function Get(const bstrName: WideString): OleVariant; dispid 10;
  1757. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  1758. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  1759. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  1760. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  1761. end;
  1762. {$endif}
  1763. // *********************************************************************//
  1764. // Interface: IADsProperty
  1765. // Flags: (4416) Dual OleAutomation Dispatchable
  1766. // GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
  1767. // *********************************************************************//
  1768. IADsProperty = interface(IADs)
  1769. ['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
  1770. function Get_OID: WideString; safecall;
  1771. procedure Set_OID(const retval: WideString); safecall;
  1772. function Get_Syntax: WideString; safecall;
  1773. procedure Set_Syntax(const retval: WideString); safecall;
  1774. function Get_MaxRange: Integer; safecall;
  1775. procedure Set_MaxRange(retval: Integer); safecall;
  1776. function Get_MinRange: Integer; safecall;
  1777. procedure Set_MinRange(retval: Integer); safecall;
  1778. function Get_MultiValued: WordBool; safecall;
  1779. procedure Set_MultiValued(retval: WordBool); safecall;
  1780. function Qualifiers: IADsCollection; safecall;
  1781. property OID: WideString read Get_OID write Set_OID;
  1782. property Syntax: WideString read Get_Syntax write Set_Syntax;
  1783. property MaxRange: Integer read Get_MaxRange write Set_MaxRange;
  1784. property MinRange: Integer read Get_MinRange write Set_MinRange;
  1785. property MultiValued: WordBool read Get_MultiValued write Set_MultiValued;
  1786. end;
  1787. // *********************************************************************//
  1788. // DispIntf: IADsPropertyDisp
  1789. // Flags: (4416) Dual OleAutomation Dispatchable
  1790. // GUID: {C8F93DD3-4AE0-11CF-9E73-00AA004A5691}
  1791. // *********************************************************************//
  1792. {$ifdef SUPPORTS_DISPINTERFACE}
  1793. IADsPropertyDisp = dispinterface
  1794. ['{C8F93DD3-4AE0-11CF-9E73-00AA004A5691}']
  1795. property OID: WideString dispid 17;
  1796. property Syntax: WideString dispid 18;
  1797. property MaxRange: Integer dispid 19;
  1798. property MinRange: Integer dispid 20;
  1799. property MultiValued: WordBool dispid 21;
  1800. function Qualifiers: IADsCollection; dispid 22;
  1801. property Name: WideString readonly dispid 2;
  1802. property Class_: WideString readonly dispid 3;
  1803. property GUID: WideString readonly dispid 4;
  1804. property ADsPath: WideString readonly dispid 5;
  1805. property Parent: WideString readonly dispid 6;
  1806. property Schema: WideString readonly dispid 7;
  1807. procedure GetInfo; dispid 8;
  1808. procedure SetInfo; dispid 9;
  1809. function Get(const bstrName: WideString): OleVariant; dispid 10;
  1810. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  1811. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  1812. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  1813. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  1814. end;
  1815. {$endif}
  1816. // *********************************************************************//
  1817. // Interface: IADsSyntax
  1818. // Flags: (4416) Dual OleAutomation Dispatchable
  1819. // GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
  1820. // *********************************************************************//
  1821. IADsSyntax = interface(IADs)
  1822. ['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
  1823. function Get_OleAutoDataType: Integer; safecall;
  1824. procedure Set_OleAutoDataType(retval: Integer); safecall;
  1825. property OleAutoDataType: Integer read Get_OleAutoDataType write Set_OleAutoDataType;
  1826. end;
  1827. // *********************************************************************//
  1828. // DispIntf: IADsSyntaxDisp
  1829. // Flags: (4416) Dual OleAutomation Dispatchable
  1830. // GUID: {C8F93DD2-4AE0-11CF-9E73-00AA004A5691}
  1831. // *********************************************************************//
  1832. {$ifdef SUPPORTS_DISPINTERFACE}
  1833. IADsSyntaxDisp = dispinterface
  1834. ['{C8F93DD2-4AE0-11CF-9E73-00AA004A5691}']
  1835. property OleAutoDataType: Integer dispid 15;
  1836. property Name: WideString readonly dispid 2;
  1837. property Class_: WideString readonly dispid 3;
  1838. property GUID: WideString readonly dispid 4;
  1839. property ADsPath: WideString readonly dispid 5;
  1840. property Parent: WideString readonly dispid 6;
  1841. property Schema: WideString readonly dispid 7;
  1842. procedure GetInfo; dispid 8;
  1843. procedure SetInfo; dispid 9;
  1844. function Get(const bstrName: WideString): OleVariant; dispid 10;
  1845. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  1846. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  1847. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  1848. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  1849. end;
  1850. {$endif}
  1851. // *********************************************************************//
  1852. // Interface: IADsLocality
  1853. // Flags: (4416) Dual OleAutomation Dispatchable
  1854. // GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
  1855. // *********************************************************************//
  1856. IADsLocality = interface(IADs)
  1857. ['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
  1858. function Get_Description: WideString; safecall;
  1859. procedure Set_Description(const retval: WideString); safecall;
  1860. function Get_LocalityName: WideString; safecall;
  1861. procedure Set_LocalityName(const retval: WideString); safecall;
  1862. function Get_PostalAddress: WideString; safecall;
  1863. procedure Set_PostalAddress(const retval: WideString); safecall;
  1864. function Get_SeeAlso: OleVariant; safecall;
  1865. procedure Set_SeeAlso(retval: OleVariant); safecall;
  1866. property Description: WideString read Get_Description write Set_Description;
  1867. property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
  1868. property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
  1869. property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
  1870. end;
  1871. // *********************************************************************//
  1872. // DispIntf: IADsLocalityDisp
  1873. // Flags: (4416) Dual OleAutomation Dispatchable
  1874. // GUID: {A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}
  1875. // *********************************************************************//
  1876. {$ifdef SUPPORTS_DISPINTERFACE}
  1877. IADsLocalityDisp = dispinterface
  1878. ['{A05E03A2-EFFE-11CF-8ABC-00C04FD8D503}']
  1879. property Description: WideString dispid 15;
  1880. property LocalityName: WideString dispid 16;
  1881. property PostalAddress: WideString dispid 17;
  1882. property SeeAlso: OleVariant dispid 18;
  1883. property Name: WideString readonly dispid 2;
  1884. property Class_: WideString readonly dispid 3;
  1885. property GUID: WideString readonly dispid 4;
  1886. property ADsPath: WideString readonly dispid 5;
  1887. property Parent: WideString readonly dispid 6;
  1888. property Schema: WideString readonly dispid 7;
  1889. procedure GetInfo; dispid 8;
  1890. procedure SetInfo; dispid 9;
  1891. function Get(const bstrName: WideString): OleVariant; dispid 10;
  1892. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  1893. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  1894. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  1895. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  1896. end;
  1897. {$endif}
  1898. // *********************************************************************//
  1899. // Interface: IADsO
  1900. // Flags: (4416) Dual OleAutomation Dispatchable
  1901. // GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
  1902. // *********************************************************************//
  1903. IADsO = interface(IADs)
  1904. ['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
  1905. function Get_Description: WideString; safecall;
  1906. procedure Set_Description(const retval: WideString); safecall;
  1907. function Get_LocalityName: WideString; safecall;
  1908. procedure Set_LocalityName(const retval: WideString); safecall;
  1909. function Get_PostalAddress: WideString; safecall;
  1910. procedure Set_PostalAddress(const retval: WideString); safecall;
  1911. function Get_TelephoneNumber: WideString; safecall;
  1912. procedure Set_TelephoneNumber(const retval: WideString); safecall;
  1913. function Get_FaxNumber: WideString; safecall;
  1914. procedure Set_FaxNumber(const retval: WideString); safecall;
  1915. function Get_SeeAlso: OleVariant; safecall;
  1916. procedure Set_SeeAlso(retval: OleVariant); safecall;
  1917. property Description: WideString read Get_Description write Set_Description;
  1918. property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
  1919. property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
  1920. property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
  1921. property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
  1922. property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
  1923. end;
  1924. // *********************************************************************//
  1925. // DispIntf: IADsODisp
  1926. // Flags: (4416) Dual OleAutomation Dispatchable
  1927. // GUID: {A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}
  1928. // *********************************************************************//
  1929. {$ifdef SUPPORTS_DISPINTERFACE}
  1930. IADsODisp = dispinterface
  1931. ['{A1CD2DC6-EFFE-11CF-8ABC-00C04FD8D503}']
  1932. property Description: WideString dispid 15;
  1933. property LocalityName: WideString dispid 16;
  1934. property PostalAddress: WideString dispid 17;
  1935. property TelephoneNumber: WideString dispid 18;
  1936. property FaxNumber: WideString dispid 19;
  1937. property SeeAlso: OleVariant dispid 20;
  1938. property Name: WideString readonly dispid 2;
  1939. property Class_: WideString readonly dispid 3;
  1940. property GUID: WideString readonly dispid 4;
  1941. property ADsPath: WideString readonly dispid 5;
  1942. property Parent: WideString readonly dispid 6;
  1943. property Schema: WideString readonly dispid 7;
  1944. procedure GetInfo; dispid 8;
  1945. procedure SetInfo; dispid 9;
  1946. function Get(const bstrName: WideString): OleVariant; dispid 10;
  1947. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  1948. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  1949. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  1950. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  1951. end;
  1952. {$endif}
  1953. // *********************************************************************//
  1954. // Interface: IADsOU
  1955. // Flags: (4416) Dual OleAutomation Dispatchable
  1956. // GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
  1957. // *********************************************************************//
  1958. IADsOU = interface(IADs)
  1959. ['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
  1960. function Get_Description: WideString; safecall;
  1961. procedure Set_Description(const retval: WideString); safecall;
  1962. function Get_LocalityName: WideString; safecall;
  1963. procedure Set_LocalityName(const retval: WideString); safecall;
  1964. function Get_PostalAddress: WideString; safecall;
  1965. procedure Set_PostalAddress(const retval: WideString); safecall;
  1966. function Get_TelephoneNumber: WideString; safecall;
  1967. procedure Set_TelephoneNumber(const retval: WideString); safecall;
  1968. function Get_FaxNumber: WideString; safecall;
  1969. procedure Set_FaxNumber(const retval: WideString); safecall;
  1970. function Get_SeeAlso: OleVariant; safecall;
  1971. procedure Set_SeeAlso(retval: OleVariant); safecall;
  1972. function Get_BusinessCategory: WideString; safecall;
  1973. procedure Set_BusinessCategory(const retval: WideString); safecall;
  1974. property Description: WideString read Get_Description write Set_Description;
  1975. property LocalityName: WideString read Get_LocalityName write Set_LocalityName;
  1976. property PostalAddress: WideString read Get_PostalAddress write Set_PostalAddress;
  1977. property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
  1978. property FaxNumber: WideString read Get_FaxNumber write Set_FaxNumber;
  1979. property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
  1980. property BusinessCategory: WideString read Get_BusinessCategory write Set_BusinessCategory;
  1981. end;
  1982. // *********************************************************************//
  1983. // DispIntf: IADsOUDisp
  1984. // Flags: (4416) Dual OleAutomation Dispatchable
  1985. // GUID: {A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}
  1986. // *********************************************************************//
  1987. {$ifdef SUPPORTS_DISPINTERFACE}
  1988. IADsOUDisp = dispinterface
  1989. ['{A2F733B8-EFFE-11CF-8ABC-00C04FD8D503}']
  1990. property Description: WideString dispid 15;
  1991. property LocalityName: WideString dispid 16;
  1992. property PostalAddress: WideString dispid 17;
  1993. property TelephoneNumber: WideString dispid 18;
  1994. property FaxNumber: WideString dispid 19;
  1995. property SeeAlso: OleVariant dispid 20;
  1996. property BusinessCategory: WideString dispid 21;
  1997. property Name: WideString readonly dispid 2;
  1998. property Class_: WideString readonly dispid 3;
  1999. property GUID: WideString readonly dispid 4;
  2000. property ADsPath: WideString readonly dispid 5;
  2001. property Parent: WideString readonly dispid 6;
  2002. property Schema: WideString readonly dispid 7;
  2003. procedure GetInfo; dispid 8;
  2004. procedure SetInfo; dispid 9;
  2005. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2006. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2007. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2008. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2009. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2010. end;
  2011. {$endif}
  2012. // *********************************************************************//
  2013. // Interface: IADsDomain
  2014. // Flags: (4416) Dual OleAutomation Dispatchable
  2015. // GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
  2016. // *********************************************************************//
  2017. IADsDomain = interface(IADs)
  2018. ['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
  2019. function Get_IsWorkgroup: WordBool; safecall;
  2020. function Get_MinPasswordLength: Integer; safecall;
  2021. procedure Set_MinPasswordLength(retval: Integer); safecall;
  2022. function Get_MinPasswordAge: Integer; safecall;
  2023. procedure Set_MinPasswordAge(retval: Integer); safecall;
  2024. function Get_MaxPasswordAge: Integer; safecall;
  2025. procedure Set_MaxPasswordAge(retval: Integer); safecall;
  2026. function Get_MaxBadPasswordsAllowed: Integer; safecall;
  2027. procedure Set_MaxBadPasswordsAllowed(retval: Integer); safecall;
  2028. function Get_PasswordHistoryLength: Integer; safecall;
  2029. procedure Set_PasswordHistoryLength(retval: Integer); safecall;
  2030. function Get_PasswordAttributes: Integer; safecall;
  2031. procedure Set_PasswordAttributes(retval: Integer); safecall;
  2032. function Get_AutoUnlockInterval: Integer; safecall;
  2033. procedure Set_AutoUnlockInterval(retval: Integer); safecall;
  2034. function Get_LockoutObservationInterval: Integer; safecall;
  2035. procedure Set_LockoutObservationInterval(retval: Integer); safecall;
  2036. property IsWorkgroup: WordBool read Get_IsWorkgroup;
  2037. property MinPasswordLength: Integer read Get_MinPasswordLength write Set_MinPasswordLength;
  2038. property MinPasswordAge: Integer read Get_MinPasswordAge write Set_MinPasswordAge;
  2039. property MaxPasswordAge: Integer read Get_MaxPasswordAge write Set_MaxPasswordAge;
  2040. property MaxBadPasswordsAllowed: Integer read Get_MaxBadPasswordsAllowed write Set_MaxBadPasswordsAllowed;
  2041. property PasswordHistoryLength: Integer read Get_PasswordHistoryLength write Set_PasswordHistoryLength;
  2042. property PasswordAttributes: Integer read Get_PasswordAttributes write Set_PasswordAttributes;
  2043. property AutoUnlockInterval: Integer read Get_AutoUnlockInterval write Set_AutoUnlockInterval;
  2044. property LockoutObservationInterval: Integer read Get_LockoutObservationInterval write Set_LockoutObservationInterval;
  2045. end;
  2046. // *********************************************************************//
  2047. // DispIntf: IADsDomainDisp
  2048. // Flags: (4416) Dual OleAutomation Dispatchable
  2049. // GUID: {00E4C220-FD16-11CE-ABC4-02608C9E7553}
  2050. // *********************************************************************//
  2051. {$ifdef SUPPORTS_DISPINTERFACE}
  2052. IADsDomainDisp = dispinterface
  2053. ['{00E4C220-FD16-11CE-ABC4-02608C9E7553}']
  2054. property IsWorkgroup: WordBool readonly dispid 15;
  2055. property MinPasswordLength: Integer dispid 16;
  2056. property MinPasswordAge: Integer dispid 17;
  2057. property MaxPasswordAge: Integer dispid 18;
  2058. property MaxBadPasswordsAllowed: Integer dispid 19;
  2059. property PasswordHistoryLength: Integer dispid 20;
  2060. property PasswordAttributes: Integer dispid 21;
  2061. property AutoUnlockInterval: Integer dispid 22;
  2062. property LockoutObservationInterval: Integer dispid 23;
  2063. property Name: WideString readonly dispid 2;
  2064. property Class_: WideString readonly dispid 3;
  2065. property GUID: WideString readonly dispid 4;
  2066. property ADsPath: WideString readonly dispid 5;
  2067. property Parent: WideString readonly dispid 6;
  2068. property Schema: WideString readonly dispid 7;
  2069. procedure GetInfo; dispid 8;
  2070. procedure SetInfo; dispid 9;
  2071. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2072. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2073. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2074. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2075. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2076. end;
  2077. {$endif}
  2078. // *********************************************************************//
  2079. // Interface: IADsComputer
  2080. // Flags: (4416) Dual OleAutomation Dispatchable
  2081. // GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
  2082. // *********************************************************************//
  2083. IADsComputer = interface(IADs)
  2084. ['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
  2085. function Get_ComputerID: WideString; safecall;
  2086. function Get_Site: WideString; safecall;
  2087. function Get_Description: WideString; safecall;
  2088. procedure Set_Description(const retval: WideString); safecall;
  2089. function Get_Location: WideString; safecall;
  2090. procedure Set_Location(const retval: WideString); safecall;
  2091. function Get_PrimaryUser: WideString; safecall;
  2092. procedure Set_PrimaryUser(const retval: WideString); safecall;
  2093. function Get_Owner: WideString; safecall;
  2094. procedure Set_Owner(const retval: WideString); safecall;
  2095. function Get_Division: WideString; safecall;
  2096. procedure Set_Division(const retval: WideString); safecall;
  2097. function Get_Department: WideString; safecall;
  2098. procedure Set_Department(const retval: WideString); safecall;
  2099. function Get_Role: WideString; safecall;
  2100. procedure Set_Role(const retval: WideString); safecall;
  2101. function Get_OperatingSystem: WideString; safecall;
  2102. procedure Set_OperatingSystem(const retval: WideString); safecall;
  2103. function Get_OperatingSystemVersion: WideString; safecall;
  2104. procedure Set_OperatingSystemVersion(const retval: WideString); safecall;
  2105. function Get_Model: WideString; safecall;
  2106. procedure Set_Model(const retval: WideString); safecall;
  2107. function Get_Processor: WideString; safecall;
  2108. procedure Set_Processor(const retval: WideString); safecall;
  2109. function Get_ProcessorCount: WideString; safecall;
  2110. procedure Set_ProcessorCount(const retval: WideString); safecall;
  2111. function Get_MemorySize: WideString; safecall;
  2112. procedure Set_MemorySize(const retval: WideString); safecall;
  2113. function Get_StorageCapacity: WideString; safecall;
  2114. procedure Set_StorageCapacity(const retval: WideString); safecall;
  2115. function Get_NetAddresses: OleVariant; safecall;
  2116. procedure Set_NetAddresses(retval: OleVariant); safecall;
  2117. property ComputerID: WideString read Get_ComputerID;
  2118. property Site: WideString read Get_Site;
  2119. property Description: WideString read Get_Description write Set_Description;
  2120. property Location: WideString read Get_Location write Set_Location;
  2121. property PrimaryUser: WideString read Get_PrimaryUser write Set_PrimaryUser;
  2122. property Owner: WideString read Get_Owner write Set_Owner;
  2123. property Division: WideString read Get_Division write Set_Division;
  2124. property Department: WideString read Get_Department write Set_Department;
  2125. property Role: WideString read Get_Role write Set_Role;
  2126. property OperatingSystem: WideString read Get_OperatingSystem write Set_OperatingSystem;
  2127. property OperatingSystemVersion: WideString read Get_OperatingSystemVersion write Set_OperatingSystemVersion;
  2128. property Model: WideString read Get_Model write Set_Model;
  2129. property Processor: WideString read Get_Processor write Set_Processor;
  2130. property ProcessorCount: WideString read Get_ProcessorCount write Set_ProcessorCount;
  2131. property MemorySize: WideString read Get_MemorySize write Set_MemorySize;
  2132. property StorageCapacity: WideString read Get_StorageCapacity write Set_StorageCapacity;
  2133. property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
  2134. end;
  2135. // *********************************************************************//
  2136. // DispIntf: IADsComputerDisp
  2137. // Flags: (4416) Dual OleAutomation Dispatchable
  2138. // GUID: {EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}
  2139. // *********************************************************************//
  2140. {$ifdef SUPPORTS_DISPINTERFACE}
  2141. IADsComputerDisp = dispinterface
  2142. ['{EFE3CC70-1D9F-11CF-B1F3-02608C9E7553}']
  2143. property ComputerID: WideString readonly dispid 16;
  2144. property Site: WideString readonly dispid 18;
  2145. property Description: WideString dispid 19;
  2146. property Location: WideString dispid 20;
  2147. property PrimaryUser: WideString dispid 21;
  2148. property Owner: WideString dispid 22;
  2149. property Division: WideString dispid 23;
  2150. property Department: WideString dispid 24;
  2151. property Role: WideString dispid 25;
  2152. property OperatingSystem: WideString dispid 26;
  2153. property OperatingSystemVersion: WideString dispid 27;
  2154. property Model: WideString dispid 28;
  2155. property Processor: WideString dispid 29;
  2156. property ProcessorCount: WideString dispid 30;
  2157. property MemorySize: WideString dispid 31;
  2158. property StorageCapacity: WideString dispid 32;
  2159. property NetAddresses: OleVariant dispid 17;
  2160. property Name: WideString readonly dispid 2;
  2161. property Class_: WideString readonly dispid 3;
  2162. property GUID: WideString readonly dispid 4;
  2163. property ADsPath: WideString readonly dispid 5;
  2164. property Parent: WideString readonly dispid 6;
  2165. property Schema: WideString readonly dispid 7;
  2166. procedure GetInfo; dispid 8;
  2167. procedure SetInfo; dispid 9;
  2168. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2169. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2170. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2171. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2172. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2173. end;
  2174. {$endif}
  2175. // *********************************************************************//
  2176. // Interface: IADsComputerOperations
  2177. // Flags: (4416) Dual OleAutomation Dispatchable
  2178. // GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
  2179. // *********************************************************************//
  2180. IADsComputerOperations = interface(IADs)
  2181. ['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
  2182. function Status: IDispatch; safecall;
  2183. procedure Shutdown(bReboot: WordBool); safecall;
  2184. end;
  2185. // *********************************************************************//
  2186. // DispIntf: IADsComputerOperationsDisp
  2187. // Flags: (4416) Dual OleAutomation Dispatchable
  2188. // GUID: {EF497680-1D9F-11CF-B1F3-02608C9E7553}
  2189. // *********************************************************************//
  2190. {$ifdef SUPPORTS_DISPINTERFACE}
  2191. IADsComputerOperationsDisp = dispinterface
  2192. ['{EF497680-1D9F-11CF-B1F3-02608C9E7553}']
  2193. function Status: IDispatch; dispid 33;
  2194. procedure Shutdown(bReboot: WordBool); dispid 34;
  2195. property Name: WideString readonly dispid 2;
  2196. property Class_: WideString readonly dispid 3;
  2197. property GUID: WideString readonly dispid 4;
  2198. property ADsPath: WideString readonly dispid 5;
  2199. property Parent: WideString readonly dispid 6;
  2200. property Schema: WideString readonly dispid 7;
  2201. procedure GetInfo; dispid 8;
  2202. procedure SetInfo; dispid 9;
  2203. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2204. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2205. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2206. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2207. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2208. end;
  2209. {$endif}
  2210. // *********************************************************************//
  2211. // Interface: IADsGroup
  2212. // Flags: (4416) Dual OleAutomation Dispatchable
  2213. // GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
  2214. // *********************************************************************//
  2215. IADsGroup = interface(IADs)
  2216. ['{27636B00-410F-11CF-B1FF-02608C9E7553}']
  2217. function Get_Description: WideString; safecall;
  2218. procedure Set_Description(const retval: WideString); safecall;
  2219. function Members: IADsMembers; safecall;
  2220. function IsMember(const bstrMember: WideString): WordBool; safecall;
  2221. procedure Add(const bstrNewItem: WideString); safecall;
  2222. procedure Remove(const bstrItemToBeRemoved: WideString); safecall;
  2223. property Description: WideString read Get_Description write Set_Description;
  2224. end;
  2225. // *********************************************************************//
  2226. // DispIntf: IADsGroupDisp
  2227. // Flags: (4416) Dual OleAutomation Dispatchable
  2228. // GUID: {27636B00-410F-11CF-B1FF-02608C9E7553}
  2229. // *********************************************************************//
  2230. {$ifdef SUPPORTS_DISPINTERFACE}
  2231. IADsGroupDisp = dispinterface
  2232. ['{27636B00-410F-11CF-B1FF-02608C9E7553}']
  2233. property Description: WideString dispid 15;
  2234. function Members: IADsMembers; dispid 16;
  2235. function IsMember(const bstrMember: WideString): WordBool; dispid 17;
  2236. procedure Add(const bstrNewItem: WideString); dispid 18;
  2237. procedure Remove(const bstrItemToBeRemoved: WideString); dispid 19;
  2238. property Name: WideString readonly dispid 2;
  2239. property Class_: WideString readonly dispid 3;
  2240. property GUID: WideString readonly dispid 4;
  2241. property ADsPath: WideString readonly dispid 5;
  2242. property Parent: WideString readonly dispid 6;
  2243. property Schema: WideString readonly dispid 7;
  2244. procedure GetInfo; dispid 8;
  2245. procedure SetInfo; dispid 9;
  2246. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2247. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2248. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2249. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2250. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2251. end;
  2252. {$endif}
  2253. // *********************************************************************//
  2254. // Interface: IADsUser
  2255. // Flags: (4416) Dual OleAutomation Dispatchable
  2256. // GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
  2257. // *********************************************************************//
  2258. IADsUser = interface(IADs)
  2259. ['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
  2260. function Get_BadLoginAddress: WideString; safecall;
  2261. function Get_BadLoginCount: Integer; safecall;
  2262. function Get_LastLogin: TDateTime; safecall;
  2263. function Get_LastLogoff: TDateTime; safecall;
  2264. function Get_LastFailedLogin: TDateTime; safecall;
  2265. function Get_PasswordLastChanged: TDateTime; safecall;
  2266. function Get_Description: WideString; safecall;
  2267. procedure Set_Description(const retval: WideString); safecall;
  2268. function Get_Division: WideString; safecall;
  2269. procedure Set_Division(const retval: WideString); safecall;
  2270. function Get_Department: WideString; safecall;
  2271. procedure Set_Department(const retval: WideString); safecall;
  2272. function Get_EmployeeID: WideString; safecall;
  2273. procedure Set_EmployeeID(const retval: WideString); safecall;
  2274. function Get_FullName: WideString; safecall;
  2275. procedure Set_FullName(const retval: WideString); safecall;
  2276. function Get_FirstName: WideString; safecall;
  2277. procedure Set_FirstName(const retval: WideString); safecall;
  2278. function Get_LastName: WideString; safecall;
  2279. procedure Set_LastName(const retval: WideString); safecall;
  2280. function Get_OtherName: WideString; safecall;
  2281. procedure Set_OtherName(const retval: WideString); safecall;
  2282. function Get_NamePrefix: WideString; safecall;
  2283. procedure Set_NamePrefix(const retval: WideString); safecall;
  2284. function Get_NameSuffix: WideString; safecall;
  2285. procedure Set_NameSuffix(const retval: WideString); safecall;
  2286. function Get_Title: WideString; safecall;
  2287. procedure Set_Title(const retval: WideString); safecall;
  2288. function Get_Manager: WideString; safecall;
  2289. procedure Set_Manager(const retval: WideString); safecall;
  2290. function Get_TelephoneHome: OleVariant; safecall;
  2291. procedure Set_TelephoneHome(retval: OleVariant); safecall;
  2292. function Get_TelephoneMobile: OleVariant; safecall;
  2293. procedure Set_TelephoneMobile(retval: OleVariant); safecall;
  2294. function Get_TelephoneNumber: OleVariant; safecall;
  2295. procedure Set_TelephoneNumber(retval: OleVariant); safecall;
  2296. function Get_TelephonePager: OleVariant; safecall;
  2297. procedure Set_TelephonePager(retval: OleVariant); safecall;
  2298. function Get_FaxNumber: OleVariant; safecall;
  2299. procedure Set_FaxNumber(retval: OleVariant); safecall;
  2300. function Get_OfficeLocations: OleVariant; safecall;
  2301. procedure Set_OfficeLocations(retval: OleVariant); safecall;
  2302. function Get_PostalAddresses: OleVariant; safecall;
  2303. procedure Set_PostalAddresses(retval: OleVariant); safecall;
  2304. function Get_PostalCodes: OleVariant; safecall;
  2305. procedure Set_PostalCodes(retval: OleVariant); safecall;
  2306. function Get_SeeAlso: OleVariant; safecall;
  2307. procedure Set_SeeAlso(retval: OleVariant); safecall;
  2308. function Get_AccountDisabled: WordBool; safecall;
  2309. procedure Set_AccountDisabled(retval: WordBool); safecall;
  2310. function Get_AccountExpirationDate: TDateTime; safecall;
  2311. procedure Set_AccountExpirationDate(retval: TDateTime); safecall;
  2312. function Get_GraceLoginsAllowed: Integer; safecall;
  2313. procedure Set_GraceLoginsAllowed(retval: Integer); safecall;
  2314. function Get_GraceLoginsRemaining: Integer; safecall;
  2315. procedure Set_GraceLoginsRemaining(retval: Integer); safecall;
  2316. function Get_IsAccountLocked: WordBool; safecall;
  2317. procedure Set_IsAccountLocked(retval: WordBool); safecall;
  2318. function Get_LoginHours: OleVariant; safecall;
  2319. procedure Set_LoginHours(retval: OleVariant); safecall;
  2320. function Get_LoginWorkstations: OleVariant; safecall;
  2321. procedure Set_LoginWorkstations(retval: OleVariant); safecall;
  2322. function Get_MaxLogins: Integer; safecall;
  2323. procedure Set_MaxLogins(retval: Integer); safecall;
  2324. function Get_MaxStorage: Integer; safecall;
  2325. procedure Set_MaxStorage(retval: Integer); safecall;
  2326. function Get_PasswordExpirationDate: TDateTime; safecall;
  2327. procedure Set_PasswordExpirationDate(retval: TDateTime); safecall;
  2328. function Get_PasswordMinimumLength: Integer; safecall;
  2329. procedure Set_PasswordMinimumLength(retval: Integer); safecall;
  2330. function Get_PasswordRequired: WordBool; safecall;
  2331. procedure Set_PasswordRequired(retval: WordBool); safecall;
  2332. function Get_RequireUniquePassword: WordBool; safecall;
  2333. procedure Set_RequireUniquePassword(retval: WordBool); safecall;
  2334. function Get_EmailAddress: WideString; safecall;
  2335. procedure Set_EmailAddress(const retval: WideString); safecall;
  2336. function Get_HomeDirectory: WideString; safecall;
  2337. procedure Set_HomeDirectory(const retval: WideString); safecall;
  2338. function Get_Languages: OleVariant; safecall;
  2339. procedure Set_Languages(retval: OleVariant); safecall;
  2340. function Get_Profile: WideString; safecall;
  2341. procedure Set_Profile(const retval: WideString); safecall;
  2342. function Get_LoginScript: WideString; safecall;
  2343. procedure Set_LoginScript(const retval: WideString); safecall;
  2344. function Get_Picture: OleVariant; safecall;
  2345. procedure Set_Picture(retval: OleVariant); safecall;
  2346. function Get_HomePage: WideString; safecall;
  2347. procedure Set_HomePage(const retval: WideString); safecall;
  2348. function Groups: IADsMembers; safecall;
  2349. procedure SetPassword(const NewPassword: WideString); safecall;
  2350. procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); safecall;
  2351. property BadLoginAddress: WideString read Get_BadLoginAddress;
  2352. property BadLoginCount: Integer read Get_BadLoginCount;
  2353. property LastLogin: TDateTime read Get_LastLogin;
  2354. property LastLogoff: TDateTime read Get_LastLogoff;
  2355. property LastFailedLogin: TDateTime read Get_LastFailedLogin;
  2356. property PasswordLastChanged: TDateTime read Get_PasswordLastChanged;
  2357. property Description: WideString read Get_Description write Set_Description;
  2358. property Division: WideString read Get_Division write Set_Division;
  2359. property Department: WideString read Get_Department write Set_Department;
  2360. property EmployeeID: WideString read Get_EmployeeID write Set_EmployeeID;
  2361. property FullName: WideString read Get_FullName write Set_FullName;
  2362. property FirstName: WideString read Get_FirstName write Set_FirstName;
  2363. property LastName: WideString read Get_LastName write Set_LastName;
  2364. property OtherName: WideString read Get_OtherName write Set_OtherName;
  2365. property NamePrefix: WideString read Get_NamePrefix write Set_NamePrefix;
  2366. property NameSuffix: WideString read Get_NameSuffix write Set_NameSuffix;
  2367. property Title: WideString read Get_Title write Set_Title;
  2368. property Manager: WideString read Get_Manager write Set_Manager;
  2369. property TelephoneHome: OleVariant read Get_TelephoneHome write Set_TelephoneHome;
  2370. property TelephoneMobile: OleVariant read Get_TelephoneMobile write Set_TelephoneMobile;
  2371. property TelephoneNumber: OleVariant read Get_TelephoneNumber write Set_TelephoneNumber;
  2372. property TelephonePager: OleVariant read Get_TelephonePager write Set_TelephonePager;
  2373. property FaxNumber: OleVariant read Get_FaxNumber write Set_FaxNumber;
  2374. property OfficeLocations: OleVariant read Get_OfficeLocations write Set_OfficeLocations;
  2375. property PostalAddresses: OleVariant read Get_PostalAddresses write Set_PostalAddresses;
  2376. property PostalCodes: OleVariant read Get_PostalCodes write Set_PostalCodes;
  2377. property SeeAlso: OleVariant read Get_SeeAlso write Set_SeeAlso;
  2378. property AccountDisabled: WordBool read Get_AccountDisabled write Set_AccountDisabled;
  2379. property AccountExpirationDate: TDateTime read Get_AccountExpirationDate write Set_AccountExpirationDate;
  2380. property GraceLoginsAllowed: Integer read Get_GraceLoginsAllowed write Set_GraceLoginsAllowed;
  2381. property GraceLoginsRemaining: Integer read Get_GraceLoginsRemaining write Set_GraceLoginsRemaining;
  2382. property IsAccountLocked: WordBool read Get_IsAccountLocked write Set_IsAccountLocked;
  2383. property LoginHours: OleVariant read Get_LoginHours write Set_LoginHours;
  2384. property LoginWorkstations: OleVariant read Get_LoginWorkstations write Set_LoginWorkstations;
  2385. property MaxLogins: Integer read Get_MaxLogins write Set_MaxLogins;
  2386. property MaxStorage: Integer read Get_MaxStorage write Set_MaxStorage;
  2387. property PasswordExpirationDate: TDateTime read Get_PasswordExpirationDate write Set_PasswordExpirationDate;
  2388. property PasswordMinimumLength: Integer read Get_PasswordMinimumLength write Set_PasswordMinimumLength;
  2389. property PasswordRequired: WordBool read Get_PasswordRequired write Set_PasswordRequired;
  2390. property RequireUniquePassword: WordBool read Get_RequireUniquePassword write Set_RequireUniquePassword;
  2391. property EmailAddress: WideString read Get_EmailAddress write Set_EmailAddress;
  2392. property HomeDirectory: WideString read Get_HomeDirectory write Set_HomeDirectory;
  2393. property Languages: OleVariant read Get_Languages write Set_Languages;
  2394. property Profile: WideString read Get_Profile write Set_Profile;
  2395. property LoginScript: WideString read Get_LoginScript write Set_LoginScript;
  2396. property Picture: OleVariant read Get_Picture write Set_Picture;
  2397. property HomePage: WideString read Get_HomePage write Set_HomePage;
  2398. end;
  2399. // *********************************************************************//
  2400. // DispIntf: IADsUserDisp
  2401. // Flags: (4416) Dual OleAutomation Dispatchable
  2402. // GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
  2403. // *********************************************************************//
  2404. {$ifdef SUPPORTS_DISPINTERFACE}
  2405. IADsUserDisp = dispinterface
  2406. ['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
  2407. property BadLoginAddress: WideString readonly dispid 53;
  2408. property BadLoginCount: Integer readonly dispid 54;
  2409. property LastLogin: TDateTime readonly dispid 56;
  2410. property LastLogoff: TDateTime readonly dispid 57;
  2411. property LastFailedLogin: TDateTime readonly dispid 58;
  2412. property PasswordLastChanged: TDateTime readonly dispid 59;
  2413. property Description: WideString dispid 15;
  2414. property Division: WideString dispid 19;
  2415. property Department: WideString dispid 122;
  2416. property EmployeeID: WideString dispid 20;
  2417. property FullName: WideString dispid 23;
  2418. property FirstName: WideString dispid 22;
  2419. property LastName: WideString dispid 25;
  2420. property OtherName: WideString dispid 27;
  2421. property NamePrefix: WideString dispid 114;
  2422. property NameSuffix: WideString dispid 115;
  2423. property Title: WideString dispid 36;
  2424. property Manager: WideString dispid 26;
  2425. property TelephoneHome: OleVariant dispid 32;
  2426. property TelephoneMobile: OleVariant dispid 33;
  2427. property TelephoneNumber: OleVariant dispid 34;
  2428. property TelephonePager: OleVariant dispid 17;
  2429. property FaxNumber: OleVariant dispid 16;
  2430. property OfficeLocations: OleVariant dispid 28;
  2431. property PostalAddresses: OleVariant dispid 30;
  2432. property PostalCodes: OleVariant dispid 31;
  2433. property SeeAlso: OleVariant dispid 117;
  2434. property AccountDisabled: WordBool dispid 37;
  2435. property AccountExpirationDate: TDateTime dispid 38;
  2436. property GraceLoginsAllowed: Integer dispid 41;
  2437. property GraceLoginsRemaining: Integer dispid 42;
  2438. property IsAccountLocked: WordBool dispid 43;
  2439. property LoginHours: OleVariant dispid 45;
  2440. property LoginWorkstations: OleVariant dispid 46;
  2441. property MaxLogins: Integer dispid 47;
  2442. property MaxStorage: Integer dispid 48;
  2443. property PasswordExpirationDate: TDateTime dispid 49;
  2444. property PasswordMinimumLength: Integer dispid 50;
  2445. property PasswordRequired: WordBool dispid 51;
  2446. property RequireUniquePassword: WordBool dispid 52;
  2447. property EmailAddress: WideString dispid 60;
  2448. property HomeDirectory: WideString dispid 61;
  2449. property Languages: OleVariant dispid 62;
  2450. property Profile: WideString dispid 63;
  2451. property LoginScript: WideString dispid 64;
  2452. property Picture: OleVariant dispid 65;
  2453. property HomePage: WideString dispid 120;
  2454. function Groups: IADsMembers; dispid 66;
  2455. procedure SetPassword(const NewPassword: WideString); dispid 67;
  2456. procedure ChangePassword(const bstrOldPassword: WideString; const bstrNewPassword: WideString); dispid 68;
  2457. property Name: WideString readonly dispid 2;
  2458. property Class_: WideString readonly dispid 3;
  2459. property GUID: WideString readonly dispid 4;
  2460. property ADsPath: WideString readonly dispid 5;
  2461. property Parent: WideString readonly dispid 6;
  2462. property Schema: WideString readonly dispid 7;
  2463. procedure GetInfo; dispid 8;
  2464. procedure SetInfo; dispid 9;
  2465. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2466. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2467. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2468. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2469. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2470. end;
  2471. {$endif}
  2472. // *********************************************************************//
  2473. // Interface: IADsPrintQueue
  2474. // Flags: (4416) Dual OleAutomation Dispatchable
  2475. // GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
  2476. // *********************************************************************//
  2477. IADsPrintQueue = interface(IADs)
  2478. ['{B15160D0-1226-11CF-A985-00AA006BC149}']
  2479. function Get_PrinterPath: WideString; safecall;
  2480. procedure Set_PrinterPath(const retval: WideString); safecall;
  2481. function Get_Model: WideString; safecall;
  2482. procedure Set_Model(const retval: WideString); safecall;
  2483. function Get_Datatype: WideString; safecall;
  2484. procedure Set_Datatype(const retval: WideString); safecall;
  2485. function Get_PrintProcessor: WideString; safecall;
  2486. procedure Set_PrintProcessor(const retval: WideString); safecall;
  2487. function Get_Description: WideString; safecall;
  2488. procedure Set_Description(const retval: WideString); safecall;
  2489. function Get_Location: WideString; safecall;
  2490. procedure Set_Location(const retval: WideString); safecall;
  2491. function Get_StartTime: TDateTime; safecall;
  2492. procedure Set_StartTime(retval: TDateTime); safecall;
  2493. function Get_UntilTime: TDateTime; safecall;
  2494. procedure Set_UntilTime(retval: TDateTime); safecall;
  2495. function Get_DefaultJobPriority: Integer; safecall;
  2496. procedure Set_DefaultJobPriority(retval: Integer); safecall;
  2497. function Get_Priority: Integer; safecall;
  2498. procedure Set_Priority(retval: Integer); safecall;
  2499. function Get_BannerPage: WideString; safecall;
  2500. procedure Set_BannerPage(const retval: WideString); safecall;
  2501. function Get_PrintDevices: OleVariant; safecall;
  2502. procedure Set_PrintDevices(retval: OleVariant); safecall;
  2503. function Get_NetAddresses: OleVariant; safecall;
  2504. procedure Set_NetAddresses(retval: OleVariant); safecall;
  2505. property PrinterPath: WideString read Get_PrinterPath write Set_PrinterPath;
  2506. property Model: WideString read Get_Model write Set_Model;
  2507. property Datatype: WideString read Get_Datatype write Set_Datatype;
  2508. property PrintProcessor: WideString read Get_PrintProcessor write Set_PrintProcessor;
  2509. property Description: WideString read Get_Description write Set_Description;
  2510. property Location: WideString read Get_Location write Set_Location;
  2511. property StartTime: TDateTime read Get_StartTime write Set_StartTime;
  2512. property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
  2513. property DefaultJobPriority: Integer read Get_DefaultJobPriority write Set_DefaultJobPriority;
  2514. property Priority: Integer read Get_Priority write Set_Priority;
  2515. property BannerPage: WideString read Get_BannerPage write Set_BannerPage;
  2516. property PrintDevices: OleVariant read Get_PrintDevices write Set_PrintDevices;
  2517. property NetAddresses: OleVariant read Get_NetAddresses write Set_NetAddresses;
  2518. end;
  2519. // *********************************************************************//
  2520. // DispIntf: IADsPrintQueueDisp
  2521. // Flags: (4416) Dual OleAutomation Dispatchable
  2522. // GUID: {B15160D0-1226-11CF-A985-00AA006BC149}
  2523. // *********************************************************************//
  2524. {$ifdef SUPPORTS_DISPINTERFACE}
  2525. IADsPrintQueueDisp = dispinterface
  2526. ['{B15160D0-1226-11CF-A985-00AA006BC149}']
  2527. property PrinterPath: WideString dispid 15;
  2528. property Model: WideString dispid 16;
  2529. property Datatype: WideString dispid 17;
  2530. property PrintProcessor: WideString dispid 18;
  2531. property Description: WideString dispid 19;
  2532. property Location: WideString dispid 20;
  2533. property StartTime: TDateTime dispid 21;
  2534. property UntilTime: TDateTime dispid 22;
  2535. property DefaultJobPriority: Integer dispid 23;
  2536. property Priority: Integer dispid 24;
  2537. property BannerPage: WideString dispid 25;
  2538. property PrintDevices: OleVariant dispid 26;
  2539. property NetAddresses: OleVariant dispid 27;
  2540. property Name: WideString readonly dispid 2;
  2541. property Class_: WideString readonly dispid 3;
  2542. property GUID: WideString readonly dispid 4;
  2543. property ADsPath: WideString readonly dispid 5;
  2544. property Parent: WideString readonly dispid 6;
  2545. property Schema: WideString readonly dispid 7;
  2546. procedure GetInfo; dispid 8;
  2547. procedure SetInfo; dispid 9;
  2548. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2549. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2550. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2551. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2552. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2553. end;
  2554. {$endif}
  2555. // *********************************************************************//
  2556. // Interface: IADsPrintQueueOperations
  2557. // Flags: (4416) Dual OleAutomation Dispatchable
  2558. // GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
  2559. // *********************************************************************//
  2560. IADsPrintQueueOperations = interface(IADs)
  2561. ['{124BE5C0-156E-11CF-A986-00AA006BC149}']
  2562. function Get_Status: Integer; safecall;
  2563. function PrintJobs: IADsCollection; safecall;
  2564. procedure Pause; safecall;
  2565. procedure Resume; safecall;
  2566. procedure Purge; safecall;
  2567. property Status: Integer read Get_Status;
  2568. end;
  2569. // *********************************************************************//
  2570. // DispIntf: IADsPrintQueueOperationsDisp
  2571. // Flags: (4416) Dual OleAutomation Dispatchable
  2572. // GUID: {124BE5C0-156E-11CF-A986-00AA006BC149}
  2573. // *********************************************************************//
  2574. {$ifdef SUPPORTS_DISPINTERFACE}
  2575. IADsPrintQueueOperationsDisp = dispinterface
  2576. ['{124BE5C0-156E-11CF-A986-00AA006BC149}']
  2577. property Status: Integer readonly dispid 27;
  2578. function PrintJobs: IADsCollection; dispid 28;
  2579. procedure Pause; dispid 29;
  2580. procedure Resume; dispid 30;
  2581. procedure Purge; dispid 31;
  2582. property Name: WideString readonly dispid 2;
  2583. property Class_: WideString readonly dispid 3;
  2584. property GUID: WideString readonly dispid 4;
  2585. property ADsPath: WideString readonly dispid 5;
  2586. property Parent: WideString readonly dispid 6;
  2587. property Schema: WideString readonly dispid 7;
  2588. procedure GetInfo; dispid 8;
  2589. procedure SetInfo; dispid 9;
  2590. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2591. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2592. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2593. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2594. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2595. end;
  2596. {$endif}
  2597. // *********************************************************************//
  2598. // Interface: IADsPrintJob
  2599. // Flags: (4416) Dual OleAutomation Dispatchable
  2600. // GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
  2601. // *********************************************************************//
  2602. IADsPrintJob = interface(IADs)
  2603. ['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
  2604. function Get_HostPrintQueue: WideString; safecall;
  2605. function Get_User: WideString; safecall;
  2606. function Get_UserPath: WideString; safecall;
  2607. function Get_TimeSubmitted: TDateTime; safecall;
  2608. function Get_TotalPages: Integer; safecall;
  2609. function Get_Size: Integer; safecall;
  2610. function Get_Description: WideString; safecall;
  2611. procedure Set_Description(const retval: WideString); safecall;
  2612. function Get_Priority: Integer; safecall;
  2613. procedure Set_Priority(retval: Integer); safecall;
  2614. function Get_StartTime: TDateTime; safecall;
  2615. procedure Set_StartTime(retval: TDateTime); safecall;
  2616. function Get_UntilTime: TDateTime; safecall;
  2617. procedure Set_UntilTime(retval: TDateTime); safecall;
  2618. function Get_Notify: WideString; safecall;
  2619. procedure Set_Notify(const retval: WideString); safecall;
  2620. function Get_NotifyPath: WideString; safecall;
  2621. procedure Set_NotifyPath(const retval: WideString); safecall;
  2622. property HostPrintQueue: WideString read Get_HostPrintQueue;
  2623. property User: WideString read Get_User;
  2624. property UserPath: WideString read Get_UserPath;
  2625. property TimeSubmitted: TDateTime read Get_TimeSubmitted;
  2626. property TotalPages: Integer read Get_TotalPages;
  2627. property Size: Integer read Get_Size;
  2628. property Description: WideString read Get_Description write Set_Description;
  2629. property Priority: Integer read Get_Priority write Set_Priority;
  2630. property StartTime: TDateTime read Get_StartTime write Set_StartTime;
  2631. property UntilTime: TDateTime read Get_UntilTime write Set_UntilTime;
  2632. property Notify: WideString read Get_Notify write Set_Notify;
  2633. property NotifyPath: WideString read Get_NotifyPath write Set_NotifyPath;
  2634. end;
  2635. // *********************************************************************//
  2636. // DispIntf: IADsPrintJobDisp
  2637. // Flags: (4416) Dual OleAutomation Dispatchable
  2638. // GUID: {32FB6780-1ED0-11CF-A988-00AA006BC149}
  2639. // *********************************************************************//
  2640. {$ifdef SUPPORTS_DISPINTERFACE}
  2641. IADsPrintJobDisp = dispinterface
  2642. ['{32FB6780-1ED0-11CF-A988-00AA006BC149}']
  2643. property HostPrintQueue: WideString readonly dispid 15;
  2644. property User: WideString readonly dispid 16;
  2645. property UserPath: WideString readonly dispid 17;
  2646. property TimeSubmitted: TDateTime readonly dispid 18;
  2647. property TotalPages: Integer readonly dispid 19;
  2648. property Size: Integer readonly dispid 234;
  2649. property Description: WideString dispid 20;
  2650. property Priority: Integer dispid 21;
  2651. property StartTime: TDateTime dispid 22;
  2652. property UntilTime: TDateTime dispid 23;
  2653. property Notify: WideString dispid 24;
  2654. property NotifyPath: WideString dispid 25;
  2655. property Name: WideString readonly dispid 2;
  2656. property Class_: WideString readonly dispid 3;
  2657. property GUID: WideString readonly dispid 4;
  2658. property ADsPath: WideString readonly dispid 5;
  2659. property Parent: WideString readonly dispid 6;
  2660. property Schema: WideString readonly dispid 7;
  2661. procedure GetInfo; dispid 8;
  2662. procedure SetInfo; dispid 9;
  2663. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2664. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2665. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2666. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2667. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2668. end;
  2669. {$endif}
  2670. // *********************************************************************//
  2671. // Interface: IADsPrintJobOperations
  2672. // Flags: (4416) Dual OleAutomation Dispatchable
  2673. // GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
  2674. // *********************************************************************//
  2675. IADsPrintJobOperations = interface(IADs)
  2676. ['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
  2677. function Get_Status: Integer; safecall;
  2678. function Get_TimeElapsed: Integer; safecall;
  2679. function Get_PagesPrinted: Integer; safecall;
  2680. function Get_Position: Integer; safecall;
  2681. procedure Set_Position(retval: Integer); safecall;
  2682. procedure Pause; safecall;
  2683. procedure Resume; safecall;
  2684. property Status: Integer read Get_Status;
  2685. property TimeElapsed: Integer read Get_TimeElapsed;
  2686. property PagesPrinted: Integer read Get_PagesPrinted;
  2687. property Position: Integer read Get_Position write Set_Position;
  2688. end;
  2689. // *********************************************************************//
  2690. // DispIntf: IADsPrintJobOperationsDisp
  2691. // Flags: (4416) Dual OleAutomation Dispatchable
  2692. // GUID: {9A52DB30-1ECF-11CF-A988-00AA006BC149}
  2693. // *********************************************************************//
  2694. {$ifdef SUPPORTS_DISPINTERFACE}
  2695. IADsPrintJobOperationsDisp = dispinterface
  2696. ['{9A52DB30-1ECF-11CF-A988-00AA006BC149}']
  2697. property Status: Integer readonly dispid 26;
  2698. property TimeElapsed: Integer readonly dispid 27;
  2699. property PagesPrinted: Integer readonly dispid 28;
  2700. property Position: Integer dispid 29;
  2701. procedure Pause; dispid 30;
  2702. procedure Resume; dispid 31;
  2703. property Name: WideString readonly dispid 2;
  2704. property Class_: WideString readonly dispid 3;
  2705. property GUID: WideString readonly dispid 4;
  2706. property ADsPath: WideString readonly dispid 5;
  2707. property Parent: WideString readonly dispid 6;
  2708. property Schema: WideString readonly dispid 7;
  2709. procedure GetInfo; dispid 8;
  2710. procedure SetInfo; dispid 9;
  2711. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2712. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2713. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2714. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2715. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2716. end;
  2717. {$endif}
  2718. // *********************************************************************//
  2719. // Interface: IADsService
  2720. // Flags: (4416) Dual OleAutomation Dispatchable
  2721. // GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
  2722. // *********************************************************************//
  2723. IADsService = interface(IADs)
  2724. ['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
  2725. function Get_HostComputer: WideString; safecall;
  2726. procedure Set_HostComputer(const retval: WideString); safecall;
  2727. function Get_DisplayName: WideString; safecall;
  2728. procedure Set_DisplayName(const retval: WideString); safecall;
  2729. function Get_Version: WideString; safecall;
  2730. procedure Set_Version(const retval: WideString); safecall;
  2731. function Get_ServiceType: Integer; safecall;
  2732. procedure Set_ServiceType(retval: Integer); safecall;
  2733. function Get_StartType: Integer; safecall;
  2734. procedure Set_StartType(retval: Integer); safecall;
  2735. function Get_Path: WideString; safecall;
  2736. procedure Set_Path(const retval: WideString); safecall;
  2737. function Get_StartupParameters: WideString; safecall;
  2738. procedure Set_StartupParameters(const retval: WideString); safecall;
  2739. function Get_ErrorControl: Integer; safecall;
  2740. procedure Set_ErrorControl(retval: Integer); safecall;
  2741. function Get_LoadOrderGroup: WideString; safecall;
  2742. procedure Set_LoadOrderGroup(const retval: WideString); safecall;
  2743. function Get_ServiceAccountName: WideString; safecall;
  2744. procedure Set_ServiceAccountName(const retval: WideString); safecall;
  2745. function Get_ServiceAccountPath: WideString; safecall;
  2746. procedure Set_ServiceAccountPath(const retval: WideString); safecall;
  2747. function Get_Dependencies: OleVariant; safecall;
  2748. procedure Set_Dependencies(retval: OleVariant); safecall;
  2749. property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
  2750. property DisplayName: WideString read Get_DisplayName write Set_DisplayName;
  2751. property Version: WideString read Get_Version write Set_Version;
  2752. property ServiceType: Integer read Get_ServiceType write Set_ServiceType;
  2753. property StartType: Integer read Get_StartType write Set_StartType;
  2754. property Path: WideString read Get_Path write Set_Path;
  2755. property StartupParameters: WideString read Get_StartupParameters write Set_StartupParameters;
  2756. property ErrorControl: Integer read Get_ErrorControl write Set_ErrorControl;
  2757. property LoadOrderGroup: WideString read Get_LoadOrderGroup write Set_LoadOrderGroup;
  2758. property ServiceAccountName: WideString read Get_ServiceAccountName write Set_ServiceAccountName;
  2759. property ServiceAccountPath: WideString read Get_ServiceAccountPath write Set_ServiceAccountPath;
  2760. property Dependencies: OleVariant read Get_Dependencies write Set_Dependencies;
  2761. end;
  2762. // *********************************************************************//
  2763. // DispIntf: IADsServiceDisp
  2764. // Flags: (4416) Dual OleAutomation Dispatchable
  2765. // GUID: {68AF66E0-31CA-11CF-A98A-00AA006BC149}
  2766. // *********************************************************************//
  2767. {$ifdef SUPPORTS_DISPINTERFACE}
  2768. IADsServiceDisp = dispinterface
  2769. ['{68AF66E0-31CA-11CF-A98A-00AA006BC149}']
  2770. property HostComputer: WideString dispid 15;
  2771. property DisplayName: WideString dispid 16;
  2772. property Version: WideString dispid 17;
  2773. property ServiceType: Integer dispid 18;
  2774. property StartType: Integer dispid 19;
  2775. property Path: WideString dispid 20;
  2776. property StartupParameters: WideString dispid 21;
  2777. property ErrorControl: Integer dispid 22;
  2778. property LoadOrderGroup: WideString dispid 23;
  2779. property ServiceAccountName: WideString dispid 24;
  2780. property ServiceAccountPath: WideString dispid 25;
  2781. property Dependencies: OleVariant dispid 26;
  2782. property Name: WideString readonly dispid 2;
  2783. property Class_: WideString readonly dispid 3;
  2784. property GUID: WideString readonly dispid 4;
  2785. property ADsPath: WideString readonly dispid 5;
  2786. property Parent: WideString readonly dispid 6;
  2787. property Schema: WideString readonly dispid 7;
  2788. procedure GetInfo; dispid 8;
  2789. procedure SetInfo; dispid 9;
  2790. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2791. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2792. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2793. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2794. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2795. end;
  2796. {$endif}
  2797. // *********************************************************************//
  2798. // Interface: IADsServiceOperations
  2799. // Flags: (4416) Dual OleAutomation Dispatchable
  2800. // GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
  2801. // *********************************************************************//
  2802. IADsServiceOperations = interface(IADs)
  2803. ['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
  2804. function Get_Status: Integer; safecall;
  2805. procedure Start; safecall;
  2806. procedure Stop; safecall;
  2807. procedure Pause; safecall;
  2808. procedure Continue; safecall;
  2809. procedure SetPassword(const bstrNewPassword: WideString); safecall;
  2810. property Status: Integer read Get_Status;
  2811. end;
  2812. // *********************************************************************//
  2813. // DispIntf: IADsServiceOperationsDisp
  2814. // Flags: (4416) Dual OleAutomation Dispatchable
  2815. // GUID: {5D7B33F0-31CA-11CF-A98A-00AA006BC149}
  2816. // *********************************************************************//
  2817. {$ifdef SUPPORTS_DISPINTERFACE}
  2818. IADsServiceOperationsDisp = dispinterface
  2819. ['{5D7B33F0-31CA-11CF-A98A-00AA006BC149}']
  2820. property Status: Integer readonly dispid 27;
  2821. procedure Start; dispid 28;
  2822. procedure Stop; dispid 29;
  2823. procedure Pause; dispid 30;
  2824. procedure Continue; dispid 31;
  2825. procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
  2826. property Name: WideString readonly dispid 2;
  2827. property Class_: WideString readonly dispid 3;
  2828. property GUID: WideString readonly dispid 4;
  2829. property ADsPath: WideString readonly dispid 5;
  2830. property Parent: WideString readonly dispid 6;
  2831. property Schema: WideString readonly dispid 7;
  2832. procedure GetInfo; dispid 8;
  2833. procedure SetInfo; dispid 9;
  2834. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2835. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2836. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2837. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2838. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2839. end;
  2840. {$endif}
  2841. // *********************************************************************//
  2842. // Interface: IADsFileService
  2843. // Flags: (4416) Dual OleAutomation Dispatchable
  2844. // GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
  2845. // *********************************************************************//
  2846. IADsFileService = interface(IADsService)
  2847. ['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
  2848. function Get_Description: WideString; safecall;
  2849. procedure Set_Description(const retval: WideString); safecall;
  2850. function Get_MaxUserCount: Integer; safecall;
  2851. procedure Set_MaxUserCount(retval: Integer); safecall;
  2852. property Description: WideString read Get_Description write Set_Description;
  2853. property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
  2854. end;
  2855. // *********************************************************************//
  2856. // DispIntf: IADsFileServiceDisp
  2857. // Flags: (4416) Dual OleAutomation Dispatchable
  2858. // GUID: {A89D1900-31CA-11CF-A98A-00AA006BC149}
  2859. // *********************************************************************//
  2860. {$ifdef SUPPORTS_DISPINTERFACE}
  2861. IADsFileServiceDisp = dispinterface
  2862. ['{A89D1900-31CA-11CF-A98A-00AA006BC149}']
  2863. property Description: WideString dispid 33;
  2864. property MaxUserCount: Integer dispid 34;
  2865. property HostComputer: WideString dispid 15;
  2866. property DisplayName: WideString dispid 16;
  2867. property Version: WideString dispid 17;
  2868. property ServiceType: Integer dispid 18;
  2869. property StartType: Integer dispid 19;
  2870. property Path: WideString dispid 20;
  2871. property StartupParameters: WideString dispid 21;
  2872. property ErrorControl: Integer dispid 22;
  2873. property LoadOrderGroup: WideString dispid 23;
  2874. property ServiceAccountName: WideString dispid 24;
  2875. property ServiceAccountPath: WideString dispid 25;
  2876. property Dependencies: OleVariant dispid 26;
  2877. property Name: WideString readonly dispid 2;
  2878. property Class_: WideString readonly dispid 3;
  2879. property GUID: WideString readonly dispid 4;
  2880. property ADsPath: WideString readonly dispid 5;
  2881. property Parent: WideString readonly dispid 6;
  2882. property Schema: WideString readonly dispid 7;
  2883. procedure GetInfo; dispid 8;
  2884. procedure SetInfo; dispid 9;
  2885. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2886. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2887. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2888. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2889. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2890. end;
  2891. {$endif}
  2892. // *********************************************************************//
  2893. // Interface: IADsFileServiceOperations
  2894. // Flags: (4416) Dual OleAutomation Dispatchable
  2895. // GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
  2896. // *********************************************************************//
  2897. IADsFileServiceOperations = interface(IADsServiceOperations)
  2898. ['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
  2899. function Sessions: IADsCollection; safecall;
  2900. function Resources: IADsCollection; safecall;
  2901. end;
  2902. // *********************************************************************//
  2903. // DispIntf: IADsFileServiceOperationsDisp
  2904. // Flags: (4416) Dual OleAutomation Dispatchable
  2905. // GUID: {A02DED10-31CA-11CF-A98A-00AA006BC149}
  2906. // *********************************************************************//
  2907. {$ifdef SUPPORTS_DISPINTERFACE}
  2908. IADsFileServiceOperationsDisp = dispinterface
  2909. ['{A02DED10-31CA-11CF-A98A-00AA006BC149}']
  2910. function Sessions: IADsCollection; dispid 35;
  2911. function Resources: IADsCollection; dispid 36;
  2912. property Status: Integer readonly dispid 27;
  2913. procedure Start; dispid 28;
  2914. procedure Stop; dispid 29;
  2915. procedure Pause; dispid 30;
  2916. procedure Continue; dispid 31;
  2917. procedure SetPassword(const bstrNewPassword: WideString); dispid 32;
  2918. property Name: WideString readonly dispid 2;
  2919. property Class_: WideString readonly dispid 3;
  2920. property GUID: WideString readonly dispid 4;
  2921. property ADsPath: WideString readonly dispid 5;
  2922. property Parent: WideString readonly dispid 6;
  2923. property Schema: WideString readonly dispid 7;
  2924. procedure GetInfo; dispid 8;
  2925. procedure SetInfo; dispid 9;
  2926. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2927. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2928. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2929. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2930. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2931. end;
  2932. {$endif}
  2933. // *********************************************************************//
  2934. // Interface: IADsFileShare
  2935. // Flags: (4416) Dual OleAutomation Dispatchable
  2936. // GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
  2937. // *********************************************************************//
  2938. IADsFileShare = interface(IADs)
  2939. ['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
  2940. function Get_CurrentUserCount: Integer; safecall;
  2941. function Get_Description: WideString; safecall;
  2942. procedure Set_Description(const retval: WideString); safecall;
  2943. function Get_HostComputer: WideString; safecall;
  2944. procedure Set_HostComputer(const retval: WideString); safecall;
  2945. function Get_Path: WideString; safecall;
  2946. procedure Set_Path(const retval: WideString); safecall;
  2947. function Get_MaxUserCount: Integer; safecall;
  2948. procedure Set_MaxUserCount(retval: Integer); safecall;
  2949. property CurrentUserCount: Integer read Get_CurrentUserCount;
  2950. property Description: WideString read Get_Description write Set_Description;
  2951. property HostComputer: WideString read Get_HostComputer write Set_HostComputer;
  2952. property Path: WideString read Get_Path write Set_Path;
  2953. property MaxUserCount: Integer read Get_MaxUserCount write Set_MaxUserCount;
  2954. end;
  2955. // *********************************************************************//
  2956. // DispIntf: IADsFileShareDisp
  2957. // Flags: (4416) Dual OleAutomation Dispatchable
  2958. // GUID: {EB6DCAF0-4B83-11CF-A995-00AA006BC149}
  2959. // *********************************************************************//
  2960. {$ifdef SUPPORTS_DISPINTERFACE}
  2961. IADsFileShareDisp = dispinterface
  2962. ['{EB6DCAF0-4B83-11CF-A995-00AA006BC149}']
  2963. property CurrentUserCount: Integer readonly dispid 15;
  2964. property Description: WideString dispid 16;
  2965. property HostComputer: WideString dispid 17;
  2966. property Path: WideString dispid 18;
  2967. property MaxUserCount: Integer dispid 19;
  2968. property Name: WideString readonly dispid 2;
  2969. property Class_: WideString readonly dispid 3;
  2970. property GUID: WideString readonly dispid 4;
  2971. property ADsPath: WideString readonly dispid 5;
  2972. property Parent: WideString readonly dispid 6;
  2973. property Schema: WideString readonly dispid 7;
  2974. procedure GetInfo; dispid 8;
  2975. procedure SetInfo; dispid 9;
  2976. function Get(const bstrName: WideString): OleVariant; dispid 10;
  2977. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  2978. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  2979. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  2980. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  2981. end;
  2982. {$endif}
  2983. // *********************************************************************//
  2984. // Interface: IADsSession
  2985. // Flags: (4416) Dual OleAutomation Dispatchable
  2986. // GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
  2987. // *********************************************************************//
  2988. IADsSession = interface(IADs)
  2989. ['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
  2990. function Get_User: WideString; safecall;
  2991. function Get_UserPath: WideString; safecall;
  2992. function Get_Computer: WideString; safecall;
  2993. function Get_ComputerPath: WideString; safecall;
  2994. function Get_ConnectTime: Integer; safecall;
  2995. function Get_IdleTime: Integer; safecall;
  2996. property User: WideString read Get_User;
  2997. property UserPath: WideString read Get_UserPath;
  2998. property Computer: WideString read Get_Computer;
  2999. property ComputerPath: WideString read Get_ComputerPath;
  3000. property ConnectTime: Integer read Get_ConnectTime;
  3001. property IdleTime: Integer read Get_IdleTime;
  3002. end;
  3003. // *********************************************************************//
  3004. // DispIntf: IADsSessionDisp
  3005. // Flags: (4416) Dual OleAutomation Dispatchable
  3006. // GUID: {398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}
  3007. // *********************************************************************//
  3008. {$ifdef SUPPORTS_DISPINTERFACE}
  3009. IADsSessionDisp = dispinterface
  3010. ['{398B7DA0-4AAB-11CF-AE2C-00AA006EBFB9}']
  3011. property User: WideString readonly dispid 15;
  3012. property UserPath: WideString readonly dispid 16;
  3013. property Computer: WideString readonly dispid 17;
  3014. property ComputerPath: WideString readonly dispid 18;
  3015. property ConnectTime: Integer readonly dispid 19;
  3016. property IdleTime: Integer readonly dispid 20;
  3017. property Name: WideString readonly dispid 2;
  3018. property Class_: WideString readonly dispid 3;
  3019. property GUID: WideString readonly dispid 4;
  3020. property ADsPath: WideString readonly dispid 5;
  3021. property Parent: WideString readonly dispid 6;
  3022. property Schema: WideString readonly dispid 7;
  3023. procedure GetInfo; dispid 8;
  3024. procedure SetInfo; dispid 9;
  3025. function Get(const bstrName: WideString): OleVariant; dispid 10;
  3026. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  3027. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  3028. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  3029. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  3030. end;
  3031. {$endif}
  3032. // *********************************************************************//
  3033. // Interface: IADsResource
  3034. // Flags: (4416) Dual OleAutomation Dispatchable
  3035. // GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
  3036. // *********************************************************************//
  3037. IADsResource = interface(IADs)
  3038. ['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
  3039. function Get_User: WideString; safecall;
  3040. function Get_UserPath: WideString; safecall;
  3041. function Get_Path: WideString; safecall;
  3042. function Get_LockCount: Integer; safecall;
  3043. property User: WideString read Get_User;
  3044. property UserPath: WideString read Get_UserPath;
  3045. property Path: WideString read Get_Path;
  3046. property LockCount: Integer read Get_LockCount;
  3047. end;
  3048. // *********************************************************************//
  3049. // DispIntf: IADsResourceDisp
  3050. // Flags: (4416) Dual OleAutomation Dispatchable
  3051. // GUID: {34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}
  3052. // *********************************************************************//
  3053. {$ifdef SUPPORTS_DISPINTERFACE}
  3054. IADsResourceDisp = dispinterface
  3055. ['{34A05B20-4AAB-11CF-AE2C-00AA006EBFB9}']
  3056. property User: WideString readonly dispid 15;
  3057. property UserPath: WideString readonly dispid 16;
  3058. property Path: WideString readonly dispid 17;
  3059. property LockCount: Integer readonly dispid 18;
  3060. property Name: WideString readonly dispid 2;
  3061. property Class_: WideString readonly dispid 3;
  3062. property GUID: WideString readonly dispid 4;
  3063. property ADsPath: WideString readonly dispid 5;
  3064. property Parent: WideString readonly dispid 6;
  3065. property Schema: WideString readonly dispid 7;
  3066. procedure GetInfo; dispid 8;
  3067. procedure SetInfo; dispid 9;
  3068. function Get(const bstrName: WideString): OleVariant; dispid 10;
  3069. procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
  3070. function GetEx(const bstrName: WideString): OleVariant; dispid 12;
  3071. procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
  3072. procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  3073. end;
  3074. {$endif}
  3075. // *********************************************************************//
  3076. // Interface: IADsOpenDSObject
  3077. // Flags: (4416) Dual OleAutomation Dispatchable
  3078. // GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
  3079. // *********************************************************************//
  3080. IADsOpenDSObject = interface(IDispatch)
  3081. ['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
  3082. function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
  3083. const lpszPassword: WideString; lnReserved: Integer): IDispatch; safecall;
  3084. end;
  3085. // *********************************************************************//
  3086. // DispIntf: IADsOpenDSObjectDisp
  3087. // Flags: (4416) Dual OleAutomation Dispatchable
  3088. // GUID: {DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}
  3089. // *********************************************************************//
  3090. {$ifdef SUPPORTS_DISPINTERFACE}
  3091. IADsOpenDSObjectDisp = dispinterface
  3092. ['{DDF2891E-0F9C-11D0-8AD4-00C04FD8D503}']
  3093. function OpenDSObject(const lpszDNName: WideString; const lpszUserName: WideString;
  3094. const lpszPassword: WideString; lnReserved: Integer): IDispatch; dispid 1;
  3095. end;
  3096. {$endif}
  3097. // *********************************************************************//
  3098. // Interface: IDirectoryObject
  3099. // Flags: (0)
  3100. // GUID: {E798DE2C-22E4-11D0-84FE-00C04FD8D503}
  3101. // *********************************************************************//
  3102. IDirectoryObject = interface(IUnknown)
  3103. ['{E798DE2C-22E4-11D0-84FE-00C04FD8D503}']
  3104. function GetObjectInformation(out ppObjInfo: PUserType11): HResult; stdcall;
  3105. function GetObjectAttributes(var pAttributeNames: PWideChar; dwNumberAttributes: LongWord;
  3106. out ppAttributeEntries: PUserType12;
  3107. out pdwNumAttributesReturned: LongWord): HResult; stdcall;
  3108. function SetObjectAttributes(var pAttributeEntries: _ads_attr_info; dwNumAttributes: LongWord;
  3109. out pdwNumAttributesModified: LongWord): HResult; stdcall;
  3110. function CreateDSObject(pszRDNName: PWideChar; var pAttributeEntries: _ads_attr_info;
  3111. dwNumAttributes: LongWord; out ppObject: IDispatch): HResult; stdcall;
  3112. function DeleteDSObject(pszRDNName: PWideChar): HResult; stdcall;
  3113. end;
  3114. // *********************************************************************//
  3115. // Interface: IDirectorySearch
  3116. // Flags: (0)
  3117. // GUID: {109BA8EC-92F0-11D0-A790-00C04FD8D5A8}
  3118. // *********************************************************************//
  3119. IDirectorySearch = interface(IUnknown)
  3120. ['{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}']
  3121. function SetSearchPreference(var pSearchPrefs: ads_searchpref_info; dwNumPrefs: LongWord): HResult; stdcall;
  3122. function ExecuteSearch(pszSearchFilter: PWideChar; var pAttributeNames: PWideChar;
  3123. dwNumberAttributes: LongWord; out phSearchResult: Pointer): HResult; stdcall;
  3124. function AbandonSearch(var phSearchResult: Pointer): HResult; stdcall;
  3125. function GetFirstRow(var hSearchResult: Pointer): HResult; stdcall;
  3126. function GetNextRow(var hSearchResult: Pointer): HResult; stdcall;
  3127. function GetPreviousRow(var hSearchResult: Pointer): HResult; stdcall;
  3128. function GetNextColumnName(var hSearchHandle: Pointer; out ppszColumnName: PWideChar): HResult; stdcall;
  3129. function GetColumn(var hSearchResult: Pointer; szColumnName: PWideChar;
  3130. out pSearchColumn: ads_search_column): HResult; stdcall;
  3131. function FreeColumn(var pSearchColumn: ads_search_column): HResult; stdcall;
  3132. function CloseSearchHandle(var hSearchResult: Pointer): HResult; stdcall;
  3133. end;
  3134. // *********************************************************************//
  3135. // Interface: IDirectorySchemaMgmt
  3136. // Flags: (0)
  3137. // GUID: {75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}
  3138. // *********************************************************************//
  3139. IDirectorySchemaMgmt = interface(IUnknown)
  3140. ['{75DB3B9C-A4D8-11D0-A79C-00C04FD8D5A8}']
  3141. function EnumAttributes(var ppszAttrNames: PWideChar; dwNumAttributes: LongWord;
  3142. ppAttrDefinition: PPUserType1; var pdwNumAttributes: LongWord): HResult; stdcall;
  3143. function CreateAttributeDefinition(pszAttributeName: PWideChar;
  3144. var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
  3145. function WriteAttributeDefinition(pszAttributeName: PWideChar;
  3146. var pAttributeDefinition: _ads_attr_def): HResult; stdcall;
  3147. function DeleteAttributeDefinition(pszAttributeName: PWideChar): HResult; stdcall;
  3148. function EnumClasses(var ppszClassNames: PWideChar; dwNumClasses: LongWord;
  3149. ppClassDefinition: PPUserType2; var pdwNumClasses: LongWord): HResult; stdcall;
  3150. function WriteClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
  3151. function CreateClassDefinition(pszClassName: PWideChar; var pClassDefinition: _ads_class_def): HResult; stdcall;
  3152. function DeleteClassDefinition(pszClassName: PWideChar): HResult; stdcall;
  3153. end;
  3154. // *********************************************************************//
  3155. // Interface: IADsAggregatee
  3156. // Flags: (0)
  3157. // GUID: {1346CE8C-9039-11D0-8528-00C04FD8D503}
  3158. // *********************************************************************//
  3159. IADsAggregatee = interface(IUnknown)
  3160. ['{1346CE8C-9039-11D0-8528-00C04FD8D503}']
  3161. function ConnectAsAggregatee(const pOuterUnknown: IUnknown): HResult; stdcall;
  3162. function DisconnectAsAggregatee: HResult; stdcall;
  3163. function RelinquishInterface(var riid: TGUID): HResult; stdcall;
  3164. function RestoreInterface(var riid: TGUID): HResult; stdcall;
  3165. end;
  3166. // *********************************************************************//
  3167. // Interface: IADsAggregator
  3168. // Flags: (0)
  3169. // GUID: {52DB5FB0-941F-11D0-8529-00C04FD8D503}
  3170. // *********************************************************************//
  3171. IADsAggregator = interface(IUnknown)
  3172. ['{52DB5FB0-941F-11D0-8529-00C04FD8D503}']
  3173. function ConnectAsAggregator(const pAggregatee: IUnknown): HResult; stdcall;
  3174. function DisconnectAsAggregator: HResult; stdcall;
  3175. end;
  3176. // *********************************************************************//
  3177. // Interface: IADsAccessControlEntry
  3178. // Flags: (4416) Dual OleAutomation Dispatchable
  3179. // GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
  3180. // *********************************************************************//
  3181. IADsAccessControlEntry = interface(IDispatch)
  3182. ['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
  3183. function Get_AccessMask: Integer; safecall;
  3184. procedure Set_AccessMask(retval: Integer); safecall;
  3185. function Get_AceType: Integer; safecall;
  3186. procedure Set_AceType(retval: Integer); safecall;
  3187. function Get_AceFlags: Integer; safecall;
  3188. procedure Set_AceFlags(retval: Integer); safecall;
  3189. function Get_Flags: Integer; safecall;
  3190. procedure Set_Flags(retval: Integer); safecall;
  3191. function Get_ObjectType: WideString; safecall;
  3192. procedure Set_ObjectType(const retval: WideString); safecall;
  3193. function Get_InheritedObjectType: WideString; safecall;
  3194. procedure Set_InheritedObjectType(const retval: WideString); safecall;
  3195. function Get_Trustee: WideString; safecall;
  3196. procedure Set_Trustee(const retval: WideString); safecall;
  3197. property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
  3198. property AceType: Integer read Get_AceType write Set_AceType;
  3199. property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
  3200. property Flags: Integer read Get_Flags write Set_Flags;
  3201. property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
  3202. property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
  3203. property Trustee: WideString read Get_Trustee write Set_Trustee;
  3204. end;
  3205. // *********************************************************************//
  3206. // DispIntf: IADsAccessControlEntryDisp
  3207. // Flags: (4416) Dual OleAutomation Dispatchable
  3208. // GUID: {B4F3A14C-9BDD-11D0-852C-00C04FD8D503}
  3209. // *********************************************************************//
  3210. {$ifdef SUPPORTS_DISPINTERFACE}
  3211. IADsAccessControlEntryDisp = dispinterface
  3212. ['{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}']
  3213. property AccessMask: Integer dispid 2;
  3214. property AceType: Integer dispid 3;
  3215. property AceFlags: Integer dispid 4;
  3216. property Flags: Integer dispid 5;
  3217. property ObjectType: WideString dispid 6;
  3218. property InheritedObjectType: WideString dispid 7;
  3219. property Trustee: WideString dispid 8;
  3220. end;
  3221. {$endif}
  3222. // *********************************************************************//
  3223. // Interface: IADsAccessControlList
  3224. // Flags: (4416) Dual OleAutomation Dispatchable
  3225. // GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
  3226. // *********************************************************************//
  3227. IADsAccessControlList = interface(IDispatch)
  3228. ['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
  3229. function Get_AclRevision: Integer; safecall;
  3230. procedure Set_AclRevision(retval: Integer); safecall;
  3231. function Get_AceCount: Integer; safecall;
  3232. procedure Set_AceCount(retval: Integer); safecall;
  3233. procedure AddAce(const pAccessControlEntry: IDispatch); safecall;
  3234. procedure RemoveAce(const pAccessControlEntry: IDispatch); safecall;
  3235. function CopyAccessList: IDispatch; safecall;
  3236. function Get__NewEnum: IUnknown; safecall;
  3237. property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
  3238. property AceCount: Integer read Get_AceCount write Set_AceCount;
  3239. property _NewEnum: IUnknown read Get__NewEnum;
  3240. end;
  3241. // *********************************************************************//
  3242. // DispIntf: IADsAccessControlListDisp
  3243. // Flags: (4416) Dual OleAutomation Dispatchable
  3244. // GUID: {B7EE91CC-9BDD-11D0-852C-00C04FD8D503}
  3245. // *********************************************************************//
  3246. {$ifdef SUPPORTS_DISPINTERFACE}
  3247. IADsAccessControlListDisp = dispinterface
  3248. ['{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}']
  3249. property AclRevision: Integer dispid 3;
  3250. property AceCount: Integer dispid 4;
  3251. procedure AddAce(const pAccessControlEntry: IDispatch); dispid 5;
  3252. procedure RemoveAce(const pAccessControlEntry: IDispatch); dispid 6;
  3253. function CopyAccessList: IDispatch; dispid 7;
  3254. property _NewEnum: IUnknown readonly dispid -4;
  3255. end;
  3256. {$endif}
  3257. // *********************************************************************//
  3258. // Interface: IADsSecurityDescriptor
  3259. // Flags: (4416) Dual OleAutomation Dispatchable
  3260. // GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
  3261. // *********************************************************************//
  3262. IADsSecurityDescriptor = interface(IDispatch)
  3263. ['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
  3264. function Get_Revision: Integer; safecall;
  3265. procedure Set_Revision(retval: Integer); safecall;
  3266. function Get_Control: Integer; safecall;
  3267. procedure Set_Control(retval: Integer); safecall;
  3268. function Get_Owner: WideString; safecall;
  3269. procedure Set_Owner(const retval: WideString); safecall;
  3270. function Get_OwnerDefaulted: WordBool; safecall;
  3271. procedure Set_OwnerDefaulted(retval: WordBool); safecall;
  3272. function Get_Group: WideString; safecall;
  3273. procedure Set_Group(const retval: WideString); safecall;
  3274. function Get_GroupDefaulted: WordBool; safecall;
  3275. procedure Set_GroupDefaulted(retval: WordBool); safecall;
  3276. function Get_DiscretionaryAcl: IDispatch; safecall;
  3277. procedure Set_DiscretionaryAcl(const retval: IDispatch); safecall;
  3278. function Get_DaclDefaulted: WordBool; safecall;
  3279. procedure Set_DaclDefaulted(retval: WordBool); safecall;
  3280. function Get_SystemAcl: IDispatch; safecall;
  3281. procedure Set_SystemAcl(const retval: IDispatch); safecall;
  3282. function Get_SaclDefaulted: WordBool; safecall;
  3283. procedure Set_SaclDefaulted(retval: WordBool); safecall;
  3284. function CopySecurityDescriptor: IDispatch; safecall;
  3285. property Revision: Integer read Get_Revision write Set_Revision;
  3286. property Control: Integer read Get_Control write Set_Control;
  3287. property Owner: WideString read Get_Owner write Set_Owner;
  3288. property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
  3289. property Group: WideString read Get_Group write Set_Group;
  3290. property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
  3291. property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
  3292. property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
  3293. property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
  3294. property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
  3295. end;
  3296. // *********************************************************************//
  3297. // DispIntf: IADsSecurityDescriptorDisp
  3298. // Flags: (4416) Dual OleAutomation Dispatchable
  3299. // GUID: {B8C787CA-9BDD-11D0-852C-00C04FD8D503}
  3300. // *********************************************************************//
  3301. {$ifdef SUPPORTS_DISPINTERFACE}
  3302. IADsSecurityDescriptorDisp = dispinterface
  3303. ['{B8C787CA-9BDD-11D0-852C-00C04FD8D503}']
  3304. property Revision: Integer dispid 2;
  3305. property Control: Integer dispid 3;
  3306. property Owner: WideString dispid 4;
  3307. property OwnerDefaulted: WordBool dispid 5;
  3308. property Group: WideString dispid 6;
  3309. property GroupDefaulted: WordBool dispid 7;
  3310. property DiscretionaryAcl: IDispatch dispid 8;
  3311. property DaclDefaulted: WordBool dispid 9;
  3312. property SystemAcl: IDispatch dispid 10;
  3313. property SaclDefaulted: WordBool dispid 11;
  3314. function CopySecurityDescriptor: IDispatch; dispid 12;
  3315. end;
  3316. {$endif}
  3317. // *********************************************************************//
  3318. // Interface: IADsLargeInteger
  3319. // Flags: (4416) Dual OleAutomation Dispatchable
  3320. // GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
  3321. // *********************************************************************//
  3322. IADsLargeInteger = interface(IDispatch)
  3323. ['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
  3324. function Get_HighPart: Integer; safecall;
  3325. procedure Set_HighPart(retval: Integer); safecall;
  3326. function Get_LowPart: Integer; safecall;
  3327. procedure Set_LowPart(retval: Integer); safecall;
  3328. property HighPart: Integer read Get_HighPart write Set_HighPart;
  3329. property LowPart: Integer read Get_LowPart write Set_LowPart;
  3330. end;
  3331. // *********************************************************************//
  3332. // DispIntf: IADsLargeIntegerDisp
  3333. // Flags: (4416) Dual OleAutomation Dispatchable
  3334. // GUID: {9068270B-0939-11D1-8BE1-00C04FD8D503}
  3335. // *********************************************************************//
  3336. {$ifdef SUPPORTS_DISPINTERFACE}
  3337. IADsLargeIntegerDisp = dispinterface
  3338. ['{9068270B-0939-11D1-8BE1-00C04FD8D503}']
  3339. property HighPart: Integer dispid 2;
  3340. property LowPart: Integer dispid 3;
  3341. end;
  3342. {$endif}
  3343. // *********************************************************************//
  3344. // Interface: IADsNameTranslate
  3345. // Flags: (4416) Dual OleAutomation Dispatchable
  3346. // GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
  3347. // *********************************************************************//
  3348. IADsNameTranslate = interface(IDispatch)
  3349. ['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
  3350. procedure Set_ChaseReferral(Param1: Integer); safecall;
  3351. procedure Init(lnSetType: Integer; const bstrADsPath: WideString); safecall;
  3352. procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
  3353. const bstrUserID: WideString; const bstrDomain: WideString;
  3354. const bstrPassword: WideString); safecall;
  3355. procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); safecall;
  3356. function Get(lnFormatType: Integer): WideString; safecall;
  3357. procedure SetEx(lnFormatType: Integer; pVar: OleVariant); safecall;
  3358. function GetEx(lnFormatType: Integer): OleVariant; safecall;
  3359. property ChaseReferral: Integer write Set_ChaseReferral;
  3360. end;
  3361. // *********************************************************************//
  3362. // DispIntf: IADsNameTranslateDisp
  3363. // Flags: (4416) Dual OleAutomation Dispatchable
  3364. // GUID: {B1B272A3-3625-11D1-A3A4-00C04FB950DC}
  3365. // *********************************************************************//
  3366. {$ifdef SUPPORTS_DISPINTERFACE}
  3367. IADsNameTranslateDisp = dispinterface
  3368. ['{B1B272A3-3625-11D1-A3A4-00C04FB950DC}']
  3369. property ChaseReferral: Integer writeonly dispid 1;
  3370. procedure Init(lnSetType: Integer; const bstrADsPath: WideString); dispid 2;
  3371. procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
  3372. const bstrUserID: WideString; const bstrDomain: WideString;
  3373. const bstrPassword: WideString); dispid 3;
  3374. procedure Set_(lnSetType: Integer; const bstrADsPath: WideString); dispid 4;
  3375. function Get(lnFormatType: Integer): WideString; dispid 5;
  3376. procedure SetEx(lnFormatType: Integer; pVar: OleVariant); dispid 6;
  3377. function GetEx(lnFormatType: Integer): OleVariant; dispid 7;
  3378. end;
  3379. {$endif}
  3380. // *********************************************************************//
  3381. // Interface: IADsCaseIgnoreList
  3382. // Flags: (4416) Dual OleAutomation Dispatchable
  3383. // GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
  3384. // *********************************************************************//
  3385. IADsCaseIgnoreList = interface(IDispatch)
  3386. ['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
  3387. function Get_CaseIgnoreList: OleVariant; safecall;
  3388. procedure Set_CaseIgnoreList(retval: OleVariant); safecall;
  3389. property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
  3390. end;
  3391. // *********************************************************************//
  3392. // DispIntf: IADsCaseIgnoreListDisp
  3393. // Flags: (4416) Dual OleAutomation Dispatchable
  3394. // GUID: {7B66B533-4680-11D1-A3B4-00C04FB950DC}
  3395. // *********************************************************************//
  3396. {$ifdef SUPPORTS_DISPINTERFACE}
  3397. IADsCaseIgnoreListDisp = dispinterface
  3398. ['{7B66B533-4680-11D1-A3B4-00C04FB950DC}']
  3399. property CaseIgnoreList: OleVariant dispid 2;
  3400. end;
  3401. {$endif}
  3402. // *********************************************************************//
  3403. // Interface: IADsFaxNumber
  3404. // Flags: (4416) Dual OleAutomation Dispatchable
  3405. // GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
  3406. // *********************************************************************//
  3407. IADsFaxNumber = interface(IDispatch)
  3408. ['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
  3409. function Get_TelephoneNumber: WideString; safecall;
  3410. procedure Set_TelephoneNumber(const retval: WideString); safecall;
  3411. function Get_Parameters: OleVariant; safecall;
  3412. procedure Set_Parameters(retval: OleVariant); safecall;
  3413. property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
  3414. property Parameters: OleVariant read Get_Parameters write Set_Parameters;
  3415. end;
  3416. // *********************************************************************//
  3417. // DispIntf: IADsFaxNumberDisp
  3418. // Flags: (4416) Dual OleAutomation Dispatchable
  3419. // GUID: {A910DEA9-4680-11D1-A3B4-00C04FB950DC}
  3420. // *********************************************************************//
  3421. {$ifdef SUPPORTS_DISPINTERFACE}
  3422. IADsFaxNumberDisp = dispinterface
  3423. ['{A910DEA9-4680-11D1-A3B4-00C04FB950DC}']
  3424. property TelephoneNumber: WideString dispid 2;
  3425. property Parameters: OleVariant dispid 3;
  3426. end;
  3427. {$endif}
  3428. // *********************************************************************//
  3429. // Interface: IADsNetAddress
  3430. // Flags: (4416) Dual OleAutomation Dispatchable
  3431. // GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
  3432. // *********************************************************************//
  3433. IADsNetAddress = interface(IDispatch)
  3434. ['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
  3435. function Get_AddressType: Integer; safecall;
  3436. procedure Set_AddressType(retval: Integer); safecall;
  3437. function Get_Address: OleVariant; safecall;
  3438. procedure Set_Address(retval: OleVariant); safecall;
  3439. property AddressType: Integer read Get_AddressType write Set_AddressType;
  3440. property Address: OleVariant read Get_Address write Set_Address;
  3441. end;
  3442. // *********************************************************************//
  3443. // DispIntf: IADsNetAddressDisp
  3444. // Flags: (4416) Dual OleAutomation Dispatchable
  3445. // GUID: {B21A50A9-4080-11D1-A3AC-00C04FB950DC}
  3446. // *********************************************************************//
  3447. {$ifdef SUPPORTS_DISPINTERFACE}
  3448. IADsNetAddressDisp = dispinterface
  3449. ['{B21A50A9-4080-11D1-A3AC-00C04FB950DC}']
  3450. property AddressType: Integer dispid 2;
  3451. property Address: OleVariant dispid 3;
  3452. end;
  3453. {$endif}
  3454. // *********************************************************************//
  3455. // Interface: IADsOctetList
  3456. // Flags: (4416) Dual OleAutomation Dispatchable
  3457. // GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
  3458. // *********************************************************************//
  3459. IADsOctetList = interface(IDispatch)
  3460. ['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
  3461. function Get_OctetList: OleVariant; safecall;
  3462. procedure Set_OctetList(retval: OleVariant); safecall;
  3463. property OctetList: OleVariant read Get_OctetList write Set_OctetList;
  3464. end;
  3465. // *********************************************************************//
  3466. // DispIntf: IADsOctetListDisp
  3467. // Flags: (4416) Dual OleAutomation Dispatchable
  3468. // GUID: {7B28B80F-4680-11D1-A3B4-00C04FB950DC}
  3469. // *********************************************************************//
  3470. {$ifdef SUPPORTS_DISPINTERFACE}
  3471. IADsOctetListDisp = dispinterface
  3472. ['{7B28B80F-4680-11D1-A3B4-00C04FB950DC}']
  3473. property OctetList: OleVariant dispid 2;
  3474. end;
  3475. {$endif}
  3476. // *********************************************************************//
  3477. // Interface: IADsEmail
  3478. // Flags: (4416) Dual OleAutomation Dispatchable
  3479. // GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
  3480. // *********************************************************************//
  3481. IADsEmail = interface(IDispatch)
  3482. ['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
  3483. function Get_Type_: Integer; safecall;
  3484. procedure Set_Type_(retval: Integer); safecall;
  3485. function Get_Address: WideString; safecall;
  3486. procedure Set_Address(const retval: WideString); safecall;
  3487. property Type_: Integer read Get_Type_ write Set_Type_;
  3488. property Address: WideString read Get_Address write Set_Address;
  3489. end;
  3490. // *********************************************************************//
  3491. // DispIntf: IADsEmailDisp
  3492. // Flags: (4416) Dual OleAutomation Dispatchable
  3493. // GUID: {97AF011A-478E-11D1-A3B4-00C04FB950DC}
  3494. // *********************************************************************//
  3495. {$ifdef SUPPORTS_DISPINTERFACE}
  3496. IADsEmailDisp = dispinterface
  3497. ['{97AF011A-478E-11D1-A3B4-00C04FB950DC}']
  3498. property Type_: Integer dispid 2;
  3499. property Address: WideString dispid 3;
  3500. end;
  3501. {$endif}
  3502. // *********************************************************************//
  3503. // Interface: IADsPath
  3504. // Flags: (4416) Dual OleAutomation Dispatchable
  3505. // GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
  3506. // *********************************************************************//
  3507. IADsPath = interface(IDispatch)
  3508. ['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
  3509. function Get_Type_: Integer; safecall;
  3510. procedure Set_Type_(retval: Integer); safecall;
  3511. function Get_VolumeName: WideString; safecall;
  3512. procedure Set_VolumeName(const retval: WideString); safecall;
  3513. function Get_Path: WideString; safecall;
  3514. procedure Set_Path(const retval: WideString); safecall;
  3515. property Type_: Integer read Get_Type_ write Set_Type_;
  3516. property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
  3517. property Path: WideString read Get_Path write Set_Path;
  3518. end;
  3519. // *********************************************************************//
  3520. // DispIntf: IADsPathDisp
  3521. // Flags: (4416) Dual OleAutomation Dispatchable
  3522. // GUID: {B287FCD5-4080-11D1-A3AC-00C04FB950DC}
  3523. // *********************************************************************//
  3524. {$ifdef SUPPORTS_DISPINTERFACE}
  3525. IADsPathDisp = dispinterface
  3526. ['{B287FCD5-4080-11D1-A3AC-00C04FB950DC}']
  3527. property Type_: Integer dispid 2;
  3528. property VolumeName: WideString dispid 3;
  3529. property Path: WideString dispid 4;
  3530. end;
  3531. {$endif}
  3532. // *********************************************************************//
  3533. // Interface: IADsReplicaPointer
  3534. // Flags: (4416) Dual OleAutomation Dispatchable
  3535. // GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
  3536. // *********************************************************************//
  3537. IADsReplicaPointer = interface(IDispatch)
  3538. ['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
  3539. function Get_ServerName: WideString; safecall;
  3540. procedure Set_ServerName(const retval: WideString); safecall;
  3541. function Get_ReplicaType: Integer; safecall;
  3542. procedure Set_ReplicaType(retval: Integer); safecall;
  3543. function Get_ReplicaNumber: Integer; safecall;
  3544. procedure Set_ReplicaNumber(retval: Integer); safecall;
  3545. function Get_Count: Integer; safecall;
  3546. procedure Set_Count(retval: Integer); safecall;
  3547. function Get_ReplicaAddressHints: OleVariant; safecall;
  3548. procedure Set_ReplicaAddressHints(retval: OleVariant); safecall;
  3549. property ServerName: WideString read Get_ServerName write Set_ServerName;
  3550. property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
  3551. property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
  3552. property Count: Integer read Get_Count write Set_Count;
  3553. property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
  3554. end;
  3555. // *********************************************************************//
  3556. // DispIntf: IADsReplicaPointerDisp
  3557. // Flags: (4416) Dual OleAutomation Dispatchable
  3558. // GUID: {F60FB803-4080-11D1-A3AC-00C04FB950DC}
  3559. // *********************************************************************//
  3560. {$ifdef SUPPORTS_DISPINTERFACE}
  3561. IADsReplicaPointerDisp = dispinterface
  3562. ['{F60FB803-4080-11D1-A3AC-00C04FB950DC}']
  3563. property ServerName: WideString dispid 2;
  3564. property ReplicaType: Integer dispid 3;
  3565. property ReplicaNumber: Integer dispid 4;
  3566. property Count: Integer dispid 5;
  3567. property ReplicaAddressHints: OleVariant dispid 6;
  3568. end;
  3569. {$endif}
  3570. // *********************************************************************//
  3571. // Interface: IADsAcl
  3572. // Flags: (4416) Dual OleAutomation Dispatchable
  3573. // GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
  3574. // *********************************************************************//
  3575. IADsAcl = interface(IDispatch)
  3576. ['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
  3577. function Get_ProtectedAttrName: WideString; safecall;
  3578. procedure Set_ProtectedAttrName(const retval: WideString); safecall;
  3579. function Get_SubjectName: WideString; safecall;
  3580. procedure Set_SubjectName(const retval: WideString); safecall;
  3581. function Get_Privileges: Integer; safecall;
  3582. procedure Set_Privileges(retval: Integer); safecall;
  3583. function CopyAcl: IDispatch; safecall;
  3584. property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
  3585. property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
  3586. property Privileges: Integer read Get_Privileges write Set_Privileges;
  3587. end;
  3588. // *********************************************************************//
  3589. // DispIntf: IADsAclDisp
  3590. // Flags: (4416) Dual OleAutomation Dispatchable
  3591. // GUID: {8452D3AB-0869-11D1-A377-00C04FB950DC}
  3592. // *********************************************************************//
  3593. {$ifdef SUPPORTS_DISPINTERFACE}
  3594. IADsAclDisp = dispinterface
  3595. ['{8452D3AB-0869-11D1-A377-00C04FB950DC}']
  3596. property ProtectedAttrName: WideString dispid 2;
  3597. property SubjectName: WideString dispid 3;
  3598. property Privileges: Integer dispid 4;
  3599. function CopyAcl: IDispatch; dispid 5;
  3600. end;
  3601. {$endif}
  3602. // *********************************************************************//
  3603. // Interface: IADsTimestamp
  3604. // Flags: (4416) Dual OleAutomation Dispatchable
  3605. // GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
  3606. // *********************************************************************//
  3607. IADsTimestamp = interface(IDispatch)
  3608. ['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
  3609. function Get_WholeSeconds: Integer; safecall;
  3610. procedure Set_WholeSeconds(retval: Integer); safecall;
  3611. function Get_EventID: Integer; safecall;
  3612. procedure Set_EventID(retval: Integer); safecall;
  3613. property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
  3614. property EventID: Integer read Get_EventID write Set_EventID;
  3615. end;
  3616. // *********************************************************************//
  3617. // DispIntf: IADsTimestampDisp
  3618. // Flags: (4416) Dual OleAutomation Dispatchable
  3619. // GUID: {B2F5A901-4080-11D1-A3AC-00C04FB950DC}
  3620. // *********************************************************************//
  3621. {$ifdef SUPPORTS_DISPINTERFACE}
  3622. IADsTimestampDisp = dispinterface
  3623. ['{B2F5A901-4080-11D1-A3AC-00C04FB950DC}']
  3624. property WholeSeconds: Integer dispid 2;
  3625. property EventID: Integer dispid 3;
  3626. end;
  3627. {$endif}
  3628. // *********************************************************************//
  3629. // Interface: IADsPostalAddress
  3630. // Flags: (4416) Dual OleAutomation Dispatchable
  3631. // GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
  3632. // *********************************************************************//
  3633. IADsPostalAddress = interface(IDispatch)
  3634. ['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
  3635. function Get_PostalAddress: OleVariant; safecall;
  3636. procedure Set_PostalAddress(retval: OleVariant); safecall;
  3637. property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
  3638. end;
  3639. // *********************************************************************//
  3640. // DispIntf: IADsPostalAddressDisp
  3641. // Flags: (4416) Dual OleAutomation Dispatchable
  3642. // GUID: {7ADECF29-4680-11D1-A3B4-00C04FB950DC}
  3643. // *********************************************************************//
  3644. {$ifdef SUPPORTS_DISPINTERFACE}
  3645. IADsPostalAddressDisp = dispinterface
  3646. ['{7ADECF29-4680-11D1-A3B4-00C04FB950DC}']
  3647. property PostalAddress: OleVariant dispid 2;
  3648. end;
  3649. {$endif}
  3650. // *********************************************************************//
  3651. // Interface: IADsBackLink
  3652. // Flags: (4416) Dual OleAutomation Dispatchable
  3653. // GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
  3654. // *********************************************************************//
  3655. IADsBackLink = interface(IDispatch)
  3656. ['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
  3657. function Get_RemoteID: Integer; safecall;
  3658. procedure Set_RemoteID(retval: Integer); safecall;
  3659. function Get_ObjectName: WideString; safecall;
  3660. procedure Set_ObjectName(const retval: WideString); safecall;
  3661. property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
  3662. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  3663. end;
  3664. // *********************************************************************//
  3665. // DispIntf: IADsBackLinkDisp
  3666. // Flags: (4416) Dual OleAutomation Dispatchable
  3667. // GUID: {FD1302BD-4080-11D1-A3AC-00C04FB950DC}
  3668. // *********************************************************************//
  3669. {$ifdef SUPPORTS_DISPINTERFACE}
  3670. IADsBackLinkDisp = dispinterface
  3671. ['{FD1302BD-4080-11D1-A3AC-00C04FB950DC}']
  3672. property RemoteID: Integer dispid 2;
  3673. property ObjectName: WideString dispid 3;
  3674. end;
  3675. {$endif}
  3676. // *********************************************************************//
  3677. // Interface: IADsTypedName
  3678. // Flags: (4416) Dual OleAutomation Dispatchable
  3679. // GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
  3680. // *********************************************************************//
  3681. IADsTypedName = interface(IDispatch)
  3682. ['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
  3683. function Get_ObjectName: WideString; safecall;
  3684. procedure Set_ObjectName(const retval: WideString); safecall;
  3685. function Get_Level: Integer; safecall;
  3686. procedure Set_Level(retval: Integer); safecall;
  3687. function Get_Interval: Integer; safecall;
  3688. procedure Set_Interval(retval: Integer); safecall;
  3689. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  3690. property Level: Integer read Get_Level write Set_Level;
  3691. property Interval: Integer read Get_Interval write Set_Interval;
  3692. end;
  3693. // *********************************************************************//
  3694. // DispIntf: IADsTypedNameDisp
  3695. // Flags: (4416) Dual OleAutomation Dispatchable
  3696. // GUID: {B371A349-4080-11D1-A3AC-00C04FB950DC}
  3697. // *********************************************************************//
  3698. {$ifdef SUPPORTS_DISPINTERFACE}
  3699. IADsTypedNameDisp = dispinterface
  3700. ['{B371A349-4080-11D1-A3AC-00C04FB950DC}']
  3701. property ObjectName: WideString dispid 2;
  3702. property Level: Integer dispid 3;
  3703. property Interval: Integer dispid 4;
  3704. end;
  3705. {$endif}
  3706. // *********************************************************************//
  3707. // Interface: IADsHold
  3708. // Flags: (4416) Dual OleAutomation Dispatchable
  3709. // GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
  3710. // *********************************************************************//
  3711. IADsHold = interface(IDispatch)
  3712. ['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
  3713. function Get_ObjectName: WideString; safecall;
  3714. procedure Set_ObjectName(const retval: WideString); safecall;
  3715. function Get_Amount: Integer; safecall;
  3716. procedure Set_Amount(retval: Integer); safecall;
  3717. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  3718. property Amount: Integer read Get_Amount write Set_Amount;
  3719. end;
  3720. // *********************************************************************//
  3721. // DispIntf: IADsHoldDisp
  3722. // Flags: (4416) Dual OleAutomation Dispatchable
  3723. // GUID: {B3EB3B37-4080-11D1-A3AC-00C04FB950DC}
  3724. // *********************************************************************//
  3725. {$ifdef SUPPORTS_DISPINTERFACE}
  3726. IADsHoldDisp = dispinterface
  3727. ['{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}']
  3728. property ObjectName: WideString dispid 2;
  3729. property Amount: Integer dispid 3;
  3730. end;
  3731. {$endif}
  3732. // *********************************************************************//
  3733. // Interface: IADsObjectOptions
  3734. // Flags: (4416) Dual OleAutomation Dispatchable
  3735. // GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
  3736. // *********************************************************************//
  3737. IADsObjectOptions = interface(IDispatch)
  3738. ['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
  3739. function GetOption(lnOption: Integer): OleVariant; safecall;
  3740. procedure SetOption(lnOption: Integer; vValue: OleVariant); safecall;
  3741. end;
  3742. // *********************************************************************//
  3743. // DispIntf: IADsObjectOptionsDisp
  3744. // Flags: (4416) Dual OleAutomation Dispatchable
  3745. // GUID: {46F14FDA-232B-11D1-A808-00C04FD8D5A8}
  3746. // *********************************************************************//
  3747. {$ifdef SUPPORTS_DISPINTERFACE}
  3748. IADsObjectOptionsDisp = dispinterface
  3749. ['{46F14FDA-232B-11D1-A808-00C04FD8D5A8}']
  3750. function GetOption(lnOption: Integer): OleVariant; dispid 2;
  3751. procedure SetOption(lnOption: Integer; vValue: OleVariant); dispid 3;
  3752. end;
  3753. {$endif}
  3754. // *********************************************************************//
  3755. // Interface: IADsPathname
  3756. // Flags: (4416) Dual OleAutomation Dispatchable
  3757. // GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
  3758. // *********************************************************************//
  3759. IADsPathname = interface(IDispatch)
  3760. ['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
  3761. procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); safecall;
  3762. procedure SetDisplayType(lnDisplayType: Integer); safecall;
  3763. function Retrieve(lnFormatType: Integer): WideString; safecall;
  3764. function GetNumElements: Integer; safecall;
  3765. function GetElement(lnElementIndex: Integer): WideString; safecall;
  3766. procedure AddLeafElement(const bstrLeafElement: WideString); safecall;
  3767. procedure RemoveLeafElement; safecall;
  3768. function CopyPath: IDispatch; safecall;
  3769. function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; safecall;
  3770. function Get_EscapedMode: Integer; safecall;
  3771. procedure Set_EscapedMode(retval: Integer); safecall;
  3772. property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
  3773. end;
  3774. // *********************************************************************//
  3775. // DispIntf: IADsPathnameDisp
  3776. // Flags: (4416) Dual OleAutomation Dispatchable
  3777. // GUID: {D592AED4-F420-11D0-A36E-00C04FB950DC}
  3778. // *********************************************************************//
  3779. {$ifdef SUPPORTS_DISPINTERFACE}
  3780. IADsPathnameDisp = dispinterface
  3781. ['{D592AED4-F420-11D0-A36E-00C04FB950DC}']
  3782. procedure Set_(const bstrADsPath: WideString; lnSetType: Integer); dispid 2;
  3783. procedure SetDisplayType(lnDisplayType: Integer); dispid 3;
  3784. function Retrieve(lnFormatType: Integer): WideString; dispid 4;
  3785. function GetNumElements: Integer; dispid 5;
  3786. function GetElement(lnElementIndex: Integer): WideString; dispid 6;
  3787. procedure AddLeafElement(const bstrLeafElement: WideString); dispid 7;
  3788. procedure RemoveLeafElement; dispid 8;
  3789. function CopyPath: IDispatch; dispid 9;
  3790. function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString; dispid 10;
  3791. property EscapedMode: Integer dispid 11;
  3792. end;
  3793. {$endif}
  3794. // *********************************************************************//
  3795. // Interface: IADsADSystemInfo
  3796. // Flags: (4416) Dual OleAutomation Dispatchable
  3797. // GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
  3798. // *********************************************************************//
  3799. IADsADSystemInfo = interface(IDispatch)
  3800. ['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
  3801. function Get_UserName: WideString; safecall;
  3802. function Get_ComputerName: WideString; safecall;
  3803. function Get_SiteName: WideString; safecall;
  3804. function Get_DomainShortName: WideString; safecall;
  3805. function Get_DomainDNSName: WideString; safecall;
  3806. function Get_ForestDNSName: WideString; safecall;
  3807. function Get_PDCRoleOwner: WideString; safecall;
  3808. function Get_SchemaRoleOwner: WideString; safecall;
  3809. function Get_IsNativeMode: WordBool; safecall;
  3810. function GetAnyDCName: WideString; safecall;
  3811. function GetDCSiteName(const szServer: WideString): WideString; safecall;
  3812. procedure RefreshSchemaCache; safecall;
  3813. function GetTrees: OleVariant; safecall;
  3814. property UserName: WideString read Get_UserName;
  3815. property ComputerName: WideString read Get_ComputerName;
  3816. property SiteName: WideString read Get_SiteName;
  3817. property DomainShortName: WideString read Get_DomainShortName;
  3818. property DomainDNSName: WideString read Get_DomainDNSName;
  3819. property ForestDNSName: WideString read Get_ForestDNSName;
  3820. property PDCRoleOwner: WideString read Get_PDCRoleOwner;
  3821. property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
  3822. property IsNativeMode: WordBool read Get_IsNativeMode;
  3823. end;
  3824. // *********************************************************************//
  3825. // DispIntf: IADsADSystemInfoDisp
  3826. // Flags: (4416) Dual OleAutomation Dispatchable
  3827. // GUID: {5BB11929-AFD1-11D2-9CB9-0000F87A369E}
  3828. // *********************************************************************//
  3829. {$ifdef SUPPORTS_DISPINTERFACE}
  3830. IADsADSystemInfoDisp = dispinterface
  3831. ['{5BB11929-AFD1-11D2-9CB9-0000F87A369E}']
  3832. property UserName: WideString readonly dispid 2;
  3833. property ComputerName: WideString readonly dispid 3;
  3834. property SiteName: WideString readonly dispid 4;
  3835. property DomainShortName: WideString readonly dispid 5;
  3836. property DomainDNSName: WideString readonly dispid 6;
  3837. property ForestDNSName: WideString readonly dispid 7;
  3838. property PDCRoleOwner: WideString readonly dispid 8;
  3839. property SchemaRoleOwner: WideString readonly dispid 9;
  3840. property IsNativeMode: WordBool readonly dispid 10;
  3841. function GetAnyDCName: WideString; dispid 11;
  3842. function GetDCSiteName(const szServer: WideString): WideString; dispid 12;
  3843. procedure RefreshSchemaCache; dispid 13;
  3844. function GetTrees: OleVariant; dispid 14;
  3845. end;
  3846. {$endif}
  3847. // *********************************************************************//
  3848. // Interface: IADsWinNTSystemInfo
  3849. // Flags: (4416) Dual OleAutomation Dispatchable
  3850. // GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
  3851. // *********************************************************************//
  3852. IADsWinNTSystemInfo = interface(IDispatch)
  3853. ['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
  3854. function Get_UserName: WideString; safecall;
  3855. function Get_ComputerName: WideString; safecall;
  3856. function Get_DomainName: WideString; safecall;
  3857. function Get_PDC: WideString; safecall;
  3858. property UserName: WideString read Get_UserName;
  3859. property ComputerName: WideString read Get_ComputerName;
  3860. property DomainName: WideString read Get_DomainName;
  3861. property PDC: WideString read Get_PDC;
  3862. end;
  3863. // *********************************************************************//
  3864. // DispIntf: IADsWinNTSystemInfoDisp
  3865. // Flags: (4416) Dual OleAutomation Dispatchable
  3866. // GUID: {6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}
  3867. // *********************************************************************//
  3868. {$ifdef SUPPORTS_DISPINTERFACE}
  3869. IADsWinNTSystemInfoDisp = dispinterface
  3870. ['{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}']
  3871. property UserName: WideString readonly dispid 2;
  3872. property ComputerName: WideString readonly dispid 3;
  3873. property DomainName: WideString readonly dispid 4;
  3874. property PDC: WideString readonly dispid 5;
  3875. end;
  3876. {$endif}
  3877. // *********************************************************************//
  3878. // Interface: IADsDNWithBinary
  3879. // Flags: (4416) Dual OleAutomation Dispatchable
  3880. // GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
  3881. // *********************************************************************//
  3882. IADsDNWithBinary = interface(IDispatch)
  3883. ['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
  3884. function Get_BinaryValue: OleVariant; safecall;
  3885. procedure Set_BinaryValue(retval: OleVariant); safecall;
  3886. function Get_DNString: WideString; safecall;
  3887. procedure Set_DNString(const retval: WideString); safecall;
  3888. property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
  3889. property DNString: WideString read Get_DNString write Set_DNString;
  3890. end;
  3891. // *********************************************************************//
  3892. // DispIntf: IADsDNWithBinaryDisp
  3893. // Flags: (4416) Dual OleAutomation Dispatchable
  3894. // GUID: {7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}
  3895. // *********************************************************************//
  3896. {$ifdef SUPPORTS_DISPINTERFACE}
  3897. IADsDNWithBinaryDisp = dispinterface
  3898. ['{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}']
  3899. property BinaryValue: OleVariant dispid 2;
  3900. property DNString: WideString dispid 3;
  3901. end;
  3902. {$endif}
  3903. // *********************************************************************//
  3904. // Interface: IADsDNWithString
  3905. // Flags: (4416) Dual OleAutomation Dispatchable
  3906. // GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
  3907. // *********************************************************************//
  3908. IADsDNWithString = interface(IDispatch)
  3909. ['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
  3910. function Get_StringValue: WideString; safecall;
  3911. procedure Set_StringValue(const retval: WideString); safecall;
  3912. function Get_DNString: WideString; safecall;
  3913. procedure Set_DNString(const retval: WideString); safecall;
  3914. property StringValue: WideString read Get_StringValue write Set_StringValue;
  3915. property DNString: WideString read Get_DNString write Set_DNString;
  3916. end;
  3917. // *********************************************************************//
  3918. // DispIntf: IADsDNWithStringDisp
  3919. // Flags: (4416) Dual OleAutomation Dispatchable
  3920. // GUID: {370DF02E-F934-11D2-BA96-00C04FB6D0D1}
  3921. // *********************************************************************//
  3922. {$ifdef SUPPORTS_DISPINTERFACE}
  3923. IADsDNWithStringDisp = dispinterface
  3924. ['{370DF02E-F934-11D2-BA96-00C04FB6D0D1}']
  3925. property StringValue: WideString dispid 2;
  3926. property DNString: WideString dispid 3;
  3927. end;
  3928. {$endif}
  3929. // *********************************************************************//
  3930. // The Class CoPropertyEntry provides a Create and CreateRemote method to
  3931. // create instances of the default interface IADsPropertyEntry exposed by
  3932. // the CoClass PropertyEntry. The functions are intended to be used by
  3933. // clients wishing to automate the CoClass objects exposed by the
  3934. // server of this typelibrary.
  3935. // *********************************************************************//
  3936. CoPropertyEntry = class
  3937. class function Create: IADsPropertyEntry;
  3938. class function CreateRemote(const MachineName: string): IADsPropertyEntry;
  3939. end;
  3940. // *********************************************************************//
  3941. // OLE Server Proxy class declaration
  3942. // Server Object : TPropertyEntry
  3943. // Help String :
  3944. // Default Interface: IADsPropertyEntry
  3945. // Def. Intf. DISP? : No
  3946. // Event Interface:
  3947. // TypeFlags : (2) CanCreate
  3948. // *********************************************************************//
  3949. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  3950. TPropertyEntryProperties= class;
  3951. {$ENDIF}
  3952. TPropertyEntry = class(TOleServer)
  3953. private
  3954. FIntf: IADsPropertyEntry;
  3955. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  3956. FProps: TPropertyEntryProperties;
  3957. function GetServerProperties: TPropertyEntryProperties;
  3958. {$ENDIF}
  3959. function GetDefaultInterface: IADsPropertyEntry;
  3960. protected
  3961. procedure InitServerData; override;
  3962. function Get_Name: WideString;
  3963. procedure Set_Name(const retval: WideString);
  3964. function Get_ADsType: Integer;
  3965. procedure Set_ADsType(retval: Integer);
  3966. function Get_ControlCode: Integer;
  3967. procedure Set_ControlCode(retval: Integer);
  3968. function Get_Values: OleVariant;
  3969. procedure Set_Values(retval: OleVariant);
  3970. public
  3971. constructor Create(AOwner: TComponent); override;
  3972. destructor Destroy; override;
  3973. procedure Connect; override;
  3974. procedure ConnectTo(svrIntf: IADsPropertyEntry);
  3975. procedure Disconnect; override;
  3976. procedure Clear;
  3977. property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
  3978. property Values: OleVariant read Get_Values write Set_Values;
  3979. property Name: WideString read Get_Name write Set_Name;
  3980. property ADsType: Integer read Get_ADsType write Set_ADsType;
  3981. property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
  3982. published
  3983. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  3984. property Server: TPropertyEntryProperties read GetServerProperties;
  3985. {$ENDIF}
  3986. end;
  3987. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  3988. // *********************************************************************//
  3989. // OLE Server Properties Proxy Class
  3990. // Server Object : TPropertyEntry
  3991. // (This object is used by the IDE's Property Inspector to allow editing
  3992. // of the properties of this server)
  3993. // *********************************************************************//
  3994. TPropertyEntryProperties = class(TPersistent)
  3995. private
  3996. FServer: TPropertyEntry;
  3997. function GetDefaultInterface: IADsPropertyEntry;
  3998. constructor Create(AServer: TPropertyEntry);
  3999. protected
  4000. function Get_Name: WideString;
  4001. procedure Set_Name(const retval: WideString);
  4002. function Get_ADsType: Integer;
  4003. procedure Set_ADsType(retval: Integer);
  4004. function Get_ControlCode: Integer;
  4005. procedure Set_ControlCode(retval: Integer);
  4006. function Get_Values: OleVariant;
  4007. procedure Set_Values(retval: OleVariant);
  4008. public
  4009. property DefaultInterface: IADsPropertyEntry read GetDefaultInterface;
  4010. published
  4011. property Name: WideString read Get_Name write Set_Name;
  4012. property ADsType: Integer read Get_ADsType write Set_ADsType;
  4013. property ControlCode: Integer read Get_ControlCode write Set_ControlCode;
  4014. end;
  4015. {$ENDIF}
  4016. // *********************************************************************//
  4017. // The Class CoPropertyValue provides a Create and CreateRemote method to
  4018. // create instances of the default interface IADsPropertyValue exposed by
  4019. // the CoClass PropertyValue. The functions are intended to be used by
  4020. // clients wishing to automate the CoClass objects exposed by the
  4021. // server of this typelibrary.
  4022. // *********************************************************************//
  4023. CoPropertyValue = class
  4024. class function Create: IADsPropertyValue;
  4025. class function CreateRemote(const MachineName: string): IADsPropertyValue;
  4026. end;
  4027. // *********************************************************************//
  4028. // OLE Server Proxy class declaration
  4029. // Server Object : TPropertyValue
  4030. // Help String :
  4031. // Default Interface: IADsPropertyValue
  4032. // Def. Intf. DISP? : No
  4033. // Event Interface:
  4034. // TypeFlags : (2) CanCreate
  4035. // *********************************************************************//
  4036. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4037. TPropertyValueProperties= class;
  4038. {$ENDIF}
  4039. TPropertyValue = class(TOleServer)
  4040. private
  4041. FIntf: IADsPropertyValue;
  4042. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4043. FProps: TPropertyValueProperties;
  4044. function GetServerProperties: TPropertyValueProperties;
  4045. {$ENDIF}
  4046. function GetDefaultInterface: IADsPropertyValue;
  4047. protected
  4048. procedure InitServerData; override;
  4049. function Get_ADsType: Integer;
  4050. procedure Set_ADsType(retval: Integer);
  4051. function Get_DNString: WideString;
  4052. procedure Set_DNString(const retval: WideString);
  4053. function Get_CaseExactString: WideString;
  4054. procedure Set_CaseExactString(const retval: WideString);
  4055. function Get_CaseIgnoreString: WideString;
  4056. procedure Set_CaseIgnoreString(const retval: WideString);
  4057. function Get_PrintableString: WideString;
  4058. procedure Set_PrintableString(const retval: WideString);
  4059. function Get_NumericString: WideString;
  4060. procedure Set_NumericString(const retval: WideString);
  4061. function Get_Boolean: Integer;
  4062. procedure Set_Boolean(retval: Integer);
  4063. function Get_Integer: Integer;
  4064. procedure Set_Integer(retval: Integer);
  4065. function Get_OctetString: OleVariant;
  4066. procedure Set_OctetString(retval: OleVariant);
  4067. function Get_SecurityDescriptor: IDispatch;
  4068. procedure Set_SecurityDescriptor(const retval: IDispatch);
  4069. function Get_LargeInteger: IDispatch;
  4070. procedure Set_LargeInteger(const retval: IDispatch);
  4071. function Get_UTCTime: TDateTime;
  4072. procedure Set_UTCTime(retval: TDateTime);
  4073. public
  4074. constructor Create(AOwner: TComponent); override;
  4075. destructor Destroy; override;
  4076. procedure Connect; override;
  4077. procedure ConnectTo(svrIntf: IADsPropertyValue);
  4078. procedure Disconnect; override;
  4079. procedure Clear;
  4080. property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
  4081. property OctetString: OleVariant read Get_OctetString write Set_OctetString;
  4082. property SecurityDescriptor: IDispatch read Get_SecurityDescriptor write Set_SecurityDescriptor;
  4083. property LargeInteger: IDispatch read Get_LargeInteger write Set_LargeInteger;
  4084. property ADsType: Integer read Get_ADsType write Set_ADsType;
  4085. property DNString: WideString read Get_DNString write Set_DNString;
  4086. property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
  4087. property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
  4088. property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
  4089. property NumericString: WideString read Get_NumericString write Set_NumericString;
  4090. property Boolean: Integer read Get_Boolean write Set_Boolean;
  4091. property Integer: Integer read Get_Integer write Set_Integer;
  4092. property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
  4093. published
  4094. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4095. property Server: TPropertyValueProperties read GetServerProperties;
  4096. {$ENDIF}
  4097. end;
  4098. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4099. // *********************************************************************//
  4100. // OLE Server Properties Proxy Class
  4101. // Server Object : TPropertyValue
  4102. // (This object is used by the IDE's Property Inspector to allow editing
  4103. // of the properties of this server)
  4104. // *********************************************************************//
  4105. TPropertyValueProperties = class(TPersistent)
  4106. private
  4107. FServer: TPropertyValue;
  4108. function GetDefaultInterface: IADsPropertyValue;
  4109. constructor Create(AServer: TPropertyValue);
  4110. protected
  4111. function Get_ADsType: Integer;
  4112. procedure Set_ADsType(retval: Integer);
  4113. function Get_DNString: WideString;
  4114. procedure Set_DNString(const retval: WideString);
  4115. function Get_CaseExactString: WideString;
  4116. procedure Set_CaseExactString(const retval: WideString);
  4117. function Get_CaseIgnoreString: WideString;
  4118. procedure Set_CaseIgnoreString(const retval: WideString);
  4119. function Get_PrintableString: WideString;
  4120. procedure Set_PrintableString(const retval: WideString);
  4121. function Get_NumericString: WideString;
  4122. procedure Set_NumericString(const retval: WideString);
  4123. function Get_Boolean: Integer;
  4124. procedure Set_Boolean(retval: Integer);
  4125. function Get_Integer: Integer;
  4126. procedure Set_Integer(retval: Integer);
  4127. function Get_OctetString: OleVariant;
  4128. procedure Set_OctetString(retval: OleVariant);
  4129. function Get_SecurityDescriptor: IDispatch;
  4130. procedure Set_SecurityDescriptor(const retval: IDispatch);
  4131. function Get_LargeInteger: IDispatch;
  4132. procedure Set_LargeInteger(const retval: IDispatch);
  4133. function Get_UTCTime: TDateTime;
  4134. procedure Set_UTCTime(retval: TDateTime);
  4135. public
  4136. property DefaultInterface: IADsPropertyValue read GetDefaultInterface;
  4137. published
  4138. property ADsType: Integer read Get_ADsType write Set_ADsType;
  4139. property DNString: WideString read Get_DNString write Set_DNString;
  4140. property CaseExactString: WideString read Get_CaseExactString write Set_CaseExactString;
  4141. property CaseIgnoreString: WideString read Get_CaseIgnoreString write Set_CaseIgnoreString;
  4142. property PrintableString: WideString read Get_PrintableString write Set_PrintableString;
  4143. property NumericString: WideString read Get_NumericString write Set_NumericString;
  4144. property Boolean: Integer read Get_Boolean write Set_Boolean;
  4145. property Integer: Integer read Get_Integer write Set_Integer;
  4146. property UTCTime: TDateTime read Get_UTCTime write Set_UTCTime;
  4147. end;
  4148. {$ENDIF}
  4149. // *********************************************************************//
  4150. // The Class CoAccessControlEntry provides a Create and CreateRemote method to
  4151. // create instances of the default interface IADsAccessControlEntry exposed by
  4152. // the CoClass AccessControlEntry. The functions are intended to be used by
  4153. // clients wishing to automate the CoClass objects exposed by the
  4154. // server of this typelibrary.
  4155. // *********************************************************************//
  4156. CoAccessControlEntry = class
  4157. class function Create: IADsAccessControlEntry;
  4158. class function CreateRemote(const MachineName: string): IADsAccessControlEntry;
  4159. end;
  4160. // *********************************************************************//
  4161. // OLE Server Proxy class declaration
  4162. // Server Object : TAccessControlEntry
  4163. // Help String :
  4164. // Default Interface: IADsAccessControlEntry
  4165. // Def. Intf. DISP? : No
  4166. // Event Interface:
  4167. // TypeFlags : (2) CanCreate
  4168. // *********************************************************************//
  4169. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4170. TAccessControlEntryProperties= class;
  4171. {$ENDIF}
  4172. TAccessControlEntry = class(TOleServer)
  4173. private
  4174. FIntf: IADsAccessControlEntry;
  4175. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4176. FProps: TAccessControlEntryProperties;
  4177. function GetServerProperties: TAccessControlEntryProperties;
  4178. {$ENDIF}
  4179. function GetDefaultInterface: IADsAccessControlEntry;
  4180. protected
  4181. procedure InitServerData; override;
  4182. function Get_AccessMask: Integer;
  4183. procedure Set_AccessMask(retval: Integer);
  4184. function Get_AceType: Integer;
  4185. procedure Set_AceType(retval: Integer);
  4186. function Get_AceFlags: Integer;
  4187. procedure Set_AceFlags(retval: Integer);
  4188. function Get_Flags: Integer;
  4189. procedure Set_Flags(retval: Integer);
  4190. function Get_ObjectType: WideString;
  4191. procedure Set_ObjectType(const retval: WideString);
  4192. function Get_InheritedObjectType: WideString;
  4193. procedure Set_InheritedObjectType(const retval: WideString);
  4194. function Get_Trustee: WideString;
  4195. procedure Set_Trustee(const retval: WideString);
  4196. public
  4197. constructor Create(AOwner: TComponent); override;
  4198. destructor Destroy; override;
  4199. procedure Connect; override;
  4200. procedure ConnectTo(svrIntf: IADsAccessControlEntry);
  4201. procedure Disconnect; override;
  4202. property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
  4203. property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
  4204. property AceType: Integer read Get_AceType write Set_AceType;
  4205. property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
  4206. property Flags: Integer read Get_Flags write Set_Flags;
  4207. property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
  4208. property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
  4209. property Trustee: WideString read Get_Trustee write Set_Trustee;
  4210. published
  4211. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4212. property Server: TAccessControlEntryProperties read GetServerProperties;
  4213. {$ENDIF}
  4214. end;
  4215. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4216. // *********************************************************************//
  4217. // OLE Server Properties Proxy Class
  4218. // Server Object : TAccessControlEntry
  4219. // (This object is used by the IDE's Property Inspector to allow editing
  4220. // of the properties of this server)
  4221. // *********************************************************************//
  4222. TAccessControlEntryProperties = class(TPersistent)
  4223. private
  4224. FServer: TAccessControlEntry;
  4225. function GetDefaultInterface: IADsAccessControlEntry;
  4226. constructor Create(AServer: TAccessControlEntry);
  4227. protected
  4228. function Get_AccessMask: Integer;
  4229. procedure Set_AccessMask(retval: Integer);
  4230. function Get_AceType: Integer;
  4231. procedure Set_AceType(retval: Integer);
  4232. function Get_AceFlags: Integer;
  4233. procedure Set_AceFlags(retval: Integer);
  4234. function Get_Flags: Integer;
  4235. procedure Set_Flags(retval: Integer);
  4236. function Get_ObjectType: WideString;
  4237. procedure Set_ObjectType(const retval: WideString);
  4238. function Get_InheritedObjectType: WideString;
  4239. procedure Set_InheritedObjectType(const retval: WideString);
  4240. function Get_Trustee: WideString;
  4241. procedure Set_Trustee(const retval: WideString);
  4242. public
  4243. property DefaultInterface: IADsAccessControlEntry read GetDefaultInterface;
  4244. published
  4245. property AccessMask: Integer read Get_AccessMask write Set_AccessMask;
  4246. property AceType: Integer read Get_AceType write Set_AceType;
  4247. property AceFlags: Integer read Get_AceFlags write Set_AceFlags;
  4248. property Flags: Integer read Get_Flags write Set_Flags;
  4249. property ObjectType: WideString read Get_ObjectType write Set_ObjectType;
  4250. property InheritedObjectType: WideString read Get_InheritedObjectType write Set_InheritedObjectType;
  4251. property Trustee: WideString read Get_Trustee write Set_Trustee;
  4252. end;
  4253. {$ENDIF}
  4254. // *********************************************************************//
  4255. // The Class CoAccessControlList provides a Create and CreateRemote method to
  4256. // create instances of the default interface IADsAccessControlList exposed by
  4257. // the CoClass AccessControlList. The functions are intended to be used by
  4258. // clients wishing to automate the CoClass objects exposed by the
  4259. // server of this typelibrary.
  4260. // *********************************************************************//
  4261. CoAccessControlList = class
  4262. class function Create: IADsAccessControlList;
  4263. class function CreateRemote(const MachineName: string): IADsAccessControlList;
  4264. end;
  4265. // *********************************************************************//
  4266. // OLE Server Proxy class declaration
  4267. // Server Object : TAccessControlList
  4268. // Help String :
  4269. // Default Interface: IADsAccessControlList
  4270. // Def. Intf. DISP? : No
  4271. // Event Interface:
  4272. // TypeFlags : (2) CanCreate
  4273. // *********************************************************************//
  4274. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4275. TAccessControlListProperties= class;
  4276. {$ENDIF}
  4277. TAccessControlList = class(TOleServer)
  4278. private
  4279. FIntf: IADsAccessControlList;
  4280. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4281. FProps: TAccessControlListProperties;
  4282. function GetServerProperties: TAccessControlListProperties;
  4283. {$ENDIF}
  4284. function GetDefaultInterface: IADsAccessControlList;
  4285. protected
  4286. procedure InitServerData; override;
  4287. function Get_AclRevision: Integer;
  4288. procedure Set_AclRevision(retval: Integer);
  4289. function Get_AceCount: Integer;
  4290. procedure Set_AceCount(retval: Integer);
  4291. public
  4292. constructor Create(AOwner: TComponent); override;
  4293. destructor Destroy; override;
  4294. procedure Connect; override;
  4295. procedure ConnectTo(svrIntf: IADsAccessControlList);
  4296. procedure Disconnect; override;
  4297. procedure AddAce(const pAccessControlEntry: IDispatch);
  4298. procedure RemoveAce(const pAccessControlEntry: IDispatch);
  4299. function CopyAccessList: IDispatch;
  4300. property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
  4301. property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
  4302. property AceCount: Integer read Get_AceCount write Set_AceCount;
  4303. published
  4304. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4305. property Server: TAccessControlListProperties read GetServerProperties;
  4306. {$ENDIF}
  4307. end;
  4308. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4309. // *********************************************************************//
  4310. // OLE Server Properties Proxy Class
  4311. // Server Object : TAccessControlList
  4312. // (This object is used by the IDE's Property Inspector to allow editing
  4313. // of the properties of this server)
  4314. // *********************************************************************//
  4315. TAccessControlListProperties = class(TPersistent)
  4316. private
  4317. FServer: TAccessControlList;
  4318. function GetDefaultInterface: IADsAccessControlList;
  4319. constructor Create(AServer: TAccessControlList);
  4320. protected
  4321. function Get_AclRevision: Integer;
  4322. procedure Set_AclRevision(retval: Integer);
  4323. function Get_AceCount: Integer;
  4324. procedure Set_AceCount(retval: Integer);
  4325. public
  4326. property DefaultInterface: IADsAccessControlList read GetDefaultInterface;
  4327. published
  4328. property AclRevision: Integer read Get_AclRevision write Set_AclRevision;
  4329. property AceCount: Integer read Get_AceCount write Set_AceCount;
  4330. end;
  4331. {$ENDIF}
  4332. // *********************************************************************//
  4333. // The Class CoSecurityDescriptor provides a Create and CreateRemote method to
  4334. // create instances of the default interface IADsSecurityDescriptor exposed by
  4335. // the CoClass SecurityDescriptor. The functions are intended to be used by
  4336. // clients wishing to automate the CoClass objects exposed by the
  4337. // server of this typelibrary.
  4338. // *********************************************************************//
  4339. CoSecurityDescriptor = class
  4340. class function Create: IADsSecurityDescriptor;
  4341. class function CreateRemote(const MachineName: string): IADsSecurityDescriptor;
  4342. end;
  4343. // *********************************************************************//
  4344. // OLE Server Proxy class declaration
  4345. // Server Object : TSecurityDescriptor
  4346. // Help String :
  4347. // Default Interface: IADsSecurityDescriptor
  4348. // Def. Intf. DISP? : No
  4349. // Event Interface:
  4350. // TypeFlags : (2) CanCreate
  4351. // *********************************************************************//
  4352. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4353. TSecurityDescriptorProperties= class;
  4354. {$ENDIF}
  4355. TSecurityDescriptor = class(TOleServer)
  4356. private
  4357. FIntf: IADsSecurityDescriptor;
  4358. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4359. FProps: TSecurityDescriptorProperties;
  4360. function GetServerProperties: TSecurityDescriptorProperties;
  4361. {$ENDIF}
  4362. function GetDefaultInterface: IADsSecurityDescriptor;
  4363. protected
  4364. procedure InitServerData; override;
  4365. function Get_Revision: Integer;
  4366. procedure Set_Revision(retval: Integer);
  4367. function Get_Control: Integer;
  4368. procedure Set_Control(retval: Integer);
  4369. function Get_Owner: WideString;
  4370. procedure Set_Owner(const retval: WideString);
  4371. function Get_OwnerDefaulted: WordBool;
  4372. procedure Set_OwnerDefaulted(retval: WordBool);
  4373. function Get_Group: WideString;
  4374. procedure Set_Group(const retval: WideString);
  4375. function Get_GroupDefaulted: WordBool;
  4376. procedure Set_GroupDefaulted(retval: WordBool);
  4377. function Get_DiscretionaryAcl: IDispatch;
  4378. procedure Set_DiscretionaryAcl(const retval: IDispatch);
  4379. function Get_DaclDefaulted: WordBool;
  4380. procedure Set_DaclDefaulted(retval: WordBool);
  4381. function Get_SystemAcl: IDispatch;
  4382. procedure Set_SystemAcl(const retval: IDispatch);
  4383. function Get_SaclDefaulted: WordBool;
  4384. procedure Set_SaclDefaulted(retval: WordBool);
  4385. public
  4386. constructor Create(AOwner: TComponent); override;
  4387. destructor Destroy; override;
  4388. procedure Connect; override;
  4389. procedure ConnectTo(svrIntf: IADsSecurityDescriptor);
  4390. procedure Disconnect; override;
  4391. function CopySecurityDescriptor: IDispatch;
  4392. property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
  4393. property DiscretionaryAcl: IDispatch read Get_DiscretionaryAcl write Set_DiscretionaryAcl;
  4394. property SystemAcl: IDispatch read Get_SystemAcl write Set_SystemAcl;
  4395. property Revision: Integer read Get_Revision write Set_Revision;
  4396. property Control: Integer read Get_Control write Set_Control;
  4397. property Owner: WideString read Get_Owner write Set_Owner;
  4398. property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
  4399. property Group: WideString read Get_Group write Set_Group;
  4400. property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
  4401. property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
  4402. property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
  4403. published
  4404. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4405. property Server: TSecurityDescriptorProperties read GetServerProperties;
  4406. {$ENDIF}
  4407. end;
  4408. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4409. // *********************************************************************//
  4410. // OLE Server Properties Proxy Class
  4411. // Server Object : TSecurityDescriptor
  4412. // (This object is used by the IDE's Property Inspector to allow editing
  4413. // of the properties of this server)
  4414. // *********************************************************************//
  4415. TSecurityDescriptorProperties = class(TPersistent)
  4416. private
  4417. FServer: TSecurityDescriptor;
  4418. function GetDefaultInterface: IADsSecurityDescriptor;
  4419. constructor Create(AServer: TSecurityDescriptor);
  4420. protected
  4421. function Get_Revision: Integer;
  4422. procedure Set_Revision(retval: Integer);
  4423. function Get_Control: Integer;
  4424. procedure Set_Control(retval: Integer);
  4425. function Get_Owner: WideString;
  4426. procedure Set_Owner(const retval: WideString);
  4427. function Get_OwnerDefaulted: WordBool;
  4428. procedure Set_OwnerDefaulted(retval: WordBool);
  4429. function Get_Group: WideString;
  4430. procedure Set_Group(const retval: WideString);
  4431. function Get_GroupDefaulted: WordBool;
  4432. procedure Set_GroupDefaulted(retval: WordBool);
  4433. function Get_DiscretionaryAcl: IDispatch;
  4434. procedure Set_DiscretionaryAcl(const retval: IDispatch);
  4435. function Get_DaclDefaulted: WordBool;
  4436. procedure Set_DaclDefaulted(retval: WordBool);
  4437. function Get_SystemAcl: IDispatch;
  4438. procedure Set_SystemAcl(const retval: IDispatch);
  4439. function Get_SaclDefaulted: WordBool;
  4440. procedure Set_SaclDefaulted(retval: WordBool);
  4441. public
  4442. property DefaultInterface: IADsSecurityDescriptor read GetDefaultInterface;
  4443. published
  4444. property Revision: Integer read Get_Revision write Set_Revision;
  4445. property Control: Integer read Get_Control write Set_Control;
  4446. property Owner: WideString read Get_Owner write Set_Owner;
  4447. property OwnerDefaulted: WordBool read Get_OwnerDefaulted write Set_OwnerDefaulted;
  4448. property Group: WideString read Get_Group write Set_Group;
  4449. property GroupDefaulted: WordBool read Get_GroupDefaulted write Set_GroupDefaulted;
  4450. property DaclDefaulted: WordBool read Get_DaclDefaulted write Set_DaclDefaulted;
  4451. property SaclDefaulted: WordBool read Get_SaclDefaulted write Set_SaclDefaulted;
  4452. end;
  4453. {$ENDIF}
  4454. // *********************************************************************//
  4455. // The Class CoLargeInteger provides a Create and CreateRemote method to
  4456. // create instances of the default interface IADsLargeInteger exposed by
  4457. // the CoClass LargeInteger. The functions are intended to be used by
  4458. // clients wishing to automate the CoClass objects exposed by the
  4459. // server of this typelibrary.
  4460. // *********************************************************************//
  4461. CoLargeInteger = class
  4462. class function Create: IADsLargeInteger;
  4463. class function CreateRemote(const MachineName: string): IADsLargeInteger;
  4464. end;
  4465. // *********************************************************************//
  4466. // OLE Server Proxy class declaration
  4467. // Server Object : TLargeInteger
  4468. // Help String :
  4469. // Default Interface: IADsLargeInteger
  4470. // Def. Intf. DISP? : No
  4471. // Event Interface:
  4472. // TypeFlags : (2) CanCreate
  4473. // *********************************************************************//
  4474. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4475. TLargeIntegerProperties= class;
  4476. {$ENDIF}
  4477. TLargeInteger = class(TOleServer)
  4478. private
  4479. FIntf: IADsLargeInteger;
  4480. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4481. FProps: TLargeIntegerProperties;
  4482. function GetServerProperties: TLargeIntegerProperties;
  4483. {$ENDIF}
  4484. function GetDefaultInterface: IADsLargeInteger;
  4485. protected
  4486. procedure InitServerData; override;
  4487. function Get_HighPart: Integer;
  4488. procedure Set_HighPart(retval: Integer);
  4489. function Get_LowPart: Integer;
  4490. procedure Set_LowPart(retval: Integer);
  4491. public
  4492. constructor Create(AOwner: TComponent); override;
  4493. destructor Destroy; override;
  4494. procedure Connect; override;
  4495. procedure ConnectTo(svrIntf: IADsLargeInteger);
  4496. procedure Disconnect; override;
  4497. property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
  4498. property HighPart: Integer read Get_HighPart write Set_HighPart;
  4499. property LowPart: Integer read Get_LowPart write Set_LowPart;
  4500. published
  4501. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4502. property Server: TLargeIntegerProperties read GetServerProperties;
  4503. {$ENDIF}
  4504. end;
  4505. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4506. // *********************************************************************//
  4507. // OLE Server Properties Proxy Class
  4508. // Server Object : TLargeInteger
  4509. // (This object is used by the IDE's Property Inspector to allow editing
  4510. // of the properties of this server)
  4511. // *********************************************************************//
  4512. TLargeIntegerProperties = class(TPersistent)
  4513. private
  4514. FServer: TLargeInteger;
  4515. function GetDefaultInterface: IADsLargeInteger;
  4516. constructor Create(AServer: TLargeInteger);
  4517. protected
  4518. function Get_HighPart: Integer;
  4519. procedure Set_HighPart(retval: Integer);
  4520. function Get_LowPart: Integer;
  4521. procedure Set_LowPart(retval: Integer);
  4522. public
  4523. property DefaultInterface: IADsLargeInteger read GetDefaultInterface;
  4524. published
  4525. property HighPart: Integer read Get_HighPart write Set_HighPart;
  4526. property LowPart: Integer read Get_LowPart write Set_LowPart;
  4527. end;
  4528. {$ENDIF}
  4529. // *********************************************************************//
  4530. // The Class CoNameTranslate provides a Create and CreateRemote method to
  4531. // create instances of the default interface IADsNameTranslate exposed by
  4532. // the CoClass NameTranslate. The functions are intended to be used by
  4533. // clients wishing to automate the CoClass objects exposed by the
  4534. // server of this typelibrary.
  4535. // *********************************************************************//
  4536. CoNameTranslate = class
  4537. class function Create: IADsNameTranslate;
  4538. class function CreateRemote(const MachineName: string): IADsNameTranslate;
  4539. end;
  4540. // *********************************************************************//
  4541. // OLE Server Proxy class declaration
  4542. // Server Object : TNameTranslate
  4543. // Help String :
  4544. // Default Interface: IADsNameTranslate
  4545. // Def. Intf. DISP? : No
  4546. // Event Interface:
  4547. // TypeFlags : (2) CanCreate
  4548. // *********************************************************************//
  4549. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4550. TNameTranslateProperties= class;
  4551. {$ENDIF}
  4552. TNameTranslate = class(TOleServer)
  4553. private
  4554. FIntf: IADsNameTranslate;
  4555. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4556. FProps: TNameTranslateProperties;
  4557. function GetServerProperties: TNameTranslateProperties;
  4558. {$ENDIF}
  4559. function GetDefaultInterface: IADsNameTranslate;
  4560. protected
  4561. procedure InitServerData; override;
  4562. procedure Set_ChaseReferral(Param1: Integer);
  4563. public
  4564. constructor Create(AOwner: TComponent); override;
  4565. destructor Destroy; override;
  4566. procedure Connect; override;
  4567. procedure ConnectTo(svrIntf: IADsNameTranslate);
  4568. procedure Disconnect; override;
  4569. procedure Init(lnSetType: Integer; const bstrADsPath: WideString);
  4570. procedure InitEx(lnSetType: Integer; const bstrADsPath: WideString;
  4571. const bstrUserID: WideString; const bstrDomain: WideString;
  4572. const bstrPassword: WideString);
  4573. procedure Set_(lnSetType: Integer; const bstrADsPath: WideString);
  4574. function Get(lnFormatType: Integer): WideString;
  4575. procedure SetEx(lnFormatType: Integer; pVar: OleVariant);
  4576. function GetEx(lnFormatType: Integer): OleVariant;
  4577. property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
  4578. property ChaseReferral: Integer write Set_ChaseReferral;
  4579. published
  4580. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4581. property Server: TNameTranslateProperties read GetServerProperties;
  4582. {$ENDIF}
  4583. end;
  4584. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4585. // *********************************************************************//
  4586. // OLE Server Properties Proxy Class
  4587. // Server Object : TNameTranslate
  4588. // (This object is used by the IDE's Property Inspector to allow editing
  4589. // of the properties of this server)
  4590. // *********************************************************************//
  4591. TNameTranslateProperties = class(TPersistent)
  4592. private
  4593. FServer: TNameTranslate;
  4594. function GetDefaultInterface: IADsNameTranslate;
  4595. constructor Create(AServer: TNameTranslate);
  4596. protected
  4597. procedure Set_ChaseReferral(Param1: Integer);
  4598. public
  4599. property DefaultInterface: IADsNameTranslate read GetDefaultInterface;
  4600. published
  4601. end;
  4602. {$ENDIF}
  4603. // *********************************************************************//
  4604. // The Class CoCaseIgnoreList provides a Create and CreateRemote method to
  4605. // create instances of the default interface IADsCaseIgnoreList exposed by
  4606. // the CoClass CaseIgnoreList. The functions are intended to be used by
  4607. // clients wishing to automate the CoClass objects exposed by the
  4608. // server of this typelibrary.
  4609. // *********************************************************************//
  4610. CoCaseIgnoreList = class
  4611. class function Create: IADsCaseIgnoreList;
  4612. class function CreateRemote(const MachineName: string): IADsCaseIgnoreList;
  4613. end;
  4614. // *********************************************************************//
  4615. // OLE Server Proxy class declaration
  4616. // Server Object : TCaseIgnoreList
  4617. // Help String :
  4618. // Default Interface: IADsCaseIgnoreList
  4619. // Def. Intf. DISP? : No
  4620. // Event Interface:
  4621. // TypeFlags : (2) CanCreate
  4622. // *********************************************************************//
  4623. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4624. TCaseIgnoreListProperties= class;
  4625. {$ENDIF}
  4626. TCaseIgnoreList = class(TOleServer)
  4627. private
  4628. FIntf: IADsCaseIgnoreList;
  4629. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4630. FProps: TCaseIgnoreListProperties;
  4631. function GetServerProperties: TCaseIgnoreListProperties;
  4632. {$ENDIF}
  4633. function GetDefaultInterface: IADsCaseIgnoreList;
  4634. protected
  4635. procedure InitServerData; override;
  4636. function Get_CaseIgnoreList: OleVariant;
  4637. procedure Set_CaseIgnoreList(retval: OleVariant);
  4638. public
  4639. constructor Create(AOwner: TComponent); override;
  4640. destructor Destroy; override;
  4641. procedure Connect; override;
  4642. procedure ConnectTo(svrIntf: IADsCaseIgnoreList);
  4643. procedure Disconnect; override;
  4644. property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
  4645. property CaseIgnoreList: OleVariant read Get_CaseIgnoreList write Set_CaseIgnoreList;
  4646. published
  4647. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4648. property Server: TCaseIgnoreListProperties read GetServerProperties;
  4649. {$ENDIF}
  4650. end;
  4651. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4652. // *********************************************************************//
  4653. // OLE Server Properties Proxy Class
  4654. // Server Object : TCaseIgnoreList
  4655. // (This object is used by the IDE's Property Inspector to allow editing
  4656. // of the properties of this server)
  4657. // *********************************************************************//
  4658. TCaseIgnoreListProperties = class(TPersistent)
  4659. private
  4660. FServer: TCaseIgnoreList;
  4661. function GetDefaultInterface: IADsCaseIgnoreList;
  4662. constructor Create(AServer: TCaseIgnoreList);
  4663. protected
  4664. function Get_CaseIgnoreList: OleVariant;
  4665. procedure Set_CaseIgnoreList(retval: OleVariant);
  4666. public
  4667. property DefaultInterface: IADsCaseIgnoreList read GetDefaultInterface;
  4668. published
  4669. end;
  4670. {$ENDIF}
  4671. // *********************************************************************//
  4672. // The Class CoFaxNumber provides a Create and CreateRemote method to
  4673. // create instances of the default interface IADsFaxNumber exposed by
  4674. // the CoClass FaxNumber. The functions are intended to be used by
  4675. // clients wishing to automate the CoClass objects exposed by the
  4676. // server of this typelibrary.
  4677. // *********************************************************************//
  4678. CoFaxNumber = class
  4679. class function Create: IADsFaxNumber;
  4680. class function CreateRemote(const MachineName: string): IADsFaxNumber;
  4681. end;
  4682. // *********************************************************************//
  4683. // OLE Server Proxy class declaration
  4684. // Server Object : TFaxNumber
  4685. // Help String :
  4686. // Default Interface: IADsFaxNumber
  4687. // Def. Intf. DISP? : No
  4688. // Event Interface:
  4689. // TypeFlags : (2) CanCreate
  4690. // *********************************************************************//
  4691. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4692. TFaxNumberProperties= class;
  4693. {$ENDIF}
  4694. TFaxNumber = class(TOleServer)
  4695. private
  4696. FIntf: IADsFaxNumber;
  4697. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4698. FProps: TFaxNumberProperties;
  4699. function GetServerProperties: TFaxNumberProperties;
  4700. {$ENDIF}
  4701. function GetDefaultInterface: IADsFaxNumber;
  4702. protected
  4703. procedure InitServerData; override;
  4704. function Get_TelephoneNumber: WideString;
  4705. procedure Set_TelephoneNumber(const retval: WideString);
  4706. function Get_Parameters: OleVariant;
  4707. procedure Set_Parameters(retval: OleVariant);
  4708. public
  4709. constructor Create(AOwner: TComponent); override;
  4710. destructor Destroy; override;
  4711. procedure Connect; override;
  4712. procedure ConnectTo(svrIntf: IADsFaxNumber);
  4713. procedure Disconnect; override;
  4714. property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
  4715. property Parameters: OleVariant read Get_Parameters write Set_Parameters;
  4716. property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
  4717. published
  4718. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4719. property Server: TFaxNumberProperties read GetServerProperties;
  4720. {$ENDIF}
  4721. end;
  4722. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4723. // *********************************************************************//
  4724. // OLE Server Properties Proxy Class
  4725. // Server Object : TFaxNumber
  4726. // (This object is used by the IDE's Property Inspector to allow editing
  4727. // of the properties of this server)
  4728. // *********************************************************************//
  4729. TFaxNumberProperties = class(TPersistent)
  4730. private
  4731. FServer: TFaxNumber;
  4732. function GetDefaultInterface: IADsFaxNumber;
  4733. constructor Create(AServer: TFaxNumber);
  4734. protected
  4735. function Get_TelephoneNumber: WideString;
  4736. procedure Set_TelephoneNumber(const retval: WideString);
  4737. function Get_Parameters: OleVariant;
  4738. procedure Set_Parameters(retval: OleVariant);
  4739. public
  4740. property DefaultInterface: IADsFaxNumber read GetDefaultInterface;
  4741. published
  4742. property TelephoneNumber: WideString read Get_TelephoneNumber write Set_TelephoneNumber;
  4743. end;
  4744. {$ENDIF}
  4745. // *********************************************************************//
  4746. // The Class CoNetAddress provides a Create and CreateRemote method to
  4747. // create instances of the default interface IADsNetAddress exposed by
  4748. // the CoClass NetAddress. The functions are intended to be used by
  4749. // clients wishing to automate the CoClass objects exposed by the
  4750. // server of this typelibrary.
  4751. // *********************************************************************//
  4752. CoNetAddress = class
  4753. class function Create: IADsNetAddress;
  4754. class function CreateRemote(const MachineName: string): IADsNetAddress;
  4755. end;
  4756. // *********************************************************************//
  4757. // OLE Server Proxy class declaration
  4758. // Server Object : TNetAddress
  4759. // Help String :
  4760. // Default Interface: IADsNetAddress
  4761. // Def. Intf. DISP? : No
  4762. // Event Interface:
  4763. // TypeFlags : (2) CanCreate
  4764. // *********************************************************************//
  4765. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4766. TNetAddressProperties= class;
  4767. {$ENDIF}
  4768. TNetAddress = class(TOleServer)
  4769. private
  4770. FIntf: IADsNetAddress;
  4771. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4772. FProps: TNetAddressProperties;
  4773. function GetServerProperties: TNetAddressProperties;
  4774. {$ENDIF}
  4775. function GetDefaultInterface: IADsNetAddress;
  4776. protected
  4777. procedure InitServerData; override;
  4778. function Get_AddressType: Integer;
  4779. procedure Set_AddressType(retval: Integer);
  4780. function Get_Address: OleVariant;
  4781. procedure Set_Address(retval: OleVariant);
  4782. public
  4783. constructor Create(AOwner: TComponent); override;
  4784. destructor Destroy; override;
  4785. procedure Connect; override;
  4786. procedure ConnectTo(svrIntf: IADsNetAddress);
  4787. procedure Disconnect; override;
  4788. property DefaultInterface: IADsNetAddress read GetDefaultInterface;
  4789. property Address: OleVariant read Get_Address write Set_Address;
  4790. property AddressType: Integer read Get_AddressType write Set_AddressType;
  4791. published
  4792. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4793. property Server: TNetAddressProperties read GetServerProperties;
  4794. {$ENDIF}
  4795. end;
  4796. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4797. // *********************************************************************//
  4798. // OLE Server Properties Proxy Class
  4799. // Server Object : TNetAddress
  4800. // (This object is used by the IDE's Property Inspector to allow editing
  4801. // of the properties of this server)
  4802. // *********************************************************************//
  4803. TNetAddressProperties = class(TPersistent)
  4804. private
  4805. FServer: TNetAddress;
  4806. function GetDefaultInterface: IADsNetAddress;
  4807. constructor Create(AServer: TNetAddress);
  4808. protected
  4809. function Get_AddressType: Integer;
  4810. procedure Set_AddressType(retval: Integer);
  4811. function Get_Address: OleVariant;
  4812. procedure Set_Address(retval: OleVariant);
  4813. public
  4814. property DefaultInterface: IADsNetAddress read GetDefaultInterface;
  4815. published
  4816. property AddressType: Integer read Get_AddressType write Set_AddressType;
  4817. end;
  4818. {$ENDIF}
  4819. // *********************************************************************//
  4820. // The Class CoOctetList provides a Create and CreateRemote method to
  4821. // create instances of the default interface IADsOctetList exposed by
  4822. // the CoClass OctetList. The functions are intended to be used by
  4823. // clients wishing to automate the CoClass objects exposed by the
  4824. // server of this typelibrary.
  4825. // *********************************************************************//
  4826. CoOctetList = class
  4827. class function Create: IADsOctetList;
  4828. class function CreateRemote(const MachineName: string): IADsOctetList;
  4829. end;
  4830. // *********************************************************************//
  4831. // OLE Server Proxy class declaration
  4832. // Server Object : TOctetList
  4833. // Help String :
  4834. // Default Interface: IADsOctetList
  4835. // Def. Intf. DISP? : No
  4836. // Event Interface:
  4837. // TypeFlags : (2) CanCreate
  4838. // *********************************************************************//
  4839. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4840. TOctetListProperties= class;
  4841. {$ENDIF}
  4842. TOctetList = class(TOleServer)
  4843. private
  4844. FIntf: IADsOctetList;
  4845. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4846. FProps: TOctetListProperties;
  4847. function GetServerProperties: TOctetListProperties;
  4848. {$ENDIF}
  4849. function GetDefaultInterface: IADsOctetList;
  4850. protected
  4851. procedure InitServerData; override;
  4852. function Get_OctetList: OleVariant;
  4853. procedure Set_OctetList(retval: OleVariant);
  4854. public
  4855. constructor Create(AOwner: TComponent); override;
  4856. destructor Destroy; override;
  4857. procedure Connect; override;
  4858. procedure ConnectTo(svrIntf: IADsOctetList);
  4859. procedure Disconnect; override;
  4860. property DefaultInterface: IADsOctetList read GetDefaultInterface;
  4861. property OctetList: OleVariant read Get_OctetList write Set_OctetList;
  4862. published
  4863. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4864. property Server: TOctetListProperties read GetServerProperties;
  4865. {$ENDIF}
  4866. end;
  4867. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4868. // *********************************************************************//
  4869. // OLE Server Properties Proxy Class
  4870. // Server Object : TOctetList
  4871. // (This object is used by the IDE's Property Inspector to allow editing
  4872. // of the properties of this server)
  4873. // *********************************************************************//
  4874. TOctetListProperties = class(TPersistent)
  4875. private
  4876. FServer: TOctetList;
  4877. function GetDefaultInterface: IADsOctetList;
  4878. constructor Create(AServer: TOctetList);
  4879. protected
  4880. function Get_OctetList: OleVariant;
  4881. procedure Set_OctetList(retval: OleVariant);
  4882. public
  4883. property DefaultInterface: IADsOctetList read GetDefaultInterface;
  4884. published
  4885. end;
  4886. {$ENDIF}
  4887. // *********************************************************************//
  4888. // The Class CoEmail provides a Create and CreateRemote method to
  4889. // create instances of the default interface IADsEmail exposed by
  4890. // the CoClass Email. The functions are intended to be used by
  4891. // clients wishing to automate the CoClass objects exposed by the
  4892. // server of this typelibrary.
  4893. // *********************************************************************//
  4894. CoEmail = class
  4895. class function Create: IADsEmail;
  4896. class function CreateRemote(const MachineName: string): IADsEmail;
  4897. end;
  4898. // *********************************************************************//
  4899. // OLE Server Proxy class declaration
  4900. // Server Object : TEmail
  4901. // Help String :
  4902. // Default Interface: IADsEmail
  4903. // Def. Intf. DISP? : No
  4904. // Event Interface:
  4905. // TypeFlags : (2) CanCreate
  4906. // *********************************************************************//
  4907. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4908. TEmailProperties= class;
  4909. {$ENDIF}
  4910. TEmail = class(TOleServer)
  4911. private
  4912. FIntf: IADsEmail;
  4913. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4914. FProps: TEmailProperties;
  4915. function GetServerProperties: TEmailProperties;
  4916. {$ENDIF}
  4917. function GetDefaultInterface: IADsEmail;
  4918. protected
  4919. procedure InitServerData; override;
  4920. function Get_Type_: Integer;
  4921. procedure Set_Type_(retval: Integer);
  4922. function Get_Address: WideString;
  4923. procedure Set_Address(const retval: WideString);
  4924. public
  4925. constructor Create(AOwner: TComponent); override;
  4926. destructor Destroy; override;
  4927. procedure Connect; override;
  4928. procedure ConnectTo(svrIntf: IADsEmail);
  4929. procedure Disconnect; override;
  4930. property DefaultInterface: IADsEmail read GetDefaultInterface;
  4931. property Type_: Integer read Get_Type_ write Set_Type_;
  4932. property Address: WideString read Get_Address write Set_Address;
  4933. published
  4934. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4935. property Server: TEmailProperties read GetServerProperties;
  4936. {$ENDIF}
  4937. end;
  4938. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4939. // *********************************************************************//
  4940. // OLE Server Properties Proxy Class
  4941. // Server Object : TEmail
  4942. // (This object is used by the IDE's Property Inspector to allow editing
  4943. // of the properties of this server)
  4944. // *********************************************************************//
  4945. TEmailProperties = class(TPersistent)
  4946. private
  4947. FServer: TEmail;
  4948. function GetDefaultInterface: IADsEmail;
  4949. constructor Create(AServer: TEmail);
  4950. protected
  4951. function Get_Type_: Integer;
  4952. procedure Set_Type_(retval: Integer);
  4953. function Get_Address: WideString;
  4954. procedure Set_Address(const retval: WideString);
  4955. public
  4956. property DefaultInterface: IADsEmail read GetDefaultInterface;
  4957. published
  4958. property Type_: Integer read Get_Type_ write Set_Type_;
  4959. property Address: WideString read Get_Address write Set_Address;
  4960. end;
  4961. {$ENDIF}
  4962. // *********************************************************************//
  4963. // The Class CoPath provides a Create and CreateRemote method to
  4964. // create instances of the default interface IADsPath exposed by
  4965. // the CoClass Path. The functions are intended to be used by
  4966. // clients wishing to automate the CoClass objects exposed by the
  4967. // server of this typelibrary.
  4968. // *********************************************************************//
  4969. CoPath = class
  4970. class function Create: IADsPath;
  4971. class function CreateRemote(const MachineName: string): IADsPath;
  4972. end;
  4973. // *********************************************************************//
  4974. // OLE Server Proxy class declaration
  4975. // Server Object : TPath
  4976. // Help String :
  4977. // Default Interface: IADsPath
  4978. // Def. Intf. DISP? : No
  4979. // Event Interface:
  4980. // TypeFlags : (2) CanCreate
  4981. // *********************************************************************//
  4982. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4983. TPathProperties= class;
  4984. {$ENDIF}
  4985. TPath = class(TOleServer)
  4986. private
  4987. FIntf: IADsPath;
  4988. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4989. FProps: TPathProperties;
  4990. function GetServerProperties: TPathProperties;
  4991. {$ENDIF}
  4992. function GetDefaultInterface: IADsPath;
  4993. protected
  4994. procedure InitServerData; override;
  4995. function Get_Type_: Integer;
  4996. procedure Set_Type_(retval: Integer);
  4997. function Get_VolumeName: WideString;
  4998. procedure Set_VolumeName(const retval: WideString);
  4999. function Get_Path: WideString;
  5000. procedure Set_Path(const retval: WideString);
  5001. public
  5002. constructor Create(AOwner: TComponent); override;
  5003. destructor Destroy; override;
  5004. procedure Connect; override;
  5005. procedure ConnectTo(svrIntf: IADsPath);
  5006. procedure Disconnect; override;
  5007. property DefaultInterface: IADsPath read GetDefaultInterface;
  5008. property Type_: Integer read Get_Type_ write Set_Type_;
  5009. property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
  5010. property Path: WideString read Get_Path write Set_Path;
  5011. published
  5012. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5013. property Server: TPathProperties read GetServerProperties;
  5014. {$ENDIF}
  5015. end;
  5016. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5017. // *********************************************************************//
  5018. // OLE Server Properties Proxy Class
  5019. // Server Object : TPath
  5020. // (This object is used by the IDE's Property Inspector to allow editing
  5021. // of the properties of this server)
  5022. // *********************************************************************//
  5023. TPathProperties = class(TPersistent)
  5024. private
  5025. FServer: TPath;
  5026. function GetDefaultInterface: IADsPath;
  5027. constructor Create(AServer: TPath);
  5028. protected
  5029. function Get_Type_: Integer;
  5030. procedure Set_Type_(retval: Integer);
  5031. function Get_VolumeName: WideString;
  5032. procedure Set_VolumeName(const retval: WideString);
  5033. function Get_Path: WideString;
  5034. procedure Set_Path(const retval: WideString);
  5035. public
  5036. property DefaultInterface: IADsPath read GetDefaultInterface;
  5037. published
  5038. property Type_: Integer read Get_Type_ write Set_Type_;
  5039. property VolumeName: WideString read Get_VolumeName write Set_VolumeName;
  5040. property Path: WideString read Get_Path write Set_Path;
  5041. end;
  5042. {$ENDIF}
  5043. // *********************************************************************//
  5044. // The Class CoReplicaPointer provides a Create and CreateRemote method to
  5045. // create instances of the default interface IADsReplicaPointer exposed by
  5046. // the CoClass ReplicaPointer. The functions are intended to be used by
  5047. // clients wishing to automate the CoClass objects exposed by the
  5048. // server of this typelibrary.
  5049. // *********************************************************************//
  5050. CoReplicaPointer = class
  5051. class function Create: IADsReplicaPointer;
  5052. class function CreateRemote(const MachineName: string): IADsReplicaPointer;
  5053. end;
  5054. // *********************************************************************//
  5055. // OLE Server Proxy class declaration
  5056. // Server Object : TReplicaPointer
  5057. // Help String :
  5058. // Default Interface: IADsReplicaPointer
  5059. // Def. Intf. DISP? : No
  5060. // Event Interface:
  5061. // TypeFlags : (2) CanCreate
  5062. // *********************************************************************//
  5063. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5064. TReplicaPointerProperties= class;
  5065. {$ENDIF}
  5066. TReplicaPointer = class(TOleServer)
  5067. private
  5068. FIntf: IADsReplicaPointer;
  5069. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5070. FProps: TReplicaPointerProperties;
  5071. function GetServerProperties: TReplicaPointerProperties;
  5072. {$ENDIF}
  5073. function GetDefaultInterface: IADsReplicaPointer;
  5074. protected
  5075. procedure InitServerData; override;
  5076. function Get_ServerName: WideString;
  5077. procedure Set_ServerName(const retval: WideString);
  5078. function Get_ReplicaType: Integer;
  5079. procedure Set_ReplicaType(retval: Integer);
  5080. function Get_ReplicaNumber: Integer;
  5081. procedure Set_ReplicaNumber(retval: Integer);
  5082. function Get_Count: Integer;
  5083. procedure Set_Count(retval: Integer);
  5084. function Get_ReplicaAddressHints: OleVariant;
  5085. procedure Set_ReplicaAddressHints(retval: OleVariant);
  5086. public
  5087. constructor Create(AOwner: TComponent); override;
  5088. destructor Destroy; override;
  5089. procedure Connect; override;
  5090. procedure ConnectTo(svrIntf: IADsReplicaPointer);
  5091. procedure Disconnect; override;
  5092. property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
  5093. property ReplicaAddressHints: OleVariant read Get_ReplicaAddressHints write Set_ReplicaAddressHints;
  5094. property ServerName: WideString read Get_ServerName write Set_ServerName;
  5095. property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
  5096. property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
  5097. property Count: Integer read Get_Count write Set_Count;
  5098. published
  5099. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5100. property Server: TReplicaPointerProperties read GetServerProperties;
  5101. {$ENDIF}
  5102. end;
  5103. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5104. // *********************************************************************//
  5105. // OLE Server Properties Proxy Class
  5106. // Server Object : TReplicaPointer
  5107. // (This object is used by the IDE's Property Inspector to allow editing
  5108. // of the properties of this server)
  5109. // *********************************************************************//
  5110. TReplicaPointerProperties = class(TPersistent)
  5111. private
  5112. FServer: TReplicaPointer;
  5113. function GetDefaultInterface: IADsReplicaPointer;
  5114. constructor Create(AServer: TReplicaPointer);
  5115. protected
  5116. function Get_ServerName: WideString;
  5117. procedure Set_ServerName(const retval: WideString);
  5118. function Get_ReplicaType: Integer;
  5119. procedure Set_ReplicaType(retval: Integer);
  5120. function Get_ReplicaNumber: Integer;
  5121. procedure Set_ReplicaNumber(retval: Integer);
  5122. function Get_Count: Integer;
  5123. procedure Set_Count(retval: Integer);
  5124. function Get_ReplicaAddressHints: OleVariant;
  5125. procedure Set_ReplicaAddressHints(retval: OleVariant);
  5126. public
  5127. property DefaultInterface: IADsReplicaPointer read GetDefaultInterface;
  5128. published
  5129. property ServerName: WideString read Get_ServerName write Set_ServerName;
  5130. property ReplicaType: Integer read Get_ReplicaType write Set_ReplicaType;
  5131. property ReplicaNumber: Integer read Get_ReplicaNumber write Set_ReplicaNumber;
  5132. property Count: Integer read Get_Count write Set_Count;
  5133. end;
  5134. {$ENDIF}
  5135. // *********************************************************************//
  5136. // The Class CoAcl provides a Create and CreateRemote method to
  5137. // create instances of the default interface IADsAcl exposed by
  5138. // the CoClass Acl. The functions are intended to be used by
  5139. // clients wishing to automate the CoClass objects exposed by the
  5140. // server of this typelibrary.
  5141. // *********************************************************************//
  5142. CoAcl = class
  5143. class function Create: IADsAcl;
  5144. class function CreateRemote(const MachineName: string): IADsAcl;
  5145. end;
  5146. // *********************************************************************//
  5147. // OLE Server Proxy class declaration
  5148. // Server Object : TAcl
  5149. // Help String :
  5150. // Default Interface: IADsAcl
  5151. // Def. Intf. DISP? : No
  5152. // Event Interface:
  5153. // TypeFlags : (2) CanCreate
  5154. // *********************************************************************//
  5155. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5156. TAclProperties= class;
  5157. {$ENDIF}
  5158. TAcl = class(TOleServer)
  5159. private
  5160. FIntf: IADsAcl;
  5161. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5162. FProps: TAclProperties;
  5163. function GetServerProperties: TAclProperties;
  5164. {$ENDIF}
  5165. function GetDefaultInterface: IADsAcl;
  5166. protected
  5167. procedure InitServerData; override;
  5168. function Get_ProtectedAttrName: WideString;
  5169. procedure Set_ProtectedAttrName(const retval: WideString);
  5170. function Get_SubjectName: WideString;
  5171. procedure Set_SubjectName(const retval: WideString);
  5172. function Get_Privileges: Integer;
  5173. procedure Set_Privileges(retval: Integer);
  5174. public
  5175. constructor Create(AOwner: TComponent); override;
  5176. destructor Destroy; override;
  5177. procedure Connect; override;
  5178. procedure ConnectTo(svrIntf: IADsAcl);
  5179. procedure Disconnect; override;
  5180. function CopyAcl: IDispatch;
  5181. property DefaultInterface: IADsAcl read GetDefaultInterface;
  5182. property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
  5183. property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
  5184. property Privileges: Integer read Get_Privileges write Set_Privileges;
  5185. published
  5186. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5187. property Server: TAclProperties read GetServerProperties;
  5188. {$ENDIF}
  5189. end;
  5190. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5191. // *********************************************************************//
  5192. // OLE Server Properties Proxy Class
  5193. // Server Object : TAcl
  5194. // (This object is used by the IDE's Property Inspector to allow editing
  5195. // of the properties of this server)
  5196. // *********************************************************************//
  5197. TAclProperties = class(TPersistent)
  5198. private
  5199. FServer: TAcl;
  5200. function GetDefaultInterface: IADsAcl;
  5201. constructor Create(AServer: TAcl);
  5202. protected
  5203. function Get_ProtectedAttrName: WideString;
  5204. procedure Set_ProtectedAttrName(const retval: WideString);
  5205. function Get_SubjectName: WideString;
  5206. procedure Set_SubjectName(const retval: WideString);
  5207. function Get_Privileges: Integer;
  5208. procedure Set_Privileges(retval: Integer);
  5209. public
  5210. property DefaultInterface: IADsAcl read GetDefaultInterface;
  5211. published
  5212. property ProtectedAttrName: WideString read Get_ProtectedAttrName write Set_ProtectedAttrName;
  5213. property SubjectName: WideString read Get_SubjectName write Set_SubjectName;
  5214. property Privileges: Integer read Get_Privileges write Set_Privileges;
  5215. end;
  5216. {$ENDIF}
  5217. // *********************************************************************//
  5218. // The Class CoTimestamp provides a Create and CreateRemote method to
  5219. // create instances of the default interface IADsTimestamp exposed by
  5220. // the CoClass Timestamp. The functions are intended to be used by
  5221. // clients wishing to automate the CoClass objects exposed by the
  5222. // server of this typelibrary.
  5223. // *********************************************************************//
  5224. CoTimestamp = class
  5225. class function Create: IADsTimestamp;
  5226. class function CreateRemote(const MachineName: string): IADsTimestamp;
  5227. end;
  5228. // *********************************************************************//
  5229. // OLE Server Proxy class declaration
  5230. // Server Object : TTimestamp
  5231. // Help String :
  5232. // Default Interface: IADsTimestamp
  5233. // Def. Intf. DISP? : No
  5234. // Event Interface:
  5235. // TypeFlags : (2) CanCreate
  5236. // *********************************************************************//
  5237. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5238. TTimestampProperties= class;
  5239. {$ENDIF}
  5240. TTimestamp = class(TOleServer)
  5241. private
  5242. FIntf: IADsTimestamp;
  5243. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5244. FProps: TTimestampProperties;
  5245. function GetServerProperties: TTimestampProperties;
  5246. {$ENDIF}
  5247. function GetDefaultInterface: IADsTimestamp;
  5248. protected
  5249. procedure InitServerData; override;
  5250. function Get_WholeSeconds: Integer;
  5251. procedure Set_WholeSeconds(retval: Integer);
  5252. function Get_EventID: Integer;
  5253. procedure Set_EventID(retval: Integer);
  5254. public
  5255. constructor Create(AOwner: TComponent); override;
  5256. destructor Destroy; override;
  5257. procedure Connect; override;
  5258. procedure ConnectTo(svrIntf: IADsTimestamp);
  5259. procedure Disconnect; override;
  5260. property DefaultInterface: IADsTimestamp read GetDefaultInterface;
  5261. property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
  5262. property EventID: Integer read Get_EventID write Set_EventID;
  5263. published
  5264. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5265. property Server: TTimestampProperties read GetServerProperties;
  5266. {$ENDIF}
  5267. end;
  5268. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5269. // *********************************************************************//
  5270. // OLE Server Properties Proxy Class
  5271. // Server Object : TTimestamp
  5272. // (This object is used by the IDE's Property Inspector to allow editing
  5273. // of the properties of this server)
  5274. // *********************************************************************//
  5275. TTimestampProperties = class(TPersistent)
  5276. private
  5277. FServer: TTimestamp;
  5278. function GetDefaultInterface: IADsTimestamp;
  5279. constructor Create(AServer: TTimestamp);
  5280. protected
  5281. function Get_WholeSeconds: Integer;
  5282. procedure Set_WholeSeconds(retval: Integer);
  5283. function Get_EventID: Integer;
  5284. procedure Set_EventID(retval: Integer);
  5285. public
  5286. property DefaultInterface: IADsTimestamp read GetDefaultInterface;
  5287. published
  5288. property WholeSeconds: Integer read Get_WholeSeconds write Set_WholeSeconds;
  5289. property EventID: Integer read Get_EventID write Set_EventID;
  5290. end;
  5291. {$ENDIF}
  5292. // *********************************************************************//
  5293. // The Class CoPostalAddress provides a Create and CreateRemote method to
  5294. // create instances of the default interface IADsPostalAddress exposed by
  5295. // the CoClass PostalAddress. The functions are intended to be used by
  5296. // clients wishing to automate the CoClass objects exposed by the
  5297. // server of this typelibrary.
  5298. // *********************************************************************//
  5299. CoPostalAddress = class
  5300. class function Create: IADsPostalAddress;
  5301. class function CreateRemote(const MachineName: string): IADsPostalAddress;
  5302. end;
  5303. // *********************************************************************//
  5304. // OLE Server Proxy class declaration
  5305. // Server Object : TPostalAddress
  5306. // Help String :
  5307. // Default Interface: IADsPostalAddress
  5308. // Def. Intf. DISP? : No
  5309. // Event Interface:
  5310. // TypeFlags : (2) CanCreate
  5311. // *********************************************************************//
  5312. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5313. TPostalAddressProperties= class;
  5314. {$ENDIF}
  5315. TPostalAddress = class(TOleServer)
  5316. private
  5317. FIntf: IADsPostalAddress;
  5318. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5319. FProps: TPostalAddressProperties;
  5320. function GetServerProperties: TPostalAddressProperties;
  5321. {$ENDIF}
  5322. function GetDefaultInterface: IADsPostalAddress;
  5323. protected
  5324. procedure InitServerData; override;
  5325. function Get_PostalAddress: OleVariant;
  5326. procedure Set_PostalAddress(retval: OleVariant);
  5327. public
  5328. constructor Create(AOwner: TComponent); override;
  5329. destructor Destroy; override;
  5330. procedure Connect; override;
  5331. procedure ConnectTo(svrIntf: IADsPostalAddress);
  5332. procedure Disconnect; override;
  5333. property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
  5334. property PostalAddress: OleVariant read Get_PostalAddress write Set_PostalAddress;
  5335. published
  5336. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5337. property Server: TPostalAddressProperties read GetServerProperties;
  5338. {$ENDIF}
  5339. end;
  5340. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5341. // *********************************************************************//
  5342. // OLE Server Properties Proxy Class
  5343. // Server Object : TPostalAddress
  5344. // (This object is used by the IDE's Property Inspector to allow editing
  5345. // of the properties of this server)
  5346. // *********************************************************************//
  5347. TPostalAddressProperties = class(TPersistent)
  5348. private
  5349. FServer: TPostalAddress;
  5350. function GetDefaultInterface: IADsPostalAddress;
  5351. constructor Create(AServer: TPostalAddress);
  5352. protected
  5353. function Get_PostalAddress: OleVariant;
  5354. procedure Set_PostalAddress(retval: OleVariant);
  5355. public
  5356. property DefaultInterface: IADsPostalAddress read GetDefaultInterface;
  5357. published
  5358. end;
  5359. {$ENDIF}
  5360. // *********************************************************************//
  5361. // The Class CoBackLink provides a Create and CreateRemote method to
  5362. // create instances of the default interface IADsBackLink exposed by
  5363. // the CoClass BackLink. The functions are intended to be used by
  5364. // clients wishing to automate the CoClass objects exposed by the
  5365. // server of this typelibrary.
  5366. // *********************************************************************//
  5367. CoBackLink = class
  5368. class function Create: IADsBackLink;
  5369. class function CreateRemote(const MachineName: string): IADsBackLink;
  5370. end;
  5371. // *********************************************************************//
  5372. // OLE Server Proxy class declaration
  5373. // Server Object : TBackLink
  5374. // Help String :
  5375. // Default Interface: IADsBackLink
  5376. // Def. Intf. DISP? : No
  5377. // Event Interface:
  5378. // TypeFlags : (2) CanCreate
  5379. // *********************************************************************//
  5380. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5381. TBackLinkProperties= class;
  5382. {$ENDIF}
  5383. TBackLink = class(TOleServer)
  5384. private
  5385. FIntf: IADsBackLink;
  5386. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5387. FProps: TBackLinkProperties;
  5388. function GetServerProperties: TBackLinkProperties;
  5389. {$ENDIF}
  5390. function GetDefaultInterface: IADsBackLink;
  5391. protected
  5392. procedure InitServerData; override;
  5393. function Get_RemoteID: Integer;
  5394. procedure Set_RemoteID(retval: Integer);
  5395. function Get_ObjectName: WideString;
  5396. procedure Set_ObjectName(const retval: WideString);
  5397. public
  5398. constructor Create(AOwner: TComponent); override;
  5399. destructor Destroy; override;
  5400. procedure Connect; override;
  5401. procedure ConnectTo(svrIntf: IADsBackLink);
  5402. procedure Disconnect; override;
  5403. property DefaultInterface: IADsBackLink read GetDefaultInterface;
  5404. property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
  5405. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  5406. published
  5407. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5408. property Server: TBackLinkProperties read GetServerProperties;
  5409. {$ENDIF}
  5410. end;
  5411. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5412. // *********************************************************************//
  5413. // OLE Server Properties Proxy Class
  5414. // Server Object : TBackLink
  5415. // (This object is used by the IDE's Property Inspector to allow editing
  5416. // of the properties of this server)
  5417. // *********************************************************************//
  5418. TBackLinkProperties = class(TPersistent)
  5419. private
  5420. FServer: TBackLink;
  5421. function GetDefaultInterface: IADsBackLink;
  5422. constructor Create(AServer: TBackLink);
  5423. protected
  5424. function Get_RemoteID: Integer;
  5425. procedure Set_RemoteID(retval: Integer);
  5426. function Get_ObjectName: WideString;
  5427. procedure Set_ObjectName(const retval: WideString);
  5428. public
  5429. property DefaultInterface: IADsBackLink read GetDefaultInterface;
  5430. published
  5431. property RemoteID: Integer read Get_RemoteID write Set_RemoteID;
  5432. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  5433. end;
  5434. {$ENDIF}
  5435. // *********************************************************************//
  5436. // The Class CoTypedName provides a Create and CreateRemote method to
  5437. // create instances of the default interface IADsTypedName exposed by
  5438. // the CoClass TypedName. The functions are intended to be used by
  5439. // clients wishing to automate the CoClass objects exposed by the
  5440. // server of this typelibrary.
  5441. // *********************************************************************//
  5442. CoTypedName = class
  5443. class function Create: IADsTypedName;
  5444. class function CreateRemote(const MachineName: string): IADsTypedName;
  5445. end;
  5446. // *********************************************************************//
  5447. // OLE Server Proxy class declaration
  5448. // Server Object : TTypedName
  5449. // Help String :
  5450. // Default Interface: IADsTypedName
  5451. // Def. Intf. DISP? : No
  5452. // Event Interface:
  5453. // TypeFlags : (2) CanCreate
  5454. // *********************************************************************//
  5455. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5456. TTypedNameProperties= class;
  5457. {$ENDIF}
  5458. TTypedName = class(TOleServer)
  5459. private
  5460. FIntf: IADsTypedName;
  5461. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5462. FProps: TTypedNameProperties;
  5463. function GetServerProperties: TTypedNameProperties;
  5464. {$ENDIF}
  5465. function GetDefaultInterface: IADsTypedName;
  5466. protected
  5467. procedure InitServerData; override;
  5468. function Get_ObjectName: WideString;
  5469. procedure Set_ObjectName(const retval: WideString);
  5470. function Get_Level: Integer;
  5471. procedure Set_Level(retval: Integer);
  5472. function Get_Interval: Integer;
  5473. procedure Set_Interval(retval: Integer);
  5474. public
  5475. constructor Create(AOwner: TComponent); override;
  5476. destructor Destroy; override;
  5477. procedure Connect; override;
  5478. procedure ConnectTo(svrIntf: IADsTypedName);
  5479. procedure Disconnect; override;
  5480. property DefaultInterface: IADsTypedName read GetDefaultInterface;
  5481. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  5482. property Level: Integer read Get_Level write Set_Level;
  5483. property Interval: Integer read Get_Interval write Set_Interval;
  5484. published
  5485. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5486. property Server: TTypedNameProperties read GetServerProperties;
  5487. {$ENDIF}
  5488. end;
  5489. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5490. // *********************************************************************//
  5491. // OLE Server Properties Proxy Class
  5492. // Server Object : TTypedName
  5493. // (This object is used by the IDE's Property Inspector to allow editing
  5494. // of the properties of this server)
  5495. // *********************************************************************//
  5496. TTypedNameProperties = class(TPersistent)
  5497. private
  5498. FServer: TTypedName;
  5499. function GetDefaultInterface: IADsTypedName;
  5500. constructor Create(AServer: TTypedName);
  5501. protected
  5502. function Get_ObjectName: WideString;
  5503. procedure Set_ObjectName(const retval: WideString);
  5504. function Get_Level: Integer;
  5505. procedure Set_Level(retval: Integer);
  5506. function Get_Interval: Integer;
  5507. procedure Set_Interval(retval: Integer);
  5508. public
  5509. property DefaultInterface: IADsTypedName read GetDefaultInterface;
  5510. published
  5511. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  5512. property Level: Integer read Get_Level write Set_Level;
  5513. property Interval: Integer read Get_Interval write Set_Interval;
  5514. end;
  5515. {$ENDIF}
  5516. // *********************************************************************//
  5517. // The Class CoHold provides a Create and CreateRemote method to
  5518. // create instances of the default interface IADsHold exposed by
  5519. // the CoClass Hold. The functions are intended to be used by
  5520. // clients wishing to automate the CoClass objects exposed by the
  5521. // server of this typelibrary.
  5522. // *********************************************************************//
  5523. CoHold = class
  5524. class function Create: IADsHold;
  5525. class function CreateRemote(const MachineName: string): IADsHold;
  5526. end;
  5527. // *********************************************************************//
  5528. // OLE Server Proxy class declaration
  5529. // Server Object : THold
  5530. // Help String :
  5531. // Default Interface: IADsHold
  5532. // Def. Intf. DISP? : No
  5533. // Event Interface:
  5534. // TypeFlags : (2) CanCreate
  5535. // *********************************************************************//
  5536. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5537. THoldProperties= class;
  5538. {$ENDIF}
  5539. THold = class(TOleServer)
  5540. private
  5541. FIntf: IADsHold;
  5542. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5543. FProps: THoldProperties;
  5544. function GetServerProperties: THoldProperties;
  5545. {$ENDIF}
  5546. function GetDefaultInterface: IADsHold;
  5547. protected
  5548. procedure InitServerData; override;
  5549. function Get_ObjectName: WideString;
  5550. procedure Set_ObjectName(const retval: WideString);
  5551. function Get_Amount: Integer;
  5552. procedure Set_Amount(retval: Integer);
  5553. public
  5554. constructor Create(AOwner: TComponent); override;
  5555. destructor Destroy; override;
  5556. procedure Connect; override;
  5557. procedure ConnectTo(svrIntf: IADsHold);
  5558. procedure Disconnect; override;
  5559. property DefaultInterface: IADsHold read GetDefaultInterface;
  5560. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  5561. property Amount: Integer read Get_Amount write Set_Amount;
  5562. published
  5563. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5564. property Server: THoldProperties read GetServerProperties;
  5565. {$ENDIF}
  5566. end;
  5567. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5568. // *********************************************************************//
  5569. // OLE Server Properties Proxy Class
  5570. // Server Object : THold
  5571. // (This object is used by the IDE's Property Inspector to allow editing
  5572. // of the properties of this server)
  5573. // *********************************************************************//
  5574. THoldProperties = class(TPersistent)
  5575. private
  5576. FServer: THold;
  5577. function GetDefaultInterface: IADsHold;
  5578. constructor Create(AServer: THold);
  5579. protected
  5580. function Get_ObjectName: WideString;
  5581. procedure Set_ObjectName(const retval: WideString);
  5582. function Get_Amount: Integer;
  5583. procedure Set_Amount(retval: Integer);
  5584. public
  5585. property DefaultInterface: IADsHold read GetDefaultInterface;
  5586. published
  5587. property ObjectName: WideString read Get_ObjectName write Set_ObjectName;
  5588. property Amount: Integer read Get_Amount write Set_Amount;
  5589. end;
  5590. {$ENDIF}
  5591. // *********************************************************************//
  5592. // The Class CoPathname provides a Create and CreateRemote method to
  5593. // create instances of the default interface IADsPathname exposed by
  5594. // the CoClass Pathname. The functions are intended to be used by
  5595. // clients wishing to automate the CoClass objects exposed by the
  5596. // server of this typelibrary.
  5597. // *********************************************************************//
  5598. CoPathname = class
  5599. class function Create: IADsPathname;
  5600. class function CreateRemote(const MachineName: string): IADsPathname;
  5601. end;
  5602. // *********************************************************************//
  5603. // OLE Server Proxy class declaration
  5604. // Server Object : TPathname
  5605. // Help String :
  5606. // Default Interface: IADsPathname
  5607. // Def. Intf. DISP? : No
  5608. // Event Interface:
  5609. // TypeFlags : (2) CanCreate
  5610. // *********************************************************************//
  5611. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5612. TPathnameProperties= class;
  5613. {$ENDIF}
  5614. TPathname = class(TOleServer)
  5615. private
  5616. FIntf: IADsPathname;
  5617. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5618. FProps: TPathnameProperties;
  5619. function GetServerProperties: TPathnameProperties;
  5620. {$ENDIF}
  5621. function GetDefaultInterface: IADsPathname;
  5622. protected
  5623. procedure InitServerData; override;
  5624. function Get_EscapedMode: Integer;
  5625. procedure Set_EscapedMode(retval: Integer);
  5626. public
  5627. constructor Create(AOwner: TComponent); override;
  5628. destructor Destroy; override;
  5629. procedure Connect; override;
  5630. procedure ConnectTo(svrIntf: IADsPathname);
  5631. procedure Disconnect; override;
  5632. procedure Set_(const bstrADsPath: WideString; lnSetType: Integer);
  5633. procedure SetDisplayType(lnDisplayType: Integer);
  5634. function Retrieve(lnFormatType: Integer): WideString;
  5635. function GetNumElements: Integer;
  5636. function GetElement(lnElementIndex: Integer): WideString;
  5637. procedure AddLeafElement(const bstrLeafElement: WideString);
  5638. procedure RemoveLeafElement;
  5639. function CopyPath: IDispatch;
  5640. function GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
  5641. property DefaultInterface: IADsPathname read GetDefaultInterface;
  5642. property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
  5643. published
  5644. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5645. property Server: TPathnameProperties read GetServerProperties;
  5646. {$ENDIF}
  5647. end;
  5648. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5649. // *********************************************************************//
  5650. // OLE Server Properties Proxy Class
  5651. // Server Object : TPathname
  5652. // (This object is used by the IDE's Property Inspector to allow editing
  5653. // of the properties of this server)
  5654. // *********************************************************************//
  5655. TPathnameProperties = class(TPersistent)
  5656. private
  5657. FServer: TPathname;
  5658. function GetDefaultInterface: IADsPathname;
  5659. constructor Create(AServer: TPathname);
  5660. protected
  5661. function Get_EscapedMode: Integer;
  5662. procedure Set_EscapedMode(retval: Integer);
  5663. public
  5664. property DefaultInterface: IADsPathname read GetDefaultInterface;
  5665. published
  5666. property EscapedMode: Integer read Get_EscapedMode write Set_EscapedMode;
  5667. end;
  5668. {$ENDIF}
  5669. // *********************************************************************//
  5670. // The Class CoADSystemInfo provides a Create and CreateRemote method to
  5671. // create instances of the default interface IADsADSystemInfo exposed by
  5672. // the CoClass ADSystemInfo. The functions are intended to be used by
  5673. // clients wishing to automate the CoClass objects exposed by the
  5674. // server of this typelibrary.
  5675. // *********************************************************************//
  5676. CoADSystemInfo = class
  5677. class function Create: IADsADSystemInfo;
  5678. class function CreateRemote(const MachineName: string): IADsADSystemInfo;
  5679. end;
  5680. // *********************************************************************//
  5681. // OLE Server Proxy class declaration
  5682. // Server Object : TADSystemInfo
  5683. // Help String :
  5684. // Default Interface: IADsADSystemInfo
  5685. // Def. Intf. DISP? : No
  5686. // Event Interface:
  5687. // TypeFlags : (2) CanCreate
  5688. // *********************************************************************//
  5689. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5690. TADSystemInfoProperties= class;
  5691. {$ENDIF}
  5692. TADSystemInfo = class(TOleServer)
  5693. private
  5694. FIntf: IADsADSystemInfo;
  5695. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5696. FProps: TADSystemInfoProperties;
  5697. function GetServerProperties: TADSystemInfoProperties;
  5698. {$ENDIF}
  5699. function GetDefaultInterface: IADsADSystemInfo;
  5700. protected
  5701. procedure InitServerData; override;
  5702. function Get_UserName: WideString;
  5703. function Get_ComputerName: WideString;
  5704. function Get_SiteName: WideString;
  5705. function Get_DomainShortName: WideString;
  5706. function Get_DomainDNSName: WideString;
  5707. function Get_ForestDNSName: WideString;
  5708. function Get_PDCRoleOwner: WideString;
  5709. function Get_SchemaRoleOwner: WideString;
  5710. function Get_IsNativeMode: WordBool;
  5711. public
  5712. constructor Create(AOwner: TComponent); override;
  5713. destructor Destroy; override;
  5714. procedure Connect; override;
  5715. procedure ConnectTo(svrIntf: IADsADSystemInfo);
  5716. procedure Disconnect; override;
  5717. function GetAnyDCName: WideString;
  5718. function GetDCSiteName(const szServer: WideString): WideString;
  5719. procedure RefreshSchemaCache;
  5720. function GetTrees: OleVariant;
  5721. property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
  5722. property UserName: WideString read Get_UserName;
  5723. property ComputerName: WideString read Get_ComputerName;
  5724. property SiteName: WideString read Get_SiteName;
  5725. property DomainShortName: WideString read Get_DomainShortName;
  5726. property DomainDNSName: WideString read Get_DomainDNSName;
  5727. property ForestDNSName: WideString read Get_ForestDNSName;
  5728. property PDCRoleOwner: WideString read Get_PDCRoleOwner;
  5729. property SchemaRoleOwner: WideString read Get_SchemaRoleOwner;
  5730. property IsNativeMode: WordBool read Get_IsNativeMode;
  5731. published
  5732. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5733. property Server: TADSystemInfoProperties read GetServerProperties;
  5734. {$ENDIF}
  5735. end;
  5736. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5737. // *********************************************************************//
  5738. // OLE Server Properties Proxy Class
  5739. // Server Object : TADSystemInfo
  5740. // (This object is used by the IDE's Property Inspector to allow editing
  5741. // of the properties of this server)
  5742. // *********************************************************************//
  5743. TADSystemInfoProperties = class(TPersistent)
  5744. private
  5745. FServer: TADSystemInfo;
  5746. function GetDefaultInterface: IADsADSystemInfo;
  5747. constructor Create(AServer: TADSystemInfo);
  5748. protected
  5749. function Get_UserName: WideString;
  5750. function Get_ComputerName: WideString;
  5751. function Get_SiteName: WideString;
  5752. function Get_DomainShortName: WideString;
  5753. function Get_DomainDNSName: WideString;
  5754. function Get_ForestDNSName: WideString;
  5755. function Get_PDCRoleOwner: WideString;
  5756. function Get_SchemaRoleOwner: WideString;
  5757. function Get_IsNativeMode: WordBool;
  5758. public
  5759. property DefaultInterface: IADsADSystemInfo read GetDefaultInterface;
  5760. published
  5761. end;
  5762. {$ENDIF}
  5763. // *********************************************************************//
  5764. // The Class CoWinNTSystemInfo provides a Create and CreateRemote method to
  5765. // create instances of the default interface IADsWinNTSystemInfo exposed by
  5766. // the CoClass WinNTSystemInfo. The functions are intended to be used by
  5767. // clients wishing to automate the CoClass objects exposed by the
  5768. // server of this typelibrary.
  5769. // *********************************************************************//
  5770. CoWinNTSystemInfo = class
  5771. class function Create: IADsWinNTSystemInfo;
  5772. class function CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
  5773. end;
  5774. // *********************************************************************//
  5775. // OLE Server Proxy class declaration
  5776. // Server Object : TWinNTSystemInfo
  5777. // Help String :
  5778. // Default Interface: IADsWinNTSystemInfo
  5779. // Def. Intf. DISP? : No
  5780. // Event Interface:
  5781. // TypeFlags : (2) CanCreate
  5782. // *********************************************************************//
  5783. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5784. TWinNTSystemInfoProperties= class;
  5785. {$ENDIF}
  5786. TWinNTSystemInfo = class(TOleServer)
  5787. private
  5788. FIntf: IADsWinNTSystemInfo;
  5789. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5790. FProps: TWinNTSystemInfoProperties;
  5791. function GetServerProperties: TWinNTSystemInfoProperties;
  5792. {$ENDIF}
  5793. function GetDefaultInterface: IADsWinNTSystemInfo;
  5794. protected
  5795. procedure InitServerData; override;
  5796. function Get_UserName: WideString;
  5797. function Get_ComputerName: WideString;
  5798. function Get_DomainName: WideString;
  5799. function Get_PDC: WideString;
  5800. public
  5801. constructor Create(AOwner: TComponent); override;
  5802. destructor Destroy; override;
  5803. procedure Connect; override;
  5804. procedure ConnectTo(svrIntf: IADsWinNTSystemInfo);
  5805. procedure Disconnect; override;
  5806. property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
  5807. property UserName: WideString read Get_UserName;
  5808. property ComputerName: WideString read Get_ComputerName;
  5809. property DomainName: WideString read Get_DomainName;
  5810. property PDC: WideString read Get_PDC;
  5811. published
  5812. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5813. property Server: TWinNTSystemInfoProperties read GetServerProperties;
  5814. {$ENDIF}
  5815. end;
  5816. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5817. // *********************************************************************//
  5818. // OLE Server Properties Proxy Class
  5819. // Server Object : TWinNTSystemInfo
  5820. // (This object is used by the IDE's Property Inspector to allow editing
  5821. // of the properties of this server)
  5822. // *********************************************************************//
  5823. TWinNTSystemInfoProperties = class(TPersistent)
  5824. private
  5825. FServer: TWinNTSystemInfo;
  5826. function GetDefaultInterface: IADsWinNTSystemInfo;
  5827. constructor Create(AServer: TWinNTSystemInfo);
  5828. protected
  5829. function Get_UserName: WideString;
  5830. function Get_ComputerName: WideString;
  5831. function Get_DomainName: WideString;
  5832. function Get_PDC: WideString;
  5833. public
  5834. property DefaultInterface: IADsWinNTSystemInfo read GetDefaultInterface;
  5835. published
  5836. end;
  5837. {$ENDIF}
  5838. // *********************************************************************//
  5839. // The Class CoDNWithBinary provides a Create and CreateRemote method to
  5840. // create instances of the default interface IADsDNWithBinary exposed by
  5841. // the CoClass DNWithBinary. The functions are intended to be used by
  5842. // clients wishing to automate the CoClass objects exposed by the
  5843. // server of this typelibrary.
  5844. // *********************************************************************//
  5845. CoDNWithBinary = class
  5846. class function Create: IADsDNWithBinary;
  5847. class function CreateRemote(const MachineName: string): IADsDNWithBinary;
  5848. end;
  5849. // *********************************************************************//
  5850. // OLE Server Proxy class declaration
  5851. // Server Object : TDNWithBinary
  5852. // Help String :
  5853. // Default Interface: IADsDNWithBinary
  5854. // Def. Intf. DISP? : No
  5855. // Event Interface:
  5856. // TypeFlags : (2) CanCreate
  5857. // *********************************************************************//
  5858. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5859. TDNWithBinaryProperties= class;
  5860. {$ENDIF}
  5861. TDNWithBinary = class(TOleServer)
  5862. private
  5863. FIntf: IADsDNWithBinary;
  5864. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5865. FProps: TDNWithBinaryProperties;
  5866. function GetServerProperties: TDNWithBinaryProperties;
  5867. {$ENDIF}
  5868. function GetDefaultInterface: IADsDNWithBinary;
  5869. protected
  5870. procedure InitServerData; override;
  5871. function Get_BinaryValue: OleVariant;
  5872. procedure Set_BinaryValue(retval: OleVariant);
  5873. function Get_DNString: WideString;
  5874. procedure Set_DNString(const retval: WideString);
  5875. public
  5876. constructor Create(AOwner: TComponent); override;
  5877. destructor Destroy; override;
  5878. procedure Connect; override;
  5879. procedure ConnectTo(svrIntf: IADsDNWithBinary);
  5880. procedure Disconnect; override;
  5881. property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
  5882. property BinaryValue: OleVariant read Get_BinaryValue write Set_BinaryValue;
  5883. property DNString: WideString read Get_DNString write Set_DNString;
  5884. published
  5885. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5886. property Server: TDNWithBinaryProperties read GetServerProperties;
  5887. {$ENDIF}
  5888. end;
  5889. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5890. // *********************************************************************//
  5891. // OLE Server Properties Proxy Class
  5892. // Server Object : TDNWithBinary
  5893. // (This object is used by the IDE's Property Inspector to allow editing
  5894. // of the properties of this server)
  5895. // *********************************************************************//
  5896. TDNWithBinaryProperties = class(TPersistent)
  5897. private
  5898. FServer: TDNWithBinary;
  5899. function GetDefaultInterface: IADsDNWithBinary;
  5900. constructor Create(AServer: TDNWithBinary);
  5901. protected
  5902. function Get_BinaryValue: OleVariant;
  5903. procedure Set_BinaryValue(retval: OleVariant);
  5904. function Get_DNString: WideString;
  5905. procedure Set_DNString(const retval: WideString);
  5906. public
  5907. property DefaultInterface: IADsDNWithBinary read GetDefaultInterface;
  5908. published
  5909. property DNString: WideString read Get_DNString write Set_DNString;
  5910. end;
  5911. {$ENDIF}
  5912. // *********************************************************************//
  5913. // The Class CoDNWithString provides a Create and CreateRemote method to
  5914. // create instances of the default interface IADsDNWithString exposed by
  5915. // the CoClass DNWithString. The functions are intended to be used by
  5916. // clients wishing to automate the CoClass objects exposed by the
  5917. // server of this typelibrary.
  5918. // *********************************************************************//
  5919. CoDNWithString = class
  5920. class function Create: IADsDNWithString;
  5921. class function CreateRemote(const MachineName: string): IADsDNWithString;
  5922. end;
  5923. // *********************************************************************//
  5924. // OLE Server Proxy class declaration
  5925. // Server Object : TDNWithString
  5926. // Help String :
  5927. // Default Interface: IADsDNWithString
  5928. // Def. Intf. DISP? : No
  5929. // Event Interface:
  5930. // TypeFlags : (2) CanCreate
  5931. // *********************************************************************//
  5932. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5933. TDNWithStringProperties= class;
  5934. {$ENDIF}
  5935. TDNWithString = class(TOleServer)
  5936. private
  5937. FIntf: IADsDNWithString;
  5938. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5939. FProps: TDNWithStringProperties;
  5940. function GetServerProperties: TDNWithStringProperties;
  5941. {$ENDIF}
  5942. function GetDefaultInterface: IADsDNWithString;
  5943. protected
  5944. procedure InitServerData; override;
  5945. function Get_StringValue: WideString;
  5946. procedure Set_StringValue(const retval: WideString);
  5947. function Get_DNString: WideString;
  5948. procedure Set_DNString(const retval: WideString);
  5949. public
  5950. constructor Create(AOwner: TComponent); override;
  5951. destructor Destroy; override;
  5952. procedure Connect; override;
  5953. procedure ConnectTo(svrIntf: IADsDNWithString);
  5954. procedure Disconnect; override;
  5955. property DefaultInterface: IADsDNWithString read GetDefaultInterface;
  5956. property StringValue: WideString read Get_StringValue write Set_StringValue;
  5957. property DNString: WideString read Get_DNString write Set_DNString;
  5958. published
  5959. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5960. property Server: TDNWithStringProperties read GetServerProperties;
  5961. {$ENDIF}
  5962. end;
  5963. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5964. // *********************************************************************//
  5965. // OLE Server Properties Proxy Class
  5966. // Server Object : TDNWithString
  5967. // (This object is used by the IDE's Property Inspector to allow editing
  5968. // of the properties of this server)
  5969. // *********************************************************************//
  5970. TDNWithStringProperties = class(TPersistent)
  5971. private
  5972. FServer: TDNWithString;
  5973. function GetDefaultInterface: IADsDNWithString;
  5974. constructor Create(AServer: TDNWithString);
  5975. protected
  5976. function Get_StringValue: WideString;
  5977. procedure Set_StringValue(const retval: WideString);
  5978. function Get_DNString: WideString;
  5979. procedure Set_DNString(const retval: WideString);
  5980. public
  5981. property DefaultInterface: IADsDNWithString read GetDefaultInterface;
  5982. published
  5983. property StringValue: WideString read Get_StringValue write Set_StringValue;
  5984. property DNString: WideString read Get_DNString write Set_DNString;
  5985. end;
  5986. {$ENDIF}
  5987. procedure Register;
  5988. implementation
  5989. uses ComObj;
  5990. class function CoPropertyEntry.Create: IADsPropertyEntry;
  5991. begin
  5992. Result := CreateComObject(CLASS_PropertyEntry) as IADsPropertyEntry;
  5993. end;
  5994. class function CoPropertyEntry.CreateRemote(const MachineName: string): IADsPropertyEntry;
  5995. begin
  5996. Result := CreateRemoteComObject(MachineName, CLASS_PropertyEntry) as IADsPropertyEntry;
  5997. end;
  5998. procedure TPropertyEntry.InitServerData;
  5999. const
  6000. CServerData: TServerData = (
  6001. ClassID: '{72D3EDC2-A4C4-11D0-8533-00C04FD8D503}';
  6002. IntfIID: '{05792C8E-941F-11D0-8529-00C04FD8D503}';
  6003. EventIID: '';
  6004. LicenseKey: nil;
  6005. Version: 500);
  6006. begin
  6007. ServerData := @CServerData;
  6008. end;
  6009. procedure TPropertyEntry.Connect;
  6010. var
  6011. punk: IUnknown;
  6012. begin
  6013. if FIntf = nil then
  6014. begin
  6015. punk := GetServer;
  6016. Fintf:= punk as IADsPropertyEntry;
  6017. end;
  6018. end;
  6019. procedure TPropertyEntry.ConnectTo(svrIntf: IADsPropertyEntry);
  6020. begin
  6021. Disconnect;
  6022. FIntf := svrIntf;
  6023. end;
  6024. procedure TPropertyEntry.DisConnect;
  6025. begin
  6026. if Fintf <> nil then
  6027. begin
  6028. FIntf := nil;
  6029. end;
  6030. end;
  6031. function TPropertyEntry.GetDefaultInterface: IADsPropertyEntry;
  6032. begin
  6033. if FIntf = nil then
  6034. Connect;
  6035. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  6036. Result := FIntf;
  6037. end;
  6038. constructor TPropertyEntry.Create(AOwner: TComponent);
  6039. begin
  6040. inherited Create(AOwner);
  6041. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6042. FProps := TPropertyEntryProperties.Create(Self);
  6043. {$ENDIF}
  6044. end;
  6045. destructor TPropertyEntry.Destroy;
  6046. begin
  6047. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6048. FProps.Free;
  6049. {$ENDIF}
  6050. inherited Destroy;
  6051. end;
  6052. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6053. function TPropertyEntry.GetServerProperties: TPropertyEntryProperties;
  6054. begin
  6055. Result := FProps;
  6056. end;
  6057. {$ENDIF}
  6058. function TPropertyEntry.Get_Name: WideString;
  6059. begin
  6060. Result := DefaultInterface.Get_Name;
  6061. end;
  6062. procedure TPropertyEntry.Set_Name(const retval: WideString);
  6063. begin
  6064. DefaultInterface.Set_Name(retval);
  6065. end;
  6066. function TPropertyEntry.Get_ADsType: Integer;
  6067. begin
  6068. Result := DefaultInterface.Get_ADsType;
  6069. end;
  6070. procedure TPropertyEntry.Set_ADsType(retval: Integer);
  6071. begin
  6072. DefaultInterface.Set_ADsType(retval);
  6073. end;
  6074. function TPropertyEntry.Get_ControlCode: Integer;
  6075. begin
  6076. Result := DefaultInterface.Get_ControlCode;
  6077. end;
  6078. procedure TPropertyEntry.Set_ControlCode(retval: Integer);
  6079. begin
  6080. DefaultInterface.Set_ControlCode(retval);
  6081. end;
  6082. function TPropertyEntry.Get_Values: OleVariant;
  6083. begin
  6084. Result := DefaultInterface.Get_Values;
  6085. end;
  6086. procedure TPropertyEntry.Set_Values(retval: OleVariant);
  6087. begin
  6088. DefaultInterface.Set_Values(retval);
  6089. end;
  6090. procedure TPropertyEntry.Clear;
  6091. begin
  6092. DefaultInterface.Clear;
  6093. end;
  6094. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6095. constructor TPropertyEntryProperties.Create(AServer: TPropertyEntry);
  6096. begin
  6097. inherited Create;
  6098. FServer := AServer;
  6099. end;
  6100. function TPropertyEntryProperties.GetDefaultInterface: IADsPropertyEntry;
  6101. begin
  6102. Result := FServer.DefaultInterface;
  6103. end;
  6104. function TPropertyEntryProperties.Get_Name: WideString;
  6105. begin
  6106. Result := DefaultInterface.Get_Name;
  6107. end;
  6108. procedure TPropertyEntryProperties.Set_Name(const retval: WideString);
  6109. begin
  6110. DefaultInterface.Set_Name(retval);
  6111. end;
  6112. function TPropertyEntryProperties.Get_ADsType: Integer;
  6113. begin
  6114. Result := DefaultInterface.Get_ADsType;
  6115. end;
  6116. procedure TPropertyEntryProperties.Set_ADsType(retval: Integer);
  6117. begin
  6118. DefaultInterface.Set_ADsType(retval);
  6119. end;
  6120. function TPropertyEntryProperties.Get_ControlCode: Integer;
  6121. begin
  6122. Result := DefaultInterface.Get_ControlCode;
  6123. end;
  6124. procedure TPropertyEntryProperties.Set_ControlCode(retval: Integer);
  6125. begin
  6126. DefaultInterface.Set_ControlCode(retval);
  6127. end;
  6128. function TPropertyEntryProperties.Get_Values: OleVariant;
  6129. begin
  6130. Result := DefaultInterface.Get_Values;
  6131. end;
  6132. procedure TPropertyEntryProperties.Set_Values(retval: OleVariant);
  6133. begin
  6134. DefaultInterface.Set_Values(retval);
  6135. end;
  6136. {$ENDIF}
  6137. class function CoPropertyValue.Create: IADsPropertyValue;
  6138. begin
  6139. Result := CreateComObject(CLASS_PropertyValue) as IADsPropertyValue;
  6140. end;
  6141. class function CoPropertyValue.CreateRemote(const MachineName: string): IADsPropertyValue;
  6142. begin
  6143. Result := CreateRemoteComObject(MachineName, CLASS_PropertyValue) as IADsPropertyValue;
  6144. end;
  6145. procedure TPropertyValue.InitServerData;
  6146. const
  6147. CServerData: TServerData = (
  6148. ClassID: '{7B9E38B0-A97C-11D0-8534-00C04FD8D503}';
  6149. IntfIID: '{79FA9AD0-A97C-11D0-8534-00C04FD8D503}';
  6150. EventIID: '';
  6151. LicenseKey: nil;
  6152. Version: 500);
  6153. begin
  6154. ServerData := @CServerData;
  6155. end;
  6156. procedure TPropertyValue.Connect;
  6157. var
  6158. punk: IUnknown;
  6159. begin
  6160. if FIntf = nil then
  6161. begin
  6162. punk := GetServer;
  6163. Fintf:= punk as IADsPropertyValue;
  6164. end;
  6165. end;
  6166. procedure TPropertyValue.ConnectTo(svrIntf: IADsPropertyValue);
  6167. begin
  6168. Disconnect;
  6169. FIntf := svrIntf;
  6170. end;
  6171. procedure TPropertyValue.DisConnect;
  6172. begin
  6173. if Fintf <> nil then
  6174. begin
  6175. FIntf := nil;
  6176. end;
  6177. end;
  6178. function TPropertyValue.GetDefaultInterface: IADsPropertyValue;
  6179. begin
  6180. if FIntf = nil then
  6181. Connect;
  6182. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  6183. Result := FIntf;
  6184. end;
  6185. constructor TPropertyValue.Create(AOwner: TComponent);
  6186. begin
  6187. inherited Create(AOwner);
  6188. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6189. FProps := TPropertyValueProperties.Create(Self);
  6190. {$ENDIF}
  6191. end;
  6192. destructor TPropertyValue.Destroy;
  6193. begin
  6194. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6195. FProps.Free;
  6196. {$ENDIF}
  6197. inherited Destroy;
  6198. end;
  6199. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6200. function TPropertyValue.GetServerProperties: TPropertyValueProperties;
  6201. begin
  6202. Result := FProps;
  6203. end;
  6204. {$ENDIF}
  6205. function TPropertyValue.Get_ADsType: Integer;
  6206. begin
  6207. Result := DefaultInterface.Get_ADsType;
  6208. end;
  6209. procedure TPropertyValue.Set_ADsType(retval: Integer);
  6210. begin
  6211. DefaultInterface.Set_ADsType(retval);
  6212. end;
  6213. function TPropertyValue.Get_DNString: WideString;
  6214. begin
  6215. Result := DefaultInterface.Get_DNString;
  6216. end;
  6217. procedure TPropertyValue.Set_DNString(const retval: WideString);
  6218. begin
  6219. DefaultInterface.Set_DNString(retval);
  6220. end;
  6221. function TPropertyValue.Get_CaseExactString: WideString;
  6222. begin
  6223. Result := DefaultInterface.Get_CaseExactString;
  6224. end;
  6225. procedure TPropertyValue.Set_CaseExactString(const retval: WideString);
  6226. begin
  6227. DefaultInterface.Set_CaseExactString(retval);
  6228. end;
  6229. function TPropertyValue.Get_CaseIgnoreString: WideString;
  6230. begin
  6231. Result := DefaultInterface.Get_CaseIgnoreString;
  6232. end;
  6233. procedure TPropertyValue.Set_CaseIgnoreString(const retval: WideString);
  6234. begin
  6235. DefaultInterface.Set_CaseIgnoreString(retval);
  6236. end;
  6237. function TPropertyValue.Get_PrintableString: WideString;
  6238. begin
  6239. Result := DefaultInterface.Get_PrintableString;
  6240. end;
  6241. procedure TPropertyValue.Set_PrintableString(const retval: WideString);
  6242. begin
  6243. DefaultInterface.Set_PrintableString(retval);
  6244. end;
  6245. function TPropertyValue.Get_NumericString: WideString;
  6246. begin
  6247. Result := DefaultInterface.Get_NumericString;
  6248. end;
  6249. procedure TPropertyValue.Set_NumericString(const retval: WideString);
  6250. begin
  6251. DefaultInterface.Set_NumericString(retval);
  6252. end;
  6253. function TPropertyValue.Get_Boolean: Integer;
  6254. begin
  6255. Result := DefaultInterface.Get_Boolean;
  6256. end;
  6257. procedure TPropertyValue.Set_Boolean(retval: Integer);
  6258. begin
  6259. DefaultInterface.Set_Boolean(retval);
  6260. end;
  6261. function TPropertyValue.Get_Integer: Integer;
  6262. begin
  6263. Result := DefaultInterface.Get_Integer;
  6264. end;
  6265. procedure TPropertyValue.Set_Integer(retval: Integer);
  6266. begin
  6267. DefaultInterface.Set_Integer(retval);
  6268. end;
  6269. function TPropertyValue.Get_OctetString: OleVariant;
  6270. begin
  6271. Result := DefaultInterface.Get_OctetString;
  6272. end;
  6273. procedure TPropertyValue.Set_OctetString(retval: OleVariant);
  6274. begin
  6275. DefaultInterface.Set_OctetString(retval);
  6276. end;
  6277. function TPropertyValue.Get_SecurityDescriptor: IDispatch;
  6278. begin
  6279. Result := DefaultInterface.Get_SecurityDescriptor;
  6280. end;
  6281. procedure TPropertyValue.Set_SecurityDescriptor(const retval: IDispatch);
  6282. begin
  6283. DefaultInterface.Set_SecurityDescriptor(retval);
  6284. end;
  6285. function TPropertyValue.Get_LargeInteger: IDispatch;
  6286. begin
  6287. Result := DefaultInterface.Get_LargeInteger;
  6288. end;
  6289. procedure TPropertyValue.Set_LargeInteger(const retval: IDispatch);
  6290. begin
  6291. DefaultInterface.Set_LargeInteger(retval);
  6292. end;
  6293. function TPropertyValue.Get_UTCTime: TDateTime;
  6294. begin
  6295. Result := DefaultInterface.Get_UTCTime;
  6296. end;
  6297. procedure TPropertyValue.Set_UTCTime(retval: TDateTime);
  6298. begin
  6299. DefaultInterface.Set_UTCTime(retval);
  6300. end;
  6301. procedure TPropertyValue.Clear;
  6302. begin
  6303. DefaultInterface.Clear;
  6304. end;
  6305. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6306. constructor TPropertyValueProperties.Create(AServer: TPropertyValue);
  6307. begin
  6308. inherited Create;
  6309. FServer := AServer;
  6310. end;
  6311. function TPropertyValueProperties.GetDefaultInterface: IADsPropertyValue;
  6312. begin
  6313. Result := FServer.DefaultInterface;
  6314. end;
  6315. function TPropertyValueProperties.Get_ADsType: Integer;
  6316. begin
  6317. Result := DefaultInterface.Get_ADsType;
  6318. end;
  6319. procedure TPropertyValueProperties.Set_ADsType(retval: Integer);
  6320. begin
  6321. DefaultInterface.Set_ADsType(retval);
  6322. end;
  6323. function TPropertyValueProperties.Get_DNString: WideString;
  6324. begin
  6325. Result := DefaultInterface.Get_DNString;
  6326. end;
  6327. procedure TPropertyValueProperties.Set_DNString(const retval: WideString);
  6328. begin
  6329. DefaultInterface.Set_DNString(retval);
  6330. end;
  6331. function TPropertyValueProperties.Get_CaseExactString: WideString;
  6332. begin
  6333. Result := DefaultInterface.Get_CaseExactString;
  6334. end;
  6335. procedure TPropertyValueProperties.Set_CaseExactString(const retval: WideString);
  6336. begin
  6337. DefaultInterface.Set_CaseExactString(retval);
  6338. end;
  6339. function TPropertyValueProperties.Get_CaseIgnoreString: WideString;
  6340. begin
  6341. Result := DefaultInterface.Get_CaseIgnoreString;
  6342. end;
  6343. procedure TPropertyValueProperties.Set_CaseIgnoreString(const retval: WideString);
  6344. begin
  6345. DefaultInterface.Set_CaseIgnoreString(retval);
  6346. end;
  6347. function TPropertyValueProperties.Get_PrintableString: WideString;
  6348. begin
  6349. Result := DefaultInterface.Get_PrintableString;
  6350. end;
  6351. procedure TPropertyValueProperties.Set_PrintableString(const retval: WideString);
  6352. begin
  6353. DefaultInterface.Set_PrintableString(retval);
  6354. end;
  6355. function TPropertyValueProperties.Get_NumericString: WideString;
  6356. begin
  6357. Result := DefaultInterface.Get_NumericString;
  6358. end;
  6359. procedure TPropertyValueProperties.Set_NumericString(const retval: WideString);
  6360. begin
  6361. DefaultInterface.Set_NumericString(retval);
  6362. end;
  6363. function TPropertyValueProperties.Get_Boolean: Integer;
  6364. begin
  6365. Result := DefaultInterface.Get_Boolean;
  6366. end;
  6367. procedure TPropertyValueProperties.Set_Boolean(retval: Integer);
  6368. begin
  6369. DefaultInterface.Set_Boolean(retval);
  6370. end;
  6371. function TPropertyValueProperties.Get_Integer: Integer;
  6372. begin
  6373. Result := DefaultInterface.Get_Integer;
  6374. end;
  6375. procedure TPropertyValueProperties.Set_Integer(retval: Integer);
  6376. begin
  6377. DefaultInterface.Set_Integer(retval);
  6378. end;
  6379. function TPropertyValueProperties.Get_OctetString: OleVariant;
  6380. begin
  6381. Result := DefaultInterface.Get_OctetString;
  6382. end;
  6383. procedure TPropertyValueProperties.Set_OctetString(retval: OleVariant);
  6384. begin
  6385. DefaultInterface.Set_OctetString(retval);
  6386. end;
  6387. function TPropertyValueProperties.Get_SecurityDescriptor: IDispatch;
  6388. begin
  6389. Result := DefaultInterface.Get_SecurityDescriptor;
  6390. end;
  6391. procedure TPropertyValueProperties.Set_SecurityDescriptor(const retval: IDispatch);
  6392. begin
  6393. DefaultInterface.Set_SecurityDescriptor(retval);
  6394. end;
  6395. function TPropertyValueProperties.Get_LargeInteger: IDispatch;
  6396. begin
  6397. Result := DefaultInterface.Get_LargeInteger;
  6398. end;
  6399. procedure TPropertyValueProperties.Set_LargeInteger(const retval: IDispatch);
  6400. begin
  6401. DefaultInterface.Set_LargeInteger(retval);
  6402. end;
  6403. function TPropertyValueProperties.Get_UTCTime: TDateTime;
  6404. begin
  6405. Result := DefaultInterface.Get_UTCTime;
  6406. end;
  6407. procedure TPropertyValueProperties.Set_UTCTime(retval: TDateTime);
  6408. begin
  6409. DefaultInterface.Set_UTCTime(retval);
  6410. end;
  6411. {$ENDIF}
  6412. class function CoAccessControlEntry.Create: IADsAccessControlEntry;
  6413. begin
  6414. Result := CreateComObject(CLASS_AccessControlEntry) as IADsAccessControlEntry;
  6415. end;
  6416. class function CoAccessControlEntry.CreateRemote(const MachineName: string): IADsAccessControlEntry;
  6417. begin
  6418. Result := CreateRemoteComObject(MachineName, CLASS_AccessControlEntry) as IADsAccessControlEntry;
  6419. end;
  6420. procedure TAccessControlEntry.InitServerData;
  6421. const
  6422. CServerData: TServerData = (
  6423. ClassID: '{B75AC000-9BDD-11D0-852C-00C04FD8D503}';
  6424. IntfIID: '{B4F3A14C-9BDD-11D0-852C-00C04FD8D503}';
  6425. EventIID: '';
  6426. LicenseKey: nil;
  6427. Version: 500);
  6428. begin
  6429. ServerData := @CServerData;
  6430. end;
  6431. procedure TAccessControlEntry.Connect;
  6432. var
  6433. punk: IUnknown;
  6434. begin
  6435. if FIntf = nil then
  6436. begin
  6437. punk := GetServer;
  6438. Fintf:= punk as IADsAccessControlEntry;
  6439. end;
  6440. end;
  6441. procedure TAccessControlEntry.ConnectTo(svrIntf: IADsAccessControlEntry);
  6442. begin
  6443. Disconnect;
  6444. FIntf := svrIntf;
  6445. end;
  6446. procedure TAccessControlEntry.DisConnect;
  6447. begin
  6448. if Fintf <> nil then
  6449. begin
  6450. FIntf := nil;
  6451. end;
  6452. end;
  6453. function TAccessControlEntry.GetDefaultInterface: IADsAccessControlEntry;
  6454. begin
  6455. if FIntf = nil then
  6456. Connect;
  6457. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  6458. Result := FIntf;
  6459. end;
  6460. constructor TAccessControlEntry.Create(AOwner: TComponent);
  6461. begin
  6462. inherited Create(AOwner);
  6463. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6464. FProps := TAccessControlEntryProperties.Create(Self);
  6465. {$ENDIF}
  6466. end;
  6467. destructor TAccessControlEntry.Destroy;
  6468. begin
  6469. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6470. FProps.Free;
  6471. {$ENDIF}
  6472. inherited Destroy;
  6473. end;
  6474. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6475. function TAccessControlEntry.GetServerProperties: TAccessControlEntryProperties;
  6476. begin
  6477. Result := FProps;
  6478. end;
  6479. {$ENDIF}
  6480. function TAccessControlEntry.Get_AccessMask: Integer;
  6481. begin
  6482. Result := DefaultInterface.Get_AccessMask;
  6483. end;
  6484. procedure TAccessControlEntry.Set_AccessMask(retval: Integer);
  6485. begin
  6486. DefaultInterface.Set_AccessMask(retval);
  6487. end;
  6488. function TAccessControlEntry.Get_AceType: Integer;
  6489. begin
  6490. Result := DefaultInterface.Get_AceType;
  6491. end;
  6492. procedure TAccessControlEntry.Set_AceType(retval: Integer);
  6493. begin
  6494. DefaultInterface.Set_AceType(retval);
  6495. end;
  6496. function TAccessControlEntry.Get_AceFlags: Integer;
  6497. begin
  6498. Result := DefaultInterface.Get_AceFlags;
  6499. end;
  6500. procedure TAccessControlEntry.Set_AceFlags(retval: Integer);
  6501. begin
  6502. DefaultInterface.Set_AceFlags(retval);
  6503. end;
  6504. function TAccessControlEntry.Get_Flags: Integer;
  6505. begin
  6506. Result := DefaultInterface.Get_Flags;
  6507. end;
  6508. procedure TAccessControlEntry.Set_Flags(retval: Integer);
  6509. begin
  6510. DefaultInterface.Set_Flags(retval);
  6511. end;
  6512. function TAccessControlEntry.Get_ObjectType: WideString;
  6513. begin
  6514. Result := DefaultInterface.Get_ObjectType;
  6515. end;
  6516. procedure TAccessControlEntry.Set_ObjectType(const retval: WideString);
  6517. begin
  6518. DefaultInterface.Set_ObjectType(retval);
  6519. end;
  6520. function TAccessControlEntry.Get_InheritedObjectType: WideString;
  6521. begin
  6522. Result := DefaultInterface.Get_InheritedObjectType;
  6523. end;
  6524. procedure TAccessControlEntry.Set_InheritedObjectType(const retval: WideString);
  6525. begin
  6526. DefaultInterface.Set_InheritedObjectType(retval);
  6527. end;
  6528. function TAccessControlEntry.Get_Trustee: WideString;
  6529. begin
  6530. Result := DefaultInterface.Get_Trustee;
  6531. end;
  6532. procedure TAccessControlEntry.Set_Trustee(const retval: WideString);
  6533. begin
  6534. DefaultInterface.Set_Trustee(retval);
  6535. end;
  6536. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6537. constructor TAccessControlEntryProperties.Create(AServer: TAccessControlEntry);
  6538. begin
  6539. inherited Create;
  6540. FServer := AServer;
  6541. end;
  6542. function TAccessControlEntryProperties.GetDefaultInterface: IADsAccessControlEntry;
  6543. begin
  6544. Result := FServer.DefaultInterface;
  6545. end;
  6546. function TAccessControlEntryProperties.Get_AccessMask: Integer;
  6547. begin
  6548. Result := DefaultInterface.Get_AccessMask;
  6549. end;
  6550. procedure TAccessControlEntryProperties.Set_AccessMask(retval: Integer);
  6551. begin
  6552. DefaultInterface.Set_AccessMask(retval);
  6553. end;
  6554. function TAccessControlEntryProperties.Get_AceType: Integer;
  6555. begin
  6556. Result := DefaultInterface.Get_AceType;
  6557. end;
  6558. procedure TAccessControlEntryProperties.Set_AceType(retval: Integer);
  6559. begin
  6560. DefaultInterface.Set_AceType(retval);
  6561. end;
  6562. function TAccessControlEntryProperties.Get_AceFlags: Integer;
  6563. begin
  6564. Result := DefaultInterface.Get_AceFlags;
  6565. end;
  6566. procedure TAccessControlEntryProperties.Set_AceFlags(retval: Integer);
  6567. begin
  6568. DefaultInterface.Set_AceFlags(retval);
  6569. end;
  6570. function TAccessControlEntryProperties.Get_Flags: Integer;
  6571. begin
  6572. Result := DefaultInterface.Get_Flags;
  6573. end;
  6574. procedure TAccessControlEntryProperties.Set_Flags(retval: Integer);
  6575. begin
  6576. DefaultInterface.Set_Flags(retval);
  6577. end;
  6578. function TAccessControlEntryProperties.Get_ObjectType: WideString;
  6579. begin
  6580. Result := DefaultInterface.Get_ObjectType;
  6581. end;
  6582. procedure TAccessControlEntryProperties.Set_ObjectType(const retval: WideString);
  6583. begin
  6584. DefaultInterface.Set_ObjectType(retval);
  6585. end;
  6586. function TAccessControlEntryProperties.Get_InheritedObjectType: WideString;
  6587. begin
  6588. Result := DefaultInterface.Get_InheritedObjectType;
  6589. end;
  6590. procedure TAccessControlEntryProperties.Set_InheritedObjectType(const retval: WideString);
  6591. begin
  6592. DefaultInterface.Set_InheritedObjectType(retval);
  6593. end;
  6594. function TAccessControlEntryProperties.Get_Trustee: WideString;
  6595. begin
  6596. Result := DefaultInterface.Get_Trustee;
  6597. end;
  6598. procedure TAccessControlEntryProperties.Set_Trustee(const retval: WideString);
  6599. begin
  6600. DefaultInterface.Set_Trustee(retval);
  6601. end;
  6602. {$ENDIF}
  6603. class function CoAccessControlList.Create: IADsAccessControlList;
  6604. begin
  6605. Result := CreateComObject(CLASS_AccessControlList) as IADsAccessControlList;
  6606. end;
  6607. class function CoAccessControlList.CreateRemote(const MachineName: string): IADsAccessControlList;
  6608. begin
  6609. Result := CreateRemoteComObject(MachineName, CLASS_AccessControlList) as IADsAccessControlList;
  6610. end;
  6611. procedure TAccessControlList.InitServerData;
  6612. const
  6613. CServerData: TServerData = (
  6614. ClassID: '{B85EA052-9BDD-11D0-852C-00C04FD8D503}';
  6615. IntfIID: '{B7EE91CC-9BDD-11D0-852C-00C04FD8D503}';
  6616. EventIID: '';
  6617. LicenseKey: nil;
  6618. Version: 500);
  6619. begin
  6620. ServerData := @CServerData;
  6621. end;
  6622. procedure TAccessControlList.Connect;
  6623. var
  6624. punk: IUnknown;
  6625. begin
  6626. if FIntf = nil then
  6627. begin
  6628. punk := GetServer;
  6629. Fintf:= punk as IADsAccessControlList;
  6630. end;
  6631. end;
  6632. procedure TAccessControlList.ConnectTo(svrIntf: IADsAccessControlList);
  6633. begin
  6634. Disconnect;
  6635. FIntf := svrIntf;
  6636. end;
  6637. procedure TAccessControlList.DisConnect;
  6638. begin
  6639. if Fintf <> nil then
  6640. begin
  6641. FIntf := nil;
  6642. end;
  6643. end;
  6644. function TAccessControlList.GetDefaultInterface: IADsAccessControlList;
  6645. begin
  6646. if FIntf = nil then
  6647. Connect;
  6648. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  6649. Result := FIntf;
  6650. end;
  6651. constructor TAccessControlList.Create(AOwner: TComponent);
  6652. begin
  6653. inherited Create(AOwner);
  6654. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6655. FProps := TAccessControlListProperties.Create(Self);
  6656. {$ENDIF}
  6657. end;
  6658. destructor TAccessControlList.Destroy;
  6659. begin
  6660. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6661. FProps.Free;
  6662. {$ENDIF}
  6663. inherited Destroy;
  6664. end;
  6665. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6666. function TAccessControlList.GetServerProperties: TAccessControlListProperties;
  6667. begin
  6668. Result := FProps;
  6669. end;
  6670. {$ENDIF}
  6671. function TAccessControlList.Get_AclRevision: Integer;
  6672. begin
  6673. Result := DefaultInterface.Get_AclRevision;
  6674. end;
  6675. procedure TAccessControlList.Set_AclRevision(retval: Integer);
  6676. begin
  6677. DefaultInterface.Set_AclRevision(retval);
  6678. end;
  6679. function TAccessControlList.Get_AceCount: Integer;
  6680. begin
  6681. Result := DefaultInterface.Get_AceCount;
  6682. end;
  6683. procedure TAccessControlList.Set_AceCount(retval: Integer);
  6684. begin
  6685. DefaultInterface.Set_AceCount(retval);
  6686. end;
  6687. procedure TAccessControlList.AddAce(const pAccessControlEntry: IDispatch);
  6688. begin
  6689. DefaultInterface.AddAce(pAccessControlEntry);
  6690. end;
  6691. procedure TAccessControlList.RemoveAce(const pAccessControlEntry: IDispatch);
  6692. begin
  6693. DefaultInterface.RemoveAce(pAccessControlEntry);
  6694. end;
  6695. function TAccessControlList.CopyAccessList: IDispatch;
  6696. begin
  6697. Result := DefaultInterface.CopyAccessList;
  6698. end;
  6699. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6700. constructor TAccessControlListProperties.Create(AServer: TAccessControlList);
  6701. begin
  6702. inherited Create;
  6703. FServer := AServer;
  6704. end;
  6705. function TAccessControlListProperties.GetDefaultInterface: IADsAccessControlList;
  6706. begin
  6707. Result := FServer.DefaultInterface;
  6708. end;
  6709. function TAccessControlListProperties.Get_AclRevision: Integer;
  6710. begin
  6711. Result := DefaultInterface.Get_AclRevision;
  6712. end;
  6713. procedure TAccessControlListProperties.Set_AclRevision(retval: Integer);
  6714. begin
  6715. DefaultInterface.Set_AclRevision(retval);
  6716. end;
  6717. function TAccessControlListProperties.Get_AceCount: Integer;
  6718. begin
  6719. Result := DefaultInterface.Get_AceCount;
  6720. end;
  6721. procedure TAccessControlListProperties.Set_AceCount(retval: Integer);
  6722. begin
  6723. DefaultInterface.Set_AceCount(retval);
  6724. end;
  6725. {$ENDIF}
  6726. class function CoSecurityDescriptor.Create: IADsSecurityDescriptor;
  6727. begin
  6728. Result := CreateComObject(CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
  6729. end;
  6730. class function CoSecurityDescriptor.CreateRemote(const MachineName: string): IADsSecurityDescriptor;
  6731. begin
  6732. Result := CreateRemoteComObject(MachineName, CLASS_SecurityDescriptor) as IADsSecurityDescriptor;
  6733. end;
  6734. procedure TSecurityDescriptor.InitServerData;
  6735. const
  6736. CServerData: TServerData = (
  6737. ClassID: '{B958F73C-9BDD-11D0-852C-00C04FD8D503}';
  6738. IntfIID: '{B8C787CA-9BDD-11D0-852C-00C04FD8D503}';
  6739. EventIID: '';
  6740. LicenseKey: nil;
  6741. Version: 500);
  6742. begin
  6743. ServerData := @CServerData;
  6744. end;
  6745. procedure TSecurityDescriptor.Connect;
  6746. var
  6747. punk: IUnknown;
  6748. begin
  6749. if FIntf = nil then
  6750. begin
  6751. punk := GetServer;
  6752. Fintf:= punk as IADsSecurityDescriptor;
  6753. end;
  6754. end;
  6755. procedure TSecurityDescriptor.ConnectTo(svrIntf: IADsSecurityDescriptor);
  6756. begin
  6757. Disconnect;
  6758. FIntf := svrIntf;
  6759. end;
  6760. procedure TSecurityDescriptor.DisConnect;
  6761. begin
  6762. if Fintf <> nil then
  6763. begin
  6764. FIntf := nil;
  6765. end;
  6766. end;
  6767. function TSecurityDescriptor.GetDefaultInterface: IADsSecurityDescriptor;
  6768. begin
  6769. if FIntf = nil then
  6770. Connect;
  6771. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  6772. Result := FIntf;
  6773. end;
  6774. constructor TSecurityDescriptor.Create(AOwner: TComponent);
  6775. begin
  6776. inherited Create(AOwner);
  6777. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6778. FProps := TSecurityDescriptorProperties.Create(Self);
  6779. {$ENDIF}
  6780. end;
  6781. destructor TSecurityDescriptor.Destroy;
  6782. begin
  6783. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6784. FProps.Free;
  6785. {$ENDIF}
  6786. inherited Destroy;
  6787. end;
  6788. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6789. function TSecurityDescriptor.GetServerProperties: TSecurityDescriptorProperties;
  6790. begin
  6791. Result := FProps;
  6792. end;
  6793. {$ENDIF}
  6794. function TSecurityDescriptor.Get_Revision: Integer;
  6795. begin
  6796. Result := DefaultInterface.Get_Revision;
  6797. end;
  6798. procedure TSecurityDescriptor.Set_Revision(retval: Integer);
  6799. begin
  6800. DefaultInterface.Set_Revision(retval);
  6801. end;
  6802. function TSecurityDescriptor.Get_Control: Integer;
  6803. begin
  6804. Result := DefaultInterface.Get_Control;
  6805. end;
  6806. procedure TSecurityDescriptor.Set_Control(retval: Integer);
  6807. begin
  6808. DefaultInterface.Set_Control(retval);
  6809. end;
  6810. function TSecurityDescriptor.Get_Owner: WideString;
  6811. begin
  6812. Result := DefaultInterface.Get_Owner;
  6813. end;
  6814. procedure TSecurityDescriptor.Set_Owner(const retval: WideString);
  6815. begin
  6816. DefaultInterface.Set_Owner(retval);
  6817. end;
  6818. function TSecurityDescriptor.Get_OwnerDefaulted: WordBool;
  6819. begin
  6820. Result := DefaultInterface.Get_OwnerDefaulted;
  6821. end;
  6822. procedure TSecurityDescriptor.Set_OwnerDefaulted(retval: WordBool);
  6823. begin
  6824. DefaultInterface.Set_OwnerDefaulted(retval);
  6825. end;
  6826. function TSecurityDescriptor.Get_Group: WideString;
  6827. begin
  6828. Result := DefaultInterface.Get_Group;
  6829. end;
  6830. procedure TSecurityDescriptor.Set_Group(const retval: WideString);
  6831. begin
  6832. DefaultInterface.Set_Group(retval);
  6833. end;
  6834. function TSecurityDescriptor.Get_GroupDefaulted: WordBool;
  6835. begin
  6836. Result := DefaultInterface.Get_GroupDefaulted;
  6837. end;
  6838. procedure TSecurityDescriptor.Set_GroupDefaulted(retval: WordBool);
  6839. begin
  6840. DefaultInterface.Set_GroupDefaulted(retval);
  6841. end;
  6842. function TSecurityDescriptor.Get_DiscretionaryAcl: IDispatch;
  6843. begin
  6844. Result := DefaultInterface.Get_DiscretionaryAcl;
  6845. end;
  6846. procedure TSecurityDescriptor.Set_DiscretionaryAcl(const retval: IDispatch);
  6847. begin
  6848. DefaultInterface.Set_DiscretionaryAcl(retval);
  6849. end;
  6850. function TSecurityDescriptor.Get_DaclDefaulted: WordBool;
  6851. begin
  6852. Result := DefaultInterface.Get_DaclDefaulted;
  6853. end;
  6854. procedure TSecurityDescriptor.Set_DaclDefaulted(retval: WordBool);
  6855. begin
  6856. DefaultInterface.Set_DaclDefaulted(retval);
  6857. end;
  6858. function TSecurityDescriptor.Get_SystemAcl: IDispatch;
  6859. begin
  6860. Result := DefaultInterface.Get_SystemAcl;
  6861. end;
  6862. procedure TSecurityDescriptor.Set_SystemAcl(const retval: IDispatch);
  6863. begin
  6864. DefaultInterface.Set_SystemAcl(retval);
  6865. end;
  6866. function TSecurityDescriptor.Get_SaclDefaulted: WordBool;
  6867. begin
  6868. Result := DefaultInterface.Get_SaclDefaulted;
  6869. end;
  6870. procedure TSecurityDescriptor.Set_SaclDefaulted(retval: WordBool);
  6871. begin
  6872. DefaultInterface.Set_SaclDefaulted(retval);
  6873. end;
  6874. function TSecurityDescriptor.CopySecurityDescriptor: IDispatch;
  6875. begin
  6876. Result := DefaultInterface.CopySecurityDescriptor;
  6877. end;
  6878. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6879. constructor TSecurityDescriptorProperties.Create(AServer: TSecurityDescriptor);
  6880. begin
  6881. inherited Create;
  6882. FServer := AServer;
  6883. end;
  6884. function TSecurityDescriptorProperties.GetDefaultInterface: IADsSecurityDescriptor;
  6885. begin
  6886. Result := FServer.DefaultInterface;
  6887. end;
  6888. function TSecurityDescriptorProperties.Get_Revision: Integer;
  6889. begin
  6890. Result := DefaultInterface.Get_Revision;
  6891. end;
  6892. procedure TSecurityDescriptorProperties.Set_Revision(retval: Integer);
  6893. begin
  6894. DefaultInterface.Set_Revision(retval);
  6895. end;
  6896. function TSecurityDescriptorProperties.Get_Control: Integer;
  6897. begin
  6898. Result := DefaultInterface.Get_Control;
  6899. end;
  6900. procedure TSecurityDescriptorProperties.Set_Control(retval: Integer);
  6901. begin
  6902. DefaultInterface.Set_Control(retval);
  6903. end;
  6904. function TSecurityDescriptorProperties.Get_Owner: WideString;
  6905. begin
  6906. Result := DefaultInterface.Get_Owner;
  6907. end;
  6908. procedure TSecurityDescriptorProperties.Set_Owner(const retval: WideString);
  6909. begin
  6910. DefaultInterface.Set_Owner(retval);
  6911. end;
  6912. function TSecurityDescriptorProperties.Get_OwnerDefaulted: WordBool;
  6913. begin
  6914. Result := DefaultInterface.Get_OwnerDefaulted;
  6915. end;
  6916. procedure TSecurityDescriptorProperties.Set_OwnerDefaulted(retval: WordBool);
  6917. begin
  6918. DefaultInterface.Set_OwnerDefaulted(retval);
  6919. end;
  6920. function TSecurityDescriptorProperties.Get_Group: WideString;
  6921. begin
  6922. Result := DefaultInterface.Get_Group;
  6923. end;
  6924. procedure TSecurityDescriptorProperties.Set_Group(const retval: WideString);
  6925. begin
  6926. DefaultInterface.Set_Group(retval);
  6927. end;
  6928. function TSecurityDescriptorProperties.Get_GroupDefaulted: WordBool;
  6929. begin
  6930. Result := DefaultInterface.Get_GroupDefaulted;
  6931. end;
  6932. procedure TSecurityDescriptorProperties.Set_GroupDefaulted(retval: WordBool);
  6933. begin
  6934. DefaultInterface.Set_GroupDefaulted(retval);
  6935. end;
  6936. function TSecurityDescriptorProperties.Get_DiscretionaryAcl: IDispatch;
  6937. begin
  6938. Result := DefaultInterface.Get_DiscretionaryAcl;
  6939. end;
  6940. procedure TSecurityDescriptorProperties.Set_DiscretionaryAcl(const retval: IDispatch);
  6941. begin
  6942. DefaultInterface.Set_DiscretionaryAcl(retval);
  6943. end;
  6944. function TSecurityDescriptorProperties.Get_DaclDefaulted: WordBool;
  6945. begin
  6946. Result := DefaultInterface.Get_DaclDefaulted;
  6947. end;
  6948. procedure TSecurityDescriptorProperties.Set_DaclDefaulted(retval: WordBool);
  6949. begin
  6950. DefaultInterface.Set_DaclDefaulted(retval);
  6951. end;
  6952. function TSecurityDescriptorProperties.Get_SystemAcl: IDispatch;
  6953. begin
  6954. Result := DefaultInterface.Get_SystemAcl;
  6955. end;
  6956. procedure TSecurityDescriptorProperties.Set_SystemAcl(const retval: IDispatch);
  6957. begin
  6958. DefaultInterface.Set_SystemAcl(retval);
  6959. end;
  6960. function TSecurityDescriptorProperties.Get_SaclDefaulted: WordBool;
  6961. begin
  6962. Result := DefaultInterface.Get_SaclDefaulted;
  6963. end;
  6964. procedure TSecurityDescriptorProperties.Set_SaclDefaulted(retval: WordBool);
  6965. begin
  6966. DefaultInterface.Set_SaclDefaulted(retval);
  6967. end;
  6968. {$ENDIF}
  6969. class function CoLargeInteger.Create: IADsLargeInteger;
  6970. begin
  6971. Result := CreateComObject(CLASS_LargeInteger) as IADsLargeInteger;
  6972. end;
  6973. class function CoLargeInteger.CreateRemote(const MachineName: string): IADsLargeInteger;
  6974. begin
  6975. Result := CreateRemoteComObject(MachineName, CLASS_LargeInteger) as IADsLargeInteger;
  6976. end;
  6977. procedure TLargeInteger.InitServerData;
  6978. const
  6979. CServerData: TServerData = (
  6980. ClassID: '{927971F5-0939-11D1-8BE1-00C04FD8D503}';
  6981. IntfIID: '{9068270B-0939-11D1-8BE1-00C04FD8D503}';
  6982. EventIID: '';
  6983. LicenseKey: nil;
  6984. Version: 500);
  6985. begin
  6986. ServerData := @CServerData;
  6987. end;
  6988. procedure TLargeInteger.Connect;
  6989. var
  6990. punk: IUnknown;
  6991. begin
  6992. if FIntf = nil then
  6993. begin
  6994. punk := GetServer;
  6995. Fintf:= punk as IADsLargeInteger;
  6996. end;
  6997. end;
  6998. procedure TLargeInteger.ConnectTo(svrIntf: IADsLargeInteger);
  6999. begin
  7000. Disconnect;
  7001. FIntf := svrIntf;
  7002. end;
  7003. procedure TLargeInteger.DisConnect;
  7004. begin
  7005. if Fintf <> nil then
  7006. begin
  7007. FIntf := nil;
  7008. end;
  7009. end;
  7010. function TLargeInteger.GetDefaultInterface: IADsLargeInteger;
  7011. begin
  7012. if FIntf = nil then
  7013. Connect;
  7014. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7015. Result := FIntf;
  7016. end;
  7017. constructor TLargeInteger.Create(AOwner: TComponent);
  7018. begin
  7019. inherited Create(AOwner);
  7020. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7021. FProps := TLargeIntegerProperties.Create(Self);
  7022. {$ENDIF}
  7023. end;
  7024. destructor TLargeInteger.Destroy;
  7025. begin
  7026. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7027. FProps.Free;
  7028. {$ENDIF}
  7029. inherited Destroy;
  7030. end;
  7031. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7032. function TLargeInteger.GetServerProperties: TLargeIntegerProperties;
  7033. begin
  7034. Result := FProps;
  7035. end;
  7036. {$ENDIF}
  7037. function TLargeInteger.Get_HighPart: Integer;
  7038. begin
  7039. Result := DefaultInterface.Get_HighPart;
  7040. end;
  7041. procedure TLargeInteger.Set_HighPart(retval: Integer);
  7042. begin
  7043. DefaultInterface.Set_HighPart(retval);
  7044. end;
  7045. function TLargeInteger.Get_LowPart: Integer;
  7046. begin
  7047. Result := DefaultInterface.Get_LowPart;
  7048. end;
  7049. procedure TLargeInteger.Set_LowPart(retval: Integer);
  7050. begin
  7051. DefaultInterface.Set_LowPart(retval);
  7052. end;
  7053. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7054. constructor TLargeIntegerProperties.Create(AServer: TLargeInteger);
  7055. begin
  7056. inherited Create;
  7057. FServer := AServer;
  7058. end;
  7059. function TLargeIntegerProperties.GetDefaultInterface: IADsLargeInteger;
  7060. begin
  7061. Result := FServer.DefaultInterface;
  7062. end;
  7063. function TLargeIntegerProperties.Get_HighPart: Integer;
  7064. begin
  7065. Result := DefaultInterface.Get_HighPart;
  7066. end;
  7067. procedure TLargeIntegerProperties.Set_HighPart(retval: Integer);
  7068. begin
  7069. DefaultInterface.Set_HighPart(retval);
  7070. end;
  7071. function TLargeIntegerProperties.Get_LowPart: Integer;
  7072. begin
  7073. Result := DefaultInterface.Get_LowPart;
  7074. end;
  7075. procedure TLargeIntegerProperties.Set_LowPart(retval: Integer);
  7076. begin
  7077. DefaultInterface.Set_LowPart(retval);
  7078. end;
  7079. {$ENDIF}
  7080. class function CoNameTranslate.Create: IADsNameTranslate;
  7081. begin
  7082. Result := CreateComObject(CLASS_NameTranslate) as IADsNameTranslate;
  7083. end;
  7084. class function CoNameTranslate.CreateRemote(const MachineName: string): IADsNameTranslate;
  7085. begin
  7086. Result := CreateRemoteComObject(MachineName, CLASS_NameTranslate) as IADsNameTranslate;
  7087. end;
  7088. procedure TNameTranslate.InitServerData;
  7089. const
  7090. CServerData: TServerData = (
  7091. ClassID: '{274FAE1F-3626-11D1-A3A4-00C04FB950DC}';
  7092. IntfIID: '{B1B272A3-3625-11D1-A3A4-00C04FB950DC}';
  7093. EventIID: '';
  7094. LicenseKey: nil;
  7095. Version: 500);
  7096. begin
  7097. ServerData := @CServerData;
  7098. end;
  7099. procedure TNameTranslate.Connect;
  7100. var
  7101. punk: IUnknown;
  7102. begin
  7103. if FIntf = nil then
  7104. begin
  7105. punk := GetServer;
  7106. Fintf:= punk as IADsNameTranslate;
  7107. end;
  7108. end;
  7109. procedure TNameTranslate.ConnectTo(svrIntf: IADsNameTranslate);
  7110. begin
  7111. Disconnect;
  7112. FIntf := svrIntf;
  7113. end;
  7114. procedure TNameTranslate.DisConnect;
  7115. begin
  7116. if Fintf <> nil then
  7117. begin
  7118. FIntf := nil;
  7119. end;
  7120. end;
  7121. function TNameTranslate.GetDefaultInterface: IADsNameTranslate;
  7122. begin
  7123. if FIntf = nil then
  7124. Connect;
  7125. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7126. Result := FIntf;
  7127. end;
  7128. constructor TNameTranslate.Create(AOwner: TComponent);
  7129. begin
  7130. inherited Create(AOwner);
  7131. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7132. FProps := TNameTranslateProperties.Create(Self);
  7133. {$ENDIF}
  7134. end;
  7135. destructor TNameTranslate.Destroy;
  7136. begin
  7137. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7138. FProps.Free;
  7139. {$ENDIF}
  7140. inherited Destroy;
  7141. end;
  7142. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7143. function TNameTranslate.GetServerProperties: TNameTranslateProperties;
  7144. begin
  7145. Result := FProps;
  7146. end;
  7147. {$ENDIF}
  7148. procedure TNameTranslate.Set_ChaseReferral(Param1: Integer);
  7149. begin
  7150. DefaultInterface.Set_ChaseReferral(Param1);
  7151. end;
  7152. procedure TNameTranslate.Init(lnSetType: Integer; const bstrADsPath: WideString);
  7153. begin
  7154. DefaultInterface.Init(lnSetType, bstrADsPath);
  7155. end;
  7156. procedure TNameTranslate.InitEx(lnSetType: Integer; const bstrADsPath: WideString;
  7157. const bstrUserID: WideString; const bstrDomain: WideString;
  7158. const bstrPassword: WideString);
  7159. begin
  7160. DefaultInterface.InitEx(lnSetType, bstrADsPath, bstrUserID, bstrDomain, bstrPassword);
  7161. end;
  7162. procedure TNameTranslate.Set_(lnSetType: Integer; const bstrADsPath: WideString);
  7163. begin
  7164. DefaultInterface.Set_(lnSetType, bstrADsPath);
  7165. end;
  7166. function TNameTranslate.Get(lnFormatType: Integer): WideString;
  7167. begin
  7168. Result := DefaultInterface.Get(lnFormatType);
  7169. end;
  7170. procedure TNameTranslate.SetEx(lnFormatType: Integer; pVar: OleVariant);
  7171. begin
  7172. DefaultInterface.SetEx(lnFormatType, pVar);
  7173. end;
  7174. function TNameTranslate.GetEx(lnFormatType: Integer): OleVariant;
  7175. begin
  7176. Result := DefaultInterface.GetEx(lnFormatType);
  7177. end;
  7178. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7179. constructor TNameTranslateProperties.Create(AServer: TNameTranslate);
  7180. begin
  7181. inherited Create;
  7182. FServer := AServer;
  7183. end;
  7184. function TNameTranslateProperties.GetDefaultInterface: IADsNameTranslate;
  7185. begin
  7186. Result := FServer.DefaultInterface;
  7187. end;
  7188. procedure TNameTranslateProperties.Set_ChaseReferral(Param1: Integer);
  7189. begin
  7190. DefaultInterface.Set_ChaseReferral(Param1);
  7191. end;
  7192. {$ENDIF}
  7193. class function CoCaseIgnoreList.Create: IADsCaseIgnoreList;
  7194. begin
  7195. Result := CreateComObject(CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
  7196. end;
  7197. class function CoCaseIgnoreList.CreateRemote(const MachineName: string): IADsCaseIgnoreList;
  7198. begin
  7199. Result := CreateRemoteComObject(MachineName, CLASS_CaseIgnoreList) as IADsCaseIgnoreList;
  7200. end;
  7201. procedure TCaseIgnoreList.InitServerData;
  7202. const
  7203. CServerData: TServerData = (
  7204. ClassID: '{15F88A55-4680-11D1-A3B4-00C04FB950DC}';
  7205. IntfIID: '{7B66B533-4680-11D1-A3B4-00C04FB950DC}';
  7206. EventIID: '';
  7207. LicenseKey: nil;
  7208. Version: 500);
  7209. begin
  7210. ServerData := @CServerData;
  7211. end;
  7212. procedure TCaseIgnoreList.Connect;
  7213. var
  7214. punk: IUnknown;
  7215. begin
  7216. if FIntf = nil then
  7217. begin
  7218. punk := GetServer;
  7219. Fintf:= punk as IADsCaseIgnoreList;
  7220. end;
  7221. end;
  7222. procedure TCaseIgnoreList.ConnectTo(svrIntf: IADsCaseIgnoreList);
  7223. begin
  7224. Disconnect;
  7225. FIntf := svrIntf;
  7226. end;
  7227. procedure TCaseIgnoreList.DisConnect;
  7228. begin
  7229. if Fintf <> nil then
  7230. begin
  7231. FIntf := nil;
  7232. end;
  7233. end;
  7234. function TCaseIgnoreList.GetDefaultInterface: IADsCaseIgnoreList;
  7235. begin
  7236. if FIntf = nil then
  7237. Connect;
  7238. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7239. Result := FIntf;
  7240. end;
  7241. constructor TCaseIgnoreList.Create(AOwner: TComponent);
  7242. begin
  7243. inherited Create(AOwner);
  7244. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7245. FProps := TCaseIgnoreListProperties.Create(Self);
  7246. {$ENDIF}
  7247. end;
  7248. destructor TCaseIgnoreList.Destroy;
  7249. begin
  7250. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7251. FProps.Free;
  7252. {$ENDIF}
  7253. inherited Destroy;
  7254. end;
  7255. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7256. function TCaseIgnoreList.GetServerProperties: TCaseIgnoreListProperties;
  7257. begin
  7258. Result := FProps;
  7259. end;
  7260. {$ENDIF}
  7261. function TCaseIgnoreList.Get_CaseIgnoreList: OleVariant;
  7262. begin
  7263. Result := DefaultInterface.Get_CaseIgnoreList;
  7264. end;
  7265. procedure TCaseIgnoreList.Set_CaseIgnoreList(retval: OleVariant);
  7266. begin
  7267. DefaultInterface.Set_CaseIgnoreList(retval);
  7268. end;
  7269. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7270. constructor TCaseIgnoreListProperties.Create(AServer: TCaseIgnoreList);
  7271. begin
  7272. inherited Create;
  7273. FServer := AServer;
  7274. end;
  7275. function TCaseIgnoreListProperties.GetDefaultInterface: IADsCaseIgnoreList;
  7276. begin
  7277. Result := FServer.DefaultInterface;
  7278. end;
  7279. function TCaseIgnoreListProperties.Get_CaseIgnoreList: OleVariant;
  7280. begin
  7281. Result := DefaultInterface.Get_CaseIgnoreList;
  7282. end;
  7283. procedure TCaseIgnoreListProperties.Set_CaseIgnoreList(retval: OleVariant);
  7284. begin
  7285. DefaultInterface.Set_CaseIgnoreList(retval);
  7286. end;
  7287. {$ENDIF}
  7288. class function CoFaxNumber.Create: IADsFaxNumber;
  7289. begin
  7290. Result := CreateComObject(CLASS_FaxNumber) as IADsFaxNumber;
  7291. end;
  7292. class function CoFaxNumber.CreateRemote(const MachineName: string): IADsFaxNumber;
  7293. begin
  7294. Result := CreateRemoteComObject(MachineName, CLASS_FaxNumber) as IADsFaxNumber;
  7295. end;
  7296. procedure TFaxNumber.InitServerData;
  7297. const
  7298. CServerData: TServerData = (
  7299. ClassID: '{A5062215-4681-11D1-A3B4-00C04FB950DC}';
  7300. IntfIID: '{A910DEA9-4680-11D1-A3B4-00C04FB950DC}';
  7301. EventIID: '';
  7302. LicenseKey: nil;
  7303. Version: 500);
  7304. begin
  7305. ServerData := @CServerData;
  7306. end;
  7307. procedure TFaxNumber.Connect;
  7308. var
  7309. punk: IUnknown;
  7310. begin
  7311. if FIntf = nil then
  7312. begin
  7313. punk := GetServer;
  7314. Fintf:= punk as IADsFaxNumber;
  7315. end;
  7316. end;
  7317. procedure TFaxNumber.ConnectTo(svrIntf: IADsFaxNumber);
  7318. begin
  7319. Disconnect;
  7320. FIntf := svrIntf;
  7321. end;
  7322. procedure TFaxNumber.DisConnect;
  7323. begin
  7324. if Fintf <> nil then
  7325. begin
  7326. FIntf := nil;
  7327. end;
  7328. end;
  7329. function TFaxNumber.GetDefaultInterface: IADsFaxNumber;
  7330. begin
  7331. if FIntf = nil then
  7332. Connect;
  7333. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7334. Result := FIntf;
  7335. end;
  7336. constructor TFaxNumber.Create(AOwner: TComponent);
  7337. begin
  7338. inherited Create(AOwner);
  7339. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7340. FProps := TFaxNumberProperties.Create(Self);
  7341. {$ENDIF}
  7342. end;
  7343. destructor TFaxNumber.Destroy;
  7344. begin
  7345. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7346. FProps.Free;
  7347. {$ENDIF}
  7348. inherited Destroy;
  7349. end;
  7350. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7351. function TFaxNumber.GetServerProperties: TFaxNumberProperties;
  7352. begin
  7353. Result := FProps;
  7354. end;
  7355. {$ENDIF}
  7356. function TFaxNumber.Get_TelephoneNumber: WideString;
  7357. begin
  7358. Result := DefaultInterface.Get_TelephoneNumber;
  7359. end;
  7360. procedure TFaxNumber.Set_TelephoneNumber(const retval: WideString);
  7361. begin
  7362. DefaultInterface.Set_TelephoneNumber(retval);
  7363. end;
  7364. function TFaxNumber.Get_Parameters: OleVariant;
  7365. begin
  7366. Result := DefaultInterface.Get_Parameters;
  7367. end;
  7368. procedure TFaxNumber.Set_Parameters(retval: OleVariant);
  7369. begin
  7370. DefaultInterface.Set_Parameters(retval);
  7371. end;
  7372. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7373. constructor TFaxNumberProperties.Create(AServer: TFaxNumber);
  7374. begin
  7375. inherited Create;
  7376. FServer := AServer;
  7377. end;
  7378. function TFaxNumberProperties.GetDefaultInterface: IADsFaxNumber;
  7379. begin
  7380. Result := FServer.DefaultInterface;
  7381. end;
  7382. function TFaxNumberProperties.Get_TelephoneNumber: WideString;
  7383. begin
  7384. Result := DefaultInterface.Get_TelephoneNumber;
  7385. end;
  7386. procedure TFaxNumberProperties.Set_TelephoneNumber(const retval: WideString);
  7387. begin
  7388. DefaultInterface.Set_TelephoneNumber(retval);
  7389. end;
  7390. function TFaxNumberProperties.Get_Parameters: OleVariant;
  7391. begin
  7392. Result := DefaultInterface.Get_Parameters;
  7393. end;
  7394. procedure TFaxNumberProperties.Set_Parameters(retval: OleVariant);
  7395. begin
  7396. DefaultInterface.Set_Parameters(retval);
  7397. end;
  7398. {$ENDIF}
  7399. class function CoNetAddress.Create: IADsNetAddress;
  7400. begin
  7401. Result := CreateComObject(CLASS_NetAddress) as IADsNetAddress;
  7402. end;
  7403. class function CoNetAddress.CreateRemote(const MachineName: string): IADsNetAddress;
  7404. begin
  7405. Result := CreateRemoteComObject(MachineName, CLASS_NetAddress) as IADsNetAddress;
  7406. end;
  7407. procedure TNetAddress.InitServerData;
  7408. const
  7409. CServerData: TServerData = (
  7410. ClassID: '{B0B71247-4080-11D1-A3AC-00C04FB950DC}';
  7411. IntfIID: '{B21A50A9-4080-11D1-A3AC-00C04FB950DC}';
  7412. EventIID: '';
  7413. LicenseKey: nil;
  7414. Version: 500);
  7415. begin
  7416. ServerData := @CServerData;
  7417. end;
  7418. procedure TNetAddress.Connect;
  7419. var
  7420. punk: IUnknown;
  7421. begin
  7422. if FIntf = nil then
  7423. begin
  7424. punk := GetServer;
  7425. Fintf:= punk as IADsNetAddress;
  7426. end;
  7427. end;
  7428. procedure TNetAddress.ConnectTo(svrIntf: IADsNetAddress);
  7429. begin
  7430. Disconnect;
  7431. FIntf := svrIntf;
  7432. end;
  7433. procedure TNetAddress.DisConnect;
  7434. begin
  7435. if Fintf <> nil then
  7436. begin
  7437. FIntf := nil;
  7438. end;
  7439. end;
  7440. function TNetAddress.GetDefaultInterface: IADsNetAddress;
  7441. begin
  7442. if FIntf = nil then
  7443. Connect;
  7444. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7445. Result := FIntf;
  7446. end;
  7447. constructor TNetAddress.Create(AOwner: TComponent);
  7448. begin
  7449. inherited Create(AOwner);
  7450. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7451. FProps := TNetAddressProperties.Create(Self);
  7452. {$ENDIF}
  7453. end;
  7454. destructor TNetAddress.Destroy;
  7455. begin
  7456. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7457. FProps.Free;
  7458. {$ENDIF}
  7459. inherited Destroy;
  7460. end;
  7461. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7462. function TNetAddress.GetServerProperties: TNetAddressProperties;
  7463. begin
  7464. Result := FProps;
  7465. end;
  7466. {$ENDIF}
  7467. function TNetAddress.Get_AddressType: Integer;
  7468. begin
  7469. Result := DefaultInterface.Get_AddressType;
  7470. end;
  7471. procedure TNetAddress.Set_AddressType(retval: Integer);
  7472. begin
  7473. DefaultInterface.Set_AddressType(retval);
  7474. end;
  7475. function TNetAddress.Get_Address: OleVariant;
  7476. begin
  7477. Result := DefaultInterface.Get_Address;
  7478. end;
  7479. procedure TNetAddress.Set_Address(retval: OleVariant);
  7480. begin
  7481. DefaultInterface.Set_Address(retval);
  7482. end;
  7483. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7484. constructor TNetAddressProperties.Create(AServer: TNetAddress);
  7485. begin
  7486. inherited Create;
  7487. FServer := AServer;
  7488. end;
  7489. function TNetAddressProperties.GetDefaultInterface: IADsNetAddress;
  7490. begin
  7491. Result := FServer.DefaultInterface;
  7492. end;
  7493. function TNetAddressProperties.Get_AddressType: Integer;
  7494. begin
  7495. Result := DefaultInterface.Get_AddressType;
  7496. end;
  7497. procedure TNetAddressProperties.Set_AddressType(retval: Integer);
  7498. begin
  7499. DefaultInterface.Set_AddressType(retval);
  7500. end;
  7501. function TNetAddressProperties.Get_Address: OleVariant;
  7502. begin
  7503. Result := DefaultInterface.Get_Address;
  7504. end;
  7505. procedure TNetAddressProperties.Set_Address(retval: OleVariant);
  7506. begin
  7507. DefaultInterface.Set_Address(retval);
  7508. end;
  7509. {$ENDIF}
  7510. class function CoOctetList.Create: IADsOctetList;
  7511. begin
  7512. Result := CreateComObject(CLASS_OctetList) as IADsOctetList;
  7513. end;
  7514. class function CoOctetList.CreateRemote(const MachineName: string): IADsOctetList;
  7515. begin
  7516. Result := CreateRemoteComObject(MachineName, CLASS_OctetList) as IADsOctetList;
  7517. end;
  7518. procedure TOctetList.InitServerData;
  7519. const
  7520. CServerData: TServerData = (
  7521. ClassID: '{1241400F-4680-11D1-A3B4-00C04FB950DC}';
  7522. IntfIID: '{7B28B80F-4680-11D1-A3B4-00C04FB950DC}';
  7523. EventIID: '';
  7524. LicenseKey: nil;
  7525. Version: 500);
  7526. begin
  7527. ServerData := @CServerData;
  7528. end;
  7529. procedure TOctetList.Connect;
  7530. var
  7531. punk: IUnknown;
  7532. begin
  7533. if FIntf = nil then
  7534. begin
  7535. punk := GetServer;
  7536. Fintf:= punk as IADsOctetList;
  7537. end;
  7538. end;
  7539. procedure TOctetList.ConnectTo(svrIntf: IADsOctetList);
  7540. begin
  7541. Disconnect;
  7542. FIntf := svrIntf;
  7543. end;
  7544. procedure TOctetList.DisConnect;
  7545. begin
  7546. if Fintf <> nil then
  7547. begin
  7548. FIntf := nil;
  7549. end;
  7550. end;
  7551. function TOctetList.GetDefaultInterface: IADsOctetList;
  7552. begin
  7553. if FIntf = nil then
  7554. Connect;
  7555. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7556. Result := FIntf;
  7557. end;
  7558. constructor TOctetList.Create(AOwner: TComponent);
  7559. begin
  7560. inherited Create(AOwner);
  7561. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7562. FProps := TOctetListProperties.Create(Self);
  7563. {$ENDIF}
  7564. end;
  7565. destructor TOctetList.Destroy;
  7566. begin
  7567. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7568. FProps.Free;
  7569. {$ENDIF}
  7570. inherited Destroy;
  7571. end;
  7572. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7573. function TOctetList.GetServerProperties: TOctetListProperties;
  7574. begin
  7575. Result := FProps;
  7576. end;
  7577. {$ENDIF}
  7578. function TOctetList.Get_OctetList: OleVariant;
  7579. begin
  7580. Result := DefaultInterface.Get_OctetList;
  7581. end;
  7582. procedure TOctetList.Set_OctetList(retval: OleVariant);
  7583. begin
  7584. DefaultInterface.Set_OctetList(retval);
  7585. end;
  7586. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7587. constructor TOctetListProperties.Create(AServer: TOctetList);
  7588. begin
  7589. inherited Create;
  7590. FServer := AServer;
  7591. end;
  7592. function TOctetListProperties.GetDefaultInterface: IADsOctetList;
  7593. begin
  7594. Result := FServer.DefaultInterface;
  7595. end;
  7596. function TOctetListProperties.Get_OctetList: OleVariant;
  7597. begin
  7598. Result := DefaultInterface.Get_OctetList;
  7599. end;
  7600. procedure TOctetListProperties.Set_OctetList(retval: OleVariant);
  7601. begin
  7602. DefaultInterface.Set_OctetList(retval);
  7603. end;
  7604. {$ENDIF}
  7605. class function CoEmail.Create: IADsEmail;
  7606. begin
  7607. Result := CreateComObject(CLASS_Email) as IADsEmail;
  7608. end;
  7609. class function CoEmail.CreateRemote(const MachineName: string): IADsEmail;
  7610. begin
  7611. Result := CreateRemoteComObject(MachineName, CLASS_Email) as IADsEmail;
  7612. end;
  7613. procedure TEmail.InitServerData;
  7614. const
  7615. CServerData: TServerData = (
  7616. ClassID: '{8F92A857-478E-11D1-A3B4-00C04FB950DC}';
  7617. IntfIID: '{97AF011A-478E-11D1-A3B4-00C04FB950DC}';
  7618. EventIID: '';
  7619. LicenseKey: nil;
  7620. Version: 500);
  7621. begin
  7622. ServerData := @CServerData;
  7623. end;
  7624. procedure TEmail.Connect;
  7625. var
  7626. punk: IUnknown;
  7627. begin
  7628. if FIntf = nil then
  7629. begin
  7630. punk := GetServer;
  7631. Fintf:= punk as IADsEmail;
  7632. end;
  7633. end;
  7634. procedure TEmail.ConnectTo(svrIntf: IADsEmail);
  7635. begin
  7636. Disconnect;
  7637. FIntf := svrIntf;
  7638. end;
  7639. procedure TEmail.DisConnect;
  7640. begin
  7641. if Fintf <> nil then
  7642. begin
  7643. FIntf := nil;
  7644. end;
  7645. end;
  7646. function TEmail.GetDefaultInterface: IADsEmail;
  7647. begin
  7648. if FIntf = nil then
  7649. Connect;
  7650. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7651. Result := FIntf;
  7652. end;
  7653. constructor TEmail.Create(AOwner: TComponent);
  7654. begin
  7655. inherited Create(AOwner);
  7656. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7657. FProps := TEmailProperties.Create(Self);
  7658. {$ENDIF}
  7659. end;
  7660. destructor TEmail.Destroy;
  7661. begin
  7662. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7663. FProps.Free;
  7664. {$ENDIF}
  7665. inherited Destroy;
  7666. end;
  7667. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7668. function TEmail.GetServerProperties: TEmailProperties;
  7669. begin
  7670. Result := FProps;
  7671. end;
  7672. {$ENDIF}
  7673. function TEmail.Get_Type_: Integer;
  7674. begin
  7675. Result := DefaultInterface.Get_Type_;
  7676. end;
  7677. procedure TEmail.Set_Type_(retval: Integer);
  7678. begin
  7679. DefaultInterface.Set_Type_(retval);
  7680. end;
  7681. function TEmail.Get_Address: WideString;
  7682. begin
  7683. Result := DefaultInterface.Get_Address;
  7684. end;
  7685. procedure TEmail.Set_Address(const retval: WideString);
  7686. begin
  7687. DefaultInterface.Set_Address(retval);
  7688. end;
  7689. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7690. constructor TEmailProperties.Create(AServer: TEmail);
  7691. begin
  7692. inherited Create;
  7693. FServer := AServer;
  7694. end;
  7695. function TEmailProperties.GetDefaultInterface: IADsEmail;
  7696. begin
  7697. Result := FServer.DefaultInterface;
  7698. end;
  7699. function TEmailProperties.Get_Type_: Integer;
  7700. begin
  7701. Result := DefaultInterface.Get_Type_;
  7702. end;
  7703. procedure TEmailProperties.Set_Type_(retval: Integer);
  7704. begin
  7705. DefaultInterface.Set_Type_(retval);
  7706. end;
  7707. function TEmailProperties.Get_Address: WideString;
  7708. begin
  7709. Result := DefaultInterface.Get_Address;
  7710. end;
  7711. procedure TEmailProperties.Set_Address(const retval: WideString);
  7712. begin
  7713. DefaultInterface.Set_Address(retval);
  7714. end;
  7715. {$ENDIF}
  7716. class function CoPath.Create: IADsPath;
  7717. begin
  7718. Result := CreateComObject(CLASS_Path) as IADsPath;
  7719. end;
  7720. class function CoPath.CreateRemote(const MachineName: string): IADsPath;
  7721. begin
  7722. Result := CreateRemoteComObject(MachineName, CLASS_Path) as IADsPath;
  7723. end;
  7724. procedure TPath.InitServerData;
  7725. const
  7726. CServerData: TServerData = (
  7727. ClassID: '{B2538919-4080-11D1-A3AC-00C04FB950DC}';
  7728. IntfIID: '{B287FCD5-4080-11D1-A3AC-00C04FB950DC}';
  7729. EventIID: '';
  7730. LicenseKey: nil;
  7731. Version: 500);
  7732. begin
  7733. ServerData := @CServerData;
  7734. end;
  7735. procedure TPath.Connect;
  7736. var
  7737. punk: IUnknown;
  7738. begin
  7739. if FIntf = nil then
  7740. begin
  7741. punk := GetServer;
  7742. Fintf:= punk as IADsPath;
  7743. end;
  7744. end;
  7745. procedure TPath.ConnectTo(svrIntf: IADsPath);
  7746. begin
  7747. Disconnect;
  7748. FIntf := svrIntf;
  7749. end;
  7750. procedure TPath.DisConnect;
  7751. begin
  7752. if Fintf <> nil then
  7753. begin
  7754. FIntf := nil;
  7755. end;
  7756. end;
  7757. function TPath.GetDefaultInterface: IADsPath;
  7758. begin
  7759. if FIntf = nil then
  7760. Connect;
  7761. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7762. Result := FIntf;
  7763. end;
  7764. constructor TPath.Create(AOwner: TComponent);
  7765. begin
  7766. inherited Create(AOwner);
  7767. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7768. FProps := TPathProperties.Create(Self);
  7769. {$ENDIF}
  7770. end;
  7771. destructor TPath.Destroy;
  7772. begin
  7773. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7774. FProps.Free;
  7775. {$ENDIF}
  7776. inherited Destroy;
  7777. end;
  7778. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7779. function TPath.GetServerProperties: TPathProperties;
  7780. begin
  7781. Result := FProps;
  7782. end;
  7783. {$ENDIF}
  7784. function TPath.Get_Type_: Integer;
  7785. begin
  7786. Result := DefaultInterface.Get_Type_;
  7787. end;
  7788. procedure TPath.Set_Type_(retval: Integer);
  7789. begin
  7790. DefaultInterface.Set_Type_(retval);
  7791. end;
  7792. function TPath.Get_VolumeName: WideString;
  7793. begin
  7794. Result := DefaultInterface.Get_VolumeName;
  7795. end;
  7796. procedure TPath.Set_VolumeName(const retval: WideString);
  7797. begin
  7798. DefaultInterface.Set_VolumeName(retval);
  7799. end;
  7800. function TPath.Get_Path: WideString;
  7801. begin
  7802. Result := DefaultInterface.Get_Path;
  7803. end;
  7804. procedure TPath.Set_Path(const retval: WideString);
  7805. begin
  7806. DefaultInterface.Set_Path(retval);
  7807. end;
  7808. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7809. constructor TPathProperties.Create(AServer: TPath);
  7810. begin
  7811. inherited Create;
  7812. FServer := AServer;
  7813. end;
  7814. function TPathProperties.GetDefaultInterface: IADsPath;
  7815. begin
  7816. Result := FServer.DefaultInterface;
  7817. end;
  7818. function TPathProperties.Get_Type_: Integer;
  7819. begin
  7820. Result := DefaultInterface.Get_Type_;
  7821. end;
  7822. procedure TPathProperties.Set_Type_(retval: Integer);
  7823. begin
  7824. DefaultInterface.Set_Type_(retval);
  7825. end;
  7826. function TPathProperties.Get_VolumeName: WideString;
  7827. begin
  7828. Result := DefaultInterface.Get_VolumeName;
  7829. end;
  7830. procedure TPathProperties.Set_VolumeName(const retval: WideString);
  7831. begin
  7832. DefaultInterface.Set_VolumeName(retval);
  7833. end;
  7834. function TPathProperties.Get_Path: WideString;
  7835. begin
  7836. Result := DefaultInterface.Get_Path;
  7837. end;
  7838. procedure TPathProperties.Set_Path(const retval: WideString);
  7839. begin
  7840. DefaultInterface.Set_Path(retval);
  7841. end;
  7842. {$ENDIF}
  7843. class function CoReplicaPointer.Create: IADsReplicaPointer;
  7844. begin
  7845. Result := CreateComObject(CLASS_ReplicaPointer) as IADsReplicaPointer;
  7846. end;
  7847. class function CoReplicaPointer.CreateRemote(const MachineName: string): IADsReplicaPointer;
  7848. begin
  7849. Result := CreateRemoteComObject(MachineName, CLASS_ReplicaPointer) as IADsReplicaPointer;
  7850. end;
  7851. procedure TReplicaPointer.InitServerData;
  7852. const
  7853. CServerData: TServerData = (
  7854. ClassID: '{F5D1BADF-4080-11D1-A3AC-00C04FB950DC}';
  7855. IntfIID: '{F60FB803-4080-11D1-A3AC-00C04FB950DC}';
  7856. EventIID: '';
  7857. LicenseKey: nil;
  7858. Version: 500);
  7859. begin
  7860. ServerData := @CServerData;
  7861. end;
  7862. procedure TReplicaPointer.Connect;
  7863. var
  7864. punk: IUnknown;
  7865. begin
  7866. if FIntf = nil then
  7867. begin
  7868. punk := GetServer;
  7869. Fintf:= punk as IADsReplicaPointer;
  7870. end;
  7871. end;
  7872. procedure TReplicaPointer.ConnectTo(svrIntf: IADsReplicaPointer);
  7873. begin
  7874. Disconnect;
  7875. FIntf := svrIntf;
  7876. end;
  7877. procedure TReplicaPointer.DisConnect;
  7878. begin
  7879. if Fintf <> nil then
  7880. begin
  7881. FIntf := nil;
  7882. end;
  7883. end;
  7884. function TReplicaPointer.GetDefaultInterface: IADsReplicaPointer;
  7885. begin
  7886. if FIntf = nil then
  7887. Connect;
  7888. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7889. Result := FIntf;
  7890. end;
  7891. constructor TReplicaPointer.Create(AOwner: TComponent);
  7892. begin
  7893. inherited Create(AOwner);
  7894. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7895. FProps := TReplicaPointerProperties.Create(Self);
  7896. {$ENDIF}
  7897. end;
  7898. destructor TReplicaPointer.Destroy;
  7899. begin
  7900. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7901. FProps.Free;
  7902. {$ENDIF}
  7903. inherited Destroy;
  7904. end;
  7905. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7906. function TReplicaPointer.GetServerProperties: TReplicaPointerProperties;
  7907. begin
  7908. Result := FProps;
  7909. end;
  7910. {$ENDIF}
  7911. function TReplicaPointer.Get_ServerName: WideString;
  7912. begin
  7913. Result := DefaultInterface.Get_ServerName;
  7914. end;
  7915. procedure TReplicaPointer.Set_ServerName(const retval: WideString);
  7916. begin
  7917. DefaultInterface.Set_ServerName(retval);
  7918. end;
  7919. function TReplicaPointer.Get_ReplicaType: Integer;
  7920. begin
  7921. Result := DefaultInterface.Get_ReplicaType;
  7922. end;
  7923. procedure TReplicaPointer.Set_ReplicaType(retval: Integer);
  7924. begin
  7925. DefaultInterface.Set_ReplicaType(retval);
  7926. end;
  7927. function TReplicaPointer.Get_ReplicaNumber: Integer;
  7928. begin
  7929. Result := DefaultInterface.Get_ReplicaNumber;
  7930. end;
  7931. procedure TReplicaPointer.Set_ReplicaNumber(retval: Integer);
  7932. begin
  7933. DefaultInterface.Set_ReplicaNumber(retval);
  7934. end;
  7935. function TReplicaPointer.Get_Count: Integer;
  7936. begin
  7937. Result := DefaultInterface.Get_Count;
  7938. end;
  7939. procedure TReplicaPointer.Set_Count(retval: Integer);
  7940. begin
  7941. DefaultInterface.Set_Count(retval);
  7942. end;
  7943. function TReplicaPointer.Get_ReplicaAddressHints: OleVariant;
  7944. begin
  7945. Result := DefaultInterface.Get_ReplicaAddressHints;
  7946. end;
  7947. procedure TReplicaPointer.Set_ReplicaAddressHints(retval: OleVariant);
  7948. begin
  7949. DefaultInterface.Set_ReplicaAddressHints(retval);
  7950. end;
  7951. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7952. constructor TReplicaPointerProperties.Create(AServer: TReplicaPointer);
  7953. begin
  7954. inherited Create;
  7955. FServer := AServer;
  7956. end;
  7957. function TReplicaPointerProperties.GetDefaultInterface: IADsReplicaPointer;
  7958. begin
  7959. Result := FServer.DefaultInterface;
  7960. end;
  7961. function TReplicaPointerProperties.Get_ServerName: WideString;
  7962. begin
  7963. Result := DefaultInterface.Get_ServerName;
  7964. end;
  7965. procedure TReplicaPointerProperties.Set_ServerName(const retval: WideString);
  7966. begin
  7967. DefaultInterface.Set_ServerName(retval);
  7968. end;
  7969. function TReplicaPointerProperties.Get_ReplicaType: Integer;
  7970. begin
  7971. Result := DefaultInterface.Get_ReplicaType;
  7972. end;
  7973. procedure TReplicaPointerProperties.Set_ReplicaType(retval: Integer);
  7974. begin
  7975. DefaultInterface.Set_ReplicaType(retval);
  7976. end;
  7977. function TReplicaPointerProperties.Get_ReplicaNumber: Integer;
  7978. begin
  7979. Result := DefaultInterface.Get_ReplicaNumber;
  7980. end;
  7981. procedure TReplicaPointerProperties.Set_ReplicaNumber(retval: Integer);
  7982. begin
  7983. DefaultInterface.Set_ReplicaNumber(retval);
  7984. end;
  7985. function TReplicaPointerProperties.Get_Count: Integer;
  7986. begin
  7987. Result := DefaultInterface.Get_Count;
  7988. end;
  7989. procedure TReplicaPointerProperties.Set_Count(retval: Integer);
  7990. begin
  7991. DefaultInterface.Set_Count(retval);
  7992. end;
  7993. function TReplicaPointerProperties.Get_ReplicaAddressHints: OleVariant;
  7994. begin
  7995. Result := DefaultInterface.Get_ReplicaAddressHints;
  7996. end;
  7997. procedure TReplicaPointerProperties.Set_ReplicaAddressHints(retval: OleVariant);
  7998. begin
  7999. DefaultInterface.Set_ReplicaAddressHints(retval);
  8000. end;
  8001. {$ENDIF}
  8002. class function CoAcl.Create: IADsAcl;
  8003. begin
  8004. Result := CreateComObject(CLASS_Acl) as IADsAcl;
  8005. end;
  8006. class function CoAcl.CreateRemote(const MachineName: string): IADsAcl;
  8007. begin
  8008. Result := CreateRemoteComObject(MachineName, CLASS_Acl) as IADsAcl;
  8009. end;
  8010. procedure TAcl.InitServerData;
  8011. const
  8012. CServerData: TServerData = (
  8013. ClassID: '{7AF1EFB6-0869-11D1-A377-00C04FB950DC}';
  8014. IntfIID: '{8452D3AB-0869-11D1-A377-00C04FB950DC}';
  8015. EventIID: '';
  8016. LicenseKey: nil;
  8017. Version: 500);
  8018. begin
  8019. ServerData := @CServerData;
  8020. end;
  8021. procedure TAcl.Connect;
  8022. var
  8023. punk: IUnknown;
  8024. begin
  8025. if FIntf = nil then
  8026. begin
  8027. punk := GetServer;
  8028. Fintf:= punk as IADsAcl;
  8029. end;
  8030. end;
  8031. procedure TAcl.ConnectTo(svrIntf: IADsAcl);
  8032. begin
  8033. Disconnect;
  8034. FIntf := svrIntf;
  8035. end;
  8036. procedure TAcl.DisConnect;
  8037. begin
  8038. if Fintf <> nil then
  8039. begin
  8040. FIntf := nil;
  8041. end;
  8042. end;
  8043. function TAcl.GetDefaultInterface: IADsAcl;
  8044. begin
  8045. if FIntf = nil then
  8046. Connect;
  8047. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8048. Result := FIntf;
  8049. end;
  8050. constructor TAcl.Create(AOwner: TComponent);
  8051. begin
  8052. inherited Create(AOwner);
  8053. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8054. FProps := TAclProperties.Create(Self);
  8055. {$ENDIF}
  8056. end;
  8057. destructor TAcl.Destroy;
  8058. begin
  8059. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8060. FProps.Free;
  8061. {$ENDIF}
  8062. inherited Destroy;
  8063. end;
  8064. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8065. function TAcl.GetServerProperties: TAclProperties;
  8066. begin
  8067. Result := FProps;
  8068. end;
  8069. {$ENDIF}
  8070. function TAcl.Get_ProtectedAttrName: WideString;
  8071. begin
  8072. Result := DefaultInterface.Get_ProtectedAttrName;
  8073. end;
  8074. procedure TAcl.Set_ProtectedAttrName(const retval: WideString);
  8075. begin
  8076. DefaultInterface.Set_ProtectedAttrName(retval);
  8077. end;
  8078. function TAcl.Get_SubjectName: WideString;
  8079. begin
  8080. Result := DefaultInterface.Get_SubjectName;
  8081. end;
  8082. procedure TAcl.Set_SubjectName(const retval: WideString);
  8083. begin
  8084. DefaultInterface.Set_SubjectName(retval);
  8085. end;
  8086. function TAcl.Get_Privileges: Integer;
  8087. begin
  8088. Result := DefaultInterface.Get_Privileges;
  8089. end;
  8090. procedure TAcl.Set_Privileges(retval: Integer);
  8091. begin
  8092. DefaultInterface.Set_Privileges(retval);
  8093. end;
  8094. function TAcl.CopyAcl: IDispatch;
  8095. begin
  8096. Result := DefaultInterface.CopyAcl;
  8097. end;
  8098. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8099. constructor TAclProperties.Create(AServer: TAcl);
  8100. begin
  8101. inherited Create;
  8102. FServer := AServer;
  8103. end;
  8104. function TAclProperties.GetDefaultInterface: IADsAcl;
  8105. begin
  8106. Result := FServer.DefaultInterface;
  8107. end;
  8108. function TAclProperties.Get_ProtectedAttrName: WideString;
  8109. begin
  8110. Result := DefaultInterface.Get_ProtectedAttrName;
  8111. end;
  8112. procedure TAclProperties.Set_ProtectedAttrName(const retval: WideString);
  8113. begin
  8114. DefaultInterface.Set_ProtectedAttrName(retval);
  8115. end;
  8116. function TAclProperties.Get_SubjectName: WideString;
  8117. begin
  8118. Result := DefaultInterface.Get_SubjectName;
  8119. end;
  8120. procedure TAclProperties.Set_SubjectName(const retval: WideString);
  8121. begin
  8122. DefaultInterface.Set_SubjectName(retval);
  8123. end;
  8124. function TAclProperties.Get_Privileges: Integer;
  8125. begin
  8126. Result := DefaultInterface.Get_Privileges;
  8127. end;
  8128. procedure TAclProperties.Set_Privileges(retval: Integer);
  8129. begin
  8130. DefaultInterface.Set_Privileges(retval);
  8131. end;
  8132. {$ENDIF}
  8133. class function CoTimestamp.Create: IADsTimestamp;
  8134. begin
  8135. Result := CreateComObject(CLASS_Timestamp) as IADsTimestamp;
  8136. end;
  8137. class function CoTimestamp.CreateRemote(const MachineName: string): IADsTimestamp;
  8138. begin
  8139. Result := CreateRemoteComObject(MachineName, CLASS_Timestamp) as IADsTimestamp;
  8140. end;
  8141. procedure TTimestamp.InitServerData;
  8142. const
  8143. CServerData: TServerData = (
  8144. ClassID: '{B2BED2EB-4080-11D1-A3AC-00C04FB950DC}';
  8145. IntfIID: '{B2F5A901-4080-11D1-A3AC-00C04FB950DC}';
  8146. EventIID: '';
  8147. LicenseKey: nil;
  8148. Version: 500);
  8149. begin
  8150. ServerData := @CServerData;
  8151. end;
  8152. procedure TTimestamp.Connect;
  8153. var
  8154. punk: IUnknown;
  8155. begin
  8156. if FIntf = nil then
  8157. begin
  8158. punk := GetServer;
  8159. Fintf:= punk as IADsTimestamp;
  8160. end;
  8161. end;
  8162. procedure TTimestamp.ConnectTo(svrIntf: IADsTimestamp);
  8163. begin
  8164. Disconnect;
  8165. FIntf := svrIntf;
  8166. end;
  8167. procedure TTimestamp.DisConnect;
  8168. begin
  8169. if Fintf <> nil then
  8170. begin
  8171. FIntf := nil;
  8172. end;
  8173. end;
  8174. function TTimestamp.GetDefaultInterface: IADsTimestamp;
  8175. begin
  8176. if FIntf = nil then
  8177. Connect;
  8178. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8179. Result := FIntf;
  8180. end;
  8181. constructor TTimestamp.Create(AOwner: TComponent);
  8182. begin
  8183. inherited Create(AOwner);
  8184. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8185. FProps := TTimestampProperties.Create(Self);
  8186. {$ENDIF}
  8187. end;
  8188. destructor TTimestamp.Destroy;
  8189. begin
  8190. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8191. FProps.Free;
  8192. {$ENDIF}
  8193. inherited Destroy;
  8194. end;
  8195. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8196. function TTimestamp.GetServerProperties: TTimestampProperties;
  8197. begin
  8198. Result := FProps;
  8199. end;
  8200. {$ENDIF}
  8201. function TTimestamp.Get_WholeSeconds: Integer;
  8202. begin
  8203. Result := DefaultInterface.Get_WholeSeconds;
  8204. end;
  8205. procedure TTimestamp.Set_WholeSeconds(retval: Integer);
  8206. begin
  8207. DefaultInterface.Set_WholeSeconds(retval);
  8208. end;
  8209. function TTimestamp.Get_EventID: Integer;
  8210. begin
  8211. Result := DefaultInterface.Get_EventID;
  8212. end;
  8213. procedure TTimestamp.Set_EventID(retval: Integer);
  8214. begin
  8215. DefaultInterface.Set_EventID(retval);
  8216. end;
  8217. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8218. constructor TTimestampProperties.Create(AServer: TTimestamp);
  8219. begin
  8220. inherited Create;
  8221. FServer := AServer;
  8222. end;
  8223. function TTimestampProperties.GetDefaultInterface: IADsTimestamp;
  8224. begin
  8225. Result := FServer.DefaultInterface;
  8226. end;
  8227. function TTimestampProperties.Get_WholeSeconds: Integer;
  8228. begin
  8229. Result := DefaultInterface.Get_WholeSeconds;
  8230. end;
  8231. procedure TTimestampProperties.Set_WholeSeconds(retval: Integer);
  8232. begin
  8233. DefaultInterface.Set_WholeSeconds(retval);
  8234. end;
  8235. function TTimestampProperties.Get_EventID: Integer;
  8236. begin
  8237. Result := DefaultInterface.Get_EventID;
  8238. end;
  8239. procedure TTimestampProperties.Set_EventID(retval: Integer);
  8240. begin
  8241. DefaultInterface.Set_EventID(retval);
  8242. end;
  8243. {$ENDIF}
  8244. class function CoPostalAddress.Create: IADsPostalAddress;
  8245. begin
  8246. Result := CreateComObject(CLASS_PostalAddress) as IADsPostalAddress;
  8247. end;
  8248. class function CoPostalAddress.CreateRemote(const MachineName: string): IADsPostalAddress;
  8249. begin
  8250. Result := CreateRemoteComObject(MachineName, CLASS_PostalAddress) as IADsPostalAddress;
  8251. end;
  8252. procedure TPostalAddress.InitServerData;
  8253. const
  8254. CServerData: TServerData = (
  8255. ClassID: '{0A75AFCD-4680-11D1-A3B4-00C04FB950DC}';
  8256. IntfIID: '{7ADECF29-4680-11D1-A3B4-00C04FB950DC}';
  8257. EventIID: '';
  8258. LicenseKey: nil;
  8259. Version: 500);
  8260. begin
  8261. ServerData := @CServerData;
  8262. end;
  8263. procedure TPostalAddress.Connect;
  8264. var
  8265. punk: IUnknown;
  8266. begin
  8267. if FIntf = nil then
  8268. begin
  8269. punk := GetServer;
  8270. Fintf:= punk as IADsPostalAddress;
  8271. end;
  8272. end;
  8273. procedure TPostalAddress.ConnectTo(svrIntf: IADsPostalAddress);
  8274. begin
  8275. Disconnect;
  8276. FIntf := svrIntf;
  8277. end;
  8278. procedure TPostalAddress.DisConnect;
  8279. begin
  8280. if Fintf <> nil then
  8281. begin
  8282. FIntf := nil;
  8283. end;
  8284. end;
  8285. function TPostalAddress.GetDefaultInterface: IADsPostalAddress;
  8286. begin
  8287. if FIntf = nil then
  8288. Connect;
  8289. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8290. Result := FIntf;
  8291. end;
  8292. constructor TPostalAddress.Create(AOwner: TComponent);
  8293. begin
  8294. inherited Create(AOwner);
  8295. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8296. FProps := TPostalAddressProperties.Create(Self);
  8297. {$ENDIF}
  8298. end;
  8299. destructor TPostalAddress.Destroy;
  8300. begin
  8301. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8302. FProps.Free;
  8303. {$ENDIF}
  8304. inherited Destroy;
  8305. end;
  8306. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8307. function TPostalAddress.GetServerProperties: TPostalAddressProperties;
  8308. begin
  8309. Result := FProps;
  8310. end;
  8311. {$ENDIF}
  8312. function TPostalAddress.Get_PostalAddress: OleVariant;
  8313. begin
  8314. Result := DefaultInterface.Get_PostalAddress;
  8315. end;
  8316. procedure TPostalAddress.Set_PostalAddress(retval: OleVariant);
  8317. begin
  8318. DefaultInterface.Set_PostalAddress(retval);
  8319. end;
  8320. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8321. constructor TPostalAddressProperties.Create(AServer: TPostalAddress);
  8322. begin
  8323. inherited Create;
  8324. FServer := AServer;
  8325. end;
  8326. function TPostalAddressProperties.GetDefaultInterface: IADsPostalAddress;
  8327. begin
  8328. Result := FServer.DefaultInterface;
  8329. end;
  8330. function TPostalAddressProperties.Get_PostalAddress: OleVariant;
  8331. begin
  8332. Result := DefaultInterface.Get_PostalAddress;
  8333. end;
  8334. procedure TPostalAddressProperties.Set_PostalAddress(retval: OleVariant);
  8335. begin
  8336. DefaultInterface.Set_PostalAddress(retval);
  8337. end;
  8338. {$ENDIF}
  8339. class function CoBackLink.Create: IADsBackLink;
  8340. begin
  8341. Result := CreateComObject(CLASS_BackLink) as IADsBackLink;
  8342. end;
  8343. class function CoBackLink.CreateRemote(const MachineName: string): IADsBackLink;
  8344. begin
  8345. Result := CreateRemoteComObject(MachineName, CLASS_BackLink) as IADsBackLink;
  8346. end;
  8347. procedure TBackLink.InitServerData;
  8348. const
  8349. CServerData: TServerData = (
  8350. ClassID: '{FCBF906F-4080-11D1-A3AC-00C04FB950DC}';
  8351. IntfIID: '{FD1302BD-4080-11D1-A3AC-00C04FB950DC}';
  8352. EventIID: '';
  8353. LicenseKey: nil;
  8354. Version: 500);
  8355. begin
  8356. ServerData := @CServerData;
  8357. end;
  8358. procedure TBackLink.Connect;
  8359. var
  8360. punk: IUnknown;
  8361. begin
  8362. if FIntf = nil then
  8363. begin
  8364. punk := GetServer;
  8365. Fintf:= punk as IADsBackLink;
  8366. end;
  8367. end;
  8368. procedure TBackLink.ConnectTo(svrIntf: IADsBackLink);
  8369. begin
  8370. Disconnect;
  8371. FIntf := svrIntf;
  8372. end;
  8373. procedure TBackLink.DisConnect;
  8374. begin
  8375. if Fintf <> nil then
  8376. begin
  8377. FIntf := nil;
  8378. end;
  8379. end;
  8380. function TBackLink.GetDefaultInterface: IADsBackLink;
  8381. begin
  8382. if FIntf = nil then
  8383. Connect;
  8384. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8385. Result := FIntf;
  8386. end;
  8387. constructor TBackLink.Create(AOwner: TComponent);
  8388. begin
  8389. inherited Create(AOwner);
  8390. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8391. FProps := TBackLinkProperties.Create(Self);
  8392. {$ENDIF}
  8393. end;
  8394. destructor TBackLink.Destroy;
  8395. begin
  8396. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8397. FProps.Free;
  8398. {$ENDIF}
  8399. inherited Destroy;
  8400. end;
  8401. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8402. function TBackLink.GetServerProperties: TBackLinkProperties;
  8403. begin
  8404. Result := FProps;
  8405. end;
  8406. {$ENDIF}
  8407. function TBackLink.Get_RemoteID: Integer;
  8408. begin
  8409. Result := DefaultInterface.Get_RemoteID;
  8410. end;
  8411. procedure TBackLink.Set_RemoteID(retval: Integer);
  8412. begin
  8413. DefaultInterface.Set_RemoteID(retval);
  8414. end;
  8415. function TBackLink.Get_ObjectName: WideString;
  8416. begin
  8417. Result := DefaultInterface.Get_ObjectName;
  8418. end;
  8419. procedure TBackLink.Set_ObjectName(const retval: WideString);
  8420. begin
  8421. DefaultInterface.Set_ObjectName(retval);
  8422. end;
  8423. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8424. constructor TBackLinkProperties.Create(AServer: TBackLink);
  8425. begin
  8426. inherited Create;
  8427. FServer := AServer;
  8428. end;
  8429. function TBackLinkProperties.GetDefaultInterface: IADsBackLink;
  8430. begin
  8431. Result := FServer.DefaultInterface;
  8432. end;
  8433. function TBackLinkProperties.Get_RemoteID: Integer;
  8434. begin
  8435. Result := DefaultInterface.Get_RemoteID;
  8436. end;
  8437. procedure TBackLinkProperties.Set_RemoteID(retval: Integer);
  8438. begin
  8439. DefaultInterface.Set_RemoteID(retval);
  8440. end;
  8441. function TBackLinkProperties.Get_ObjectName: WideString;
  8442. begin
  8443. Result := DefaultInterface.Get_ObjectName;
  8444. end;
  8445. procedure TBackLinkProperties.Set_ObjectName(const retval: WideString);
  8446. begin
  8447. DefaultInterface.Set_ObjectName(retval);
  8448. end;
  8449. {$ENDIF}
  8450. class function CoTypedName.Create: IADsTypedName;
  8451. begin
  8452. Result := CreateComObject(CLASS_TypedName) as IADsTypedName;
  8453. end;
  8454. class function CoTypedName.CreateRemote(const MachineName: string): IADsTypedName;
  8455. begin
  8456. Result := CreateRemoteComObject(MachineName, CLASS_TypedName) as IADsTypedName;
  8457. end;
  8458. procedure TTypedName.InitServerData;
  8459. const
  8460. CServerData: TServerData = (
  8461. ClassID: '{B33143CB-4080-11D1-A3AC-00C04FB950DC}';
  8462. IntfIID: '{B371A349-4080-11D1-A3AC-00C04FB950DC}';
  8463. EventIID: '';
  8464. LicenseKey: nil;
  8465. Version: 500);
  8466. begin
  8467. ServerData := @CServerData;
  8468. end;
  8469. procedure TTypedName.Connect;
  8470. var
  8471. punk: IUnknown;
  8472. begin
  8473. if FIntf = nil then
  8474. begin
  8475. punk := GetServer;
  8476. Fintf:= punk as IADsTypedName;
  8477. end;
  8478. end;
  8479. procedure TTypedName.ConnectTo(svrIntf: IADsTypedName);
  8480. begin
  8481. Disconnect;
  8482. FIntf := svrIntf;
  8483. end;
  8484. procedure TTypedName.DisConnect;
  8485. begin
  8486. if Fintf <> nil then
  8487. begin
  8488. FIntf := nil;
  8489. end;
  8490. end;
  8491. function TTypedName.GetDefaultInterface: IADsTypedName;
  8492. begin
  8493. if FIntf = nil then
  8494. Connect;
  8495. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8496. Result := FIntf;
  8497. end;
  8498. constructor TTypedName.Create(AOwner: TComponent);
  8499. begin
  8500. inherited Create(AOwner);
  8501. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8502. FProps := TTypedNameProperties.Create(Self);
  8503. {$ENDIF}
  8504. end;
  8505. destructor TTypedName.Destroy;
  8506. begin
  8507. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8508. FProps.Free;
  8509. {$ENDIF}
  8510. inherited Destroy;
  8511. end;
  8512. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8513. function TTypedName.GetServerProperties: TTypedNameProperties;
  8514. begin
  8515. Result := FProps;
  8516. end;
  8517. {$ENDIF}
  8518. function TTypedName.Get_ObjectName: WideString;
  8519. begin
  8520. Result := DefaultInterface.Get_ObjectName;
  8521. end;
  8522. procedure TTypedName.Set_ObjectName(const retval: WideString);
  8523. begin
  8524. DefaultInterface.Set_ObjectName(retval);
  8525. end;
  8526. function TTypedName.Get_Level: Integer;
  8527. begin
  8528. Result := DefaultInterface.Get_Level;
  8529. end;
  8530. procedure TTypedName.Set_Level(retval: Integer);
  8531. begin
  8532. DefaultInterface.Set_Level(retval);
  8533. end;
  8534. function TTypedName.Get_Interval: Integer;
  8535. begin
  8536. Result := DefaultInterface.Get_Interval;
  8537. end;
  8538. procedure TTypedName.Set_Interval(retval: Integer);
  8539. begin
  8540. DefaultInterface.Set_Interval(retval);
  8541. end;
  8542. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8543. constructor TTypedNameProperties.Create(AServer: TTypedName);
  8544. begin
  8545. inherited Create;
  8546. FServer := AServer;
  8547. end;
  8548. function TTypedNameProperties.GetDefaultInterface: IADsTypedName;
  8549. begin
  8550. Result := FServer.DefaultInterface;
  8551. end;
  8552. function TTypedNameProperties.Get_ObjectName: WideString;
  8553. begin
  8554. Result := DefaultInterface.Get_ObjectName;
  8555. end;
  8556. procedure TTypedNameProperties.Set_ObjectName(const retval: WideString);
  8557. begin
  8558. DefaultInterface.Set_ObjectName(retval);
  8559. end;
  8560. function TTypedNameProperties.Get_Level: Integer;
  8561. begin
  8562. Result := DefaultInterface.Get_Level;
  8563. end;
  8564. procedure TTypedNameProperties.Set_Level(retval: Integer);
  8565. begin
  8566. DefaultInterface.Set_Level(retval);
  8567. end;
  8568. function TTypedNameProperties.Get_Interval: Integer;
  8569. begin
  8570. Result := DefaultInterface.Get_Interval;
  8571. end;
  8572. procedure TTypedNameProperties.Set_Interval(retval: Integer);
  8573. begin
  8574. DefaultInterface.Set_Interval(retval);
  8575. end;
  8576. {$ENDIF}
  8577. class function CoHold.Create: IADsHold;
  8578. begin
  8579. Result := CreateComObject(CLASS_Hold) as IADsHold;
  8580. end;
  8581. class function CoHold.CreateRemote(const MachineName: string): IADsHold;
  8582. begin
  8583. Result := CreateRemoteComObject(MachineName, CLASS_Hold) as IADsHold;
  8584. end;
  8585. procedure THold.InitServerData;
  8586. const
  8587. CServerData: TServerData = (
  8588. ClassID: '{B3AD3E13-4080-11D1-A3AC-00C04FB950DC}';
  8589. IntfIID: '{B3EB3B37-4080-11D1-A3AC-00C04FB950DC}';
  8590. EventIID: '';
  8591. LicenseKey: nil;
  8592. Version: 500);
  8593. begin
  8594. ServerData := @CServerData;
  8595. end;
  8596. procedure THold.Connect;
  8597. var
  8598. punk: IUnknown;
  8599. begin
  8600. if FIntf = nil then
  8601. begin
  8602. punk := GetServer;
  8603. Fintf:= punk as IADsHold;
  8604. end;
  8605. end;
  8606. procedure THold.ConnectTo(svrIntf: IADsHold);
  8607. begin
  8608. Disconnect;
  8609. FIntf := svrIntf;
  8610. end;
  8611. procedure THold.DisConnect;
  8612. begin
  8613. if Fintf <> nil then
  8614. begin
  8615. FIntf := nil;
  8616. end;
  8617. end;
  8618. function THold.GetDefaultInterface: IADsHold;
  8619. begin
  8620. if FIntf = nil then
  8621. Connect;
  8622. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8623. Result := FIntf;
  8624. end;
  8625. constructor THold.Create(AOwner: TComponent);
  8626. begin
  8627. inherited Create(AOwner);
  8628. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8629. FProps := THoldProperties.Create(Self);
  8630. {$ENDIF}
  8631. end;
  8632. destructor THold.Destroy;
  8633. begin
  8634. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8635. FProps.Free;
  8636. {$ENDIF}
  8637. inherited Destroy;
  8638. end;
  8639. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8640. function THold.GetServerProperties: THoldProperties;
  8641. begin
  8642. Result := FProps;
  8643. end;
  8644. {$ENDIF}
  8645. function THold.Get_ObjectName: WideString;
  8646. begin
  8647. Result := DefaultInterface.Get_ObjectName;
  8648. end;
  8649. procedure THold.Set_ObjectName(const retval: WideString);
  8650. begin
  8651. DefaultInterface.Set_ObjectName(retval);
  8652. end;
  8653. function THold.Get_Amount: Integer;
  8654. begin
  8655. Result := DefaultInterface.Get_Amount;
  8656. end;
  8657. procedure THold.Set_Amount(retval: Integer);
  8658. begin
  8659. DefaultInterface.Set_Amount(retval);
  8660. end;
  8661. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8662. constructor THoldProperties.Create(AServer: THold);
  8663. begin
  8664. inherited Create;
  8665. FServer := AServer;
  8666. end;
  8667. function THoldProperties.GetDefaultInterface: IADsHold;
  8668. begin
  8669. Result := FServer.DefaultInterface;
  8670. end;
  8671. function THoldProperties.Get_ObjectName: WideString;
  8672. begin
  8673. Result := DefaultInterface.Get_ObjectName;
  8674. end;
  8675. procedure THoldProperties.Set_ObjectName(const retval: WideString);
  8676. begin
  8677. DefaultInterface.Set_ObjectName(retval);
  8678. end;
  8679. function THoldProperties.Get_Amount: Integer;
  8680. begin
  8681. Result := DefaultInterface.Get_Amount;
  8682. end;
  8683. procedure THoldProperties.Set_Amount(retval: Integer);
  8684. begin
  8685. DefaultInterface.Set_Amount(retval);
  8686. end;
  8687. {$ENDIF}
  8688. class function CoPathname.Create: IADsPathname;
  8689. begin
  8690. Result := CreateComObject(CLASS_Pathname) as IADsPathname;
  8691. end;
  8692. class function CoPathname.CreateRemote(const MachineName: string): IADsPathname;
  8693. begin
  8694. Result := CreateRemoteComObject(MachineName, CLASS_Pathname) as IADsPathname;
  8695. end;
  8696. procedure TPathname.InitServerData;
  8697. const
  8698. CServerData: TServerData = (
  8699. ClassID: '{080D0D78-F421-11D0-A36E-00C04FB950DC}';
  8700. IntfIID: '{D592AED4-F420-11D0-A36E-00C04FB950DC}';
  8701. EventIID: '';
  8702. LicenseKey: nil;
  8703. Version: 500);
  8704. begin
  8705. ServerData := @CServerData;
  8706. end;
  8707. procedure TPathname.Connect;
  8708. var
  8709. punk: IUnknown;
  8710. begin
  8711. if FIntf = nil then
  8712. begin
  8713. punk := GetServer;
  8714. Fintf:= punk as IADsPathname;
  8715. end;
  8716. end;
  8717. procedure TPathname.ConnectTo(svrIntf: IADsPathname);
  8718. begin
  8719. Disconnect;
  8720. FIntf := svrIntf;
  8721. end;
  8722. procedure TPathname.DisConnect;
  8723. begin
  8724. if Fintf <> nil then
  8725. begin
  8726. FIntf := nil;
  8727. end;
  8728. end;
  8729. function TPathname.GetDefaultInterface: IADsPathname;
  8730. begin
  8731. if FIntf = nil then
  8732. Connect;
  8733. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8734. Result := FIntf;
  8735. end;
  8736. constructor TPathname.Create(AOwner: TComponent);
  8737. begin
  8738. inherited Create(AOwner);
  8739. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8740. FProps := TPathnameProperties.Create(Self);
  8741. {$ENDIF}
  8742. end;
  8743. destructor TPathname.Destroy;
  8744. begin
  8745. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8746. FProps.Free;
  8747. {$ENDIF}
  8748. inherited Destroy;
  8749. end;
  8750. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8751. function TPathname.GetServerProperties: TPathnameProperties;
  8752. begin
  8753. Result := FProps;
  8754. end;
  8755. {$ENDIF}
  8756. function TPathname.Get_EscapedMode: Integer;
  8757. begin
  8758. Result := DefaultInterface.Get_EscapedMode;
  8759. end;
  8760. procedure TPathname.Set_EscapedMode(retval: Integer);
  8761. begin
  8762. DefaultInterface.Set_EscapedMode(retval);
  8763. end;
  8764. procedure TPathname.Set_(const bstrADsPath: WideString; lnSetType: Integer);
  8765. begin
  8766. DefaultInterface.Set_(bstrADsPath, lnSetType);
  8767. end;
  8768. procedure TPathname.SetDisplayType(lnDisplayType: Integer);
  8769. begin
  8770. DefaultInterface.SetDisplayType(lnDisplayType);
  8771. end;
  8772. function TPathname.Retrieve(lnFormatType: Integer): WideString;
  8773. begin
  8774. Result := DefaultInterface.Retrieve(lnFormatType);
  8775. end;
  8776. function TPathname.GetNumElements: Integer;
  8777. begin
  8778. Result := DefaultInterface.GetNumElements;
  8779. end;
  8780. function TPathname.GetElement(lnElementIndex: Integer): WideString;
  8781. begin
  8782. Result := DefaultInterface.GetElement(lnElementIndex);
  8783. end;
  8784. procedure TPathname.AddLeafElement(const bstrLeafElement: WideString);
  8785. begin
  8786. DefaultInterface.AddLeafElement(bstrLeafElement);
  8787. end;
  8788. procedure TPathname.RemoveLeafElement;
  8789. begin
  8790. DefaultInterface.RemoveLeafElement;
  8791. end;
  8792. function TPathname.CopyPath: IDispatch;
  8793. begin
  8794. Result := DefaultInterface.CopyPath;
  8795. end;
  8796. function TPathname.GetEscapedElement(lnReserved: Integer; const bstrInStr: WideString): WideString;
  8797. begin
  8798. Result := DefaultInterface.GetEscapedElement(lnReserved, bstrInStr);
  8799. end;
  8800. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8801. constructor TPathnameProperties.Create(AServer: TPathname);
  8802. begin
  8803. inherited Create;
  8804. FServer := AServer;
  8805. end;
  8806. function TPathnameProperties.GetDefaultInterface: IADsPathname;
  8807. begin
  8808. Result := FServer.DefaultInterface;
  8809. end;
  8810. function TPathnameProperties.Get_EscapedMode: Integer;
  8811. begin
  8812. Result := DefaultInterface.Get_EscapedMode;
  8813. end;
  8814. procedure TPathnameProperties.Set_EscapedMode(retval: Integer);
  8815. begin
  8816. DefaultInterface.Set_EscapedMode(retval);
  8817. end;
  8818. {$ENDIF}
  8819. class function CoADSystemInfo.Create: IADsADSystemInfo;
  8820. begin
  8821. Result := CreateComObject(CLASS_ADSystemInfo) as IADsADSystemInfo;
  8822. end;
  8823. class function CoADSystemInfo.CreateRemote(const MachineName: string): IADsADSystemInfo;
  8824. begin
  8825. Result := CreateRemoteComObject(MachineName, CLASS_ADSystemInfo) as IADsADSystemInfo;
  8826. end;
  8827. procedure TADSystemInfo.InitServerData;
  8828. const
  8829. CServerData: TServerData = (
  8830. ClassID: '{50B6327F-AFD1-11D2-9CB9-0000F87A369E}';
  8831. IntfIID: '{5BB11929-AFD1-11D2-9CB9-0000F87A369E}';
  8832. EventIID: '';
  8833. LicenseKey: nil;
  8834. Version: 500);
  8835. begin
  8836. ServerData := @CServerData;
  8837. end;
  8838. procedure TADSystemInfo.Connect;
  8839. var
  8840. punk: IUnknown;
  8841. begin
  8842. if FIntf = nil then
  8843. begin
  8844. punk := GetServer;
  8845. Fintf:= punk as IADsADSystemInfo;
  8846. end;
  8847. end;
  8848. procedure TADSystemInfo.ConnectTo(svrIntf: IADsADSystemInfo);
  8849. begin
  8850. Disconnect;
  8851. FIntf := svrIntf;
  8852. end;
  8853. procedure TADSystemInfo.DisConnect;
  8854. begin
  8855. if Fintf <> nil then
  8856. begin
  8857. FIntf := nil;
  8858. end;
  8859. end;
  8860. function TADSystemInfo.GetDefaultInterface: IADsADSystemInfo;
  8861. begin
  8862. if FIntf = nil then
  8863. Connect;
  8864. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8865. Result := FIntf;
  8866. end;
  8867. constructor TADSystemInfo.Create(AOwner: TComponent);
  8868. begin
  8869. inherited Create(AOwner);
  8870. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8871. FProps := TADSystemInfoProperties.Create(Self);
  8872. {$ENDIF}
  8873. end;
  8874. destructor TADSystemInfo.Destroy;
  8875. begin
  8876. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8877. FProps.Free;
  8878. {$ENDIF}
  8879. inherited Destroy;
  8880. end;
  8881. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8882. function TADSystemInfo.GetServerProperties: TADSystemInfoProperties;
  8883. begin
  8884. Result := FProps;
  8885. end;
  8886. {$ENDIF}
  8887. function TADSystemInfo.Get_UserName: WideString;
  8888. begin
  8889. Result := DefaultInterface.Get_UserName;
  8890. end;
  8891. function TADSystemInfo.Get_ComputerName: WideString;
  8892. begin
  8893. Result := DefaultInterface.Get_ComputerName;
  8894. end;
  8895. function TADSystemInfo.Get_SiteName: WideString;
  8896. begin
  8897. Result := DefaultInterface.Get_SiteName;
  8898. end;
  8899. function TADSystemInfo.Get_DomainShortName: WideString;
  8900. begin
  8901. Result := DefaultInterface.Get_DomainShortName;
  8902. end;
  8903. function TADSystemInfo.Get_DomainDNSName: WideString;
  8904. begin
  8905. Result := DefaultInterface.Get_DomainDNSName;
  8906. end;
  8907. function TADSystemInfo.Get_ForestDNSName: WideString;
  8908. begin
  8909. Result := DefaultInterface.Get_ForestDNSName;
  8910. end;
  8911. function TADSystemInfo.Get_PDCRoleOwner: WideString;
  8912. begin
  8913. Result := DefaultInterface.Get_PDCRoleOwner;
  8914. end;
  8915. function TADSystemInfo.Get_SchemaRoleOwner: WideString;
  8916. begin
  8917. Result := DefaultInterface.Get_SchemaRoleOwner;
  8918. end;
  8919. function TADSystemInfo.Get_IsNativeMode: WordBool;
  8920. begin
  8921. Result := DefaultInterface.Get_IsNativeMode;
  8922. end;
  8923. function TADSystemInfo.GetAnyDCName: WideString;
  8924. begin
  8925. Result := DefaultInterface.GetAnyDCName;
  8926. end;
  8927. function TADSystemInfo.GetDCSiteName(const szServer: WideString): WideString;
  8928. begin
  8929. Result := DefaultInterface.GetDCSiteName(szServer);
  8930. end;
  8931. procedure TADSystemInfo.RefreshSchemaCache;
  8932. begin
  8933. DefaultInterface.RefreshSchemaCache;
  8934. end;
  8935. function TADSystemInfo.GetTrees: OleVariant;
  8936. begin
  8937. Result := DefaultInterface.GetTrees;
  8938. end;
  8939. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8940. constructor TADSystemInfoProperties.Create(AServer: TADSystemInfo);
  8941. begin
  8942. inherited Create;
  8943. FServer := AServer;
  8944. end;
  8945. function TADSystemInfoProperties.GetDefaultInterface: IADsADSystemInfo;
  8946. begin
  8947. Result := FServer.DefaultInterface;
  8948. end;
  8949. function TADSystemInfoProperties.Get_UserName: WideString;
  8950. begin
  8951. Result := DefaultInterface.Get_UserName;
  8952. end;
  8953. function TADSystemInfoProperties.Get_ComputerName: WideString;
  8954. begin
  8955. Result := DefaultInterface.Get_ComputerName;
  8956. end;
  8957. function TADSystemInfoProperties.Get_SiteName: WideString;
  8958. begin
  8959. Result := DefaultInterface.Get_SiteName;
  8960. end;
  8961. function TADSystemInfoProperties.Get_DomainShortName: WideString;
  8962. begin
  8963. Result := DefaultInterface.Get_DomainShortName;
  8964. end;
  8965. function TADSystemInfoProperties.Get_DomainDNSName: WideString;
  8966. begin
  8967. Result := DefaultInterface.Get_DomainDNSName;
  8968. end;
  8969. function TADSystemInfoProperties.Get_ForestDNSName: WideString;
  8970. begin
  8971. Result := DefaultInterface.Get_ForestDNSName;
  8972. end;
  8973. function TADSystemInfoProperties.Get_PDCRoleOwner: WideString;
  8974. begin
  8975. Result := DefaultInterface.Get_PDCRoleOwner;
  8976. end;
  8977. function TADSystemInfoProperties.Get_SchemaRoleOwner: WideString;
  8978. begin
  8979. Result := DefaultInterface.Get_SchemaRoleOwner;
  8980. end;
  8981. function TADSystemInfoProperties.Get_IsNativeMode: WordBool;
  8982. begin
  8983. Result := DefaultInterface.Get_IsNativeMode;
  8984. end;
  8985. {$ENDIF}
  8986. class function CoWinNTSystemInfo.Create: IADsWinNTSystemInfo;
  8987. begin
  8988. Result := CreateComObject(CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
  8989. end;
  8990. class function CoWinNTSystemInfo.CreateRemote(const MachineName: string): IADsWinNTSystemInfo;
  8991. begin
  8992. Result := CreateRemoteComObject(MachineName, CLASS_WinNTSystemInfo) as IADsWinNTSystemInfo;
  8993. end;
  8994. procedure TWinNTSystemInfo.InitServerData;
  8995. const
  8996. CServerData: TServerData = (
  8997. ClassID: '{66182EC4-AFD1-11D2-9CB9-0000F87A369E}';
  8998. IntfIID: '{6C6D65DC-AFD1-11D2-9CB9-0000F87A369E}';
  8999. EventIID: '';
  9000. LicenseKey: nil;
  9001. Version: 500);
  9002. begin
  9003. ServerData := @CServerData;
  9004. end;
  9005. procedure TWinNTSystemInfo.Connect;
  9006. var
  9007. punk: IUnknown;
  9008. begin
  9009. if FIntf = nil then
  9010. begin
  9011. punk := GetServer;
  9012. Fintf:= punk as IADsWinNTSystemInfo;
  9013. end;
  9014. end;
  9015. procedure TWinNTSystemInfo.ConnectTo(svrIntf: IADsWinNTSystemInfo);
  9016. begin
  9017. Disconnect;
  9018. FIntf := svrIntf;
  9019. end;
  9020. procedure TWinNTSystemInfo.DisConnect;
  9021. begin
  9022. if Fintf <> nil then
  9023. begin
  9024. FIntf := nil;
  9025. end;
  9026. end;
  9027. function TWinNTSystemInfo.GetDefaultInterface: IADsWinNTSystemInfo;
  9028. begin
  9029. if FIntf = nil then
  9030. Connect;
  9031. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  9032. Result := FIntf;
  9033. end;
  9034. constructor TWinNTSystemInfo.Create(AOwner: TComponent);
  9035. begin
  9036. inherited Create(AOwner);
  9037. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9038. FProps := TWinNTSystemInfoProperties.Create(Self);
  9039. {$ENDIF}
  9040. end;
  9041. destructor TWinNTSystemInfo.Destroy;
  9042. begin
  9043. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9044. FProps.Free;
  9045. {$ENDIF}
  9046. inherited Destroy;
  9047. end;
  9048. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9049. function TWinNTSystemInfo.GetServerProperties: TWinNTSystemInfoProperties;
  9050. begin
  9051. Result := FProps;
  9052. end;
  9053. {$ENDIF}
  9054. function TWinNTSystemInfo.Get_UserName: WideString;
  9055. begin
  9056. Result := DefaultInterface.Get_UserName;
  9057. end;
  9058. function TWinNTSystemInfo.Get_ComputerName: WideString;
  9059. begin
  9060. Result := DefaultInterface.Get_ComputerName;
  9061. end;
  9062. function TWinNTSystemInfo.Get_DomainName: WideString;
  9063. begin
  9064. Result := DefaultInterface.Get_DomainName;
  9065. end;
  9066. function TWinNTSystemInfo.Get_PDC: WideString;
  9067. begin
  9068. Result := DefaultInterface.Get_PDC;
  9069. end;
  9070. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9071. constructor TWinNTSystemInfoProperties.Create(AServer: TWinNTSystemInfo);
  9072. begin
  9073. inherited Create;
  9074. FServer := AServer;
  9075. end;
  9076. function TWinNTSystemInfoProperties.GetDefaultInterface: IADsWinNTSystemInfo;
  9077. begin
  9078. Result := FServer.DefaultInterface;
  9079. end;
  9080. function TWinNTSystemInfoProperties.Get_UserName: WideString;
  9081. begin
  9082. Result := DefaultInterface.Get_UserName;
  9083. end;
  9084. function TWinNTSystemInfoProperties.Get_ComputerName: WideString;
  9085. begin
  9086. Result := DefaultInterface.Get_ComputerName;
  9087. end;
  9088. function TWinNTSystemInfoProperties.Get_DomainName: WideString;
  9089. begin
  9090. Result := DefaultInterface.Get_DomainName;
  9091. end;
  9092. function TWinNTSystemInfoProperties.Get_PDC: WideString;
  9093. begin
  9094. Result := DefaultInterface.Get_PDC;
  9095. end;
  9096. {$ENDIF}
  9097. class function CoDNWithBinary.Create: IADsDNWithBinary;
  9098. begin
  9099. Result := CreateComObject(CLASS_DNWithBinary) as IADsDNWithBinary;
  9100. end;
  9101. class function CoDNWithBinary.CreateRemote(const MachineName: string): IADsDNWithBinary;
  9102. begin
  9103. Result := CreateRemoteComObject(MachineName, CLASS_DNWithBinary) as IADsDNWithBinary;
  9104. end;
  9105. procedure TDNWithBinary.InitServerData;
  9106. const
  9107. CServerData: TServerData = (
  9108. ClassID: '{7E99C0A3-F935-11D2-BA96-00C04FB6D0D1}';
  9109. IntfIID: '{7E99C0A2-F935-11D2-BA96-00C04FB6D0D1}';
  9110. EventIID: '';
  9111. LicenseKey: nil;
  9112. Version: 500);
  9113. begin
  9114. ServerData := @CServerData;
  9115. end;
  9116. procedure TDNWithBinary.Connect;
  9117. var
  9118. punk: IUnknown;
  9119. begin
  9120. if FIntf = nil then
  9121. begin
  9122. punk := GetServer;
  9123. Fintf:= punk as IADsDNWithBinary;
  9124. end;
  9125. end;
  9126. procedure TDNWithBinary.ConnectTo(svrIntf: IADsDNWithBinary);
  9127. begin
  9128. Disconnect;
  9129. FIntf := svrIntf;
  9130. end;
  9131. procedure TDNWithBinary.DisConnect;
  9132. begin
  9133. if Fintf <> nil then
  9134. begin
  9135. FIntf := nil;
  9136. end;
  9137. end;
  9138. function TDNWithBinary.GetDefaultInterface: IADsDNWithBinary;
  9139. begin
  9140. if FIntf = nil then
  9141. Connect;
  9142. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  9143. Result := FIntf;
  9144. end;
  9145. constructor TDNWithBinary.Create(AOwner: TComponent);
  9146. begin
  9147. inherited Create(AOwner);
  9148. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9149. FProps := TDNWithBinaryProperties.Create(Self);
  9150. {$ENDIF}
  9151. end;
  9152. destructor TDNWithBinary.Destroy;
  9153. begin
  9154. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9155. FProps.Free;
  9156. {$ENDIF}
  9157. inherited Destroy;
  9158. end;
  9159. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9160. function TDNWithBinary.GetServerProperties: TDNWithBinaryProperties;
  9161. begin
  9162. Result := FProps;
  9163. end;
  9164. {$ENDIF}
  9165. function TDNWithBinary.Get_BinaryValue: OleVariant;
  9166. begin
  9167. Result := DefaultInterface.Get_BinaryValue;
  9168. end;
  9169. procedure TDNWithBinary.Set_BinaryValue(retval: OleVariant);
  9170. begin
  9171. DefaultInterface.Set_BinaryValue(retval);
  9172. end;
  9173. function TDNWithBinary.Get_DNString: WideString;
  9174. begin
  9175. Result := DefaultInterface.Get_DNString;
  9176. end;
  9177. procedure TDNWithBinary.Set_DNString(const retval: WideString);
  9178. begin
  9179. DefaultInterface.Set_DNString(retval);
  9180. end;
  9181. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9182. constructor TDNWithBinaryProperties.Create(AServer: TDNWithBinary);
  9183. begin
  9184. inherited Create;
  9185. FServer := AServer;
  9186. end;
  9187. function TDNWithBinaryProperties.GetDefaultInterface: IADsDNWithBinary;
  9188. begin
  9189. Result := FServer.DefaultInterface;
  9190. end;
  9191. function TDNWithBinaryProperties.Get_BinaryValue: OleVariant;
  9192. begin
  9193. Result := DefaultInterface.Get_BinaryValue;
  9194. end;
  9195. procedure TDNWithBinaryProperties.Set_BinaryValue(retval: OleVariant);
  9196. begin
  9197. DefaultInterface.Set_BinaryValue(retval);
  9198. end;
  9199. function TDNWithBinaryProperties.Get_DNString: WideString;
  9200. begin
  9201. Result := DefaultInterface.Get_DNString;
  9202. end;
  9203. procedure TDNWithBinaryProperties.Set_DNString(const retval: WideString);
  9204. begin
  9205. DefaultInterface.Set_DNString(retval);
  9206. end;
  9207. {$ENDIF}
  9208. class function CoDNWithString.Create: IADsDNWithString;
  9209. begin
  9210. Result := CreateComObject(CLASS_DNWithString) as IADsDNWithString;
  9211. end;
  9212. class function CoDNWithString.CreateRemote(const MachineName: string): IADsDNWithString;
  9213. begin
  9214. Result := CreateRemoteComObject(MachineName, CLASS_DNWithString) as IADsDNWithString;
  9215. end;
  9216. procedure TDNWithString.InitServerData;
  9217. const
  9218. CServerData: TServerData = (
  9219. ClassID: '{334857CC-F934-11D2-BA96-00C04FB6D0D1}';
  9220. IntfIID: '{370DF02E-F934-11D2-BA96-00C04FB6D0D1}';
  9221. EventIID: '';
  9222. LicenseKey: nil;
  9223. Version: 500);
  9224. begin
  9225. ServerData := @CServerData;
  9226. end;
  9227. procedure TDNWithString.Connect;
  9228. var
  9229. punk: IUnknown;
  9230. begin
  9231. if FIntf = nil then
  9232. begin
  9233. punk := GetServer;
  9234. Fintf:= punk as IADsDNWithString;
  9235. end;
  9236. end;
  9237. procedure TDNWithString.ConnectTo(svrIntf: IADsDNWithString);
  9238. begin
  9239. Disconnect;
  9240. FIntf := svrIntf;
  9241. end;
  9242. procedure TDNWithString.DisConnect;
  9243. begin
  9244. if Fintf <> nil then
  9245. begin
  9246. FIntf := nil;
  9247. end;
  9248. end;
  9249. function TDNWithString.GetDefaultInterface: IADsDNWithString;
  9250. begin
  9251. if FIntf = nil then
  9252. Connect;
  9253. Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  9254. Result := FIntf;
  9255. end;
  9256. constructor TDNWithString.Create(AOwner: TComponent);
  9257. begin
  9258. inherited Create(AOwner);
  9259. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9260. FProps := TDNWithStringProperties.Create(Self);
  9261. {$ENDIF}
  9262. end;
  9263. destructor TDNWithString.Destroy;
  9264. begin
  9265. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9266. FProps.Free;
  9267. {$ENDIF}
  9268. inherited Destroy;
  9269. end;
  9270. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9271. function TDNWithString.GetServerProperties: TDNWithStringProperties;
  9272. begin
  9273. Result := FProps;
  9274. end;
  9275. {$ENDIF}
  9276. function TDNWithString.Get_StringValue: WideString;
  9277. begin
  9278. Result := DefaultInterface.Get_StringValue;
  9279. end;
  9280. procedure TDNWithString.Set_StringValue(const retval: WideString);
  9281. begin
  9282. DefaultInterface.Set_StringValue(retval);
  9283. end;
  9284. function TDNWithString.Get_DNString: WideString;
  9285. begin
  9286. Result := DefaultInterface.Get_DNString;
  9287. end;
  9288. procedure TDNWithString.Set_DNString(const retval: WideString);
  9289. begin
  9290. DefaultInterface.Set_DNString(retval);
  9291. end;
  9292. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9293. constructor TDNWithStringProperties.Create(AServer: TDNWithString);
  9294. begin
  9295. inherited Create;
  9296. FServer := AServer;
  9297. end;
  9298. function TDNWithStringProperties.GetDefaultInterface: IADsDNWithString;
  9299. begin
  9300. Result := FServer.DefaultInterface;
  9301. end;
  9302. function TDNWithStringProperties.Get_StringValue: WideString;
  9303. begin
  9304. Result := DefaultInterface.Get_StringValue;
  9305. end;
  9306. procedure TDNWithStringProperties.Set_StringValue(const retval: WideString);
  9307. begin
  9308. DefaultInterface.Set_StringValue(retval);
  9309. end;
  9310. function TDNWithStringProperties.Get_DNString: WideString;
  9311. begin
  9312. Result := DefaultInterface.Get_DNString;
  9313. end;
  9314. procedure TDNWithStringProperties.Set_DNString(const retval: WideString);
  9315. begin
  9316. DefaultInterface.Set_DNString(retval);
  9317. end;
  9318. {$ENDIF}
  9319. {$ifdef FPC} // dummy
  9320. {
  9321. function CreateComObject(ID: TGUID): IUnknown; //empty
  9322. begin
  9323. end;
  9324. function CreateRemoteComObject(w:widestring; ID: TGUID): IUnknown; //empty
  9325. begin
  9326. end;
  9327. }
  9328. function tOleServer.GetServer:IUnknown;
  9329. begin
  9330. end;
  9331. procedure tOleServer.InitServerData;
  9332. begin
  9333. end;
  9334. constructor tOleServer.Create(AOwner: TComponent);
  9335. begin
  9336. end;
  9337. Procedure tOleServer.Connect;
  9338. begin
  9339. end;
  9340. procedure tOleServer.Disconnect;
  9341. begin
  9342. end;
  9343. {$endif}
  9344. procedure Register;
  9345. begin
  9346. RegisterComponents('ActiveX',[TPropertyEntry, TPropertyValue, TAccessControlEntry, TAccessControlList,
  9347. TSecurityDescriptor, TLargeInteger, TNameTranslate, TCaseIgnoreList, TFaxNumber,
  9348. TNetAddress, TOctetList, TEmail, TPath, TReplicaPointer,
  9349. TAcl, TTimestamp, TPostalAddress, TBackLink, TTypedName,
  9350. THold, TPathname, TADSystemInfo, TWinNTSystemInfo, TDNWithBinary,
  9351. TDNWithString]);
  9352. end;
  9353. end.