User`s manual

Appendix: GEME-VM3000 Series Introduction 121
interval, action, X_Start, Y_Start, Width,
Height);
< Visual Basic >
Dim Result As Long, Encoder_Index As Long, enable
As Long, Threshold As Long, interval As
Long, action As Long, area As Long, X_Start
As Long, Y_Start As Long, Width As Long,
Height As Long
Encoder_Index = 0
enable = 1
Threshold = 5
interval = 3
action = 1
area =1
X_Start = 0
Y_Start =0
Width = 160
Height = 120
Result =
AngeloMPEG4_Encode_Set_Motion_Detection(Enc
oder_Index, area, enable, Threshold,
interval, action, X_Start, Y_Start, Width,
Height)
<Delphi >
var
Encoder_Index, Result: Longint;
enable, Threshold, interval, action: Longint,
area:Longint, X_Star:Longint,
Y_Start:Longint, Width: Longint,
Height:Longint;
begin
Encoder_Index:= 0;
enable := 1;
Threshold := 5;
Interval := 3; // 3 sec
Action := 1; // callback
area =1;
X_Start = 0;
Y_Start =0;
Width = 160;
Height = 120;
if (enable = 1) then