Class TCGIResponse (unit CGIApp2)

Inherits from

TWebResponse

Constructors


constructor Create(HTTPRequest: TWebRequest);

TCGIResponse


Functions

procedure SendRedirect(const URI: string);

Drop the stream

procedure SendResponse;


procedure SendStream(AStream: TStream);


function GetContent: string;


function GetDateVariable(Index: Integer): TDateTime;


function GetIntegerVariable(Index: Integer): Integer;


function GetLogMessage: string;


function GetStatusCode: Integer;

Result := TCGIRequest(HTTPRequest).

function GetStringVariable(Index: Integer): string;


function Sent: Boolean;


procedure SetContent(const Value: string);


procedure SetDateVariable(Index: Integer; const Value: TDateTime);


procedure SetIntegerVariable(Index: Integer; Value: Integer);


procedure SetLogMessage(const Value: string);


procedure SetStatusCode(Value: Integer);

StrPLCopy(TCGIRequest(HTTPRequest).

procedure SetStringVariable(Index: Integer; const Value: string);


Properties

Events

Variables

FContent : string;


FDateVariables : array[0..MAX_DATETIMES - 1] of TDateTime;


FIntegerVariables : array[0..MAX_INTEGERS - 1] of Integer;


FSent : Boolean;


FStatusCode : Integer;


FStringVariables : array[0..MAX_STRINGS - 1] of string;



Constructors


constructor Create(HTTPRequest: TWebRequest);

TCGIResponse


Functions


procedure SendRedirect(const URI: string);

Drop the stream


procedure SendResponse;


procedure SendStream(AStream: TStream);


function GetContent: string;


function GetDateVariable(Index: Integer): TDateTime;


function GetIntegerVariable(Index: Integer): Integer;


function GetLogMessage: string;


function GetStatusCode: Integer;

Result := TCGIRequest(HTTPRequest).ECB.lpszLogData;


function GetStringVariable(Index: Integer): string;


function Sent: Boolean;


procedure SetContent(const Value: string);


procedure SetDateVariable(Index: Integer; const Value: TDateTime);


procedure SetIntegerVariable(Index: Integer; Value: Integer);


procedure SetLogMessage(const Value: string);


procedure SetStatusCode(Value: Integer);

StrPLCopy(TCGIRequest(HTTPRequest).ECB.lpszLogData, Value, HSE_LOG_BUFFER_LEN);


procedure SetStringVariable(Index: Integer; const Value: string);


Properties


Events


Variables


FContent : string;


FDateVariables : array[0..MAX_DATETIMES - 1] of TDateTime;


FIntegerVariables : array[0..MAX_INTEGERS - 1] of Integer;


FSent : Boolean;


FStatusCode : Integer;


FStringVariables : array[0..MAX_STRINGS - 1] of string;