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

* Safety for empty asJSON. Should not happen, but better safe than sorry

Browse Source 
git-svn-id: trunk@42784 -
This commit is contained in:
michael 2019-08-24 09:35:47 +00:00
parent 778ae03532
commit b38596b925
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/jsonrpc/webjsonrpc.pp
View File

@ -275,7 +275,8 @@ begin
AResponse.FreeContentStream:=True; AResponse.FreeContentStream:=True;
AResponse.ContentStream:=TMemoryStream.Create; AResponse.ContentStream:=TMemoryStream.Create;
R:=Res.AsJSON; R:=Res.AsJSON;
AResponse.ContentStream.WriteBuffer(R[1],Length(R)); if Length(R)>0 then
AResponse.ContentStream.WriteBuffer(R[1],Length(R));
AResponse.ContentLength:=AResponse.ContentStream.Size; AResponse.ContentLength:=AResponse.ContentStream.Size;
R:=''; // Free up mem R:=''; // Free up mem
AResponse.ContentType:=GetResponseContentType; AResponse.ContentType:=GetResponseContentType;