diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-06-03 15:18:09 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-06-03 15:18:09 +0000 |
| commit | d451ff628f22ff435bf06958b8c123d880ef432b (patch) | |
| tree | 9d22b0d7d5d4ad885fd3ff18b2b9c581b6a3c755 /packages/fcl-web/src | |
| parent | 34240c1abe68f2d3de9fd8ffdd8aa3ecf1a31b07 (diff) | |
| download | fpc-d451ff628f22ff435bf06958b8c123d880ef432b.tar.gz | |
* json-rpc examples, and compile it as well
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15361 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-web/src')
| -rw-r--r-- | packages/fcl-web/src/base/fphttp.pp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/fcl-web/src/base/fphttp.pp b/packages/fcl-web/src/base/fphttp.pp index 10a6ad566c..77073977a4 100644 --- a/packages/fcl-web/src/base/fphttp.pp +++ b/packages/fcl-web/src/base/fphttp.pp @@ -258,6 +258,7 @@ begin M:=TMemoryStream.Create; DoGetContent(ARequest,M,Handled); AResponse.ContentStream:=M; + AResponse.ContentLength:=M.Size; end; procedure THTTPContentProducer.DoGetContent(ARequest: TRequest; Content: TStream; Var Handled : Boolean); |