Result = Angelortv_Copy_Frame; Angelortv_Get_Frame; Result = Angelortv_Get_Frame; Angelortv_Save_File - ADLINK Technology RTV Series User Manual

PortNo = 0

File_Format = 2
NQuality = 25
Result = AngeloRTV_Save_File (PortNo,
"Image.jpg", File_Format, NQuality)
<Delphi >

AngeloRTV_Copy_Frame

Var
Result : SmallInt;
PortNo: SmallInt;
Size_Byte :Longint;
Dest_Add : array of Byte;
PortNo := 0;
Size_Byte := 640*480*3;
SetLength(Dest_Add, Size_Byte);
Result := AngeloRTV_Copy_Frame (PortNo,
Dest_Add[0], Size_Byte);

AngeloRTV_Get_Frame

Var
Result : SmallInt;
PortNo: SmallInt;
Size_Byte : LongIng;
Width :LongIng;
Height :LongIng;
Str_Add :Pointer;
PortNo:=0;
Result :=AngeloRTV_Get_Frame(PortNo,
Str_Add,Width, Height, Size_Byte);

AngeloRTV_Save_File

Var
Result : SmallInt;
PortNo: SmallInt;
File_Format : Byte;
NQuality :LongInt;
PortNo:=0;
File_Format:=2;
Nquality := 25;
Result := AngeloRTV_Save_File (PortNo,
'Image.jpg', File_Format, Nquality)
126 Function Library