El acceso a objetos asp en delphi

El acceso a objetos asp en delphi

El acceso a objetos asp en delphi : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra como utilizar COM para acceder a objetos ASP, tales como la Sesion.
1. Crear un objeto MTS (en el Multinivel pagina en Archivo->Nuevo...)
2. El nombre de lo que quieras (me llama la mina Prueba.t)
3. Agregar una llamada a procedimiento de Tellme (solo una prueba)
4. Registrar con MTS (si .. lo has adivinado ... mira en el menu)
5. Importar el 'Microsoft Active Server Pages' biblioteca de tipo

Aqui es como usted consigue el acceso a la aplicacion, sesion, respuesta, objetos de solicitud:

unit Unit1

interfaz

usos
MtsObj, Mtx, ComObj, dasp_TLB, ASPTypeLibrary_TLB, sysutils

tipo
& nbsp & nbsp TTTest = clase(TMtsAutoObject, ITTest)
& nbsp & nbsp protegido
& nbsp & nbsp procedimiento de Tellme safecall
& nbsp & nbsp final

aplicacion

utiliza ComServ

const IID_IGetContextProperties : TGUID = '{51372AF4-CAE7-11CF-BE81-00AA00A2FA25}'

procedimiento TTTest.Tellme
var
& nbsp & nbsp etv : IDispatch
& nbsp & nbsp resp : Respuesta
& nbsp & nbsp req : Solicitud
& nbsp & nbsp ses : ISessionObject
& nbsp & nbsp cp : IGetContextProperties
& nbsp & nbsp srv : el Servidor
& nbsp & nbsp aplicacion : IApplicationObject
begin
& nbsp & nbsp ObjectContext.QueryInterface(IID_IGetContextProperties,cp)
& nbsp & nbsp IDispatch(cp.GetProperty ('Respuesta')).QueryInterface(IID_IResponse,resp)
& nbsp & nbsp IDispatch(cp.GetProperty('Request')).QueryInterface(IID_IRequest,req)
& nbsp & nbsp IDispatch(cp.GetProperty('Session')).QueryInterface(IID_ISessionObject,ses)
& nbsp & nbsp IDispatch(cp.GetProperty ('Servidor')).QueryInterface(IID_IServer,srv)
& nbsp & nbsp IDispatch(cp.GetProperty ('Aplicacion')).QueryInterface(IID_IApplicationObject,App)

& nbsp & nbsp si se ha asignado(resp) y asignado(req) y asignado(ses) y asignado(srv)
& nbsp & nbsp & nbsp & nbsp y asignado(app), a continuacion,
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp resp.Escribir ('Yahoo .. esto funciona .. ')
& nbsp & nbsp final
fin

inicializacion
& nbsp & nbsp TAutoObjectFactory.Crear(ComServer, TTTest, Class_TTest,
& nbsp & nbsp ciMultiInstance, tmApartment)
final.