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

* Storage for pathinfo

Browse Source 
git-svn-id: trunk@17645 -
This commit is contained in:
michael 2011-06-03 07:35:21 +00:00
parent ceb739fbf5
commit 83ef847aab
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/base/httpdefs.pp
View File

@ -265,6 +265,7 @@ type
FCommand: String; FCommand: String;
FCommandLine: String; FCommandLine: String;
FHandleGetOnPost: Boolean; FHandleGetOnPost: Boolean;
FPathInfo,
FURI: String; FURI: String;
FFiles : TUploadedFiles; FFiles : TUploadedFiles;
FReturnedPathInfo : String; FReturnedPathInfo : String;
@ -1005,6 +1006,7 @@ end;
function TRequest.GetFieldValue(AIndex: integer): String; function TRequest.GetFieldValue(AIndex: integer): String;
begin begin
Case AIndex of Case AIndex of
25 : Result:=FPathInfo;
31 : Result:=FCommand; 31 : Result:=FCommand;
32 : Result:=FURI; 32 : Result:=FURI;
35 : begin 35 : begin
@ -1020,6 +1022,7 @@ end;
procedure TRequest.SetFieldValue(Index: Integer; Value: String); procedure TRequest.SetFieldValue(Index: Integer; Value: String);
begin begin
Case Index of Case Index of
25 : FPathInfo:=Value;
31 : FCommand:=Value; 31 : FCommand:=Value;
32 : FURI:=Value; 32 : FURI:=Value;
else else