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

* Added THTTPHeader.HTTPXRequestedWith property

Browse Source 
git-svn-id: trunk@13850 -
This commit is contained in:
joost 2009-10-12 14:41:05 +00:00
parent b2cb314868
commit 709d1ccc0c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -171,7 +171,8 @@ type
private
FContentFields: TStrings;
FCookieFields: TStrings;
FHTTPVersion : String;
FHTTPVersion: String;
FHTTPXRequestedWith: String;
FFields : THttpFields;
FQueryFields: TStrings;
function GetSetField(AIndex: Integer): String;
@ -249,6 +250,7 @@ type
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;
Property HTTPXRequestedWith : String Index 36 read GetFieldValue Write SetFieldValue;
// Lists
Property CookieFields : TStrings Read FCookieFields Write SetCookieFields;
Property ContentFields: TStrings read FContentFields;
@ -604,6 +606,7 @@ begin
else
case Index of
0 : Result:=FHTTPVersion;
36 : Result:=FHTTPXRequestedWith;
else
Result := '';
end;
@ -633,6 +636,7 @@ begin
28 : ; // Property RemoteHost : String Index 28 read GetFieldValue Write SetFieldValue;
29 : ; // Property ScriptName : String Index 29 read GetFieldValue Write SetFieldValue;
30 : ; // Property ServerPort : Word Read GetServerPort; // Index 30
36 : FHTTPXRequestedWith:=Value;
end;
end;