paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed some typing error in a type

Browse Source 
git-svn-id: trunk@7043 -
This commit is contained in:
michael 2007-03-31 21:04:22 +00:00
parent 9511c9ffd2
commit 27eedd4ff1
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-web/src/httpdefs.pp
View File

@ -75,10 +75,10 @@ const
Type
TTHttpFields = Array[1..NoHTTPFields] of string;
THttpFields = Array[1..NoHTTPFields] of string;
Const
HTTPFieldNames : TTHttpFields
HTTPFieldNames : THttpFields
= (fieldAccept, fieldAcceptCharset, fieldAcceptEncoding,
fieldAcceptLanguage, fieldAuthorization, fieldConnection,
fieldContentEncoding, fieldContentLanguage, fieldContentLength,
@ -172,7 +172,7 @@ type
FContentFields: TStrings;
FCookieFields: TStrings;
FHTTPVersion : String;
FFields : TTHttpFields;
FFields : THttpFields;
FQueryFields: TStrings;
function GetSetField(AIndex: Integer): String;
function GetSetFieldName(AIndex: Integer): String;
@ -212,7 +212,7 @@ type
property Connection: String Index 6 Read GetFieldValue Write SetFieldValue;
property ContentEncoding: String Index 7 Read GetFieldValue Write SetFieldValue;
property ContentLanguage: String Index 8 Read GetFieldValue Write SetFieldValue;
property ContentLength: Integer Read GetContentLength Write SetContentLength;
property ContentLength: Integer Read GetContentLength Write SetContentLength; // Index 9
property ContentType: String Index 10 Read GetFieldValue Write SetFieldValue;
property Cookie: String Index 11 Read GetFieldValue Write SetFieldValue;
property Date: String Index 12 Read GetFieldValue Write SetFieldValue;
@ -241,6 +241,11 @@ type
Property HTTPIfModifiedSince : String Index 15 read GetFieldValue Write SetFieldValue; // Maybe change to TDateTime ??
Property HTTPReferer : String Index 19 read GetFieldValue Write SetFieldValue;
Property HTTPUserAgent : String Index 23 read GetFieldValue Write SetFieldValue;
Property Method : String Index 31 read GetFieldValue Write SetFieldValue;
Property URL : String Index 32 read GetFieldValue Write SetFieldValue;
Property Query : String Index 33 read GetFieldValue Write SetFieldValue;
Property Host : String Index 34 Read GetFieldValue Write SetFieldValue;
Property Content : String Index 35 Read GetFieldValue Write SetFieldValue;
// Lists
Property CookieFields : TStrings Read FCookieFields Write SetCookieFields;
Property ContentFields: TStrings read FContentFields;
@ -259,12 +264,13 @@ type
FFiles : TUploadedFiles;
FReturnedPathInfo : String;
procedure ParseFirstHeaderLine(const line: String);override;
function GetFirstHeaderLine: String;
function GetFirstHeaderLine: String;
Protected
Procedure ProcessMultiPart(Stream : TStream; Const Boundary : String); virtual;
Procedure ProcessQueryString(Const FQueryString : String); virtual;
procedure ProcessURLEncoded(Stream : TStream); virtual;
Function GetTempUploadFileName : String; virtual;
Property ReturnedPathInfo : String Read FReturnedPathInfo Write FReturnedPathInfo;
public
constructor Create; override;
destructor destroy; override;