Difference between revisions of "Unit HTTP"

Revision as of 01:03, 24 April 2018 (view source) Ultibo (Talk | contribs) ← Older edit		Revision as of 06:24, 17 May 2018 (view source) Ultibo (Talk | contribs) Newer edit →
Line 1,120:		Line 1,120:
−	'''HTTP buffer'''	+	'''HTTP helper classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>THTTPBuffer = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPBuffer|<code>THTTPBuffer = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create(ASize:LongWord);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FData:Pointer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FSize:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FCount:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FStart:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetCount:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Count:LongWord read GetCount;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure Clear;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadData:Char;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteData(AChar:Char):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadLock(var ASize:LongWord):Pointer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReadUnlock(ACount:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function WriteLock(var ASize:LongWord):Pointer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteUnlock(ACount:LongWord):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''HTTP parameter'''	+	'''HTTP common classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>THTTPParam = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create(const AName:String);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FHash:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FValue:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Name:String read FName;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Hash:LongWord read FHash;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>property Value:String read FValue write FValue;</code>	+	| [[THTTPParam|<code>THTTPParam = class(TListObject)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP parameters'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPParams = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPParams|<code>THTTPParams = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FParams:TLinkedObjList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>procedure Clear;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetParam(APrevious:THTTPParam):THTTPParam;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function FindParam(const AName:String):THTTPParam;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AddParam(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeleteParam(const AName:String):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP header'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPHeader = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPHeader|<code>THTTPHeader = class(TListObject)</code>]]
−	|-	+
−	| <code>constructor Create(const AName:String);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FHash:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FValues:TLinkedStringList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Name:String read FName;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Hash:LongWord read FHash;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetValue(AIndex:Integer):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SetValue(AIndex:Integer; const AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function FindValue(const AValue:String):Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AddValue(const AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeleteValue(const AValue:String):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP headers'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPHeaders = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPHeaders|<code>THTTPHeaders = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FHeaders:TLinkedObjList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>procedure Clear;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetHeader(APrevious:THTTPHeader):THTTPHeader;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function FindHeader(const AName:String):THTTPHeader;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AddHeader(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeleteHeader(const AName:String):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''HTTP client request'''	+	'''HTTP client classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>THTTPClientRequest = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPClientRequest|<code>THTTPClientRequest = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create(AClient:THTTPClient);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetLineSent:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetHeadersSent:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetContentSent:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>FClient:THTTPClient;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>URL:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Method:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Version:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>Params:THTTPParams;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Headers:THTTPHeaders;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>Protocol:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Host:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Port:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Path:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Query:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>ContentStream:TStream;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>ContentString:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>RedirectCount:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Client:THTTPClient read FClient;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property LineSent:Boolean read GetLineSent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property HeadersSent:Boolean read GetHeadersSent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ContentSent:Boolean read GetContentSent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Close:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Clear:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SetParam(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SetParamEx(const AName,AValue:String; AReplace:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SetHeader(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SetHeaderEx(const AName,AValue:String; AReplace:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function WriteRequest:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function WriteLine:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteHeaders:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteContentStream(AContent:TStream; ASize:LongWord; ACompleted:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteContentString(const AContent:String; ASize:LongWord; ACompleted:Boolean):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP client response'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPClientResponse = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPClientResponse|<code>THTTPClientResponse = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create(AClient:THTTPClient);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetContentReceived:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetNoCache:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetNoCache(ANoCache:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetConnectionClose:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetConnectionClose(AConnectionClose:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>FClient:THTTPClient;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>Reason:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Status:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Version:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>Headers:THTTPHeaders;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Client:THTTPClient read FClient;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property ContentReceived:Boolean read GetContentReceived;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property NoCache:Boolean read GetNoCache write SetNoCache;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ConnectionClose:Boolean read GetConnectionClose write SetConnectionClose;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Clear:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetHeader(const AName:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetHeaderEx(const AName:String):TStringList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindHeader(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadContentStream(AContent:TStream; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReadContentString(var AContent:String; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP client'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPClient = class(TWinsock2TCPClient)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPClient|<code>THTTPClient = class(TWinsock2TCPClient)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FState:LongWord;</code>	+
−	| Internal request state	+
−	|-	+
−	| <code>FBuffer:THTTPBuffer;</code>	+
−	| Buffer for received data	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FRequest:THTTPClientRequest;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FResponse:THTTPClientResponse;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FTimeout:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FUserAgent:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FAllowRedirect:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMaxRedirects:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FKeepAlive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FKeepAliveTimeout:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnRedirect:THTTPRedirectEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnPassword:THTTPPasswordEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FPort:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FUsername:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FPassword:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FProxyHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FProxyPort:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FProxyUsername:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FProxyPassword:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FURL:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMethod:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FVersion:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMimeType:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FRangeStart:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FRangeEnd:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FEncoding:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetTimeout(ATimeout:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetUserAgent:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetUserAgent(const AUserAgent:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetAllowRedirect(AAllowRedirect:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMaxRedirects(AMaxRedirects:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetKeepAlive(AKeepAlive:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetKeepAliveTimeout(AKeepAliveTimeout:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetHost(const AHost:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetPort:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetPort(const APort:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetUsername:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetUsername(const AUsername:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetPassword:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetPassword(const APassword:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetProxyHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProxyHost(const AProxyHost:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetProxyPort:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProxyPort(const AProxyPort:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetProxyUsername:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProxyUsername(const AProxyUsername:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetProxyPassword:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProxyPassword(const AProxyPassword:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetURL:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetURL(const AURL:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMethod(AMethod:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetVersion(AVersion:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetMimeType:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMimeType(const AMimeType:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetRangeStart(ARangeStart:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetRangeEnd(ARangeEnd:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetEncoding(AEncoding:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetResponseStatus:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetResponseReason:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetResponseVersion:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetResponseMimeType:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetResponseEncoding:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetResponseContentSize:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoRedirect(const AURL:String; var ALocation:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoPassword(var AUsername,APassword:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadResponseLine(AResponse:THTTPClientResponse):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReadResponseHeaders(AResponse:THTTPClientResponse):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReadResponseContentStream(AResponse:THTTPClientResponse; AContent:TStream; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReadResponseContentString(AResponse:THTTPClientResponse; var AContent:String; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function WriteRequestLine(ARequest:THTTPClientRequest):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteRequestHeaders(ARequest:THTTPClientRequest):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteRequestContentStream(ARequest:THTTPClientRequest; AContent:TStream; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteRequestContentString(ARequest:THTTPClientRequest; const AContent:String; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Request:THTTPClientRequest read FRequest;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Response:THTTPClientResponse read FResponse;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Timeout:LongWord read FTimeout write SetTimeout;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property UserAgent:String read GetUserAgent write SetUserAgent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property AllowRedirect:Boolean read FAllowRedirect write SetAllowRedirect;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property MaxRedirects:LongWord read FMaxRedirects write SetMaxRedirects;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property KeepAlive:Boolean read FKeepAlive write SetKeepAlive;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property KeepAliveTimeout:LongWord read FKeepAliveTimeout write SetKeepAliveTimeout;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnRedirect:THTTPRedirectEvent read FOnRedirect write FOnRedirect;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnPassword:THTTPPasswordEvent read FOnPassword write FOnPassword;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Host:String read GetHost write SetHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Port:String read GetPort write SetPort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Username:String read GetUsername write SetUsername;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Password:String read GetPassword write SetPassword;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property ProxyHost:String read GetProxyHost write SetProxyHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ProxyPort:String read GetProxyPort write SetProxyPort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ProxyUsername:String read GetProxyUsername write SetProxyUsername;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ProxyPassword:String read GetProxyPassword write SetProxyPassword;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property RequestURL:String read GetURL write SetURL;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RequestMethod:LongWord read FMethod write SetMethod;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RequestVersion:LongWord read FVersion write SetVersion;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RequestMimeType:String read GetMimeType write SetMimeType;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RequestRangeStart:LongWord read FRangeStart write SetRangeStart;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RequestRangeEnd:LongWord read FRangeEnd write SetRangeEnd;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RequestEncoding:LongWord read FEncoding write SetEncoding;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property ResponseStatus:LongWord read GetResponseStatus;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ResponseReason:String read GetResponseReason;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ResponseVersion:LongWord read GetResponseVersion;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ResponseMimeType:String read GetResponseMimeType;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ResponseEncoding:LongWord read GetResponseEncoding;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ResponseContentSize:LongWord read GetResponseContentSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Head(const AURL:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetString(const AURL:String; var AContent:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetStream(const AURL:String; AContent:TStream):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function PostString(const AURL:String; var AContent:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function PostStream(const AURL:String; AContent:TStream):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SendRequest:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function CloseRequest(Close:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ClearRequest:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function CancelRequest:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SetRequestParam(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SetRequestParamEx(const AName,AValue:String; AReplace:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SetRequestHeader(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SetRequestHeaderEx(const AName,AValue:String; AReplace:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SetRequestContentStream(AContent:TStream):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function AddRequestContentString(const AContent:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SetRequestContentString(const AContent:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetResponseHeader(const AName:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetResponseHeaderEx(const AName:String):TStringList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetResponseContentStream(AContent:TStream; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetResponseContentString(var AContent:String; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−
−	'''HTTP server request'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	'''HTTP server classes'''
−	<code>THTTPServerRequest = class(TObject)</code>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPServerRequest|<code>THTTPServerRequest = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create(AThread:TWinsock2TCPServerThread);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FThread:TWinsock2TCPServerThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetContentReceived:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>FListener:THTTPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>URL:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Method:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Version:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>Params:THTTPParams;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Headers:THTTPHeaders;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>Protocol:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Host:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Port:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Path:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Query:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>BasePath:String;</code>	+
−	| The base path of the document or alias matched to this request	+
−	|-	+
−	| <code>BaseHost:String;</code>	+
−	| The base name of the host or alias matched to this request	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Thread:TWinsock2TCPServerThread read FThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property ContentReceived:Boolean read GetContentReceived;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetParam(const AName:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetHeader(const AName:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetHeaderEx(const AName:String):TStringList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindHeader(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadContentStream(AContent:TStream; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReadContentString(var AContent:String; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP server response'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPServerResponse = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPServerResponse|<code>THTTPServerResponse = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create(AThread:TWinsock2TCPServerThread);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FThread:TWinsock2TCPServerThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetStatusSent:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetHeadersSent:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetContentSent:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetNoCache:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetNoCache(ANoCache:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetConnectionClose:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetConnectionClose(AConnectionClose:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>FListener:THTTPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>Reason:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Status:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>Version:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>Headers:THTTPHeaders;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>ContentStream:TStream;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>ContentString:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Thread:TWinsock2TCPServerThread read FThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property StatusSent:Boolean read GetStatusSent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property HeadersSent:Boolean read GetHeadersSent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ContentSent:Boolean read GetContentSent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property NoCache:Boolean read GetNoCache write SetNoCache;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ConnectionClose:Boolean read GetConnectionClose write SetConnectionClose;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SetHeader(const AName,AValue:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SetHeaderEx(const AName,AValue:String; AReplace:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function WriteResponse:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function WriteStatus:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteHeaders:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteContentStream(AContent:TStream; ASize:LongWord; ACompleted:Boolean):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteContentString(const AContent:String; ASize:LongWord; ACompleted:Boolean):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP host'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPHost = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPHost|<code>THTTPHost = class(TListObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FHash:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FDefaultMimeType:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FErrors:TLinkedList;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FAliases:TLinkedList;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FModules:TLinkedList;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FDocuments:TLinkedList;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMimeTypes:TLinkedList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnGet:THTTPHostEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnHead:THTTPHostEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnPost:THTTPHostEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnPut:THTTPHostEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnError:THTTPHostEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnRequest:THTTPHostEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnResponse:THTTPHostEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetName(const AName:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetFlags(AFlags:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetDefaultMimeType:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetDefaultMimeType(const ADefaultMimeType:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetIsDefault:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIsDefault(AIsDefault:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetIsDomain:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIsDomain(AIsDomain:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function MatchError(AStatus:LongWord):THTTPError; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function MatchDocument(const AName:String; var AAlias:THTTPAlias):THTTPDocument; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoGet(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoHead(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoPost(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoPut(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoError(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoRequest(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoResponse(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Name:String read GetName write SetName;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Hash:LongWord read FHash;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags write SetFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property IsDefault:Boolean read GetIsDefault write SetIsDefault;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property IsDomain:Boolean read GetIsDomain write SetIsDomain;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property DefaultMimeType:String read GetDefaultMimeType write SetDefaultMimeType;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnGet:THTTPHostEvent read FOnGet write FOnGet;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnHead:THTTPHostEvent read FOnHead write FOnHead;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnPost:THTTPHostEvent read FOnPost write FOnPost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnPut:THTTPHostEvent read FOnPut write FOnPut;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnError:THTTPHostEvent read FOnError write FOnError;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnRequest:THTTPHostEvent read FOnRequest write FOnRequest;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnResponse:THTTPHostEvent read FOnResponse write FOnResponse;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindError(AStatus:LongWord):THTTPError;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterError(AError:THTTPError):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterError(AError:THTTPError):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindAlias(const AName:String):THTTPAlias;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function MatchAlias(const AName:String):THTTPAlias; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterAlias(AAlias:THTTPAlias):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterAlias(AAlias:THTTPAlias):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetModule(APrevious:THTTPModule):THTTPModule;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function FindModule(AModule:THTTPModule):THTTPModule;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterModule(AModule:THTTPModule):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterModule(AModule:THTTPModule):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindDocument(const AName:String):THTTPDocument;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterDocument(ADocument:THTTPDocument):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterDocument(ADocument:THTTPDocument):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function LoadMimeTypes:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindMimeType(const AExtension:String):THTTPMimeType;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ResolveMimeType(const AExtension:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterMimeType(AMimeType:THTTPMimeType):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterMimeType(AMimeType:THTTPMimeType):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP error'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPError = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPError|<code>THTTPError = class(TListObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FStatus:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnError:THTTPErrorEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetFlags(AFlags:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetStatus(AStatus:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetIsDefault:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIsDefault(AIsDefault:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoError(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags write SetFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Status:LongWord read FStatus write SetStatus;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property IsDefault:Boolean read GetIsDefault write SetIsDefault;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnError:THTTPErrorEvent read FOnError write FOnError;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP alias'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPAlias = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPAlias|<code>THTTPAlias = class(TListObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TMutexHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FHash:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetName(const AName:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Name:String read GetName write SetName;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Hash:LongWord read FHash;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP module'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPModule = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnRequest:THTTPModuleEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnResponse:THTTPModuleEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetFlags(AFlags:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoRequest(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoResponse(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags write SetFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnRequest:THTTPModuleEvent read FOnRequest write FOnRequest;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>property OnResponse:THTTPModuleEvent read FOnResponse write FOnResponse;</code>	+	| [[THTTPModule|<code>THTTPModule = class(TListObject)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP document'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPDocument = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPDocument|<code>THTTPDocument = class(TListObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FHash:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FFlags:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FAliases:TLinkedList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnGet:THTTPDocumentEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnHead:THTTPDocumentEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnPost:THTTPDocumentEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnPut:THTTPDocumentEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetName:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetName(const AName:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetFlags(AFlags:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetIsDefault:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIsDefault(AIsDefault:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetIsFolder:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIsFolder(AIsFolder:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetIsSubtree:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIsSubtree(AIsSubtree:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetIsExtension:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIsExtension(AIsExtension:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoHead(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoPost(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoPut(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Name:String read GetName write SetName;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Hash:LongWord read FHash;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Flags:LongWord read FFlags write SetFlags;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property IsDefault:Boolean read GetIsDefault write SetIsDefault;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property IsFolder:Boolean read GetIsFolder write SetIsFolder;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property IsSubtree:Boolean read GetIsSubtree write SetIsSubtree;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property IsExtension:Boolean read GetIsExtension write SetIsExtension;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnGet:THTTPDocumentEvent read FOnGet write FOnGet;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnHead:THTTPDocumentEvent read FOnHead write FOnHead;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnPost:THTTPDocumentEvent read FOnPost write FOnPost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnPut:THTTPDocumentEvent read FOnPut write FOnPut;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindAlias(const AName:String):THTTPAlias;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function MatchAlias(const AName:String):THTTPAlias; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterAlias(AAlias:THTTPAlias):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterAlias(AAlias:THTTPAlias):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP mime type'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPMimeType = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPMimeType|<code>THTTPMimeType = class(TListObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TMutexHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FExtension:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FHash:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMimeType:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetExtension:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetExtension(const AExtension:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetMimeType:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMimeType(const AMimeType:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Extension:String read GetExtension write SetExtension;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Hash:LongWord read FHash;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property MimeType:String read GetMimeType write SetMimeType;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP redirect'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPRedirect = class(THTTPDocument)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPRedirect|<code>THTTPRedirect = class(THTTPDocument)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLocation:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FPermanent:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetLocation:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetLocation(const ALocation:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetPermanent(APermanent:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Location:String read GetLocation write SetLocation;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Permanent:Boolean read FPermanent write SetPermanent;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP folder'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPFolder = class(THTTPDocument)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPFolder|<code>THTTPFolder = class(THTTPDocument)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FFolder:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FIndexPage:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FAllowCache:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FAllowListing:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FAllowSubtree:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetFolder:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetFolder(const AFolder:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetIndexPage:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetIndexPage(const AIndexPage:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetAllowCache(AAllowCache:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetAllowListing(AAllowListing:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetAllowSubtree(AAllowSubtree:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoHead(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoGetFile(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; const AFile:String):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoGetFolder(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse; const AFolder:String):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Folder:String read GetFolder write SetFolder;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property IndexPage:String read GetIndexPage write SetIndexPage;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property AllowCache:Boolean read FAllowCache write SetAllowCache;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property AllowListing:Boolean read FAllowListing write SetAllowListing;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property AllowSubtree:Boolean read FAllowSubtree write SetAllowSubtree;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP file'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPFile = class(THTTPDocument)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[THTTPFile|<code>THTTPFile = class(THTTPDocument)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FFilename:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FAllowCache:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetFilename:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetFilename(const AFilename:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetAllowCache(AAllowCache:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DoHead(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Filename:String read GetFilename write SetFilename;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property AllowCache:Boolean read FAllowCache write SetAllowCache;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''HTTP listener'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>THTTPListener = class(TWinsock2TCPListener)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FHost:THTTPHost;</code>	+
−	| Default Host	+
−	|-	+
−	| <code>FHosts:TLinkedList;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FServer:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetServer:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetServer(const AServer:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure DoConnect(AThread:TWinsock2TCPServerThread); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure DoDisconnect(AThread:TWinsock2TCPServerThread); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoExecute(AThread:TWinsock2TCPServerThread):Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function MatchHost(const AName:String; var AAlias:THTTPAlias):THTTPHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetRequestLine(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetRequestHeaders(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetRequestContentStream(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest; AContent:TStream; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetRequestContentString(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest; var AContent:String; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SendResponseLine(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendResponseHeaders(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendResponseContentStream(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse; AContent:TStream; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendResponseContentString(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse; const AContent:String; ASize:LongWord):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Server:String read GetServer write SetServer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindHost(const AName:String):THTTPHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterHost(AHost:THTTPHost):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterHost(AHost:THTTPHost):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindError(const AHost:String; AStatus:LongWord):THTTPError;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterError(const AHost:String; AError:THTTPError):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterError(const AHost:String; AError:THTTPError):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetModule(const AHost:String; APrevious:THTTPModule):THTTPModule;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function FindModule(const AHost:String; AModule:THTTPModule):THTTPModule;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterModule(const AHost:String; AModule:THTTPModule):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterModule(const AHost:String; AModule:THTTPModule):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindDocument(const AHost,AName:String):THTTPDocument;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterDocument(const AHost:String; ADocument:THTTPDocument):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function DeregisterDocument(const AHost:String; ADocument:THTTPDocument):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function LoadMimeTypes(const AHost:String):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function FindMimeType(const AHost,AExtension:String):THTTPMimeType;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ResolveMimeType(const AHost,AExtension:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RegisterMimeType(const AHost:String; AMimeType:THTTPMimeType):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>function DeregisterMimeType(const AHost:String; AMimeType:THTTPMimeType):Boolean;</code>	+	| [[THTTPListener|<code>THTTPListener = class(TWinsock2TCPListener)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
	<br />		<br />

---

Revision as of 06:24, 17 May 2018

Return to Unit Reference

Description

---

Ultibo HTTP interface unit

To be documented

Constants

---

Type definitions

---

HTTP reserved chars

THTTPReservedChars = set of AnsiChar;

HTTP redirect event

THTTPRedirectEvent = function(AClient:THTTPClient; const AURL:String; var ALocation:String):Boolean of Object;

HTTP password event

THTTPPasswordEvent = function(AClient:THTTPClient; var AUsername,APassword:String):Boolean of Object;

HTTP host event

THTTPHostEvent = function(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean of Object;

HTTP error event

THTTPErrorEvent = function(AHost:THTTPHost; AError:THTTPError; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean of Object;

HTTP module event

THTTPModuleEvent = function(AHost:THTTPHost; AModule:THTTPModule; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean of Object;

HTTP document event

THTTPDocumentEvent = function(AHost:THTTPHost; ADocument:THTTPDocument; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean of Object;

Class definitions

---

HTTP helper classes

THTTPBuffer = class(TObject)

HTTP common classes

THTTPParam = class(TListObject)

THTTPParams = class(TObject)

THTTPHeader = class(TListObject)

THTTPHeaders = class(TObject)

HTTP client classes

THTTPClientRequest = class(TObject)

THTTPClientResponse = class(TObject)

THTTPClient = class(TWinsock2TCPClient)

HTTP server classes

THTTPServerRequest = class(TObject)

THTTPServerResponse = class(TObject)

THTTPHost = class(TListObject)

THTTPError = class(TListObject)

THTTPAlias = class(TListObject)

THTTPModule = class(TListObject)

THTTPDocument = class(TListObject)

THTTPMimeType = class(TListObject)

THTTPRedirect = class(THTTPDocument)

THTTPFolder = class(THTTPDocument)

THTTPFile = class(THTTPDocument)

THTTPListener = class(TWinsock2TCPListener)

Public variables

---

HTTP logging

HTTP_DEFAULT_LOG_LEVEL:LongWord = HTTP_LOG_LEVEL_DEBUG;

Minimum level for HTTP messages. Only messages with level greater than or equal to this will be printed.

HTTP_LOG_ENABLED:Boolean;

Function declarations

---

Initialization functions

HTTP helper functions

Return to Unit Reference