以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Aforge拍照示例中，如何让拍照后删除所有图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137350)
--  作者：ymjr2011
--  发布时间：2019/7/4 7:57:00
--  [求助]Aforge拍照示例中，如何让拍照后删除所有图片
Aforge拍照示例中，在拍照后通过百度的的文字识别采集到信息后，删除所有的图片如何改以下代码

Dim pl As WinForm.Panel = e.Form.Controls("Panel1")
Dim player As Aforge.Controls.VideoSourcePlayer = pl.basecontrol.controls("vp")

addhandler player.newframe, addressof player_newframe
Dim fileName As String = "54250.jpg"  & DateTime.Now.ToString("yyyy-MM-dd-HH-mm-ss-ff") & ".jpg"
If filesys.FileExists(projectpath & "temp.jpg") Then
    FileSys.CopyFile(projectpath & "temp.jpg",projectpath & filename)
    FileSys.DeleteFile(projectpath & "temp.jpg")
    MessageBox.Show("保存成功!")
Else
    MessageBox.Show("请重新拍照!")
End If
removehandler player.newframe, addressof player_newframe
--  作者：有点蓝
--  发布时间：2019/7/4 9:25:00
--  
在调用百度的的文字识别之后，删除：http://www.foxtable.com/webhelp/topics/0338.htm