瀏覽代碼

* Correctly typed arguments

Michael Van Canneyt 2 月之前
父節點
當前提交
6e78b39341
共有 1 個文件被更改,包括 8 次插入2 次删除
  1. 8 2
      packages/rtl/src/weborworker.pas

+ 8 - 2
packages/rtl/src/weborworker.pas

@@ -297,14 +297,20 @@ type
     property locked: Boolean read FLocked;
     property locked: Boolean read FLocked;
   end;
   end;
 
 
+  TJSBlobInit = class external name 'Object' (TJSObject)
+    type_ : string; external name 'type';
+    endings : string;
+  end;
 
 
   TJSBlob = class external name 'Blob' (TJSEventTarget)
   TJSBlob = class external name 'Blob' (TJSEventTarget)
   private
   private
     FSize: NativeInt; external name 'size';
     FSize: NativeInt; external name 'size';
     FType: string; external name  'type';
     FType: string; external name  'type';
   Public
   Public
-    constructor New(AArray: JSValue); overload;
-    constructor New(AArray: JSValue; AOptions: TJSObject); overload;
+    constructor New(aBlobParts: TJSArray); overload;
+    constructor New(aBlobParts: TJSArray; AOptions: TJSBlobInit); overload;
+    constructor New(aBlobParts: TJSValueDynArray); overload;
+    constructor New(aBlobParts: TJSValueDynArray; AOptions: TJSBlobInit); overload;
     procedure close;
     procedure close;
     function slice : TJSBlob; overload;
     function slice : TJSBlob; overload;
     function slice(aStart : NativeInt) : TJSBlob; overload;
     function slice(aStart : NativeInt) : TJSBlob; overload;