paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-15 10:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Always add params, also if no params

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-15 17:48:18 +02:00
parent 4fb43b145f
commit 0e188ed584
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-rpc/fprpcclient.pp
View File

@ -696,6 +696,7 @@ function TRPCClient.DoExecuteRequest(const aClassName, aMethodName: String;
aParams: JSValue; aOnSuccess: TRPCResultCallBack;
aOnFailure: TRPCFailureCallBack): NativeInt;
begin
// console.debug(aParams);
If isArray(AParams) then
Result:=ExecuteRequest(aClassName,aMethodName,TJSArray(aParams),aOnSuccess,aOnFailure)
else if isObject(AParams) then
@ -704,7 +705,6 @@ begin
Result:=ExecuteRequest(aClassName,aMethodName,TJSArray.New(aParams),aOnSuccess,aOnFailure)
else
Result:=ExecuteRequest(aClassName,aMethodName,TJSArray.New(),aOnSuccess,aOnFailure)
end;
procedure TRPCClient.GetHeaders(Headers: TStrings);
@ -760,7 +760,12 @@ begin
aSerialized['id']:=aRequest.ID;
aSerialized['jsonrpc']:=JSONRPCversion;
if Assigned(aRequest.Params) then
aSerialized['params']:=aRequest.Params;
aSerialized['params']:=aRequest.Params
else
if roParamsAsObject in FOptions then
aSerialized['params']:=TJSObject.New
else
aSerialized['params']:=TJSArray.New;
N:=aRequest.MethodName;
if roFullMethodName in FOptions then
begin