ADLINK Technology RTV Series User Manual page 126

Use Callback function
var
PortNo: SmallInt;
PortNo:=0;
procedure MyCallback(VideoBufferAddress :
LongInt;PortNo : SmallInt);stdcall
var
Str_Add :Pointer;
Result :Smallint;
Size_Byte :LongInt;
intstatus :LongInt;
begin
AngeloRTV_Get_Int_Status(PortNo,intstatus);
end;
AngeloRTV_Set_Callback(Cur_Port,MyCallback);
116
if intstatus = 2 then
begin
end;
Function Library