Return to Unit Reference
Description
Ultibo Web Status unit
To be documented
Constants
[Expand]
Web status specific constants RtlMaxUnits*
RtlMaxUnits = 1024;
|
See maxunits in system.inc
|
Type definitions
RTL initialize final record
[Expand]
TRtlInitFinalRec = record
| Note: See TInitFinalRec in system.inc
|
InitProc:TProcedure;
|
|
FinalProc:TProcedure;
|
|
RTL initialize final table
[Expand]
PRtlInitFinalTable = ^TRtlInitFinalTable;
TRtlInitFinalTable = record
| Note: See TInitFinalTable in system.inc
|
TableCount:LongWord;
|
|
InitCount:LongWord;
|
|
Procs:array[1..RtlMaxUnits] of TRtlInitFinalRec;
|
|
Web status data
[Expand]
PWebStatusData = ^TWebStatusData;
TWebStatusData = record
Document:TWebStatusSub;
|
|
Host:THTTPHost;
|
|
Request:THTTPServerRequest;
|
|
Response:THTTPServerResponse;
|
|
Web status content
TWebStatusContent = function(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean of Object;
|
|
Class definitions
Web status main
[Expand]
TWebStatusMain = class(THTTPDocument)
public
|
constructor Create;
|
|
destructor Destroy; override;
|
|
private
|
FTitle:String;
|
|
FCaption:String;
|
|
FSubPages:TStringList;
|
|
|
|
function GetTitle:String;
|
|
procedure SetTitle(const ATitle:String);
|
|
function GetCaption:String;
|
|
|
|
function NormalizedDateTimeToStr(const DateTime:TDateTime):String;
|
|
protected
|
function MakeBold(const AName:String):String;
|
|
function MakeLink(const AName,ALink:String):String;
|
|
|
|
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 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;
|
|
public
|
property Title:String read GetTitle write SetTitle;
|
|
property Caption:String read GetCaption;
|
|
|
|
function RegisterSubPage(ASub:TWebStatusSub):Boolean;
|
|
function DeregisterSubPage(ASub:TWebStatusSub):Boolean;
|
|
Web status sub
[Expand]
TWebStatusSub = class(THTTPDocument)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
destructor Destroy; override;
|
|
private
|
FMain:TWebStatusMain;
|
|
|
|
function GetTitle:String;
|
|
function GetCaption:String;
|
|
|
|
function NormalizedDateTimeToStr(const DateTime:TDateTime):String;
|
|
protected
|
FCaption:String;
|
|
|
|
function MakeBold(const AName:String):String;
|
|
function MakeLink(const AName,ALink:String):String;
|
|
|
|
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 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;
|
|
public
|
property Main:TWebStatusMain read FMain;
|
|
property Caption:String read GetCaption;
|
|
Web status platform
[Expand]
TWebStatusPlatform = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status memory
[Expand]
TWebStatusMemory = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status heap
[Expand]
TWebStatusHeap = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
function FlagsToFlagName(AFlags:LongWord):String;
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status CPU
[Expand]
TWebStatusCPU = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status FPU
[Expand]
TWebStatusFPU = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status GPU
[Expand]
TWebStatusGPU = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status RTL
[Expand]
TWebStatusRTL = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status clock
[Expand]
TWebStatusClock = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status locale
[Expand]
TWebStatusLocale = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status threading
[Expand]
TWebStatusThreading = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status thread list
[Expand]
TWebStatusThreadList = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
function FlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
function AffinityToAffinityNames(AAffinity:LongWord):TStringList;
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status scheduler
[Expand]
TWebStatusScheduler = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status devices
[Expand]
TWebStatusDevices = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
function ClockFlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
function TimerFlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
function RandomFlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
function MailboxFlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
function WatchdogFlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status drivers
[Expand]
TWebStatusDrivers = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status handles
[Expand]
TWebStatusHandles = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
function FlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status USB
[Expand]
TWebStatusUSB = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status MMC
[Expand]
TWebStatusMMC = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status network
[Expand]
TWebStatusNetwork = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
function NetworkFlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status storage
[Expand]
TWebStatusStorage = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status filesystem
[Expand]
TWebStatusFilesystem = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status cache
[Expand]
TWebStatusCache = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status keyboard
[Expand]
TWebStatusKeyboard = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status mouse
[Expand]
TWebStatusMouse = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status framebuffer
[Expand]
TWebStatusFramebuffer = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status environment
[Expand]
TWebStatusEnvironment = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status page tables
[Expand]
TWebStatusPageTables = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
function FlagsToFlagNames(AFlags:LongWord):TStringList;
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status vector tables
[Expand]
TWebStatusVectorTables = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status IRQ/FIQ/SWI
[Expand]
TWebStatusIRQFIQSWI = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status configuration
[Expand]
TWebStatusConfiguration = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status debug
[Expand]
TWebStatusDebug = class(TWebStatusSub)
public
|
constructor Create(AMain:TWebStatusMain);
|
|
private
|
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
public
|
|
|
Web status custom
[Expand]
TWebStatusCustom = class(TWebStatusSub)
public
|
constructor Create(const AName,APath:String; AColumns:LongWord);
|
|
private
|
FColumns:LongWord;
|
|
protected
|
function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;
|
|
|
|
function DoContent(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;
|
|
public
|
property Columns:LongWord read FColumns write FColumns;
|
|
|
|
property OnContent:TWebStatusContent read FOnContent write FOnContent;
|
|
Public variables
Web status specific variables
WEBSTATUS_FONT_NAME:String = 'Arial';
|
|
WEBSTATUS_HEAP_FREE_COUNT:LongWord = 250;
|
Maximum number of free heap blocks to display
|
WEBSTATUS_HEAP_USED_COUNT:LongWord = 250;
|
Maximum number of used heap blocks to display
|
Function declarations
Web status functions
[Expand]
function WebStatusRegister(AListener:THTTPListener; const AHost,AURL:String; ARedirect:Boolean):Boolean;
Description: To be documented
[Expand]
function WebStatusDeregister(AListener:THTTPListener; const AHost:String):Boolean;
Description: To be documented
Web status helper functions
[Expand]
function WebStatusDeviceEnumerate(Device:PDevice; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusDriverEnumerate(Driver:PDriver; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusHandleEnumerate(Handle:PHandleEntry; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusUSBDeviceEnumerate(Device:PUSBDevice; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusUSBHostEnumerate(Host:PUSBHost; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusUSBDriverEnumerate(Driver:PUSBDriver; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusMMCEnumerate(MMC:PMMCDevice; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusSDHCIEnumerate(SDHCI:PSDHCIHost; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusNetworkEnumerate(Network:PNetworkDevice; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusStorageEnumerate(Storage:PStorageDevice; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusMouseEnumerate(Mouse:PMouseDevice; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function WebStatusKeyboardEnumerate(Keyboard:PKeyboardDevice; Data:Pointer):LongWord;
Description: To be documented
Return to Unit Reference
