User`s manual

130 Appendix: GEME-VM3000 Series Introduction
}
if((int_status>>2 & 0x01) == 1) //Connection
establish
{
//Prepare DC for Preview
int Bitrate = 0, frame_rate = 0,
colorspace = 0;
AngeloMPEG4_Decode_Get_Config(channel,
&iWidth, &iHeight, &videoformat,
&colorspace, &Bitrate, &frame_rate);
}
}
Result = AngeloMPEG4_Decode_Set_Callback(channel,
Decode_Callback);
< Visual Basic >
Dim Result As Long, channel As Long
Public Sub lpcallback(ByVal channel As Long,
ByVal int_status As Long, ByVal
VideoBufferaddress As Long)
If int_status And &H2 Then
'detected motion
ElseIf int_status And &H4 Then '
connect to encoder
ElseIf int_status And &H1 Then '
image ready
End If
End Sub
Result =
AngeloMPEG4_Decode_Set_Callback(channel,
AddressOf lpcallback)
< Delphi >
procedure DecoderCallbackProc(channel:Longint;
int_status:Longint;
VideoBufferaddress:Longint); stdcall
var
Str_Addr: Pointer;
Bitrate, Framerate, colorspace, videoformat:
Longint;
begin
case int_status of