Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma
Tarih
18/01/2013 23:54
Konu Sahibi
accessdelisi
Yorumlar
3
Okunma
1509
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Üye
340
30/10/2008
27
27/03/2017,17:10
Çözüldü 
Herkese merhabalar.
https://www.accesstr.net/konu-access-vba...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.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.565
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
örnek uygulama veya link ekleyebilir misin?
Cevapla

accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Üye
340
30/10/2008
27
27/03/2017,17:10
Çözüldü 
örnek uygulama diger makinada kaldi. http://www.captcha.net/ linkindeki resim alınabilirmi?
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.565
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
İnceleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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




Ek Dosyalar
.rar   webbrowser.rar (Dosya Boyutu: 94,57 KB / İndirme Sayısı: 51)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formda Resim Ekleme mharman 4 117 13/05/2017, 19:29 mharman
  Access Raporlamasını Pdf Olarak Kaydetme adaletinsesi 4 114 13/05/2017, 12:25 atoz112
  Tablolar Arası Aktarma Sorunu kübrashn 6 122 12/05/2017, 15:22 kübrashn
  Metin Kutusuna Sorgudaki Satırları Yazdırma ALTANs 7 137 28/04/2017, 11:28 atoz112
  Liste Kutusundan Çoklu Seçim Yaparak Alt Forma Aktarma sadikkavakli 3 93 25/04/2017, 08:01 sadikkavakli


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status