User`s manual

108 Function Library
< Delphi >
procedure
DecoderCallbackProc(Decoder_Index:Longint;i
nt_status:Longint;VideoBufferaddress:Longin
t); stdcall
var
Str_Addr : Pointer;
Bitrate, Framerate, colorspace,videoformat :
Longint;
begin
end;
var
m_filename, m4v_filename, avi_filename: String;
Result, m_Decoder_Channel, Width, Height,
Byte_Pixel, m_total_frame, m_Time_Seconds,
m_pos, Mode: Longint;
begin
m_Decoder_Channel:= 0;
Mode := 0; //play once
m_filenam := ‘test1.m4v’;
m4v_filename:= ‘test2.m4v’;
avi_filename := ‘test3.avi’;
Result :=
AngeloMPEG4_Decode_Set_Callback(m_Decoder_C
hannel, DecoderCallbackProc);
Result
:=AngeloMPEG4_Decode_File(m_Decoder_Channel
,m_filename,Width,Height,Byte_Pixel,m_total
_frame,m_Time_Seconds);
Result :=
AngeloMPEG4_Decode_File_Start(m_Decoder_Cha
nnel,Mode);