Difference between revisions of "TWebStatusMain"

From Ultibo.org
Jump to: navigation, search
Line 271: Line 271:
  
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
−
<pre style="border: 0; padding-bottom:0px;">constructor TWebStatusMain.Create;</pre>
+
<pre style="border: 0; padding-bottom:0px;">constructor TWebStatusMain.Create(AListener:THTTPListener; const AHost,AURL:String; ARedirect:Boolean);</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
Line 320: Line 320:
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.GetCaption:String;</pre>
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.GetCaption:String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.GetHost:String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.GetFontName:String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TWebStatusMain.SetFontName(const AFontName:String);</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
Line 392: Line 428:
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.MakeLink(const AName,ALink:String):String;</pre>
 
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.MakeLink(const AName,ALink:String):String;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TWebStatusMain.AddRemoteAction(AResponse:THTTPServerResponse);</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">procedure TWebStatusMain.AddConfirmAction(AResponse:THTTPServerResponse);</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
Line 643: Line 703:
 
<br />
 
<br />
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
−
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.RegisterSubPage(ASub:TWebStatusSub):Boolean;</pre>
+
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.DoAuthenticate(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; var AAuthenticated:Boolean):Boolean;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.DoDeauthenticate(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; var ADeauthenticated:Boolean):Boolean;</pre>
 +
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 +
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.RegisterPage(APage:TWebStatusPage):Boolean;</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
Line 655: Line 739:
 
<br />
 
<br />
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
−
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.DeregisterSubPage(ASub:TWebStatusSub):Boolean;</pre>
+
<pre style="border: 0; padding-bottom:0px;">function TWebStatusMain.DeregisterPage(APage:TWebStatusPage):Boolean;</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">

Revision as of 00:38, 5 November 2025

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


Return to Unit Reference

Retrieved from "https://ultibo.org/mediawiki_ultibo_org/index.php?title=TWebStatusMain&oldid=6180"