Denne artikkelen viser hvordan du bruker COM for å få tilgang til ASP gjenstander som Session.1. Lag en MTS objekt (se under multitier nettstedet på Fil- > New ...) 2. Name it hva du vil (jeg ringte min tTest) 3. Legg til et prosedyrekall Tellme (bare en test) 4. Registrere den med MTS (jepp .. du gjettet det .. se i menyen) 5. Importere "Microsoft Active Server Pages" type libraryHere er hvordan du får tilgang til programmet, session, respons forespørsel objekter: enhet Unit1; interfaceusesMtsObj, MTX, ComObj, dasp_TLB, ASPTypeLibrary_TLB, sysutils -typen TTTest = klasse (TMtsAutoObject, ITTest) beskyttet prosedyre Tellme; safecall; end; implementationuses comserv; const IID_IGetContextProperties: TGUID = {51372AF4-CAE7-11CF-BE81-00AA00A2FA25} '; prosedyre TTTest.Tellme; Var VTD: IDispatch; resp: Response; req: Request; ses: ISessionObject; CP: IGetContextProperties; srv: Server; app: IApplicationObject; begynne ObjectContext.QueryInterface (IID_IGetContextProperties, cp); IDispatch (cp.GetProperty ('Response')) QueryInterface (IID_IResponse, resp.); 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 tildelt (resp) og tildeles (req) og tildeles (SES) og tildeles (SRV) og tildeles (app), og start resp.Write ('Yahoo .. dette fungerer ..'); end, end, initialisering TAutoObjectFactory.Create (COMSERVER, TTTest, Class_TTest, ciMultiInstance, tmApartment);. slutten Anmeldelser