Difference between revisions of "Unit WebStatus"
| Line 1,352: | Line 1,352: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,364: | Line 1,364: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,379: | Line 1,379: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,391: | Line 1,391: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,403: | Line 1,403: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,415: | Line 1,415: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,427: | Line 1,427: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,439: | Line 1,439: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,451: | Line 1,451: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,463: | Line 1,463: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,475: | Line 1,475: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,487: | Line 1,487: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,499: | Line 1,499: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
| Line 1,511: | Line 1,511: | ||
| {| class="wikitable" style="font-size: 14px; background: white;" | {| class="wikitable" style="font-size: 14px; background: white;" | ||
| |- | |- | ||
| − | !  | + | ! Note | 
| | None documented | | None documented | ||
| |- | |- | ||
Revision as of 01:09, 25 April 2018
Return to Unit Reference
Contents
Description
Ultibo Web Status unit
To be documented
Constants
 RtlMaxUnits* | RtlMaxUnits = 1024; | See maxunits in system.inc | 
Type definitions
RTL initialize final record
TRtlInitFinalRec = record
| Note: See TInitFinalRec in system.inc | |
| InitProc:TProcedure; | |
| FinalProc:TProcedure; | |
RTL initialize final table
PRtlInitFinalTable = ^TRtlInitFinalTable;
TRtlInitFinalTable = record 
| Note: See TInitFinalTable in system.inc | |
| TableCount:LongWord; | |
| InitCount:LongWord; | |
| Procs:array[1..RtlMaxUnits] of TRtlInitFinalRec; | |
Web status data
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
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
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
TWebStatusPlatform = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status memory
TWebStatusMemory = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status heap
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
TWebStatusCPU = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status FPU
TWebStatusFPU = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status GPU
TWebStatusGPU = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status RTL
TWebStatusRTL = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status clock
TWebStatusClock = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status locale
TWebStatusLocale = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status threading
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
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
TWebStatusScheduler = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status devices
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
TWebStatusDrivers = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status handles
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
TWebStatusUSB = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status MMC
TWebStatusMMC = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status network
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
TWebStatusStorage = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status filesystem
TWebStatusFilesystem = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status cache
TWebStatusCache = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status keyboard
TWebStatusKeyboard = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status mouse
TWebStatusMouse = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status framebuffer
TWebStatusFramebuffer = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status environment
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
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
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
TWebStatusIRQFIQSWI = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status configuration
TWebStatusConfiguration = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status debug
TWebStatusDebug = class(TWebStatusSub)
| public | |
| constructor Create(AMain:TWebStatusMain); | |
| private | |
| protected | |
| function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override; | |
| public | |
Web status custom
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
function WebStatusRegister(AListener:THTTPListener; const AHost,AURL:String; ARedirect:Boolean):Boolean;
| Note | None documented | 
|---|
function WebStatusDeregister(AListener:THTTPListener; const AHost:String):Boolean;
| Note | None documented | 
|---|
Web status helper functions
function WebStatusDeviceEnumerate(Device:PDevice; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusDriverEnumerate(Driver:PDriver; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusHandleEnumerate(Handle:PHandleEntry; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusUSBDeviceEnumerate(Device:PUSBDevice; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusUSBHostEnumerate(Host:PUSBHost; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusUSBDriverEnumerate(Driver:PUSBDriver; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusMMCEnumerate(MMC:PMMCDevice; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusSDHCIEnumerate(SDHCI:PSDHCIHost; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusNetworkEnumerate(Network:PNetworkDevice; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusStorageEnumerate(Storage:PStorageDevice; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusMouseEnumerate(Mouse:PMouseDevice; Data:Pointer):LongWord;
| Note | None documented | 
|---|
function WebStatusKeyboardEnumerate(Keyboard:PKeyboardDevice; Data:Pointer):LongWord;
| Note | None documented | 
|---|
Return to Unit Reference

