Rev 7 | Go to most recent revision | Show entire file | Ignore 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 |
103 | try |
105 | //try |
104 | try |
106 | try |
- | 107 | UpdateIPTimerTimer(UpdateIPTimer); // make sure we are registered |
|
- | 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 |
182 | try |
186 | //try |
183 | try |
187 | try |
- | 188 | UpdateIPTimerTimer(UpdateIPTimer); // make sure we are registered |
|
- | 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; |