Просмотр исходного кода

* Code is needed if different from 1000

Michael Van Canneyt 1 месяц назад
Родитель
Сommit
77d05daa8b
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      packages/wasm-utils/src/wasm.pas2js.websocketapi.pas

+ 3 - 1
packages/wasm-utils/src/wasm.pas2js.websocketapi.pas

@@ -566,8 +566,10 @@ procedure TWasmWebsocket.Close(aCode: Integer; aReason: String);
 begin
   if (aReason<>'') then
     FWS.Close(aCode,aReason)
-  else
+  else if aCode<>1000 then
     FWS.Close(aCode)
+  else
+    FWS.close;
 end;