Skip to main content

AccessTr.neT


Web Kamerada Kare Kod Okuma

Web Kamerada Kare Kod Okuma

Çözüldü #1
Merhaba hocalarım.

Forumda aradım fakat örnek bir uygulama bulamadım. Ekli örnekte formda bulunan verilere Kare kod üretip pc ye kaydedebiliyorum.

Kare kodu Androidte kare kod okuyucu uygulama ile,
Windows ta ise Form üzerinde bulunan kamera aç butonu ile zbarcam adlı barkod okuyucu uygulamayı açıp, kare kodu okutuyorum.
ekli resimde de görüleceği üzere bilgiyi cmd ekranında göstermekte ve türkçe karakterler bozulmaktadır.

[Resim: do.php?img=9228]


Benim yapmak istediğim form içinde kamerayı açmak ve okutulan kare kodda bulunan metni form üzerinde görmek. Yani Access Kare kod okuyucu yapmak

İlginize şimdiden teşekkürler.
Son Düzenleme: 13/10/2019, 19:37, Düzenleyen: murat dikme.
Cevapla
#2
Merhaba.
Ozan Hocamın desteği ile http://www.qrcodeshowto.com/qr-code-webc...heet-zbar/ adresindeki işlemleri projeme uygulamaya çalıştım.

Zbar Command Prompt komutunu çalıştırmak için QRScan.bat dosyası oluşturdum ve Form üzerindeki buton tıklandığı olayına

Visual Basic Code
"Shell ("C:\QRScan.bat")

kodunu yazdım. butonu tıklayınca aşağıdaki ekran açılmakta [Resim: do.php?img=9233]

gelen ekrana "Zbarss" yazıp enter diyorum.

[Resim: do.php?img=9234]

ve ekrandaki gibi " Erişim Engellendi" hatası vermekte ve işlemi yapamamaktadır. Hata Yönetici olarak çalıştırılmadığından dolayı işlemi yapmamaktadır.
""QRScan.bat"" dosyasını normalde çalıştırdığımda hata vermemektedir.

Form buton tıklandığı olayında dosyayı yönetici olarak çalıştırmak için nasıl bir söz dizimi kullanmalıyım

[Resim: do.php?img=9235]
Cevapla
#3
isterseniz bir modüle eğer başka formlarda kullanmayacaksanız 
Visual Basic Code
Shell ("C:\QRScan.bat")
kodunun olduğu formun modülüne
aşağıdaki kodu ekleyin
Visual Basic Code
#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
#Else '32 bit için
Private Declare  Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
#End If


Const SW_SHOWNORMAL = 1
sonrada
Visual Basic Code
Shell ("C:\QRScan.bat")
kodunu aşağıdaki kodla değiştirerek deneyin
bat dosyası içine yazdığınız kodları bilmiyorum ama shell komutunun içine gömemez misiniz o kodları?
dilerim işinize yarar
Visual Basic Code
  ShellExecute 0, "runas", "C:\QRScan.bat", "", vbNullString, SW_SHOWNORMAL
Cevapla
#4
Merhaba.
Başta burda bizlere her konuda destek olan hocalarıma teşekkür ederim. Hepsinin üzerimde emeği fazlasıyla vardır.

Access Üzerinden webcam kullanarak kare kod okuma örnek uygulama ektedir. İnceleyebilirsiniz.

İŞLEMLER:

Ozan Hocamın desteği ile http://www.qrcodeshowto.com/qr-code-webc...heet-zbar/ adresindeki işlemleri projeme uyguladım. Burada belirtildiği gibi dosyaları indirip yönergeleri izleyebilirsiniz.
(Dosyalar Ekte mevcuttur.)
1- zbar-0.10-setup dosyasını bilgisayara kurdum.
2- zbarSpreadSheet ve zbarss dosyalarını programın kurulu olduğu dizine ekledim.
3- Ekli dosyada bulunan QRScan.bat, Zbarvars ve Zbarvars2 Dosyalarını kendime göre düzenledim.

bu işlemler bittiğinde Formu açıp Kamera aç butonuna tıkladığımda bir mesaj penceresi ve Webcam açılıyor. Açılan pencereye "Tamam" demeden önce formuma eklediğim alt forma maus ile tıklayıp  daha sonra tamama bastığımda kare kodda bulunan verileri tabloya yazdı. 

Umarım işinize yarar.

[Resim: do.php?img=9237]
.rar WebCamQRCodeOkuma.rar (Dosya Boyutu: 422,36 KB | İndirme Sayısı: 9)
Son Düzenleme: 16/10/2019, 01:40, Düzenleyen: murat dikme.
Cevapla
#5
paylaşım için teşekkürler @murat dikme
Cevapla
#6
(16/10/2019 00:23)berduş Adlı Kullanıcıdan Alıntı: paylaşım için teşekkürler @murat dikme

Emekleriniz için size ve diğer hocalarıma ben teşekkür ederim sayın @berduş
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da