Difference between revisions of "Unit HTTP"

From Ultibo.org
Jump to: navigation, search
Line 1,116: Line 1,116:
 
----
 
----
  
−
''To be documented''
+
 
 +
'''HTTP buffer'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<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>
 +
|-
 +
| <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'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<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"|&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>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''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>
 +
|-
 +
| <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"|&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> 
 +
 
 +
'''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>
 +
|-
 +
| <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"|&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>
 +
 
 +
'''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>
 +
|-
 +
| <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"|&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'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<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>
 +
|-
 +
| <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"|&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 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>
 +
 
 +
'''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>
 +
|-
 +
| <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"|&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>
 +
 
 +
'''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>
 +
|-
 +
| <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: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;">
 +
 
 +
<code>THTTPServerRequest = 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>
 +
|-
 +
| <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"|&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>
 +
 
 +
'''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>
 +
|-
 +
| <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"|&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>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
|-
 +
| <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>
 +
 
 +
'''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>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
<br />
  
 
=== Public variables ===
 
=== Public variables ===

Revision as of 00:00, 15 March 2017

Return to Unit Reference


Description

Ultibo HTTP interface unit

To be documented

Constants


[Expand]
HTTP specific constants HTTP_*


[Expand]
HTTP date constants HTTP_DATE_*


[Expand]
HTTP client constants HTTP_*


[Expand]
HTTP server constants HTTP_SERVER_*


[Expand]
HTTP protocol constants HTTP_PROTOCOL_*


[Expand]
HTTP method constants HTTP_METHOD_*


[Expand]
HTTP version constants HTTP_VERSION_*


[Expand]
HTTP encoding constants HTTP_ENCODING_*


[Expand]
HTTP general header constants HTTP_GENERAL_HEADER_*


[Expand]
HTTP request header constants HTTP_REQUEST_HEADER_*


[Expand]
HTTP response header constants HTTP_RESPONSE_HEADER_*


[Expand]
HTTP entity header constants HTTP_ENTITY_HEADER_*


[Expand]
HTTP status constants HTTP_STATUS_*


[Expand]
HTTP reason constants HTTP_REASON_*


[Expand]
HTTP content type constants HTTP_CONTENT_*


[Expand]
HTTP cache control constants HTTP_CACHE_*


[Expand]
HTTP connection constants HTTP_CONNECTION_*


[Expand]
HTTP request flag constants HTTP_REQUEST_FLAG_*


[Expand]
HTTP response flag constants HTTP_RESPONSE_FLAG_*


[Expand]
HTTP client state constants HTTP_CLIENT_STATE_*


[Expand]
HTTP host flag constants HTTP_HOST_FLAG_*


[Expand]
HTTP CGI flag constants HTTP_CGI_FLAG_*


[Expand]
HTTP error flag constants HTTP_ERROR_FLAG_*


[Expand]
HTTP module flag constants HTTP_MODULE_FLAG_*


[Expand]
HTTP document flag constants HTTP_DOCUMENT_FLAG_*


[Expand]
HTTP mime type constants HTTP_MIME_TYPE_*


[Expand]
HTTP logging constants HTTP_LOG_LEVEL_*


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 buffer

[Expand]

THTTPBuffer = class(TObject)

HTTP parameter

[Expand]

THTTPParam = class(TListObject)

HTTP parameters

[Expand]

THTTPParams = class(TObject)

HTTP header

[Expand]

THTTPHeader = class(TListObject)

HTTP headers

[Expand]

THTTPHeaders = class(TObject)

HTTP client request

[Expand]

THTTPClientRequest = class(TObject)

HTTP client response

[Expand]

THTTPClientResponse = class(TObject)

HTTP client

[Expand]

THTTPClient = class(TWinsock2TCPClient)

HTTP server request

[Expand]

THTTPServerRequest = class(TObject)

HTTP server response

[Expand]

THTTPServerResponse = class(TObject)

HTTP host

[Expand]

THTTPHost = class(TListObject)

HTTP error

[Expand]

THTTPError = class(TListObject)

HTTP alias

[Expand]

THTTPAlias = class(TListObject)

HTTP module

[Expand]

THTTPModule = class(TListObject)

HTTP document

[Expand]

THTTPDocument = class(TListObject)

HTTP mime type

[Expand]

THTTPMimeType = class(TListObject)

HTTP redirect

[Expand]

THTTPRedirect = class(THTTPDocument)

HTTP folder

[Expand]

THTTPFolder = class(THTTPDocument)

HTTP file

[Expand]

THTTPFile = class(THTTPDocument)

HTTP listener

[Expand]

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

[Expand] 
procedure HTTPInit;
Description: To be documented


HTTP helper functions

[Expand] 
function HTTPEncode(const AValue:String; AReserved:THTTPReservedChars):String;
Description: To be documented


[Expand] 
function HTTPDecode(const AValue:String):String;
Description: To be documented


[Expand] 
function HTTPParseURI(const AURI:String; var AProtocol,AHost,APort,APath,AQuery:String):Boolean;
Description: To be documented


[Expand] 
function HTTPBuildURI(const AProtocol,AHost,APort,APath,AQuery:String; var AURI:String):Boolean;
Description: To be documented


[Expand] 
function HTTPParseHost(const AHost:String; var AName,APort:String):Boolean;
Description: To be documented


[Expand] 
function HTTPBuildHost(const AName,APort:String; var AHost:String):Boolean;
Description: To be documented


[Expand] 
function HTTPParseParam(const AParam:String; var AName,AValue:String):Boolean;
Description: To be documented


[Expand] 
function HTTPBuildParam(const AName,AValue:String; var AParam:String):Boolean;
Description: To be documented


[Expand] 
function HTTPParseQuery(const AQuery:String; AParams:THTTPParams):Boolean;
Description: To be documented


[Expand] 
function HTTPBuildQuery(AParams:THTTPParams; var AQuery:String):Boolean;
Description: To be documented


[Expand] 
function HTTPParseHeader(const AHeader:String; var AName,AValue:String):Boolean;
Description: To be documented


[Expand] 
function HTTPBuildHeader(const AName,AValue:String; var AHeader:String):Boolean;
Description: To be documented


[Expand] 
function HTTPPathExtractName(const ASource:String; var AName:String):Boolean;
Description: To be documented


[Expand] 
function HTTPPathExtractDir(const ASource:String; var APath:String):Boolean;
Description: To be documented


[Expand] 
function HTTPPathExtractPath(const ASource:String; var APath:String):Boolean;
Description: To be documented


[Expand] 
function HTTPPathExtractExtension(const ASource:String; var AExtension:String):Boolean;
Description: To be documented


[Expand] 
function HTTPParseRequestLine(const ARequest:String; var AMethod:LongWord; var AURL:String; var AVersion:LongWord):Boolean;
Description: To be documented


[Expand] 
function HTTPBuildRequestLine(AMethod:LongWord; const AURL:String; AVersion:LongWord; var ARequest:String):Boolean;
Description: To be documented


[Expand] 
function HTTPParseResponseLine(const AResponse:String; var AVersion,AStatus:LongWord; var AReason:String):Boolean;
Description: To be documented


[Expand] 
function HTTPBuildResponseLine(AVersion,AStatus:LongWord; const AReason:String; var AResponse:String):Boolean;
Description: To be documented


[Expand] 
function FileTimeToHTTPDate(const AFileTime:TFileTime):String;
Description: To be documented


[Expand] 
function HTTPDateToFileTime(const AHTTPDate:String):TFileTime;
Description: To be documented


[Expand] 
function DateTimeToHTTPDate(const ADateTime:TDateTime):String;
Description: To be documented


[Expand] 
function HTTPDateToDateTime(const AHTTPDate:String):TDateTime;
Description: To be documented


[Expand] 
function StringToHTTPProtocol(const AProtocol:String):LongWord;
Description: To be documented


[Expand] 
function HTTPProtocolToString(AProtocol:LongWord):String;
Description: To be documented


[Expand] 
function StringToHTTPMethod(const AMethod:String):LongWord;
Description: To be documented


[Expand] 
function HTTPMethodToString(AMethod:LongWord):String;
Description: To be documented


[Expand] 
function StringToHTTPVersion(const AVersion:String):LongWord;
Description: To be documented


[Expand] 
function HTTPVersionToString(AVersion:LongWord):String;
Description: To be documented


[Expand] 
function StringToHTTPEncoding(const AEncoding:String):LongWord;
Description: To be documented


[Expand] 
function HTTPEncodingToString(AEncoding:LongWord):String;
Description: To be documented


[Expand] 
function StringToHTTPStatus(const AStatus:String):LongWord;
Description: To be documented


[Expand] 
function HTTPStatusToString(AStatus:LongWord):String;
Description: To be documented


[Expand] 
procedure HTTPLog(Level:LongWord;const AText:String);
Description: To be documented


[Expand] 
procedure HTTPLogInfo(const AText:String);
Description: To be documented


[Expand] 
procedure HTTPLogError(const AText:String);
Description: To be documented


[Expand] 
procedure HTTPLogDebug(const AText:String);
Description: To be documented


Return to Unit Reference

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