Unit web

Classes

TWebform -

Functions

Types

ClientRec
PClientRec
TMIMETable

Constants

DefaultHTML
HomePath
MaxBufferSize
message400
message404
message405
MIMETable
WWWPort

Variables

Webform


Functions


Types


ClientRec = record
Socket : integer;
BufLen : integer;
szBuff : PChar;
end;

PClientRec = ^ClientRec

TMIMETable = record
ext : string;
MIMEType : string;
end;
Public declarations

Constants

DefaultHTML = 'index.htm'

HomePath = '.'

MaxBufferSize = 8192

message400 = '400 Badly Formed Request'#13#10'

400 Badly Formed Request

'#13#10'The request had bad syntax or was inherently impossible to be satisfied.
'#13#10''#13#10#13#10

message404 = '404 Not Found'#13#10'

404 Not Found

'#13#10'The requested URL <%s> was not found on this server.
'#13#10''#13#10#13#10

message405 = '405 Unknown Method'#13#10'

405 Unknown Method

'#13#10'The requested method <%s> is not supported on this server.
'#13#10''#13#10#13#10

MIMETable = ( (ext: 'gif'; MIMEType: 'image/gif'), (ext: 'jpg'; MIMEType: 'image/jpg'), (ext: 'htm'; MIMEType: 'text/html'), (ext: 'html'; MIMEType: 'text/html'), (ext: 'txt'; MIMEType: 'text/plain'))

WWWPort = '80'


Variables

Webform : TWebform