paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49: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 PathInfo : String index 25 read GetFieldValue Write SetFieldValue;
Property PathTranslated : String Index 26 read GetFieldValue Write SetFieldValue; Property PathTranslated : String Index 26 read GetFieldValue Write SetFieldValue;
Property RemoteAddress : String Index 27 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 RemoteHost : String Index 28 read GetFieldValue Write SetFieldValue;
Property ScriptName : String Index 29 read GetFieldValue Write SetFieldValue; Property ScriptName : String Index 29 read GetFieldValue Write SetFieldValue;
Property ServerPort : Word Read GetServerPort; // Index 30 Property ServerPort : Word Read GetServerPort; // Index 30
@ -261,7 +262,6 @@ type
private private
FCommand: String; FCommand: String;
FCommandLine: String; FCommandLine: String;
FQuery: String;
FURI: String; FURI: String;
FFiles : TUploadedFiles; FFiles : TUploadedFiles;
FReturnedPathInfo : String; FReturnedPathInfo : String;
@ -280,8 +280,7 @@ type
Property CommandLine : String Read FCommandLine; Property CommandLine : String Read FCommandLine;
Property Command : String read FCommand; Property Command : String read FCommand;
Property URI : String read FURI; // Uniform Resource Identifier Property URI : String read FURI; // Uniform Resource Identifier
Property Query : String Read FQuery; Property QueryString : String Index 33 read GetFieldValue Write SetFieldValue; // Alias
Property QueryString : String Read FQuery; // Alias
Property HeaderLine : String read GetFirstHeaderLine; Property HeaderLine : String read GetFirstHeaderLine;
Property Files : TUploadedFiles Read FFiles; Property Files : TUploadedFiles Read FFiles;
end; end;
@ -938,7 +937,7 @@ begin
i := Pos('?', URI); i := Pos('?', URI);
if i > 0 then if i > 0 then
begin begin
FQuery:= Copy(URI, i + 1, Length(URI)); Query:= Copy(URI, i + 1, Length(URI));
FURI := Copy(URI, 1, i - 1); FURI := Copy(URI, 1, i - 1);
end; end;
end; end;