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

* Make sure position = 0 when doing getcontentasstring

Browse Source 
git-svn-id: trunk@30843 -
This commit is contained in:
michael 2015-05-11 21:13:36 +00:00
parent 0effe938bd
commit 5d457bb965
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/fpwebclient.pp
View File

@ -337,7 +337,10 @@ Function TRequestResponse.GetContentAsString: String;
begin begin
SetLength(Result,Content.Size); SetLength(Result,Content.Size);
if (Length(Result)>0) then if (Length(Result)>0) then
begin
Content.Position:=0;
Content.ReadBuffer(Result[1],Length(Result)); Content.ReadBuffer(Result[1],Length(Result));
end;
end; end;
end. end.