ADLINK Technology PCI-MP4S, Руководство пользователя

Страница: 74 / 130

64 Function Library
< Visual Basic >
Dim Encoder_Index As Long, Result As Long
Public Sub encode_callback(ByVal Encoder_Index As
Long, ByVal int_status As Long, param_str As
param_struct)
Select Case (int_status)
Case 1: “preview
Case 16: “ motion detection
End Select
End Sub
Channel =0
Result =
AngeloMPEG4_Encode_Set_Callback(Encoder_Ind
ex, Encode_Callback)
< Delphi >
procedure Encode_Callback
(Encoder_Index:Longint;int_status:Longint;v
ar param_struct:param_str);stdcall
var
{* add your var here *}
begin
case int_status of
1: begin {********* Image Ready *********}
end;
2: begin {********* Set Image Config Event
*********}
end;
4: begin {********* Connected Event
*********}
end;
8: begin {********* Disconnect Event
*********}
end;
16: begin {********* Motion Detection Event
*********}
end;
end; // end case int_status of
end;