TWebStatusMain
From Ultibo.org
Return to Unit WebStatus
Description
To be documented
Class definitions
TWebStatusMain = class(THTTPDocument)
public
| |
constructor Create(AListener:THTTPListener; const AHost,AURL:String; ARedirect:Boolean);
|
|
destructor Destroy; override;
|
|
private
| |
FTitle:String;
|
|
FCaption:String;
|
|
FPages:TStringList;
|
|
FLoginPage:TWebStatusLogin;
|
|
FLogoutPage:TWebStatusLogout;
|
|
FRedirectPage:THTTPRedirect;
|
|
FHost:String;
|
|
FListener:THTTPListener;
|
|
FFontName:String;
|
|
FAllowRestart:Boolean;
|
|
FAllowShutdown:Boolean;
|
|
function GetTitle:String;
|
|
procedure SetTitle(const ATitle:String);
|
|
function GetCaption:String;
|
|
function GetHost:String;
|
|
function GetFontName:String;
|
|
procedure SetFontName(const AFontName:String);
|
|
function NormalizedDateToStr(const DateTime:TDateTime):String;
|
|
function NormalizedTimeToStr(const DateTime:TDateTime):String;
|
|
function NormalizedDateTimeToStr(const DateTime:TDateTime):String;
|
|
function NormalizedIntervalToStr(const DateTime:TDateTime):String;
|
|
protected
| |
function MakeBold(const AName:String):String;
|
|
function MakeLink(const AName,ALink:String):String;
|
|
procedure AddRemoteAction(AResponse:THTTPServerResponse);
|
|
procedure AddConfirmAction(AResponse:THTTPServerResponse);
|
|
function AddBlank(AResponse:THTTPServerResponse):Boolean;
|
|
function AddBlankEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;
|
|
function AddItem(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;
|
|
function AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;
|
|
function AddItemSpan(AResponse:THTTPServerResponse; const AValue:String; AColumns:LongWord; ABreak:Boolean = True):Boolean;
|
|
function AddItemSpanEx(AResponse:THTTPServerResponse; const AValue:String; AColumns,AIndent:LongWord; ABreak:Boolean = True):Boolean;
|
|
function AddItem3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;
|
|
function AddItem4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;
|
|
function AddItem5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;
|
|
function AddBold(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;
|
|
function AddBoldEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;
|
|
function AddBold3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;
|
|
function AddBold4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;
|
|
function AddBold5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;
|
|
function AddHeader(AResponse:THTTPServerResponse; const ATitle:String; ASub:TWebStatusSub):Boolean;
|
|
function AddHeaderEx(AResponse:THTTPServerResponse; const ATitle,ACaption:String; ASub:TWebStatusSub; AColumns:LongWord):Boolean;
|
|
function AddFooter(AResponse:THTTPServerResponse):Boolean;
|
|
function AddFooterEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;
|
|
function AddContent(AResponse:THTTPServerResponse; const AContent:String):Boolean;
|
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
function DoAuthenticate(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; var AAuthenticated:Boolean):Boolean; override;
|
|
function DoDeauthenticate(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; var ADeauthenticated:Boolean):Boolean; override;
|
|
public
| |
property Title:String read GetTitle write SetTitle;
|
|
property Caption:String read GetCaption;
|
|
property Host:String read GetHost;
|
|
property Listener:THTTPListener read FListener;
|
|
property FontName:String read GetFontName write SetFontName;
|
|
property AllowRestart:Boolean read FAllowRestart write FAllowRestart;
|
|
property AllowShutdown:Boolean read FAllowShutdown write FAllowShutdown;
|
|
function RegisterPage(APage:TWebStatusPage):Boolean;
|
|
function DeregisterPage(APage:TWebStatusPage):Boolean;
|
|
function RegisterPages:Boolean;
|
|
function DeregisterPages:Boolean;
|
|
function EnableUserAuthentication(AUserAuthenticator:TAuthenticator):Boolean;
|
|
function EnableSessionAuthentication(AUserAuthenticator,ASessionAuthenticator:TAuthenticator):Boolean;
|
|
function DisableAuthentication:Boolean;
|
|
Function declarations
constructor TWebStatusMain.Create(AListener:THTTPListener; const AHost,AURL:String; ARedirect:Boolean);
Description: To be documented
| Note | None documented |
|---|
destructor TWebStatusMain.Destroy;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.GetTitle:String;
Description: To be documented
| Note | None documented |
|---|
procedure TWebStatusMain.SetTitle(const ATitle:String);
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.GetCaption:String;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.GetHost:String;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.GetFontName:String;
Description: To be documented
| Note | None documented |
|---|
procedure TWebStatusMain.SetFontName(const AFontName:String);
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.NormalizedDateToStr(const DateTime:TDateTime):String;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.NormalizedTimeToStr(const DateTime:TDateTime):String;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.NormalizedDateTimeToStr(const DateTime:TDateTime):String;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.NormalizedIntervalToStr(const DateTime:TDateTime):String;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.MakeBold(const AName:String):String;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.MakeLink(const AName,ALink:String):String;
Description: To be documented
| Note | None documented |
|---|
procedure TWebStatusMain.AddRemoteAction(AResponse:THTTPServerResponse);
Description: To be documented
| Note | None documented |
|---|
procedure TWebStatusMain.AddConfirmAction(AResponse:THTTPServerResponse);
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddBlank(AResponse:THTTPServerResponse):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddBlankEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddItem(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddItemEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddItemSpan(AResponse:THTTPServerResponse; const AValue:String; AColumns:LongWord; ABreak:Boolean):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddItemSpanEx(AResponse:THTTPServerResponse; const AValue:String; AColumns,AIndent:LongWord; ABreak:Boolean):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddItem3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddItem4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddItem5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddBold(AResponse:THTTPServerResponse; const AName,AValue:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddBoldEx(AResponse:THTTPServerResponse; const AName,AValue:String; AIndent:LongWord):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddBold3Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddBold4Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddBold5Column(AResponse:THTTPServerResponse; const AName,AValue1,AValue2,AValue3,AValue4:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddHeader(AResponse:THTTPServerResponse; const ATitle:String; ASub:TWebStatusSub):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddHeaderEx(AResponse:THTTPServerResponse; const ATitle,ACaption:String; ASub:TWebStatusSub; AColumns:LongWord):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddFooter(AResponse:THTTPServerResponse):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddFooterEx(AResponse:THTTPServerResponse; AColumns:LongWord):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.AddContent(AResponse:THTTPServerResponse; const AContent:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.DoAuthenticate(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; var AAuthenticated:Boolean):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.DoDeauthenticate(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; var ADeauthenticated:Boolean):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.RegisterPage(APage:TWebStatusPage):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.DeregisterPage(APage:TWebStatusPage):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.RegisterPages:Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.DeregisterPages:Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.EnableUserAuthentication(AUserAuthenticator:TAuthenticator):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.EnableSessionAuthentication(AUserAuthenticator,ASessionAuthenticator:TAuthenticator):Boolean;
Description: To be documented
| Note | None documented |
|---|
function TWebStatusMain.DisableAuthentication:Boolean;
Description: To be documented
| Note | None documented |
|---|
Return to Unit Reference
