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

* WebSocket close event

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-09-07 17:38:34 +02:00
parent 77490ff695
commit a7f2e4e743
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/src/web.pas
View File

@ -121,6 +121,7 @@ Type
TJSCache = BrowserApi.WebOrWorker.TJSCache;
TJSCacheStorage = BrowserApi.WebOrWorker.TJSCacheStorage;
TJSPermissions = BrowserApi.WebOrWorker.TJSPermissions;
TJSRequest = BrowserApi.WebOrWorker.TJSRequest;
{$ELSE}
TJSServiceWorker = weborworker.TJSServiceWorker;
TJSServiceWorkerRegistration = weborworker.TJSServiceWorkerRegistration;
@ -191,6 +192,8 @@ Type
TJSResponse = weborworker.TJSResponse;
TJSCache = weborworker.TJSCache;
TJSCacheStorage = weborworker.TJSCacheStorage;
TJSRequest = webOrworker.TJSRequest;
TJSAbortController = webOrworker.TJSAbortController;
{$ENDIF}
TJSMessagePortArray = TJSMessagePortDynArray;
TEventListenerEvent = TJSEvent;
@ -3121,7 +3124,18 @@ Type
TJSWebSocket
--------------------------------------------------------------------}
{ TJSWebsocketCloseEvent }
TJSWebsocketCloseEvent = class external name 'CloseEvent' (TJSEvent)
private
FCode: Integer; external name 'code';
FReason: String; external name 'reason';
FWasClean: Boolean; external name 'wasClean';
Public
Property Code : Integer Read FCode;
Property Reason : String Read FReason;
Property WasClean : Boolean Read FWasClean;
end;
TJSWebSocket = class external name 'WebSocket' (TJSEventTarget)
Private