THTTPLogin

Return to Unit HTTP

Description

---

To be documented

Class definitions

---

THTTPLogin = class(THTTPDocument)

public
constructor Create;
private
FTitle:String;	The page title shown in the browser (Default: 'Login')
FFormName:String;	The name to use for the form in HTML content (Default: 'loginForm')
FUsernameName:String;	The parameter name to use for the username in form parameters (Default: 'username')
FPasswordName:String;	The parameter name to use for the password in form parameters (Default: 'password')
FReturnURLName:String;	The parameter name to use for the return URL in request URLs (Default: 'returnurl')
function GetTitle:String;
procedure SetTitle(const ATitle:String);
function GetFormName:String;
procedure SetFormName(const AName:String);
function GetUsernameName:String;
procedure SetUsernameName(const AName:String);
function GetPasswordName:String;
procedure SetPasswordName(const AName:String);
function GetReturnURLName:String;
procedure SetReturnURLName(const AName:String);
protected
function FindUserAuthenticator(AHost:THTTPHost; ARequest:THTTPServerRequest):TAuthenticator;
function FindSessionAuthenticator(AHost:THTTPHost; ARequest:THTTPServerRequest):TAuthenticator;
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
function DoPost(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
function AddHeader(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;
function AddForm(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;
function AddScript(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;
function AddFooter(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;
public
property Title:String read GetTitle write SetTitle;
property FormName:String read GetFormName write SetFormName;
property UsernameName:String read GetUsernameName write SetUsernameName;
property PasswordName:String read GetPasswordName write SetPasswordName;
property ReturnURLName:String read GetReturnURLName write SetReturnURLName;

Function declarations

---

constructor THTTPLogin.Create;

Description: To be documented

Note	None documented

function THTTPLogin.GetTitle:String;

Description: To be documented

Note	None documented

procedure THTTPLogin.SetTitle(const ATitle:String);

Description: To be documented

Note	None documented

function THTTPLogin.GetReturnURLName:String;

Description: To be documented

Note	None documented

procedure THTTPLogin.SetReturnURLName(const AName:String);

Description: To be documented

Note	None documented

function THTTPLogin.GetFormName:String;

Description: To be documented

Note	None documented

procedure THTTPLogin.SetFormName(const AName:String);

Description: To be documented

Note	None documented

function THTTPLogin.GetUsernameName:String;

Description: To be documented

Note	None documented

procedure THTTPLogin.SetUsernameName(const AName:String);

Description: To be documented

Note	None documented

function THTTPLogin.GetPasswordName:String;

Description: To be documented

Note	None documented

procedure THTTPLogin.SetPasswordName(const AName:String);

Description: To be documented

Note	None documented

function THTTPLogin.FindUserAuthenticator(AHost:THTTPHost; ARequest:THTTPServerRequest):TAuthenticator;

Description: To be documented

Note	None documented

function THTTPLogin.FindSessionAuthenticator(AHost:THTTPHost; ARequest:THTTPServerRequest):TAuthenticator;

Description: To be documented

Note	None documented

function THTTPLogin.DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;

Description: To be documented

Note	None documented

function THTTPLogin.DoPost(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;

Description: Base POST Method for an HTTP Login

Note	None documented

function THTTPLogin.AddHeader(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;

Description: To be documented

Note	None documented

function THTTPLogin.AddForm(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;

Description: To be documented

Note	None documented

function THTTPLogin.AddScript(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;

Description: To be documented

Note	None documented

function THTTPLogin.AddFooter(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;

Description: To be documented

Note	None documented

Return to Unit Reference