Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma
Tarih
18/01/2013 23:54
Konu Sahibi
accessdelisi
Yorumlar
3
Okunma
1470
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
340
30/10/2008
24
-
Ofis 2010 32 Bit
Bugün,02:50
Çözüldü 
Sponsor Reklam
Herkese merhabalar.
https://www.accesstr.net/konu-access-vba...silme.html linkindeki konu ile klasör ekleme ve silme olayını hallettim. Şimdi yapamadığım bir probleme geldi sıra.

Webbrowser üzerindeki resmi uygulama ile aynı dizinde bulunan resimlerim klasörüne kaydedilmesini ve bu resmin formdaki resim kutusuna yansımasını istiyorum. Sayın üstadlarımızdan bu olayın çözümünü rica ediyorum.

Nette aramadığım yer kalmadı, webbrowser ile ilgili bu sitedeki arkadaşlardan başka anlayan bulamadım. Teşekkür ederim.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.303
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,15:42
Çözüldü 
örnek uygulama veya link ekleyebilir misin?
Cevapla

accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
340
30/10/2008
24
-
Ofis 2010 32 Bit
Bugün,02:50
Çözüldü 
Sponsor Reklam
örnek uygulama diger makinada kaldi. http://www.captcha.net/ linkindeki resim alınabilirmi?
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.303
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,15:42
Çözüldü 
İnceleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Komut1_Click()
 Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
        
        Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
        Set HTML_Img = HTML_Body.getElementsByTagName("img")
        Set AlinanResim = HTML_Img(0)
        
        URLDownloadToFile 0, AlinanResim.src, CurrentProject.Path & "\resimlerim\1.png", 0, 0
        Me.resim1.Picture = CurrentProject.Path & "\resimlerim\1.png"
End Sub
Private Sub Form_Load()
    WebBrowser1.silent = True
    WebBrowser1.Navigate2 "http://www.captcha.net/"
End Sub




Ek Dosyalar
.rar   webbrowser.rar (Dosya Boyutu: 94,57 KB / İndirme Sayısı: 51)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formdan Excelle Veri Aktarma 1453asi 4 56 Dün, 16:40 1453asi
  Formdaki Satırı Ekle Dediğimizde O Satırı Seçilenler Kutusuna Yollamak haziran4 5 53 Dün, 14:53 haziran4
  tabloya veri kaydetme hatası murat dikme 3 62 17/02/2017, 19:14 murat dikme
  İsk2Sonuc Metin Kutusunu Urun Ara Toplam Metin Kutusuna Yazdırma haziran4 2 57 14/02/2017, 12:47 haziran4
  Listeden Forma Bilgi Aktarma U.ALTUN 25 970 13/02/2017, 14:13 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya