paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-18 17:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More customization possibilities

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-07 14:19:46 +01:00
parent b43949fcf2
commit 4a425c3263
1 changed files with 29 additions and 5 deletions

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

@ -126,6 +126,9 @@ Type
procedure SetOptions(AValue: TRPCoptions);
procedure SetURL(AValue: String);
Protected
// Override these for customized behaviour (similar to what happens on FPC's JSON-RPC server)
class function RequestClassNameProperty: String;
class function RequestMethodProperty: string;
// Handle unexpected error during callbacks
procedure HandleUnexpectedError(const aStage: String; E: Exception);
// Find batch with ID equal to aBatch in list of pending batches. If DoRemove, the record is removed from the list.
@ -143,7 +146,9 @@ Type
// Send batch to server
procedure DoSendBatch(aBatch: TRPCBatch); virtual;
// Configure FETCH request init object
procedure ConfigRequest(init: TJSObject); virtual;
function ConfigRequest(Init: TJSObject): TJSObject; virtual;
// Configure JSON for single call
function ConfigCallJSON(aRequest: TJSObject): TJSObject;
// Start new request batch. If current batch was not empty, sends it first.
Procedure StartRequestBatch; virtual;
// Send started request batch. Will stop timer.
@ -710,13 +715,32 @@ begin
FOnCustomHeaders(Self,Headers);
end;
procedure TRPCClient.ConfigRequest(init : TJSObject);
function TRPCClient.ConfigRequest(Init: TJSObject): TJSObject;
begin
if Assigned(FOnConfigRequest) then
FOnConfigRequest(Self,init);
end;
class function TRPCClient.RequestMethodProperty : string;
begin
Result:='method';
end;
class function TRPCClient.RequestClassNameProperty : String;
begin
Result:='class';
end;
function TRPCClient.ConfigCallJSON(aRequest: TJSObject): TJSObject;
begin
Result:=aRequest;
end;
procedure TRPCClient.DoSendBatch(aBatch : TRPCBatch);
Var
@ -745,10 +769,10 @@ begin
else
begin
if aRequest.ClassName<>'' then
aSerialized['class']:=aRequest.ClassName;
aSerialized[RequestClassNameProperty]:=aRequest.ClassName;
end;
aSerialized['method']:=N;
aRequests.Push(aSerialized);
aSerialized[RequestMethodProperty]:=N;
aRequests.Push(ConfigCallJSON(aSerialized));
end;
if (aRequests.Length=1) and not (roForceArray in FOptions) then
aJSON:=TJSJSON.stringify(aRequests[0])