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
    关注
    评论

报告相同问题?

悬赏问题

  • ¥50 树莓派安卓APK系统签名
  • ¥15 maple软件,用solve求反函数出现rootof,怎么办?
  • ¥65 汇编语言除法溢出问题
  • ¥15 Visual Studio问题
  • ¥15 state显示变量是字符串形式,但是仍然红色,无法引用,并显示类型不匹配
  • ¥20 求一个html代码,有偿
  • ¥100 关于使用MATLAB中copularnd函数的问题
  • ¥20 在虚拟机的pycharm上
  • ¥15 jupyterthemes 设置完毕后没有效果
  • ¥15 matlab图像高斯低通滤波