L'accès asp objets en delphi

L'acces asp objets en delphi

L'acces asp objets en delphi : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet article montre comment utiliser COM pour acceder ASP objets comme de la Session.
1. Creer un objet MTS (regardez sous les Couches de page dans le Fichier->Nouveau...)
2. Nommez tout ce que vous voulez (j'ai appele le mien test-t bilateral)
3. Ajoutez un appel de procedure Tellme (juste un test)
4. Enregistrer aupres de MTS (ouais .. vous l'avez devine .. regarde dans le menu)
5. L'importation de la 'Microsoft Active Server Pages' bibliotheque de type

Voici comment vous obtenez l'acces a l'application, la session, la reponse, objets de demande:

unit Unit1

interface


MtsObj, Mtx, ComObj, dasp_TLB, ASPTypeLibrary_TLB, sysutils

type
& nbsp & nbsp TTTest = classe(TMtsAutoObject, ITTest)
& nbsp & nbsp protege
& nbsp & nbsp procedure Tellme safecall
& nbsp & nbsp fin

application

utilise ComServ

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

procedure TTTest.Tellme
var
& nbsp & nbsp vtd : IDispatch
& nbsp & nbsp resp : Reponse
& nbsp & nbsp req : Demande
& nbsp & nbsp sse : ISessionObject
& nbsp & nbsp cp : IGetContextProperties
& nbsp & nbsp srv : le Serveur
& nbsp & nbsp application : IApplicationObject
begin
& nbsp & nbsp ObjectContext.QueryInterface(IID_IGetContextProperties,cp)
& nbsp & nbsp IDispatch(cp.GetProperty('Response')).QueryInterface(IID_IResponse,reee)
& 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 ('Serveur')).QueryInterface(IID_IServer,srv)
& nbsp & nbsp IDispatch(cp.GetProperty ('Application')).QueryInterface(IID_IApplicationObject,App)

& nbsp & nbsp si affecte(reee) et affecte(req) et affecte(ses) et affecte(srv)
& ! & ! & ! & nbsp et affecte(app)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp resp.Ecrire ('Yahoo .. cela fonctionne .. ')
& nbsp & nbsp fin
fin

initialisation
& nbsp & nbsp TAutoObjectFactory.Creer(ComServer, TTTest, Class_TTest,
& nbsp & nbsp ciMultiInstance, tmApartment)
a la fin.