Skip to main content

AccessTr.neT


Webbrowser Olmadan Resim Kaydetmek

access_delisi
access_delisi
4
948

Webbrowser Olmadan Resim Kaydetmek

Çözüldü #1
Forma ekledigim webbrowserda gorunen resmi @ozanakkaya hocanin yardimiyla bilgisayarima kaydedebilyorum resimi webbrowser olmadan nasıl kaydedebilirim
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#2
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?
Cevapla
#3
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?
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#4
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
Cevapla
#5
kodun son hali icin tesekkur ederim. konu cozulmustur
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da