User`s manual

Function Library 69
< Visual Basic >
Dim Result As Long, Encoder_Index As Long,
interval_second As Long, format As Long
Encoder_Index = 0;
n_file_name = “test”
interval_second = 60
format = 3 “save both format
Dir = “temp”
Result =
AngeloMPEG4_Encode_Save_File_Start(Encoder_
Index, n_file_name, interval_second,
format)
< Delphi >
Var
Encoder_Index, Result: Longint;
Dir, n_file_name: String;
interval_second, format: Longint;
begin
Encoder_Index:= 0;
Dir := “C:\VideoDir”;
n_file_name := Dir + “\” + “Video0”;
interval_second := 60;
format := 3; // save both format
Result :=
AngeloMPEG4_Encode_Create_Directory(Encoder
_Index, Dir);
Result :=
AngeloMPEG4_Encode_Save_File_Start(Encoder_
Index, n_file_name, interval_second,
format);
end;