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

Страница: 107 / 178

Function Library 97
Result = AngeloRTV_Set_Video_Format(ByVal PortNo,
ByVal VideoFormat)
Result = AngeloRTV_Get_Video_Format(ByVal PortNo,
ByRef VideoFormat)
AngeloRTV_Set_Image_Geometric –
Dim Result As Integer
Dim PortNo As Integer
Dim X_Active As Long
Dim Y_Active As Long
Dim X_Offset As Long
Dim Y_Offset As Long
Dim X_Scale As Double
Dim Y_Scale As Double
PortNo = 0
X_Active = 600
Y_Active = 400
X_Offset = 40
Y_Offset = 80
X_Scale = 1.0
Y_Scale = 1.0
Result = AngeloRTV_Set_Image_Geometric (PortNo,
X_Offset, Y_Offset, X_Active, Y_Active,
X_Scale, Y_Scale)
AngeloRTV_Detect_Video_Format –
Dim Result As Integer
Dim PortNo As Integer
Dim FormatValue As Byte
PortNo = 0
Result = AngeloRTV_Detect_Video_Format (ByVal
PortNo, ByRef FormatValue)
<Delphi >
AngeloRTV_Set_Image_Config –
AngeloRTV_Get_Image_Config –
Var
Result : SmallInt;
PortNo : SmallInt;
ConfigIndex: Byte;
Value: Byte;
PortNo:=0;
ConfigIndex:=0;
Value:=0;
Result := AngeloRTV_Set_Image_Config
(PortNo,ConfigIndex, Value);