From c1d04d45fbc3e6f3c68d57bfd0bcd10277d35cd2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 21 Feb 2023 17:00:25 +0100
Subject: [PATCH] * Headers event was not triggered

---
 packages/fcl-rpc/fprpcclient.pp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/packages/fcl-rpc/fprpcclient.pp b/packages/fcl-rpc/fprpcclient.pp
index a0f387a..3e174a7 100644
--- a/packages/fcl-rpc/fprpcclient.pp
+++ b/packages/fcl-rpc/fprpcclient.pp
@@ -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);