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

* Handler reject when doing fetch, register form lowercase

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-13 09:54:57 +02:00
parent 26e8ca99a2
commit c4dcf88a62
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/rtl/Rtl.TemplateLoader.pas
View File

@ -201,19 +201,29 @@ procedure TURLLoader.dofetch(resolve,reject : TJSPromiseResolver);
);
end;
function doErr(Err : JSValue) : JSValue;
Var
F : TFailData;
begin
F.message:='Unknown error: '+TJSJSON.Stringify(Err);
F.code:=999;
Result:=Reject(F);
end;
function doFail(respo : JSValue) : JSValue;
Var
F : TFailData;
begin
F.message:='unknown error';
F.message:='Unknown error';
F.code:=999;
Result:=Reject(F);
end;
begin
Window.Fetch(URl)._then(@DoOK).catch(@DoFail);
Window.Fetch(URl)._then(@DoOK,@DoErr).catch(@DoFail);
end;
function TURLLoader.fetch : TJSPromise;
@ -282,7 +292,7 @@ Var
Idx : Integer;
begin
FTemplates[aName]:=aTemplate;
FTemplates[LowerCase(aName)]:=aTemplate;
if Assigned(FOnLoad) then
FOnLoad(Self,aName);
Idx:=IndexOfTemplateEvent(aName);