옵션 |
|
emgu를 이용해서 화면에 있는 글씨를 텍스트로 읽어오는거에 관심이 있어서 이것저것 알아보다가 유툽에서 보고 따라해보고 있는데요
버그도 없이 실행이 됩니다..ㅠ 스크린을 읽어오는 부분이 계속 쉬지않고 오른쪽으로 밀리면서 picture box를 채워가고 있는데요ㅠ
버그에도 안뜨니 어떤부분이 문제인지 파악하기가 어렵네요ㅠ
Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.OCR
Imports Emgu.CV.Structure
Public Class Form1
Dim OCRz As Tesseract = New Tesseract("tessdata", "eng", Tesseract.OcrEngineMode.OEM_TESSERACT_ONLY)
Dim pic As Bitmap = New Bitmap(270, 100)
Dim gfx As Graphics = Graphics.FromImage(pic)
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'If Windows XP
gfx.CopyFromScreen(New Point(Me.Location.X + PictureBox1.Location.X + 4, Me.Location.Y + PictureBox1.Location.Y + 30), New Point(0, 0), pic.Size)
PictureBox1.Image = pic
'If Windows 7
'gfx.CopyFromScreen(MousePosition, New Point(0, 0), pic.Size)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OCRz.Recognize(New Image(Of Bgr, Byte)(pic))
RichTextBox1.Text = OCRz.GetText
End Sub
End Class
이게 코드인데요...emgu.cv.structure를 오브젝트에서 못찾아서 포함을 못시켰거든요..그게 문제인건지..
아님 윈도우8.1을 쓰고 있어서 그게 문제인건지...지속적으로 계속 화면을 캡쳐해서 밀려나는데 어케해야되나요ㅠ
도와주세요ㅠ
출처 | 멍청한 내머리ㅠ |