Difference between revisions of "Unit HTTP"

Revision as of 05:25, 24 March 2017

`HTTP_STATUS_NONE = 0;`
`HTTP_STATUS_CONTINUE = 100;`	Continue
`HTTP_STATUS_SWITCH_PROTOCOL = 101;`	Switching Protocols
`HTTP_STATUS_OK = 200;`	OK
`HTTP_STATUS_CREATED = 201;`	Created
`HTTP_STATUS_ACCEPTED = 202;`	Accepted
`HTTP_STATUS_NON_AUTHORITATIVE = 203;`	Non-Authoritative Information
`HTTP_STATUS_NO_CONTENT = 204;`	No Content
`HTTP_STATUS_RESET_CONTENT = 205;`	Reset Content
`HTTP_STATUS_PARTIAL_CONTENT = 206;`	Partial Content
`HTTP_STATUS_MULTIPLE_CHOICES = 300;`	Multiple Choices
`HTTP_STATUS_MOVED_PERMANENT = 301;`	Moved Permanently
`HTTP_STATUS_FOUND = 302;`	Found
`HTTP_STATUS_SEE_OTHER = 303;`	See Other
`HTTP_STATUS_NOT_MODIFIED = 304;`	Not Modified
`HTTP_STATUS_USE_PROXY = 305;`	Use Proxy
`HTTP_STATUS_TEMPORARY_REDIRECT = 307;`	Temporary Redirect
`HTTP_STATUS_BAD_REQUEST = 400;`	Bad Request
`HTTP_STATUS_UNAUTHORIZED = 401;`	Unauthorized
`HTTP_STATUS_PAYMENT_REQUIRED = 402;`	Payment Required
`HTTP_STATUS_FORBIDDEN = 403;`	Forbidden
`HTTP_STATUS_NOT_FOUND = 404;`	Not Found
`HTTP_STATUS_METHOD_NOT_ALLOWED = 405;`	Method Not Allowed
`HTTP_STATUS_NOT_ACCEPTABLE = 406;`	Not Acceptable
`HTTP_STATUS_PROXY_AUTH_REQUIRED = 407;`	Proxy Authentication Required
`HTTP_STATUS_REQUEST_TIMEOUT = 408;`	Request Time-out
`HTTP_STATUS_CONFLICT = 409;`	Conflict
`HTTP_STATUS_GONE = 410;`	Gone
`HTTP_STATUS_LENGTH_REQUIRED = 411;`	Length Required
`HTTP_STATUS_PRECONDITION_FAILED = 412;`	Precondition Failed
`HTTP_STATUS_ENTITY_TOO_LARGE = 413;`	Request Entity Too Large
`HTTP_STATUS_URI_TOO_LARGE = 414;`	Request-URI Too Large
`HTTP_STATUS_UNSUPPORTED_MEDIA = 415;`	Unsupported Media Type
`HTTP_STATUS_RANGE_NOT_SATISFIED = 416;`	Requested range not satisfiable
`HTTP_STATUS_EXPECTATION_FAILED = 417;`	Expectation Failed
`HTTP_STATUS_INTERNAL_SERVER_ERROR = 500;`	Internal Server Error
`HTTP_STATUS_NOT_IMPLEMENTED = 501;`	Not Implemented
`HTTP_STATUS_BAD_GATEWAY = 502;`	Bad Gateway
`HTTP_STATUS_SERICE_UNAVAILABLE = 503;`	Service Unavailable
`HTTP_STATUS_GATEWAY_TIMEOUT = 504;`	Gateway Time-out
`HTTP_STATUS_VERSION_NOT_SUPPORTED = 505;`	HTTP Version not supported

`HTTP_MIN_STATUS = 100;`
`HTTP_MAX_STATUS = 599;`

[Expand]

HTTP reason HTTP_REASON_*

[Expand]

HTTP content type HTTP_CONTENT_*

[Expand]

HTTP cache control HTTP_CACHE_*

[Expand]

HTTP connection HTTP_CONNECTION_*

[Expand]

HTTP request flag HTTP_REQUEST_FLAG_*

[Expand]

HTTP response flag HTTP_RESPONSE_FLAG_*

[Expand]

HTTP client state HTTP_CLIENT_STATE_*

[Expand]

