Fixed beep when HMIShell connected to JSON-SCADA Shell API

Author: riclolsen

hmishell/exit_u.cpp

@@ -1,5 +1,5 @@
 //---------------------------------------------------------------------------
-// HMI SHELL - Copyright 2008-2018 - Ricardo L. Olsen
+// HMI SHELL - Copyright 2008-2021 - Ricardo L. Olsen
 /*
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

hmishell/exit_u.dfm

@@ -30,7 +30,7 @@ object fmSair: TfmSair
     Width = 200
     Height = 13
     Alignment = taCenter
-    Caption = 'OSHMI SHELL V6.25 © 2008-2021 - RLO'
+    Caption = 'OSHMI SHELL V6.26 © 2008-2021 - RLO'
   end
   object lbSenha: TLabel
     Left = 24

hmishell/shell_u.cpp

@@ -1,5 +1,5 @@
 //---------------------------------------------------------------------------
-// HMI SHELL - Copyright 2008-2018 - Ricardo L. Olsen
+// HMI SHELL - Copyright 2008-2021 - Ricardo L. Olsen
 //
 // Este programa tem por objetivo proporcionar um shell para o Windows
 // específico para controlar o IHM. De forma a restringir o acesso
@@ -785,10 +785,14 @@ tbHist->Enabled = true;
 tbAnormais->Enabled = true;
 tbTabular->Enabled = true;
 tbCurvas->Enabled = true;
-if ( NMHTTP1->Body.Pos("'beep': 1") || NMHTTP1->Body.Pos("\"beep\": 1") )
+if ( NMHTTP1->Body.Pos("'beep': 1") || NMHTTP1->Body.Pos("\"beep\": 1") ||
+     NMHTTP1->Body.Pos("'beep':1") || NMHTTP1->Body.Pos("\"beep\":1")
+   )
   AtivaBeep( BEEP_NORMAL );
 else
-if ( NMHTTP1->Body.Pos("'beep': 2") || NMHTTP1->Body.Pos("\"beep\": 2") )
+if ( NMHTTP1->Body.Pos("'beep': 2") || NMHTTP1->Body.Pos("\"beep\": 2") ||
+     NMHTTP1->Body.Pos("'beep':2") || NMHTTP1->Body.Pos("\"beep\":2")
+   )
   AtivaBeep( BEEP_CRITICO );
 else
   SilenciaBeep();