paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 08:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Headers event was not triggered

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-02-21 17:00:25 +01:00
parent 8e6f81cbd0
commit c1d04d45fb
1 changed files with 13 additions and 0 deletions

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

@ -63,6 +63,7 @@ Type
Message : String;
ErrorClass : String;
Procedure FromValue(Err : JSValue);
Class Function new(aID,aCode : NativeInt; aMessage,aErrorClass : String) : TRPCError; static;
end;
{ TRPCResponse }
@ -372,6 +373,15 @@ begin
end;
class function TRPCError.new(aID, aCode: NativeInt; aMessage,
aErrorClass: String): TRPCError;
begin
Result.ID:=aID;
Result.Code:=aCode;
Result.Message:=aMessage;
Result.ErrorClass:=aErrorClass;
end;
{ TRPCResponse }
procedure TRPCResponse.FromObject(Obj: TJSObject);
@ -662,6 +672,7 @@ begin
Headers:=TJSObject.New;
lheaders:=TStringList.Create;
try
lHeaders.NameValueSeparator:=':';
GetHeaders(lHeaders);
for I:=0 to lHeaders.Count-1 do
begin
@ -695,6 +706,8 @@ procedure TRPCClient.GetHeaders(Headers: TStrings);
begin
Headers.AddStrings(FCustomHeaders);
if Assigned(FOnCustomHeaders) then
FOnCustomHeaders(Self,Headers);
end;
procedure TRPCClient.ConfigRequest(init : TJSObject);