, denne artikel viser, hvordan man bruger kom til at få adgang til asp genstande som f.eks.,, 1.skabe et enkelt objekt (se under multitier side i fil - > nye...), 2.navn, det er, hvad du vil. jeg ringede til min ttest), 3.tilføje en procedure kalder sig (bare en test), 4.register over det med fru (jep...du gættede det.se på menuen) 5.import "microsoft aktiv server sider" type bibliotek, her er, hvordan man får adgang til ansøgningen, samling, på anmodning genstande:,, enhed enhed1;,, grænseflade, anvender mtsobj, mtx, comobj, dasp_tlb, asptypelibrary_tlb, sysutils;,, type, tttest = klasse (tmtsautoobject, ittest), beskyttet, procedure sig; safecall;,;,, gennemførelse, anvendelse comserv;,, i denne iid_igetcontextproperties: tguid = (51372af4-cae7-11cf-be81-00aa00a2fa25};,, procedure tttest. fortæl mig, var, vtd: idispatch;, henholdsvis: svar;, req: anmodning, ses: isessionobject; cp - - igetcontextproperties;, srv: server, app: iapplicationobject; begynder, objectcontext. queryinterface (iid_igetcontextproperties, cp), idispatch (cp.getproperty (»responstid«)). queryinterface (iid_iresponse, henholdsvis), idispatch (cp.getproperty ('request ')). queryinterface (iid_irequest, req), idispatch (cp.getproperty ('session')). queryinterface (iid_isessionobject, ses), idispatch (cp.getproperty ('server ')). queryinterface (iid_iserver, srv), idispatch (cp.getproperty ('application')). queryinterface (iid_iapplicationobject, app);,, hvis det er blevet tildelt (henholdsvis) og tildelt (req) og tildelt (ses) og tildelt (srv) og tildelt (app) så begynde, resp. skrive ('yahoo...det virker... ");,,,,,, initialization, tautoobjectfactory. skabe (comserver, tttest, class_ttest,, cimultiinstance, tmapartment),.,,,