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

rtl: added TBrowserApp.RegisterServiceWorker

Browse Source
This commit is contained in:
mattias 2022-03-31 12:01:23 +02:00
parent 4c501a5ed9
commit 49e4bf63ab
1 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packages/fcl-base/browserapp.pas
View File

@ -1,4 +1,4 @@
unit browserapp;
unit BrowserApp;
{$mode objfpc}
@ -8,6 +8,7 @@ uses
Classes, SysUtils, Types, JS, web, CustApp;
type
TServiceWorkerRegisteredEvent = reference to procedure(Registration: TJSServiceWorkerRegistration);
{ TBrowserApplication }
@ -23,14 +24,14 @@ type
procedure GetEnvironmentList(List: TStrings; NamesOnly: Boolean); override;
procedure ShowException(E: Exception); override;
procedure HandleException(Sender: TObject); override;
function RegisterServiceWorker(aFile: String;
const aOnRegistered: TServiceWorkerRegisteredEvent = Nil; DoLogging: Boolean = false) : Boolean;
end;
procedure ReloadEnvironmentStrings;
implementation
uses Rtl.BrowserLoadHelper;
var
EnvNames: TJSObject;
Params : TStringDynArray;
@ -172,6 +173,33 @@ begin
inherited HandleException(Sender);
end;
function TBrowserApplication.RegisterServiceWorker(aFile: String;
const aOnRegistered: TServiceWorkerRegisteredEvent; DoLogging: Boolean
): Boolean;
begin
// register service worker if supported
Result:=HasServiceWorker;
if Result then
Window.addEventListener('load',
procedure()
begin
Window.navigator.serviceWorker
.register(aFile)
._then(TJSPromiseResolver(procedure(Registration: TJSServiceWorkerRegistration)
begin
if DoLogging then
console.log('service worker registered');
if Assigned(aOnRegistered) then
aOnRegistered(Registration);
end))
.catch(TJSPromiseResolver(procedure(err: JSValue)
begin
if DoLogging then
console.log('service worker not registered: '+String(err));
end));
end);
end;
initialization
IsConsole:=true;
OnParamCount:=@GetParamCount;