瀏覽代碼

* DedicatedWorkerGlobalScope

Michaël Van Canneyt 3 年之前
父節點
當前提交
d70b8c3d54
共有 1 個文件被更改,包括 12 次插入0 次删除
  1. 12 0
      packages/rtl/webworker.pas

+ 12 - 0
packages/rtl/webworker.pas

@@ -70,6 +70,18 @@ Type
     Property Self_ : TJSWorkerGlobalScope Read FSelf;
   end;
 
+  { TJSDedicatedWorkerGlobalScope }
+
+  TJSDedicatedWorkerGlobalScope = class external name 'DedicatedWorkerGlobalScope' (TJSWorkerGlobalScope)
+  private
+    FName: String; external name 'name';
+  Public
+    Procedure close;
+    Procedure PostMessage(aMessage : JSValue); overload;
+    Procedure PostMessage(aMessage : JSValue; TransferableObjects : Array of JSValue); overload;
+    Property name : String Read FName;
+  end;
+
   TJSClientsMatchAllOptions = class external name 'Object'
     includeUncontrolled : Boolean;
     type_ : string; external name 'type';