ADLINK Technology RTV Series User Manual page 98

Result = AngeloRTV_Get_Version (DriverVersion(0),
DLLVersion(0), Reserved(0))
strDriverVersion = CStr(DriverVersion(0)) + "." +
CStr(DriverVersion(1)) + "." +
CStr(DriverVersion(2)) + "." +
CStr(DriverVersion(3))
strDLLVersion = CStr(DLLVersion(0)) + "." +
CStr(DLLVersion(1)) + "." +
CStr(DLLVersion(2)) + "." +
CStr(DLLVersion(3))
<Delphi >
AngeloRTV_Initial –
var PortNo,Result:SmallInt;
for i:= 0 to 3 do
begin
Result := AngeloRTV_Initial (PortNo);
End;
AngeloRTV_Cose –
var PortNo,Result:SmallInt;
for i:= 0 to 3 do
begin
Result := AngeloRTV_Close (PortNo);
End;
AngeloRTV_Software_Reset–
var PortNo,Result:SmallInt;
for i:= 0 to 3 do
begin
Result := AngeloRTV_Software_Reset (PortNo);
End;
AngeloRTV_Read_Serial–
var
CardNo,Result:SmallInt;
HighByte, LowByte:SmallInt;
Result := AngeloRTV_Read_Serial(CardNo, HighByte,
LowByte)
AngeloRTV_Get_Version –
var
Result: Smallint;
DriverVersion: array[1..4] of Longint;
DLLVersion: array[1..4] of Longint;
Reserved: array[1..4] of Longint;
strDriverVersion, strDLLVersion: String;
88 Function Library