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

* Removed the TRequest.Query property which hided its parent Query property

Browse Source 
* Added a THTTPHeader.RemoteAddr alias for RemoteAddress for Delphi compatibility

git-svn-id: trunk@12869 -
This commit is contained in:
joost 2009-03-08 16:11:32 +00:00
parent 009324f617
commit 1308f8043b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -234,6 +234,7 @@ type
Property PathInfo : String index 25 read GetFieldValue Write SetFieldValue;
Property PathTranslated : String Index 26 read GetFieldValue Write SetFieldValue;
Property RemoteAddress : String Index 27 read GetFieldValue Write SetFieldValue;
Property RemoteAddr : String Index 27 read GetFieldValue Write SetFieldValue; // Alias, Delphi-compat
Property RemoteHost : String Index 28 read GetFieldValue Write SetFieldValue;
Property ScriptName : String Index 29 read GetFieldValue Write SetFieldValue;
Property ServerPort : Word Read GetServerPort; // Index 30
@ -261,7 +262,6 @@ type
private
FCommand: String;
FCommandLine: String;
FQuery: String;
FURI: String;
FFiles : TUploadedFiles;
FReturnedPathInfo : String;
@ -280,8 +280,7 @@ type
Property CommandLine : String Read FCommandLine;
Property Command : String read FCommand;
Property URI : String read FURI; // Uniform Resource Identifier
Property Query : String Read FQuery;
Property QueryString : String Read FQuery; // Alias
Property QueryString : String Index 33 read GetFieldValue Write SetFieldValue; // Alias
Property HeaderLine : String read GetFirstHeaderLine;
Property Files : TUploadedFiles Read FFiles;
end;
@ -938,7 +937,7 @@ begin
i := Pos('?', URI);
if i > 0 then
begin
FQuery:= Copy(URI, i + 1, Length(URI));
Query:= Copy(URI, i + 1, Length(URI));
FURI := Copy(URI, 1, i - 1);
end;
end;