1
Download Result
Transcript
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 ); Function Library 115
