+- 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ığı: Webbrowser Olmadan Resim Kaydetmek (/konu-webbrowser-olmadan-resim-kaydetmek.html)
Webbrowser Olmadan Resim Kaydetmek - access_delisi - 29/09/2018
Forma ekledigim webbrowserda gorunen resmi @ozanakkaya hocanin yardimiyla bilgisayarima kaydedebilyorum resimi webbrowser olmadan nasıl kaydedebilirim
Cvp: Webbrowser Olmadan Resim Kaydetmek - ozanakkaya - 29/09/2018
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?
Cvp: Webbrowser Olmadan Resim Kaydetmek - access_delisi - 30/09/2018
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?
Cvp: Webbrowser Olmadan Resim Kaydetmek - ozanakkaya - 30/09/2018
Sayın @"accessdelisi",
oStream.SaveToFile CurrentProject.Path & "\resimadi.png", 2 ' 1 = no overwrite, 2 = overwritekodunu aşağıdaki ile değiştirerek deneyiniz.
oStream.SaveToFile CurrentProject.Path & "\" & tc_kimlik , 2 ' 1 = no overwrite, 2 = overwriteCvp: Webbrowser Olmadan Resim Kaydetmek - access_delisi - 29/10/2018
kodun son hali icin tesekkur ederim. konu cozulmustur