TWebform -
ClientRec
PClientRec
TMIMETable
DefaultHTML
HomePath
MaxBufferSize
message400
message404
message405
MIMETable
WWWPort
Webform
ClientRec = record
Socket : integer;
BufLen : integer;
szBuff : PChar;
end;
PClientRec = ^ClientRec
TMIMETable = record
ext : string;
MIMEType : string;
end;
Public declarations
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'
Webform : TWebform