El acceso a objetos asp en delphi
en Este artículo se muestra cómo utilizar COM para acceder a objetos ASP, tales como la Sesión.
1. Crear un objeto MTS (en el Multinivel página 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 (sí .. lo has adivinado ... mira en el menú)
5. Importar el 'Microsoft Active Server Pages' biblioteca de tipo
Aquí es cómo usted consigue el acceso a la aplicación, sesión, 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
aplicación
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 aplicación : 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 ('Aplicación')).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 continuación,
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp resp.Escribir ('Yahoo .. esto funciona .. ')
& nbsp & nbsp final
fin
inicialización
& nbsp & nbsp TAutoObjectFactory.Crear(ComServer, TTTest, Class_TTest,
& nbsp & nbsp ciMultiInstance, tmApartment)
final.
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.
El acceso a objetos asp en delphi
By Consejos Y Trucos
El acceso a objetos asp en delphi : Multi-millones de consejos para hacer su vida más fácil.