paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-26 22:43:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Error object must be of type TJSOnErrorObject. Initialize Result to Nil in function TJSONRPCHandler.DoExecute (fixes access violation)

Browse Source 
git-svn-id: trunk@15800 -
This commit is contained in:
michael 2010-08-13 15:19:46 +00:00
parent 6403d462d2
commit 2567d761a4
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/fpjsonrpc.pp
View File

@ -356,7 +356,7 @@ implementation
function CreateJSONErrorObject(Const AMessage : String; Const ACode : Integer) : TJSONObject;
begin
Result:=TJSONObject.Create(['code',ACode,'message',AMessage])
Result:=TJSONErrorObject.Create(['code',ACode,'message',AMessage])
end;
function CreateJSON2ErrorResponse(Const AMessage : String; Const ACode : Integer; ID : TJSONData = Nil; idname : TJSONStringType = 'id' ) : TJSONObject;
@ -583,6 +583,7 @@ end;
function TJSONRPCHandler.DoExecute(const Params: TJSONData;AContext : TJSONRPCCallContext): TJSONData;
begin
Result:=Nil;
If Assigned(FOnExecute) then
FOnExecute(Self,Params,Result);
end;