Class TMy_ISAPI (unit MMYISAPI)

Inherits from

TComponent

Constructors


CONSTRUCTOR Create(AOwner: TComponent);

Report error on exceptions


Functions

FUNCTION Current_Path : STRING;


CLASS FUNCTION Description : STRING;

Public declarations

IF Extension = Self THEN Extension := NIL;


DESTRUCTOR Destroy;

image/gif

function ExecutablePath:String;

)}

function FormVariable(const Key : string ) : string;


function FormVariableNames: TstringList;

image/gif

FUNCTION GetServerVariable(CONST str : STRING) : STRING;

raise Exception.

FUNCTION PATH_INFO : STRING;


PROCEDURE Put(str : STRING);


PROCEDURE PutLine(str : STRING);


FUNCTION QueryString : STRING;


PROCEDURE Request(var AECB: TEXTENSION_CONTROL_BLOCK);


PROCEDURE GetRequest;

Protected declarations

Properties

property Content_Type : STRING


property Header : STRING

Published declarations

Events

event OnRequest : TNotifyEvent


Variables

fContent_Type : STRING;


fHeader : STRING;


fOnRequest : TNotifyEvent;

Private declarations

The_Ext : TISAPIExtension;



Constructors


CONSTRUCTOR Create(AOwner: TComponent);

Report error on exceptions


Functions


FUNCTION Current_Path : STRING;


CLASS FUNCTION Description : STRING;

Public declarations

IF Extension = Self THEN Extension := NIL;


DESTRUCTOR Destroy;

image/gif


function ExecutablePath:String;

)}


function FormVariable(const Key : string ) : string;


function FormVariableNames: TstringList;

image/gif


FUNCTION GetServerVariable(CONST str : STRING) : STRING;

raise Exception.Create ('Only GET is supported currently') ;


FUNCTION PATH_INFO : STRING;


PROCEDURE Put(str : STRING);


PROCEDURE PutLine(str : STRING);


FUNCTION QueryString : STRING;


PROCEDURE Request(var AECB: TEXTENSION_CONTROL_BLOCK);


PROCEDURE GetRequest;

Protected declarations


Properties


property Content_Type : STRING


property Header : STRING

Published declarations


Events


event OnRequest : TNotifyEvent


Variables


fContent_Type : STRING;


fHeader : STRING;


fOnRequest : TNotifyEvent;

Private declarations


The_Ext : TISAPIExtension;