AccessTr.neT

Tam Versiyon: Webbrowser Olmadan Resim Kaydetmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Forma ekledigim webbrowserda gorunen resmi @ozanakkaya hocanin yardimiyla bilgisayarima kaydedebilyorum resimi webbrowser olmadan nasıl kaydedebilirim
Merhaba,

Dim myURL As String
Dim WinHttpReq As Object

myURL = "https://accesstr.net/images/logo-amp-buyuk.png"


Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")

WinHttpReq.Open "GET", myURL, False, "username", "password"
WinHttpReq.send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
   Set oStream = CreateObject("ADODB.Stream")
   oStream.Open
   oStream.Type = 1
   oStream.Write WinHttpReq.responseBody
   oStream.SaveToFile CurrentProject.Path & "\resimadi.png", 2 ' 1 = no overwrite, 2 = overwrite
   oStream.Close
End If

şeklinde kod kullanabilirsin. resimadi.png yerine resmin kaydedileceği adı veya değişkeni yazabilirsin.
Sayın @"accessdelisi" çözüm işinize yaradı mı acaba?
merhaba @ozanakkaya hocam verdigin kodu yeni uyguladım ancak tum resimleri resimadi.png seklinde kaydediyor, formdaki tc_kimlik isimli metin kutusundaki isim olmasi için ne yapmaliyim?
Sayın @"accessdelisi", 


oStream.SaveToFile CurrentProject.Path & "\resimadi.png", 2 ' 1 = no overwrite, 2 = overwrite


kodunu aşağıdaki ile değiştirerek deneyiniz.


oStream.SaveToFile CurrentProject.Path & "\" & tc_kimlik , 2 ' 1 = no overwrite, 2 = overwrite
kodun son hali icin tesekkur ederim. konu cozulmustur