paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-24 23:20:02 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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