HTTP host flag HTTP_HOST_FLAG_*

[Expand]

HTTP CGI flag HTTP_CGI_FLAG_*

[Expand]

HTTP error flag HTTP_ERROR_FLAG_*

[Expand]

HTTP module flag HTTP_MODULE_FLAG_*

[Expand]

HTTP document flag HTTP_DOCUMENT_FLAG_*

[Expand]

HTTP mime type HTTP_MIME_TYPE_*

[Expand]

HTTP logging 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)

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FState:LongWord;`	Internal request state
`FBuffer:THTTPBuffer;`	Buffer for received data

`FRequest:THTTPClientRequest;`
`FResponse:THTTPClientResponse;`

`FTimeout:LongWord;`
`FUserAgent:String;`
`FAllowRedirect:Boolean;`
`FMaxRedirects:LongWord;`
`FKeepAlive:Boolean;`
`FKeepAliveTimeout:LongWord;`

`FOnRedirect:THTTPRedirectEvent;`
`FOnPassword:THTTPPasswordEvent;`

`FHost:String;`
`FPort:String;`
`FUsername:String;`
`FPassword:String;`

`FProxyHost:String;`
`FProxyPort:String;`
`FProxyUsername:String;`
`FProxyPassword:String;`

`FURL:String;`
`FMethod:LongWord;`
`FVersion:LongWord;`
`FMimeType:String;`
`FRangeStart:LongWord;`
`FRangeEnd:LongWord;`
`FEncoding:LongWord;`

`procedure SetTimeout(ATimeout:LongWord);`
`function GetUserAgent:String;`
`procedure SetUserAgent(const AUserAgent:String);`
`procedure SetAllowRedirect(AAllowRedirect:Boolean);`
`procedure SetMaxRedirects(AMaxRedirects:LongWord);`
`procedure SetKeepAlive(AKeepAlive:Boolean);`
`procedure SetKeepAliveTimeout(AKeepAliveTimeout:LongWord);`

`function GetHost:String;`
`procedure SetHost(const AHost:String);`
`function GetPort:String;`
`procedure SetPort(const APort:String);`
`function GetUsername:String;`
`procedure SetUsername(const AUsername:String);`
`function GetPassword:String;`
`procedure SetPassword(const APassword:String);`

`function GetProxyHost:String;`
`procedure SetProxyHost(const AProxyHost:String);`
`function GetProxyPort:String;`
`procedure SetProxyPort(const AProxyPort:String);`
`function GetProxyUsername:String;`
`procedure SetProxyUsername(const AProxyUsername:String);`
`function GetProxyPassword:String;`
`procedure SetProxyPassword(const AProxyPassword:String);`

`function GetURL:String;`
`procedure SetURL(const AURL:String);`
`procedure SetMethod(AMethod:LongWord);`
`procedure SetVersion(AVersion:LongWord);`
`function GetMimeType:String;`
`procedure SetMimeType(const AMimeType:String);`
`procedure SetRangeStart(ARangeStart:LongWord);`
`procedure SetRangeEnd(ARangeEnd:LongWord);`
`procedure SetEncoding(AEncoding:LongWord);`

`function GetResponseStatus:LongWord;`
`function GetResponseReason:String;`
`function GetResponseVersion:LongWord;`
`function GetResponseMimeType:String;`
`function GetResponseEncoding:LongWord;`
`function GetResponseContentSize:LongWord;`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`function DoRedirect(const AURL:String; var ALocation:String):Boolean;`
`function DoPassword(var AUsername,APassword:String):Boolean;`

`function ReadResponseLine(AResponse:THTTPClientResponse):Boolean;`
`function ReadResponseHeaders(AResponse:THTTPClientResponse):Boolean;`
`function ReadResponseContentStream(AResponse:THTTPClientResponse; AContent:TStream; ASize:LongWord):Boolean;`
`function ReadResponseContentString(AResponse:THTTPClientResponse; var AContent:String; ASize:LongWord):Boolean;`

`function WriteRequestLine(ARequest:THTTPClientRequest):Boolean;`
`function WriteRequestHeaders(ARequest:THTTPClientRequest):Boolean;`
`function WriteRequestContentStream(ARequest:THTTPClientRequest; AContent:TStream; ASize:LongWord):Boolean;`
`function WriteRequestContentString(ARequest:THTTPClientRequest; const AContent:String; ASize:LongWord):Boolean;`
public
`property Request:THTTPClientRequest read FRequest;`
`property Response:THTTPClientResponse read FResponse;`

`property Timeout:LongWord read FTimeout write SetTimeout;`
`property UserAgent:String read GetUserAgent write SetUserAgent;`
`property AllowRedirect:Boolean read FAllowRedirect write SetAllowRedirect;`
`property MaxRedirects:LongWord read FMaxRedirects write SetMaxRedirects;`
`property KeepAlive:Boolean read FKeepAlive write SetKeepAlive;`
`property KeepAliveTimeout:LongWord read FKeepAliveTimeout write SetKeepAliveTimeout;`

`property OnRedirect:THTTPRedirectEvent read FOnRedirect write FOnRedirect;`
`property OnPassword:THTTPPasswordEvent read FOnPassword write FOnPassword;`

`property Host:String read GetHost write SetHost;`
`property Port:String read GetPort write SetPort;`
`property Username:String read GetUsername write SetUsername;`
`property Password:String read GetPassword write SetPassword;`

`property ProxyHost:String read GetProxyHost write SetProxyHost;`
`property ProxyPort:String read GetProxyPort write SetProxyPort;`
`property ProxyUsername:String read GetProxyUsername write SetProxyUsername;`
`property ProxyPassword:String read GetProxyPassword write SetProxyPassword;`

`property RequestURL:String read GetURL write SetURL;`
`property RequestMethod:LongWord read FMethod write SetMethod;`
`property RequestVersion:LongWord read FVersion write SetVersion;`
`property RequestMimeType:String read GetMimeType write SetMimeType;`
`property RequestRangeStart:LongWord read FRangeStart write SetRangeStart;`
`property RequestRangeEnd:LongWord read FRangeEnd write SetRangeEnd;`
`property RequestEncoding:LongWord read FEncoding write SetEncoding;`

`property ResponseStatus:LongWord read GetResponseStatus;`
`property ResponseReason:String read GetResponseReason;`
`property ResponseVersion:LongWord read GetResponseVersion;`
`property ResponseMimeType:String read GetResponseMimeType;`
`property ResponseEncoding:LongWord read GetResponseEncoding;`
`property ResponseContentSize:LongWord read GetResponseContentSize;`

`function Head(const AURL:String):Boolean;`

`function GetString(const AURL:String; var AContent:String):Boolean;`
`function GetStream(const AURL:String; AContent:TStream):Boolean;`

`function PostString(const AURL:String; var AContent:String):Boolean;`
`function PostStream(const AURL:String; AContent:TStream):Boolean;`

`function SendRequest:Boolean;`
`function CloseRequest:Boolean;`
`function ClearRequest:Boolean;`
`function CancelRequest:Boolean;`

`function SetRequestParam(const AName,AValue:String):Boolean;`
`function SetRequestParamEx(const AName,AValue:String; AReplace:Boolean):Boolean;`

`function SetRequestHeader(const AName,AValue:String):Boolean;`
`function SetRequestHeaderEx(const AName,AValue:String; AReplace:Boolean):Boolean;`

`function SetRequestContentStream(AContent:TStream):Boolean;`
`function AddRequestContentString(const AContent:String):Boolean;`
`function SetRequestContentString(const AContent:String):Boolean;`

`function GetResponseHeader(const AName:String):String;`
`function GetResponseHeaderEx(const AName:String):TStringList;`

`function GetResponseContentStream(AContent:TStream; ASize:LongWord):Boolean;`
`function GetResponseContentString(var AContent:String; ASize:LongWord):Boolean;`

HTTP server request

[Expand]

THTTPServerRequest = class(TObject)

HTTP server response

[Expand]

THTTPServerResponse = class(TObject)

HTTP host

[Expand]

THTTPHost = class(TListObject)

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FName:String;`
`FHash:LongWord;`
`FFlags:LongWord;`

