+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Video'dan Tabloya Veri Aktarma (/konu-video-dan-tabloya-veri-aktarma.html)
Video'dan Tabloya Veri Aktarma - tekinuygun - 21/09/2020
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.
RE: Video'dan Tabloya Veri Aktarma - berduş - 21/09/2020
onun için resimdeki yazıları bulan özel bir program gerekmez mi?
RE: Video'dan Tabloya Veri Aktarma - tekinuygun - 21/09/2020
Gerekiyordur mutlaka ben Access te OCR uygulaması ile olur mu acaba diye denedim ama sonuç alamadım.
RE: Video'dan Tabloya Veri Aktarma - atoykan - 24/09/2020
Ö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
RE: Video'dan Tabloya Veri Aktarma - tekinuygun - 25/09/2020
(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.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.
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