Den Zugriff auf Asp-Objekte in delphi

Den Zugriff auf Asp-Objekte in delphi

Den Zugriff auf Asp-Objekte in delphi : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht das Verwenden von COM den Zugriff auf ASP Objekte wie Session.
1. Erstellen Sie ein Objekt MTS (Blick unter die Multi-Tier Seite Datei -> neu...)
2. nennen sie was Sie wollen (ich rief mir TTest)
3. Fügen Sie ein remote Procedure Call Tellme (nur Test)
4. registrieren Sie es mit MTS (yup... Sie haben es erraten.. Suchen im Menü)
5. Import der Typbibliothek 'Microsoft Active Server Pages'

Hier ist, wie man Zugriff auf die Anwendung, die Session, die Antwort, die Request-Objekte:

Einheit Unit1;

Schnittstelle

verwendet
MtsObj, Mtx, ComObj, Dasp_TLB, ASPTypeLibrary_TLB, Sysutils;

Typ
TTTest = Class (TMtsAutoObject, ITTest)
geschützt
Tellme Verfahren; Safecall;
Ende;

Umsetzung

comserver verwendet;

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

Prozedur TTTest.Tellme;
var
VTD: IDispatch;
Resp: Antwort;
Req: anfordern;
SES: ISessionObject;
CP: IGetContextProperties;
SRV: Server;
App: IApplicationObject;
beginnen
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);

Wenn assigned(resp) und assigned(req) und assigned(ses) assigned(srv)
und dann assigned(app)
beginnen
bzw. Schreiben ('Yahoo.. Dies funktioniert.. ');
Ende;
Ende;

Initialisierung
TAutoObjectFactory.Create (ComServer, TTTest, Class_TTest,
CiMultiInstance, TmApartment);
Ende.