home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_028_Video_Input.bas < prev    next >
BASIC Source File  |  2004-03-30  |  151b  |  8 lines
  1. rc = OpenInputVideo( "c:\\temp\\test15.avi" )
  2. if rc <> 0 Then
  3.     While Image(0).GetVideo() = TRUE
  4.         Redraw(1)
  5.     Wend
  6.     rc = CloseInputVideo()
  7. endif
  8.