`FDefaultMimeType:String;`

`FErrors:TLinkedList;`
`FAliases:TLinkedList;`
`FModules:TLinkedList;`
`FDocuments:TLinkedList;`
`FMimeTypes:TLinkedList;`

`FOnGet:THTTPHostEvent;`
`FOnHead:THTTPHostEvent;`
`FOnPost:THTTPHostEvent;`
`FOnPut:THTTPHostEvent;`
`FOnError:THTTPHostEvent;`

`FOnRequest:THTTPHostEvent;`
`FOnResponse:THTTPHostEvent;`

`function GetName:String;`
`procedure SetName(const AName:String);`
`procedure SetFlags(AFlags:LongWord);`

`function GetDefaultMimeType:String;`
`procedure SetDefaultMimeType(const ADefaultMimeType:String);`

`function GetIsDefault:Boolean;`
`procedure SetIsDefault(AIsDefault:Boolean);`
`function GetIsDomain:Boolean;`
`procedure SetIsDomain(AIsDomain:Boolean);`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`function MatchError(AStatus:LongWord):THTTPError; virtual;`
`function MatchDocument(const AName:String; var AAlias:THTTPAlias):THTTPDocument; virtual;`

`function DoGet(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoHead(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoPost(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoPut(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoError(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`

`function DoRequest(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoResponse(ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
public
`property Name:String read GetName write SetName;`
`property Hash:LongWord read FHash;`
`property Flags:LongWord read FFlags write SetFlags;`

`property IsDefault:Boolean read GetIsDefault write SetIsDefault;`
`property IsDomain:Boolean read GetIsDomain write SetIsDomain;`

`property DefaultMimeType:String read GetDefaultMimeType write SetDefaultMimeType;`

`property OnGet:THTTPHostEvent read FOnGet write FOnGet;`
`property OnHead:THTTPHostEvent read FOnHead write FOnHead;`
`property OnPost:THTTPHostEvent read FOnPost write FOnPost;`
`property OnPut:THTTPHostEvent read FOnPut write FOnPut;`
`property OnError:THTTPHostEvent read FOnError write FOnError;`

`property OnRequest:THTTPHostEvent read FOnRequest write FOnRequest;`
`property OnResponse:THTTPHostEvent read FOnResponse write FOnResponse;`

`function FindError(AStatus:LongWord):THTTPError;`

`function RegisterError(AError:THTTPError):Boolean;`
`function DeregisterError(AError:THTTPError):Boolean;`

`function FindAlias(const AName:String):THTTPAlias;`
`function MatchAlias(const AName:String):THTTPAlias; virtual;`

`function RegisterAlias(AAlias:THTTPAlias):Boolean;`
`function DeregisterAlias(AAlias:THTTPAlias):Boolean;`

`function GetModule(APrevious:THTTPModule):THTTPModule;`
`function FindModule(AModule:THTTPModule):THTTPModule;`

`function RegisterModule(AModule:THTTPModule):Boolean;`
`function DeregisterModule(AModule:THTTPModule):Boolean;`

`function FindDocument(const AName:String):THTTPDocument;`

`function RegisterDocument(ADocument:THTTPDocument):Boolean;`
`function DeregisterDocument(ADocument:THTTPDocument):Boolean;`

`function LoadMimeTypes:Boolean;`

`function FindMimeType(const AExtension:String):THTTPMimeType;`
`function ResolveMimeType(const AExtension:String):String;`

`function RegisterMimeType(AMimeType:THTTPMimeType):Boolean;`
`function DeregisterMimeType(AMimeType:THTTPMimeType):Boolean;`

HTTP error

[Expand]

THTTPError = class(TListObject)

HTTP alias

[Expand]

THTTPAlias = class(TListObject)

HTTP module

[Expand]

THTTPModule = class(TListObject)

HTTP document

[Expand]

THTTPDocument = class(TListObject)

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FName:String;`
`FHash:LongWord;`
`FFlags:LongWord;`

