Subversion Repositories alarming

Rev

Rev 7 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7 Rev 9
Line 32... Line 32...
32 
    doorbellPanel: TPanel;
 32 
    doorbellPanel: TPanel;
33 
    N3: TMenuItem;
 33 
    N3: TMenuItem;
34 
    Ignoredoorbell1: TMenuItem;
 34 
    Ignoredoorbell1: TMenuItem;
35 
    Ignoremotionalert1: TMenuItem;
 35 
    Ignoremotionalert1: TMenuItem;
36 
    unknownAlarm: TPanel;
 36 
    unknownAlarm: TPanel;
- 
 
 37 
    Simulatealarm1: TMenuItem;
37 
    procedure FormDestroy(Sender: TObject);
 38 
    procedure FormDestroy(Sender: TObject);
38 
    procedure FormCreate(Sender: TObject);
 39 
    procedure FormCreate(Sender: TObject);
39 
    procedure TrayIcon1Click(Sender: TObject);
 40 
    procedure TrayIcon1Click(Sender: TObject);
40 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 41 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
41 
    procedure Exit1Click(Sender: TObject);
 42 
    procedure Exit1Click(Sender: TObject);
Line 46... Line 47...
46 
    procedure UpdateIPTimerTimer(Sender: TObject);
 47 
    procedure UpdateIPTimerTimer(Sender: TObject);
47 
    procedure Startalarm1Click(Sender: TObject);
 48 
    procedure Startalarm1Click(Sender: TObject);
48 
    procedure Stopalarm1Click(Sender: TObject);
 49 
    procedure Stopalarm1Click(Sender: TObject);
49 
    procedure Gotocontrolpanelwebsite1Click(Sender: TObject);
 50 
    procedure Gotocontrolpanelwebsite1Click(Sender: TObject);
50 
    procedure ImageClick(Sender: TObject);
 51 
    procedure ImageClick(Sender: TObject);
- 
 
 52 
    procedure Simulatealarm1Click(Sender: TObject);
51 
  private
 53 
  private
52 
    MJPEGDecoder: TMJPEGDecoder;
 54 
    MJPEGDecoder: TMJPEGDecoder;
53 
    LastDingDong: TDateTime;
 55 
    LastDingDong: TDateTime;
54 
    SimpleCS: boolean;
 56 
    SimpleCS: boolean;
55 
    ini: TMemIniFile;
 57 
    ini: TMemIniFile;
Line 98... Line 100...
98 
procedure TForm1.Stopalarm1Click(Sender: TObject);
 100 
procedure TForm1.Stopalarm1Click(Sender: TObject);
99 
var
 101 
var
100 
  lParamList: TStringList;
 102 
  lParamList: TStringList;
101 
  idhttp: TIdHttp;
 103 
  idhttp: TIdHttp;
102 
begin
 104 
begin
- 
 
 105 
  //try
103 
  try
 106 
    try
- 
 
 107 
      UpdateIPTimerTimer(UpdateIPTimer); // make sure we are registered
104 
    try
 108 
 
105 
      lParamList := TStringList.Create;
 109 
      lParamList := TStringList.Create;
106 
      lParamList.Add('action=motion_off'); // 1.3.6.1.4.1.37476.2.4.1.101
 110 
      lParamList.Add('action=motion_off'); // 1.3.6.1.4.1.37476.2.4.1.101
107 
 
 111 
 
108 
      idhttp := TIdHTTP.Create(nil);
 112 
      idhttp := TIdHTTP.Create(nil);
109 
      try
 113 
      try
Line 112... Line 116...
112 
        FreeAndNil(idhttp);
 116 
        FreeAndNil(idhttp);
113 
      end;
 117 
      end;
114 
    finally
 118 
    finally
115 
      FreeAndNil(lParamList);
 119 
      FreeAndNil(lParamList);
116 
    end;
 120 
    end;
117 
  except
 121 
  //except
118 
    // Nothing
 122 
    // Nothing
119 
  end;
 123 
  //end;
120 
end;
 124 
end;
121 
 
 125 
 
122 
procedure TForm1.StopMusic;
 126 
procedure TForm1.StopMusic;
123 
const
 127 
