Public Sub hello()
Dim bmp As New Bitmap(2000, 2000)
Dim srcRect As New RectangleF(100, 90, 300, 50)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawImage(Image.FromFile("image.jpg"), 0, 0, srcRect, GraphicsUnit.Pixel)
PictureBox1.Image = bmp
ocrRegion(g) ' How to do this? I tried ocrRegion(bmp) it fails also
End Sub
Public Sub ocrRegion(ByVal bmp)
Dim doc As MODI.Document
Dim img As MODI.Image
doc = CType(CreateObject("MODI.Document"), MODI.Document)
doc.Create(bmp) ' PROBLEM RELIES HERE
doc.OCR(MODI.MiLANGUAGES.miLANG_ENGLISH, True, False)
For i As Integer = 0 To doc.Images.Count - 1
img = CType(doc.Images.Item(i), MODI.Image)
Me.RichTextBox1.Text += img.Layout.Text()
Next
doc.Close()
doc = Nothing
End Sub
ocrRegion(g)
and
Public Sub ocrRegion(ByVal bmp)
ocrRegion(bmp)
and
Public Sub ocrRegion(ByVal bmp As Bitmap)