Difference between revisions of "Unit WebStatus"
From Ultibo.org
| Line 1,318: | Line 1,318: | ||
<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 WebStatusDriverEnumerate(Driver:PDriver; Data:Pointer):LongWord;</pre> | <pre style="border: 0; padding-bottom:0px;">function WebStatusDriverEnumerate(Driver:PDriver; Data:Pointer):LongWord;</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 WebStatusHandleEnumerate(Handle:PHandleEntry; Data:Pointer):LongWord;</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 02:45, 7 August 2017
Return to Unit Reference
Contents
Description
Ultibo Web Status unit
To be documented
Constants
Web status specific 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: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: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
| |
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
| |
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 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
| |
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
None defined
Function declarations
Web status functions
function WebStatusRegister(AListener:THTTPListener; const AHost,AURL:String; ARedirect:Boolean):Boolean;
Description: To be documented
| Note | None documented |
|---|
function WebStatusDeregister(AListener:THTTPListener; const AHost:String):Boolean;
Description: To be documented
| Note | None documented |
|---|
Web status helper functions
function WebStatusDeviceEnumerate(Device:PDevice; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusDriverEnumerate(Driver:PDriver; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusHandleEnumerate(Handle:PHandleEntry; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusUSBDeviceEnumerate(Device:PUSBDevice; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusUSBHostEnumerate(Host:PUSBHost; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusUSBDriverEnumerate(Driver:PUSBDriver; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusMMCEnumerate(MMC:PMMCDevice; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusSDHCIEnumerate(SDHCI:PSDHCIHost; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusNetworkEnumerate(Network:PNetworkDevice; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusStorageEnumerate(Storage:PStorageDevice; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusMouseEnumerate(Mouse:PMouseDevice; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
function WebStatusKeyboardEnumerate(Keyboard:PKeyboardDevice; Data:Pointer):LongWord;
Description: To be documented
| Note | None documented |
|---|
Return to Unit Reference
