vb6 - How to take snapshot using VLC Activex Plugin in VB 6 -


i using vlc activex plugin take snapshot video stream
when call function vlc.video.takesnapshot, return nothing
code:

dim pic ipicturedisp vlc.playlist.pause                  '--video paused set pic = vlc.video.takesnapshot    '--take snapshot , set pic vlc.playlist.play                   '--video play again if pic nothing    debug.print "nothing in pic" end if 

inmediate window display: 'nothing in pic'

takesnapshot function defined:

function takesnapshot() ipicturedisp member of axvlc.ivlcvideo take video snapshot , save picture object. 

anyone help, function doesn't work anymore, right?

dim resp variant dim ls_prev_path string dim ls_temp_path string dim pic ipicturedisp  ls_prev_path = curdir ls_temp_path = app.path + iif(right(app.path, 1) = "\", "", "\") ls_temp_path = ls_temp_path + "tmp_snapshot\"  if dir(ls_temp_path, vbdirectory) <> ""     if dir(ls_temp_path + "*.bmp") <> "" kill ls_temp_path + "*.bmp" else     mkdir ls_temp_path end if  chdir ls_temp_path  vlc1.playlist.pause set resp = vlc1.video.takesnapshot() vlc1.playlist.play  doevents  if dir(ls_temp_path + "*.*") <> ""     ls_pic_file = ls_temp_path + dir(ls_temp_path + "*.*")     set pic = loadpicture(ls_pic_file) end if  chdir ls_prev_path 

Comments

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

Android soft keyboard reverts to default keyboard on orientation change -

jquery - javascript onscroll fade same class but with different div -