Class TMy_ISAPI (unit MMYISAPI) |
Inherits from
TComponent
CONSTRUCTOR Create(AOwner: TComponent);
- Report error on exceptions
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
property Content_Type : STRING
property Header : STRING
Published declarations
event OnRequest : TNotifyEvent
fContent_Type : STRING;
fHeader : STRING;
fOnRequest : TNotifyEvent;
Private declarations
The_Ext : TISAPIExtension;
CONSTRUCTOR Create(AOwner: TComponent);
Report error on exceptions
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
property Content_Type : STRING
property Header : STRING
Published declarations
event OnRequest : TNotifyEvent
fContent_Type : STRING;
fHeader : STRING;
fOnRequest : TNotifyEvent;
Private declarations
The_Ext : TISAPIExtension;