Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma

18/01/2013, 23:54

access_delisi

Herkese merhabalar.
https://accesstr.net/konu-access-vba-kod...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.
19/01/2013, 00:45

ozanakkaya

örnek uygulama veya link ekleyebilir misin?
19/01/2013, 00:58

access_delisi

örnek uygulama diger makinada kaldi. http://www.captcha.net/ linkindeki resim alınabilirmi?
19/01/2013, 03:05

ozanakkaya

İ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