accesste tarayıcı kullanma
#1
selam arkadaşlar accesste tarayıcıyı kullanarak resim aktarabilirmiyim sayfama evrak arşiv programı yapmak istiyorum ama yardım lütfen



  Alıntı
Bu mesajı beğenenler:
#2
Tarayıcının arayüzü kullanarak softunu alabilirsin daha sonra,
Sayın Taruz'un yaptığı bir örnek var aşağıda, bunu inceleyebilirsin..

http://www.access-sql.com/forma-buton-ku...t-296.html



  Alıntı
Bu mesajı beğenenler:
#3
sanırım sorumu yanlış sordum ben ekranda tıkladığım zaman tarayıcı çalışıp resimi formuma ekleyecek



  Alıntı
Bu mesajı beğenenler:
#4
Sn Mankenyavuz;
Formunuza koyacağınız komut butonuna, uygulama seçeneğininde,
uygulama çalışırtır ile tarayıcı programınızın exe sini tanıtırsanız.
Tarayıcınız çalışacaktır.Fakat bundan sonraki aşamlar konusunda ,
yeterli bilgim olmadığı için cevap veremeyeceğim kusura bakmayın.
Sanırım konuya vakıf arkadaşlarımız ilgileneceklerdir.



  Alıntı
Bu mesajı beğenenler:
#5
teşekkürler yarıdmınız için bakalım bir deneyelim nasıl olacak



  Alıntı
Bu mesajı beğenenler:
#6
wia dll dosyasını microsofttan indir şayet servicepack3 yüklü ise wia dll de yüklüdür referanslardan tanıt sonra formuna bir adet commondialog nesnesi ekle bir adet komut butanu ve bir adetde metinktusus ve bu kodu formuna ekleyerek kendi nesnelerine verdiğin adlara göre düzelt bu resimleri tif formatında tarar sen isteresen uzantıyı jpeg olarak değiştirebilirsin şayet bu resimleri formunda göremek istersen onunla ilgili szaten formlarda bir çok örnek var sadece sen bu resimlerein yolunu resim nesnesine gösterirsin neyse kod aşağıda

Visual Basic
  1. Private Sub Komut1_Click()
  2. Call belgetara("C:\belgeler\", Me.belgeno)
  3. End Sub
  4.  
  5. Function belgetara(dosyayolu, dosyaadi)
  6. Dim CommonDialog1 As Object
  7. Dim Img
  8. On Error Resume Next
  9. Kill dosyayolu + dosyaadi + ".tif"
  10. On Error GoTo belgetara_Error
  11. Set CommonDialog1 = CreateObject("WIA.CommonDialog")
  12. Set Img = CommonDialog1.ShowAcquireImage
  13. If Img.FormatID <> wiaFormatTIFF Then
  14. Dim IP
  15. Set IP = CreateObject("Wia.ImageProcess")
  16. IP.Filters.Add IP.FilterInfos("Convert").FilterID
  17. IP.Filters(1).Properties("FormatID").Value = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
  18. Set Img = IP.Apply(Img)
  19. End If
  20. Img.SaveFile dosyayolu + dosyaadi + ".tif"
  21. Exit Function
  22. belgetara_Error:
  23. If Err.Number = -2145320957 Then
  24. MsgBox "Cihaz Secmediniz"
  25. Resume
  26. End If
  27. MsgBox Err.Description & Chr(13) & Chr(10) & "Error # " & Err.Number
  28. End Function





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Firmalardan Yapılacak Kesintileri Accesste Takip Etmek loocas 1 295 02-02-2026, 01:43
Son Mesaj: dsezgin
  Accesste Personel şeması ahmet114 15 1.025 05-02-2024, 19:07
Son Mesaj: dsezgin
  [MAKRO] Bir Klasörde Bulunan Txt Leri Accesste Tabloya Eklemek Istiyorum. yasin273 3 539 06-12-2023, 17:27
Son Mesaj: dsezgin
  Web Tarayıcı Değiştirilebiliyormu serdem48 7 1.007 08-08-2023, 09:30
Son Mesaj: serdem48
  Accesste Txt Den Veri Alma .Sude. 4 631 22-06-2023, 19:52
Son Mesaj: dsezgin
  [SORGU] Sorgu Tasarımında Tarihler Ve Arama Kriter Kullanma feraz 8 880 06-04-2023, 12:31
Son Mesaj: halily
  şifre Olarak O Anki Sistem Saatini Kullanma. invitation 2 526 20-01-2022, 12:54
Son Mesaj: onur_can
  [FORM] Müşteri Için çoklu Müşteri Adresi Ekleme Kullanma anno 4 736 10-10-2021, 20:24
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):