Function Library
115
Dim Status As Long
Result = AngeloRTV_Get_Int_Status(PortNo,
Status)
End Sub
PortNo = 0
Result = AngeloRTV_Set_Callback(PortNo, AddressOf
lpcallback)
<Delphi >
Use Thread
Var
ISR_ON : SmallInt;
Event_Angelo:Integer;
ThreadId : LongInt;
PortNo: SmallInt;
PortNo:=0;
function ThreadFunc(Parameter: Pointer):
Integer ;
var
Str_Add :Pointer;
Size_Byte :Longint;
intstatus : LongInt;
begin
while(ISR_ON=1) do
begin
WaitForSingleObject(Event_Angelo,INFINITE);
ResetEvent(Event_Angelo);
AngeloRTV_Get_Int_Status(PortNo,intstatus);
if intstatus = 2 then //image
ready for channel 0 of port
begin
end;
end;
end;
AngeloRTV_Set_Int_Event(PortNo,Event_Angelo
);
ISR_ON :=1;
Mythread :=
BeginThread(nil,0,ThreadFunc,nil,0,ThreadId
);
Summary of Contents for cRTV-24
Page 4: ......
Page 8: ...List of Tables iv Table 5 2 C C Data Types 83 Table 5 3 Pixel Data 122 ...
Page 10: ......
Page 18: ...8 Introduction ...
Page 34: ...24 Hardware Reference Figure 2 8 STRG Address Jumpers ...
Page 55: ...Installation Guide 45 Figure 3 2 cRTV 24 3U cPCI ...
Page 61: ...Installation Guide 51 ...
Page 62: ...52 Installation Guide ...
Page 64: ...54 Installation Guide The Device Manager should be as follows ...
Page 67: ...Installation Guide 57 ...
Page 68: ...58 Installation Guide 3 When the following window appears please click Con tinue Anyway ...
Page 70: ...60 Installation Guide The Device Manager should be as follows ...
Page 72: ...62 Installation Guide 3 Click the Finish button to finish the installation ...
Page 76: ...66 Installation Guide ...
Page 144: ...134 Function Library ...
Page 174: ...164 Programming Guide ...