acceste scanner programını kullanıp resim aktarma nasıl olur

[mankenyavuz]

selam arkadaşlar access te bir form yapsam buraya bir resim yeri eklesem scannerdan taradığım belgeyi bu alana tarayıp otomatik yerleştirebilirmiyim. Bilgisi olan varmı

 

[mankenyavuz]

sanırım soruda eksik cümle kurmuşum access üzerinde bir buton oluşturup burdan otomatik tarama yapıp forma eklesem olabilirmi yada nasıl yaparım

 

[gulsum1]

wia kodlarına bir bak orda hepsi var

 

[mankenyavuz]

wia kodları? nerden bulabalirim

 

[gulsum1]

wia kodları

Windows Image Acquisition (WIA) windowsun kamera fotoğraf makinesi ve scanner den resim alma ve bu resimleri işleme kütüphanesidir resimleri alırsınız küçültür büyütür kırpar renklerinde oynama yapabilirsiniz kısaca microsoft photo editor un taban kodları ve kamera tarayıcı sihirbazı kodlarının kütüphane olarak hizmete açılmış şeklidir

burada dökümanlar
http://www.microsoft.com/whdc/device/stillimage/WIA-arch.mspx
burdada
dll dosyası var ayrıca sdk yardım dosyasıda var

http://www.microsoft.com/downloads/...FamilyID=a332a77a-01b8-4de6-91c2-b7ea32537e29

bak bir şeyler yapmaya çalış yapamazsan o zaman yardımcı oluruz

gerçi biz bu kütüphaneyi çözene kadar webcamden fotoğraf almayı ezvidcap adlı ocx den yapıyorduk ama bu dll nin neler yapabildiğini görünce ondan vazgeçtik kendi adıma gerçi hal bir çok kişi ezvidcap kullanıyor ama neyse bu yaızya bakarak ezvidcap kullanmayı düşünme o sadece video ve fotoğraf alma activex idir fakat wia fotoğraf video scanner fotoğraf makinesi yani bilgisayara takılı her görüntü aygıtından hareketli yada hareketsiz görüntü alma ve işleme kodları nı barındırına dll kütüphanesidir

 

[gulsum1]

Private Sub Komut1_Click()
Call belgetara("C:\belgeler\", Me.belgeno)
End Sub

Function belgetara(dosyayolu, dosyaadi)
Dim CommonDialog1 As Object
Dim Img
On Error Resume Next
Kill dosyayolu + dosyaadi + ".tif"
On Error GoTo belgetara_Error
Set CommonDialog1 = CreateObject("WIA.CommonDialog")
Set Img = CommonDialog1.ShowAcquireImage
If Img.FormatID <> wiaFormatTIFF Then
Dim IP
Set IP = CreateObject("Wia.ImageProcess")
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
Set Img = IP.Apply(Img)
End If
Img.SaveFile dosyayolu + dosyaadi + ".tif"
Exit Function
belgetara_Error:
If Err.Number = -2145320957 Then
MsgBox "Cihaz Secmediniz"
Resume
End If
MsgBox Err.Description & Chr(13) & Chr(10) & "Error # " & Err.Number
End Function

 

[mankenyavuz]

ya rica etsem örnek yapabilirmisiniz ben bir türlü beceremedim şimdiden teşekkürler