25-11-2015, 12:27 (En son düzenleme: 25-11-2015, 12:28 makrovba.)
Merhabalar,
Veritabanımdaki Link alanında bulunan resim linklerinin bazılarını bilgisayarıma kayıt etmek istiyorum. Liste kutusu yaptık linki seçtiğimde Formdaki web tarayıcısında açıyor ve sağ tıklayıp farklı kaydet diyorum. Ben bunu bir buton yardım ile yapmak istiyorum.
(25-11-2015, 15:18)dsezgin83260 demiş ki: Resmi bilgisayara indirme ve form uzerinde gosterilme eylemini, Buradan ulasabilirsiniz.
İlgili örneği kendi dosyama göre uyarladım ve üsteki gibi hata verdi daha sonra Aşağıdaki fonksiynun adını DownloadFile yaptım hatavermedi ancak seçtiğim linkteki resim geliyor ama bilgisayarıma o resim kayıt olmuyor. Benim istediğim line tıkladığımda açılan resim bilgisayarıma indirilmesi
Function WebIndDosya (URL As String, ResimYeri As String) As Boolean
Klasor = "D:\A1.jpg" ile her gosterilen resmi ayni dosya olarak degerlendiriyor, dosya adini farklilastirilmasi ile bilgisayarinizda belitilmis klasorde resmi olabilir.
(25-11-2015, 22:01)dsezgin83260 demiş ki: Klasor = "D:\A1.jpg" ile her gosterilen resmi ayni dosya olarak degerlendiriyor, dosya adini farklilastirilmasi ile bilgisayarinizda belitilmis klasorde resmi olabilir.
Teşekkürler şimdi oldu. Kodu aşağıdaki gibi düzelttim. Her seçtiğimde resim ekrana geliyor ve bilgisayara kayıt ediyor.
[undefined=undefined]Function kopya(strImgPath As String) As Boolean
Dim x As Boolean, Klasor As String
Klasor = "E:\XML\" & Mid(strImgPath, 42) '******* Buradaki klasor adini degistirebilirsiniz.*********
If Dir(Klasor, vbNormal) <> "" Then Kill Klasor
IndPic = DownloadFile(strImgPath, Klasor)
If IndPic = False Then
DoEvents
Forms("Form2")!Resim.Picture = Klasor
End If
End Function
[/undefined]
