paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix use of classname

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-09-28 17:53:14 +02:00
parent 123f196d5d
commit 8b3c9e0970
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-web/src/jsonrpc/fpjsonrpc.pp
View File

@ -1283,13 +1283,18 @@ begin
If (I<>-1) then
D:=O.Items[i]
else if (jdoRequireClass in options) then
Exit(CreateJSON2Error(SErrNoClassName,[ClassNameProperty],EJSONRPCInvalidRequest,ID,transactionproperty));
// Check if it is a string
if Not (D is TJSONString) then
Exit(CreateJSON2Error(SErrInvalidClassNameType,[ClassNameProperty],EJSONRPCInvalidRequest,ID,transactionproperty));
AClassName:=D.AsString;
If (AClassName='') and (jdoRequireClass in options) then
Exit(CreateJSON2Error(SErrNoClassName,[ClassNameProperty],EJSONRPCInvalidRequest,ID,transactionproperty));
Exit(CreateJSON2Error(SErrNoClassName,[ClassNameProperty],EJSONRPCInvalidRequest,ID,transactionproperty))
else
D:=Nil;
if Assigned(D) then
begin
// Check if it is a string
if Not (D is TJSONString) then
Exit(CreateJSON2Error(SErrInvalidClassNameType,[ClassNameProperty],EJSONRPCInvalidRequest,ID,transactionproperty));
AClassName:=D.AsString;
If (AClassName='') and (jdoRequireClass in options) then
Exit(CreateJSON2Error(SErrNoClassName,[ClassNameProperty],EJSONRPCInvalidRequest,ID,transactionproperty));
end;
end;
// Get params, if they exist
I:=O.IndexOfName(ParamsProperty);