`FAliases:TLinkedList;`

`FOnGet:THTTPDocumentEvent;`
`FOnHead:THTTPDocumentEvent;`
`FOnPost:THTTPDocumentEvent;`
`FOnPut:THTTPDocumentEvent;`

`function GetName:String;`
`procedure SetName(const AName:String);`
`procedure SetFlags(AFlags:LongWord);`

`function GetIsDefault:Boolean;`
`procedure SetIsDefault(AIsDefault:Boolean);`
`function GetIsFolder:Boolean;`
`procedure SetIsFolder(AIsFolder:Boolean);`
`function GetIsSubtree:Boolean;`
`procedure SetIsSubtree(AIsSubtree:Boolean);`
`function GetIsExtension:Boolean;`
`procedure SetIsExtension(AIsExtension:Boolean);`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`function DoGet(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoHead(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoPost(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
`function DoPut(AHost:THTTPHost; ARequest:THTTPServerRequest; AResponse:THTTPServerResponse):Boolean; virtual;`
public
`property Name:String read GetName write SetName;`
`property Hash:LongWord read FHash;`
`property Flags:LongWord read FFlags write SetFlags;`

`property IsDefault:Boolean read GetIsDefault write SetIsDefault;`
`property IsFolder:Boolean read GetIsFolder write SetIsFolder;`
`property IsSubtree:Boolean read GetIsSubtree write SetIsSubtree;`
`property IsExtension:Boolean read GetIsExtension write SetIsExtension;`

`property OnGet:THTTPDocumentEvent read FOnGet write FOnGet;`
`property OnHead:THTTPDocumentEvent read FOnHead write FOnHead;`
`property OnPost:THTTPDocumentEvent read FOnPost write FOnPost;`
`property OnPut:THTTPDocumentEvent read FOnPut write FOnPut;`

`function FindAlias(const AName:String):THTTPAlias;`
`function MatchAlias(const AName:String):THTTPAlias; virtual;`

`function RegisterAlias(AAlias:THTTPAlias):Boolean;`
`function DeregisterAlias(AAlias:THTTPAlias):Boolean;`

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
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FHost:THTTPHost;`	Default Host
`FHosts:TLinkedList;`