const
124 
  TIMEOUT = 1000; // ms
 128 
  TIMEOUT = 1000; // ms
Line 177... Line 181...
177 
procedure TForm1.Startalarm1Click(Sender: TObject);
 181 
procedure TForm1.Startalarm1Click(Sender: TObject);
178 
var
 182 
var
179 
  lParamList: TStringList;
 183 
  lParamList: TStringList;
180 
  idhttp: TIdHttp;
 184 
  idhttp: TIdHttp;
181 
begin
 185 
begin
- 
 
 186 
  //try
182 
  try
 187 
    try
- 
 
 188 
      UpdateIPTimerTimer(UpdateIPTimer); // make sure we are registered
183 
    try
 189 
 
184 
      lParamList := TStringList.Create;
 190 
      lParamList := TStringList.Create;
185 
      lParamList.Add('action=motion_on'); // 1.3.6.1.4.1.37476.2.4.1.100
 191 
      lParamList.Add('action=motion_on'); // 1.3.6.1.4.1.37476.2.4.1.100
186 
 
 192 
 
187 
      idhttp := TIdHTTP.Create(nil);
 193 
      idhttp := TIdHTTP.Create(nil);
188 
      try
 194 
      try
Line 191... Line 197...
191 
        FreeAndNil(idhttp);
 197 
        FreeAndNil(idhttp);
192 
      end;
 198 
      end;
193 
    finally
 199 
    finally
194 
      FreeAndNil(lParamList);
 200 
      FreeAndNil(lParamList);
195 
    end;
 201 
    end;
196 
  except
 202 
  //except
197 
    // Nothing
 203 
    // Nothing
198 
  end;
 204 
  //end;
199 
end;
 205 
end;
200 
 
 206 
 
201 
procedure TForm1.StartStream;
 207 
procedure TForm1.StartStream;
202 
begin
 208 
begin
203 
  if last_known_webcam_port = 0 then exit;
 209 
  if last_known_webcam_port = 0 then exit;
Line 395... Line 401...
395 
      SimpleCS := false;
 401 
      SimpleCS := false;
396 
    end;
 402 
    end;
397 
  end;
 403 
  end;
398 
end;
 404 
end;
399 
 
 405 
 
- 
 
 406 
procedure TForm1.Simulatealarm1Click(Sender: TObject);
- 
 
 407 
var
- 
 
 408 
  lParamList: TStringList;
- 
 
 409 
  idhttp: TIdHttp;
- 
 
 410 
begin
- 
 
 411 
  //try
- 
 
 412 
    try
- 
 
 413 
      lParamList := TStringList.Create;
- 
 
 414 
      lParamList.Add('action=server_alert'); // 1.3.6.1.4.1.37476.2.4.1.2
- 
 
 415 
      lParamList.Add('targets=1.3.6.1.4.1.37476.2.4.2.0');    // Any
- 
 
 416 
      lParamList.Add('targets=1.3.6.1.4.1.37476.2.4.2.1002'); // Motion, camera
- 
 
 417 
      lParamList.Add('targets=1.3.6.1.4.1.37476.2.4.2.2001'); // Sound, doorbell
- 
 
 418 
 
- 
 
 419 
      idhttp := TIdHTTP.Create(nil);
- 
 
 420 
      try
- 
 
 421 
        idhttp.Post(ControlServerUrl, lParamList);
- 
 
 422 
      finally
- 
 
 423 
        FreeAndNil(idhttp);
- 
 
 424 
      end;
- 
 
 425 
    finally
- 
 
 426 
      FreeAndNil(lParamList);
- 
 
 427 
    end;
- 
 
 428 
  //except
- 
 
 429 
    // Nothing
- 
 
 430 
  //end;
- 
 
 431 
end;
- 
 
 432 
 
400 
procedure TForm1.TrayIcon1Click(Sender: TObject);
 433 
procedure TForm1.TrayIcon1Click(Sender: TObject);
401 
begin
 434 
begin
402 
  // TODO: when clicked, the icon-selection won't close
 435 
  // TODO: when clicked, the icon-selection won't close
403 
  Application.Restore;
 436 
  Application.Restore;
404 
  WindowState := wsNormal;
 437 
  WindowState := wsNormal;