ASP in Delphi, toegang tot doel, de demonstratie van het gebruik van voorwerpen, zoals de toegang tot de zitting van COM (.,, 1.Het creëren van een MTS objecten (zie pagina 's in meerdere documenten > nieuwe...), 2.Noem het wat je wilt, ik heet m 'n T - test), 3.De toevoeging van een programma is dat ik alleen maar een test), 4.De registratie van de BvS (is.Denk je datKijk de menu 's), 5.De invoer van Microsoft een actieve server pagina 's "- bibliotheek, hier is hoe je de zitting, op verzoek worden toegepast, de deelnemers:,,,, - eenheid zijn;, het gebruik, de mtsobj, methotrexaat, dasp_tlb ComObj, asptypelibrary_tlb SysUtils;,,,,, tttest = (tmtsautoobject, ittest), de bescherming van het programma vertelde me, de beveiliging bellen,,,,, aan het einde van de uitvoering van het gebruik van de,,,,, een totaal iid_igetcontextproperties:tguid =" {} "51372af4-cae7-11cf-be81-00aa00a2fa25;,, programma' s tttest. Vertel me, var, de VTD: idispatch;, respectievelijk: reactie vereist::;, isessionobject;, SES, CP;: igetcontextproperties;, srv: de server. Toepassing: iapplicationobject;,,, ObjectContext. zero (iid_igetcontextproperties, CP); en idispatch (cp.getproperty ('response zero ()).Iid_iresponse, resp.;, idispatch (cp.getproperty (op verzoek). (iid_irequest, zero, idispatch (zijn); cp.getproperty ('session ")). (iid_isessionobject, zero, idispatch (SES); cp.getproperty ('server") (iid_iserver. Zero, srv); en idispatch (cp.getproperty ('application ")). (iid_iapplicationobject zero, app); en, als de toewijzing en verdeling van respectievelijk (vraag) en de toewijzing (SES) en de toewijzing (srv), en de toewijzing van (App) en begon te schrijven, respectievelijk ('yahoo...Dit werkt... ")Tot slot, een einde te maken aan de;,;;,, starten, tautoobjectfactory. Het creëren van (comserver, tttest, class_ttest,, cimultiinstance, tmapartment), een einde te maken aan de.,,,