Unit WABD_ISAPI

Classes

Functions

GetExtensionVersion - These functions are required to interface with ISAPI

**************************************************************** ISAPI Interface Functions
Hook_HttpExtensionProc - Description
HttpExtensionProc -
ISAPI_GetOneVar - These are ISAPI Help functions

**************************************************************** ISAPI Helper Functions
ISAPI_GetServerVars - TRACE('Server Variarble %-16s = %s', [VarName, Buf]);
Register_WABD_Callback -
RunningLocal -
SetRunLocal -

Types

TServerVar
TWABD_Callback

Constants

WABD_VersionName

Variables


Functions


function GetExtensionVersion(var Ver: THSE_VERSION_INFO):boolean;

These functions are required to interface with ISAPI

**************************************************************** ISAPI Interface Functions


function Hook_HttpExtensionProc(p: pointer):DWORD;

Description

function HttpExtensionProc( var ECB: TEXTENSION_CONTROL_BLOCK ):DWORD;


function ISAPI_GetOneVar(var ECB: TEXTENSION_CONTROL_BLOCK; const VarName: string): string;

These are ISAPI Help functions

**************************************************************** ISAPI Helper Functions


procedure ISAPI_GetServerVars(var ECB: TEXTENSION_CONTROL_BLOCK; var sv: TServerVar);

TRACE('Server Variarble %-16s = %s', [VarName, Buf]);

procedure Register_WABD_Callback(Callback: TWABD_Callback);


function RunningLocal: boolean;


procedure SetRunLocal(b: boolean);


Types


TServerVar = record
REMOTE_ADDR : string;
REMOTE_HOST : string;
REMOTE_USER : string;
SERVER_NAME : string;
SERVER_PORT : string;
SERVER_PROTOCOL : string;
SERVER_SOFTWARE : string;
SCRIPT_NAME : string;
end;

TWABD_Callback = function(var ECB: TEXTENSION_CONTROL_BLOCK):string of object

Constants

WABD_VersionName = 'Web Application Builder for Delphi v1.00'


Variables