WebSVN – alarming – Diff – /trunk/Delphi Client/DoorAlarmClientMain.pas

 unit DoorAlarmClientMain;
-// TODO: make configurable, which actions should be executed (e.g. run programs) when a motion was detected
+// TODO: make configurable, which actions should be executed (e.g. run programs) when a motion was detected, with different event sounds etc
+// TODO: ask server to subscribe/unsubscribe to events (doorbell, motion)
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, HTTPApp, StdCtrls,
   IdHTTPServer, idContext, idCustomHTTPServer, OleCtrls, SHDocVw, ExtCtrls,
   JPEG, MJPEGDecoderUnit, IniFiles, Menus;
 type
+  TAlarmType = (atUnknown, atMotion, atDoorbell);
   TForm1 = class(TForm)
     Image1: TImage;
     TrayIcon1: TTrayIcon;
     PopupMenu1: TPopupMenu;
     Exit1: TMenuItem;
     N1: TMenuItem;
     Startalarm1: TMenuItem;
     N2: TMenuItem;
     Stopalarm1: TMenuItem;
     Gotocontrolpanelwebsite1: TMenuItem;
+    doorbellPanel: TPanel;
+    N3: TMenuItem;
+    Ignoredoorbell1: TMenuItem;
+    Ignoremotionalert1: TMenuItem;
+    unknownAlarm: TPanel;
     procedure FormDestroy(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure TrayIcon1Click(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure Exit1Click(Sender: TObject);
     procedure MotionDetected;
     procedure HandleFrame(Sender: TObject; Frame: TJPEGImage);
     procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
     procedure StartStream;
     procedure StopStream;
-    procedure DoShowForm;
+    procedure DoShowForm(AlarmType: TAlarmType);
     procedure DoPosition;
     procedure StopMusic;
     function ControlServerUrl: string;
   end;
   MJPEGDecoder := TMJPEGDecoder.Create(Self);
   DoPosition;
+  // Question: Should these settings also be saved for the next program session?
   Allowmutingsoundinterface1.Checked := ini.ReadBool('Client', 'AllowMute', false);
+  Ignoredoorbell1.Checked := ini.ReadBool('Client', 'IgnoreDoorbell', false);
+  Ignoremotionalert1.Checked := ini.ReadBool('Client', 'IgnoreMotion', false);
   UpdateIPTimerTimer(UpdateIPTimer);
   UpdateIPTimer.Interval := ini.ReadInteger('Client', 'SubscribeInterval', 30*60) * 1000;
   UpdateIPTimer.Enabled := true;
 end;
   FreeAndNil(MJPEGDecoder);
 end;
 procedure TForm1.FormHide(Sender: TObject);
 begin
+  if Image2.Visible then
-  StopStream;
+    StopStream;
 end;
 procedure TForm1.FormShow(Sender: TObject);
 begin
+  if Image2.Visible then
-  StartStream;
+    StartStream;
 end;
 procedure TForm1.Gotocontrolpanelwebsite1Click(Sender: TObject);
 begin
 end;
 procedure TForm1.ServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
 var
   AutoCloseTimerInterval: integer;
+  AlarmType: TAlarmType;
 begin
   aResponseInfo.ResponseNo  := 200;
   aResponseInfo.ContentType := 'text/html';
   aResponseInfo.ContentText := '';
       begin
         CloseTimer.Interval := AutoCloseTimerInterval;
         CloseTimer.Enabled := true;
       end;
+      if ARequestInfo.Params.IndexOf('targets=1.3.6.1.4.1.37476.2.4.2.1002' {camera, motion}) >= 0 then
+        AlarmType := atMotion
+      else if ARequestInfo.Params.IndexOf('targets=1.3.6.1.4.1.37476.2.4.2.2001' {sound, doorbell}) >= 0 then
+        AlarmType := atDoorbell
+      else
+      begin
+        // TODO: Make plugin DLLs ?
+        AlarmType := atUnknown;
+      end;
+      // Attention: Ignoring these events at the client does not prevent the server
+      // doing other actions (e.g. ask Spotify to stop the music on connected devices)
+      if Ignoredoorbell1.Checked and (AlarmType = atDoorbell) then Exit;
+      if Ignoremotionalert1.Checked and (AlarmType = atMotion) then Exit;
+      if AlarmType = atUnknown then
+      begin
+        unknownAlarm.ShowHint := true;
+        unknownAlarm.Hint := ARequestInfo.Params.Text;
+      end;
-      DoShowForm;
+      DoShowForm(AlarmType);
       if ini.ReadBool('Client', 'AutoPopup', true) then
       begin
         Application.Restore;
         WindowState := wsNormal;
 begin
   // TODO: when clicked, the icon-selection won't close
   Application.Restore;
   WindowState := wsNormal;
   FormStyle := fsNormal;
-  DoShowForm;
+  DoShowForm(atMotion);
 end;
 procedure TForm1.UpdateIPTimerTimer(Sender: TObject);
 var
   lParamList: TStringList;
       lParamList.Add('action=client_subscribe'); // 1.3.6.1.4.1.37476.2.4.1.1
       lParamList.Add('port='+ini.ReadString('Client', 'ListenPort', ''));
       lParamList.Add('ttl='+IntToStr((UpdateIPTimer.Interval div 1000) * 2 + 10));
       lParamList.Add('targets=1.3.6.1.4.1.37476.2.4.2.0');    // Any
       lParamList.Add('targets=1.3.6.1.4.1.37476.2.4.2.1002'); // Motion, camera
+      lParamList.Add('targets=1.3.6.1.4.1.37476.2.4.2.2001'); // Sound, doorbell
       idhttp := TIdHTTP.Create(nil);
       try
         idhttp.Post(ControlServerUrl, lParamList);
       finally
   // TODO: user should select in which corner the window show be
   Self.Left := Screen.Width - Self.Width;
   Self.Top := Screen.Height - Self.Height - _TaskBarHeight;
 end;
-procedure TForm1.DoShowForm;
+procedure TForm1.DoShowForm(AlarmType: TAlarmType);
 begin
+  Image1.Visible := AlarmType = atMotion;
+  Image2.Visible := AlarmType = atMotion;
+  // BUGBUG! TODO: This does not work. The panels are not visible for some reason! I just get a white window!
+  doorbellPanel.Visible := AlarmType = atDoorbell;
+  unknownAlarm.Visible := AlarmType = atUnknown;
   if ini.ReadBool('Client', 'AutoReposition', true) then
   begin
     DoPosition;
   end;

Subversion Repositories alarming

alarming/trunk/Delphi Client/DoorAlarmClientMain.pas – Rev 2 → 7