yuanjiansh 2016-09-17 08:17 采纳率: 0%
浏览 1339
已结题

vb studio 2013 tesseract ocr 后图片不释放,第二次存图失败

‘使用OCR后图片一直被占用,导致后面无法更新图片

Public Class Form1
'使用Tesseract進行OCR
Function TesseractOCR(img As Bitmap) As String
Try
Dim ocr As New tessnet2.Tesseract
ocr.SetVariable("tessedit_char_whitelist", "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
ocr.Init(".\tessdata", "eng", False)
Dim result As List(Of tessnet2.Word) = ocr.DoOCR(img, Rectangle.Empty)
Dim str As String = ""
For i As Integer = 0 To result.Count - 1
str &= result(i).Text
Next
Return str
img = Nothing
Catch ex As Exception
Throw ex
End Try
Return String.Empty
End Function

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Dim img As New Bitmap(Image.FromFile("D:\newtest2.bmp"))
     TextBox1.Text = TesseractOCR(img)
 End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
     Dim SngPer As Integer
     SngPer = CInt(TextBox2.Text)
     Dim PicOld As Image = Image.FromFile("D:\test2.bmp")
     Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)
     PicNew.Save("D:\newtest2.bmp", Drawing.Imaging.ImageFormat.Bmp)
 End Sub

End Class

下载地址:http://pan.baidu.com/s/1nvo6N7j

  • 写回答

1条回答

  • zqbnqsdsmd 2016-09-27 17:24
    关注
    评论

报告相同问题?

悬赏问题

  • ¥100 有人会搭建GPT-J-6B框架吗?有偿
  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名