Skip to main content

AccessTr.neT


Video'dan Tabloya Veri Aktarma

Video'dan Tabloya Veri Aktarma

Çözüldü #1
Merhabalar Değerli AccessTr Üyeleri,

Form üzerindeki video oynatıcıda yer alan görüntüden plaka alanını süzüp tabloya plakayı kayıt ettirmek istiyorum.
Daha önce benzer deneme yapan oldu mu, mümkünmüdür, hangi yolları izlemek gerekir?

Teşekkürler.
.rar Plaka_Tanıma.rar (Dosya Boyutu: 5,49 MB | İndirme Sayısı: 5)
Cevapla
#2
onun için resimdeki yazıları bulan özel bir program gerekmez mi?
Cevapla
#3
Gerekiyordur mutlaka ben Access te OCR uygulaması ile olur mu acaba diye denedim ama sonuç alamadım.
Cevapla
#4
Öncelikle MS Office sürümünüzde MS Office Araçları altında Microsoft Office Document Imaging altında Scanning OCR and Service Indexing Service Filter'ın yüklü olması gerekir. Yüklü değil ise Uygulamalardan Office seçeneği ile değiştir denilerek Bilgisayardan çalıştır seçeneği ile yüklemeniz gerekir. 2010 gibi eski sürümlerde ise Microsoft MODI'nin yüklenmesi ve Microsoft Office Document Imaging 11.0Type Library'nin referans olarak eklenmesi gerekir.

Yoğunluktan ne yazık ki örnek bir uygulama hazırlayamıyorum ve oldukça eski bir tarihte yapmıştık bu tip bir çalışmayı Access mi yoksa Excelde mi yaptığımızdan da çok emin olmadım ancak aşağıdaki kodları incelerseniz OCR ile işlem yapmaya ilişkin bir fikriniz olacaktır. Unutmamak gereken en önemli detay ise resim foto gibi medyalardan OCR ile alınan verilerde doğruluk oranı yüksekken streaming medialarda (video, flash gif gibi) bu oran düşmektedir.


Sub OCRReader()
Dim doc1 As MODI.Document
Dim inputFile As String
Dim strRecText As String
Dim imageCounter As Integer
inputFile = Application.GetOpenFilename
strRecText = ""
Set doc1 = New MODI.Document
doc1.Create (inputFile)
doc1.OCR ' this will ocr all pages of a multi-page tiff file
For imageCounter = 0 To (doc1.Images.Count - 1) ' tüm taranan belgelerinizi işler
    strRecText = strRecText & doc1.Images(imageCounter).Layout.Text ' OCR sonuçlarını string ifade olarak ekler
Next
fnum = FreeFile()
Open "C:\Test\testmodi.txt" For Output As fnum
    Print #fnum, strRecText
Close #fnum
doc1.Close
End Sub
Cevapla
#5
(24/09/2020, 04:33)atoykan yazdı: Öncelikle MS Office sürümünüzde MS Office Araçları altında Microsoft Office Document Imaging altında Scanning OCR and Service Indexing Service Filter'ın yüklü olması gerekir. Yüklü değil ise Uygulamalardan Office seçeneği ile değiştir denilerek Bilgisayardan çalıştır seçeneği ile yüklemeniz gerekir. 2010 gibi eski sürümlerde ise Microsoft MODI'nin yüklenmesi ve Microsoft Office Document Imaging 11.0Type Library'nin referans olarak eklenmesi gerekir.

Yoğunluktan ne yazık ki örnek bir uygulama hazırlayamıyorum ve oldukça eski bir tarihte yapmıştık bu tip bir çalışmayı Access mi yoksa Excelde mi yaptığımızdan da çok emin olmadım ancak aşağıdaki kodları incelerseniz OCR ile işlem yapmaya ilişkin bir fikriniz olacaktır. Unutmamak gereken en önemli detay ise resim foto gibi medyalardan OCR ile alınan verilerde doğruluk oranı yüksekken streaming medialarda (video, flash gif gibi) bu oran düşmektedir.


Sub OCRReader()
Dim doc1 As MODI.Document
Dim inputFile As String
Dim strRecText As String
Dim imageCounter As Integer
inputFile = Application.GetOpenFilename
strRecText = ""
Set doc1 = New MODI.Document
doc1.Create (inputFile)
doc1.OCR ' this will ocr all pages of a multi-page tiff file
For imageCounter = 0 To (doc1.Images.Count - 1) ' tüm taranan belgelerinizi işler
    strRecText = strRecText & doc1.Images(imageCounter).Layout.Text ' OCR sonuçlarını string ifade olarak ekler
Next
fnum = FreeFile()
Open "C:\Test\testmodi.txt" For Output As fnum
    Print #fnum, strRecText
Close #fnum
doc1.Close
End Sub
 Teşekkür ederim cevabınız için.  Paylaşmış olduğunuz kod ve bilgiler çerçevesinde denemelerimi devam ettiriyorum ancak henüz bir ilerleme kaydedebilmiş değilim. Tekrar teşekkürler.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da