|
@@ -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
|
michael