+- 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ığı: Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma (/konu-web-browserdaki-resmi-kaydetme-ve-resim-kutusuna-aktarma.html)
Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma - access_delisi - 18/01/2013
Herkese merhabalar.
https://accesstr.net/konu-access-vba-kodu-ile-klasor-ekleme-ve-klasor-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.
Cvp: Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma - ozanakkaya - 19/01/2013
örnek uygulama veya link ekleyebilir misin?
Cvp: Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma - access_delisi - 19/01/2013
örnek uygulama diger makinada kaldi. http://www.captcha.net/ linkindeki resim alınabilirmi?
Cvp: Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma - ozanakkaya - 19/01/2013
İnceleyiniz.
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