瀏覽代碼

* Namespaced OpenTok API

Michaël Van Canneyt 1 年之前
父節點
當前提交
1e4a6845b9
共有 2 個文件被更改,包括 9 次插入1 次删除
  1. 3 0
      packages/opentok/namespaced/Api.OpenTok.pas
  2. 6 1
      packages/opentok/src/libopentok.pas

+ 3 - 0
packages/opentok/namespaced/Api.OpenTok.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit Api.OpenTok;
+{$include ../src/libopentok.pas}

+ 6 - 1
packages/opentok/libopentok.pas → packages/opentok/src/libopentok.pas

@@ -14,8 +14,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libopentok;
+{$ENDIF}
 
 {$mode objfpc}
 {$modeswitch externalclass}
@@ -23,7 +24,11 @@ unit libopentok;
 interface
 
 uses
+{$IFNDEF FPC_DOTTEDUNITS}
+  JSApi.JS, BrowserApi.Web, System.Types;
+{$ELSE}
   JS, web, types;
+{$ENDIF}
 
 Type
   TJSMediaStreamTrack = class external name 'MediaStreamTrack' (TJSObject);