paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +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;
FCommandLine: String;
FHandleGetOnPost: Boolean;
FPathInfo,
FURI: String;
FFiles : TUploadedFiles;
FReturnedPathInfo : String;
@ -1005,6 +1006,7 @@ end;
function TRequest.GetFieldValue(AIndex: integer): String;
begin
Case AIndex of
25 : Result:=FPathInfo;
31 : Result:=FCommand;
32 : Result:=FURI;
35 : begin
@ -1020,6 +1022,7 @@ end;
procedure TRequest.SetFieldValue(Index: Integer; Value: String);
begin
Case Index of
25 : FPathInfo:=Value;
31 : FCommand:=Value;
32 : FURI:=Value;
else