En iyi yanıtlayıcılar
PictureBox Resmini Yazıya Çevirme

Soru
-
Private Sub cevir() While E_Bildirge.WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() End While Dim dir As String = Environment.SystemDirectory MergeImages(PictureBox1.Image) PictureBox1.Image.Save(dir & "\test.png") fncOCR_Text(dir & "\test.png") System.IO.File.Delete(dir & "\test.png") End Sub Public Function MergeImages(ByVal Pic1 As Image) As Image Dim MergedImage As Image Dim bm As New Bitmap(150, 60, PixelFormat.Format32bppArgb) Dim gr As Graphics = Graphics.FromImage(bm) gr.FillRectangle(New SolidBrush(Color.White), New Rectangle(0, 0, 800, 600)) gr.DrawImage(Pic1, 0, 0) MergedImage = bm PictureBox1.Image = MergedImage
gr.Dispose() Return MergedImage End Function Public Function fncOCR_Text(ByVal strImagePath As String) As String Dim miDoc As MODI.Document Dim miLayout As MODI.Layout Dim strText As String miDoc = New MODI.Document miDoc.Create(strImagePath) miDoc.Images(0).OCR() miLayout = miDoc.Images(0).Layout strText = Trim(miLayout.Text) fncOCR_Text = strText TextBox1.Text = strText miLayout = Nothing miDoc = Nothing Return strText End Function Private Sub D1Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D1Button1.Click cevir() End Sub
Bu şekilde PictureBox daki remimi yazıya çeviriyordum. Fakat Aşağıdaki Hata İletisini alıyorum. Bunun önüne nasıl geçebilirim. Teşekkürler
Yanıtlar
-
Merhaba,
Yaşadığınız problemle ilgili buradaki çözüm adımlarını deneyebilirsiniz.
İyi çalışmalar dilerim.
Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır. Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
- Yanıt Olarak İşaretleyen Serkan Canseven 3 Ekim 2014 Cuma 15:06
Tüm Yanıtlar
-
Merhaba,
Yaşadığınız problemle ilgili buradaki çözüm adımlarını deneyebilirsiniz.
İyi çalışmalar dilerim.
Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır. Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
- Yanıt Olarak İşaretleyen Serkan Canseven 3 Ekim 2014 Cuma 15:06
-
Merhaba,
Yaşadığınız problemle ilgili buradaki çözüm adımlarını deneyebilirsiniz.
İyi çalışmalar dilerim.
Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır. Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
kodlarım xp olan bilgisayarda çalışıyor fakat win7 de çalışmıyor
sebebi ne olabilir acaba ?