`FServer:String;`

`function GetServer:String;`
`procedure SetServer(const AServer:String);`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`procedure DoConnect(AThread:TWinsock2TCPServerThread); override;`
`procedure DoDisconnect(AThread:TWinsock2TCPServerThread); override;`

`function DoExecute(AThread:TWinsock2TCPServerThread):Boolean; override;`

`function MatchHost(const AName:String; var AAlias:THTTPAlias):THTTPHost;`

`function GetRequestLine(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest):Boolean;`
`function GetRequestHeaders(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest):Boolean;`
`function GetRequestContentStream(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest; AContent:TStream; ASize:LongWord):Boolean;`
`function GetRequestContentString(AThread:TWinsock2TCPServerThread; ARequest:THTTPServerRequest; var AContent:String; ASize:LongWord):Boolean;`

`function SendResponseLine(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse):Boolean;`
`function SendResponseHeaders(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse):Boolean;`
`function SendResponseContentStream(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse; AContent:TStream; ASize:LongWord):Boolean;`
`function SendResponseContentString(AThread:TWinsock2TCPServerThread; AResponse:THTTPServerResponse; const AContent:String; ASize:LongWord):Boolean;`
public
`property Server:String read GetServer write SetServer;`

`function FindHost(const AName:String):THTTPHost;`

`function RegisterHost(AHost:THTTPHost):Boolean;`
`function DeregisterHost(AHost:THTTPHost):Boolean;`

`function FindError(const AHost:String; AStatus:LongWord):THTTPError;`

`function RegisterError(const AHost:String; AError:THTTPError):Boolean;`
`function DeregisterError(const AHost:String; AError:THTTPError):Boolean;`

`function GetModule(const AHost:String; APrevious:THTTPModule):THTTPModule;`
`function FindModule(const AHost:String; AModule:THTTPModule):THTTPModule;`

`function RegisterModule(const AHost:String; AModule:THTTPModule):Boolean;`
`function DeregisterModule(const AHost:String; AModule:THTTPModule):Boolean;`

`function FindDocument(const AHost,AName:String):THTTPDocument;`

`function RegisterDocument(const AHost:String; ADocument:THTTPDocument):Boolean;`
`function DeregisterDocument(const AHost:String; ADocument:THTTPDocument):Boolean;`

`function LoadMimeTypes(const AHost:String):Boolean;`

`function FindMimeType(const AHost,AExtension:String):THTTPMimeType;`
`function ResolveMimeType(const AHost,AExtension:String):String;`

`function RegisterMimeType(const AHost:String; AMimeType:THTTPMimeType):Boolean;`
`function DeregisterMimeType(const AHost:String; AMimeType:THTTPMimeType):Boolean;`

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;`