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
Post a Comment