Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
7
Yazılar
2
Üyeler
0
Reactions
743
Görüntüleme
Konu başlatıcı
Hata Budur ; ?
[url= http://i.hizliresim.com/7k4APv.jp g" target="_blank">http://i.hizliresim.com/7k4APv.jp g"/> [/img][/url]
Office 2007 yüklü ...
Gönderildi : 29/06/2015 01:43
Selam,
Öncelikle hiç bir bilgi yazmamışsınız. Ne kullandığınız component var, ne detaylı exception mesajı var. Buradaki hata mesajına ait ekran görüntüsünü yorumlamamızı bekliyorsunuz.
OCR lamaya çalıştığın bitmaplerin formatında sorun olabilir.
Dil set etmiyor olabilirsin ya da set ettiğin dil ile ilgili bir problem olabilir.
Kullandığın component de bir hata olabilir.
Olabilirde olabilir, biraz daha detay verir isen daha spesifik cevaplar bulabilirsin.
İyi Günler Dilerim,
Gönderildi : 29/06/2015 18:38
Konu başlatıcı
Dim Dir As String = ""
Private Sub Seç()
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Resim Dosyalar1|*.jpg; *.png; *.bmp; *.jpeg; *.PNG;"
If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
Dir = OpenFileDialog1.FileName.ToString
PictureBox1.Image = Image.FromFile(Dir)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Seç()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim belge As MODI.Document = New MODI.Document
belge.Create(Dir)
belge.OCR(MODI.MiLANGUAGES.miLANG_TURKISH, True, True)
For Each resim As MODI.Image In belge.Images
Dim plan As MODI.Layout = resim.Layout
RichTextBox1.Text = plan.Text
Next
belge.Close()
Catch hata As Exception
MessageBox.Show(hata by WordShark" mce_href="http://www.cozumpark.com/forums/EditPost.aspx?PostID=467002&ReturnUrl=%2fforums%2fShowThread.aspx%3fPostID%3d467002%23467002#88521389" href="http://www.cozumpark.com/forums/EditPost.aspx?PostID=467002&ReturnUrl=%2fforums%2fShowThread.aspx%3fPostID%3d467002%23467002#88521389"> Message
.ToString, "Hata..!", MessageBoxButtons.OK, MessageBoxIcon.Error)
.ToString, "Hata..!", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
End Sub
Gönderildi : 30/06/2015 01:24
Selam,
Kullandığın office Türkçe mi ?
İyi Günler Dilerim,
Gönderildi : 30/06/2015 02:30
Konu başlatıcı
Evet , Microsoft Office 2007 ( Türkçe )
Gönderildi : 30/06/2015 12:43
Selam,
belge.OCR(MODI.MiLANGUAGES.miLANG_TURKISH, True, True) bu satırı şu satırla değiştirince çıkan sonucu gönderebilir misin
belge.OCR(MODI.MiLANGUAGES.miLANG_ENGLISH, True, True)
İyi Günler Dilerim,
Gönderildi : 30/06/2015 13:51
Konu başlatıcı
Teşekkürler! Sorun Çözüldü .
Gönderildi : 30/06/2015 14:10
