ADLINK Technology RTV Series User Manual page 125

Dim Status As Long
Result
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 ;
begin
WaitForSingleObject(Event_Angelo,INFINITE);
AngeloRTV_Get_Int_Status(PortNo,intstatus);
ready for channel 0 of port
end;
AngeloRTV_Set_Int_Event(PortNo,Event_Angelo
);
ISR_ON :=1;
BeginThread(nil,0,ThreadFunc,nil,0,ThreadId
);
Function Library
= AngeloRTV_Get_Int_Status(PortNo,
var
Str_Add :Pointer;
Size_Byte :Longint;
intstatus : LongInt;
while(ISR_ON=1) do
begin
ResetEvent(Event_Angelo);
if intstatus = 2 then //image
begin
end;
end;
Mythread :=
115