diff options
Diffstat (limited to 'packages/fcl-web/src/base/fphttpserver.pp')
-rw-r--r-- | packages/fcl-web/src/base/fphttpserver.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-web/src/base/fphttpserver.pp b/packages/fcl-web/src/base/fphttpserver.pp index 5b26eaccb1..77c495751f 100644 --- a/packages/fcl-web/src/base/fphttpserver.pp +++ b/packages/fcl-web/src/base/fphttpserver.pp @@ -35,7 +35,6 @@ Type TFPHTTPConnectionRequest = Class(TRequest) private FConnection: TFPHTTPConnection; - protected procedure SetContent(AValue : String); Property Connection : TFPHTTPConnection Read FConnection; @@ -369,6 +368,7 @@ Var begin Request.Method:=GetNextWord(AStartLine); Request.URL:=GetNextWord(AStartLine); + Request.PathInfo:=Request.URL; S:=GetNextWord(AStartLine); If (Pos('HTTP/',S)<>1) then Raise Exception.Create(SErrMissingProtocol); |