Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
27/07/2018 15:02
Konu Sahibi
ielmacilar
Yorumlar
16
Okunma
661
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ielmacilar

Aktif Üye
19585
ib.... EL....
 40
 12
 82
 09/05/2010
0
 Antalya
 Otomotiv
 Ofis 2003
 24/04/2019,13:41
Çözüldü 
Herkese Selamlar

Öncelikle formlarımız da webden browser ve web gibi aramalar yaptım çok fazla konu var hepsini inceledim benim ki biraz daha farklı gibi gördüm. Kodlama da çok bilgim yok anca örneği değiştire biliyorum oda tutarsa.

Hocalarım verdiğim örnekte forma tablolarımda bilgisi bulunan metin kutusundaki(orj parça noyu)  google'a otomatik girmesini ve resmi göstermesini istiyorum.Böyle bir şey mümkün mü?Mümkün ise de ben yapamam yada aylarımı alır.

Yardımlarınız için Şimdiden teşekkür ederim.


ielmacilar, 09-05-2010 tarihinden beri AccessTr.neT üyesidir.

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 481
 12.057
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:37
Merhaba, formu açıp "Resim Getir" butonunu tıklayınız.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

ielmacilar

Aktif Üye
19585
ib.... EL....
 40
 12
 82
 09/05/2010
0
 Antalya
 Otomotiv
 Ofis 2003
 24/04/2019,13:41
Elli tane yazdım bir tanesini gönderemedim. Yok be hocam size yazacak bir şey artık  bende yok.  Şu kafasına sıkan emoji de sıkmıyor.  
Teşekürler Ozan hocam ellerinize sağlık.


ielmacilar, 09-05-2010 tarihinden beri AccessTr.neT üyesidir.

ielmacilar

Aktif Üye
19585
ib.... EL....
 40
 12
 82
 09/05/2010
0
 Antalya
 Otomotiv
 Ofis 2003
 24/04/2019,13:41
Selamlar
Hocam Formu ve tabloya eklediğiniz parca_resmi1 ve parca_resmi2  ekledim fakat google 'la resimleri çekti formdaki resim bölümüne almadan aşağıdaki kırmızı renkteki kod hatası verdi. Kurcaladım ama çok anlayamadım.

Private Sub Komut588_Click()
Dim Form As Variant
Dim A As String
Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
WebBrowser1.Document.GetElementById("lst-ib").innertext = ÜrünNo.Value
Set Form = WebBrowser1.Document.getElementsByTagName("form")
Set Button = Form(0).onsubmit
Form(0).submit
Wait = Timer
While Timer < Wait + 2
    DoEvents
Wend

Do Until WebBrowser1.Busy = False
    DoEvents
Loop
       
Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
Set HTML_Img = HTML_Body.getElementsByTagName("img")
        
        
For X = 1 To 2
        
    Set AlinanResim = HTML_Img(X + 1)
    GResimYolu = AlinanResim.src
    GResimYolu = Replace(GResimYolu, "data:image/jpeg;base64,", "")
    A = GResimYolu
    Open CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png" For Binary As #1
    Put #1, 1, DecodeBase64(A)
    Close #1
    Controls("parca_resmi" & X) = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
    Controls("rsm_resim" & X).Picture = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
Next
        
MsgBox ("resimler geldi")



End Sub


ielmacilar, 09-05-2010 tarihinden beri AccessTr.neT üyesidir.

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 481
 12.057
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:37
Uygulama ile aynı dizinde resimlerim adında klasör var mı? 
Var ise uygulamanızı düzenlediğiniz son halini ekleyiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

ielmacilar

Aktif Üye
19585
ib.... EL....
 40
 12
 82
 09/05/2010
0
 Antalya
 Otomotiv
 Ofis 2003
 24/04/2019,13:41
Hocam 
aynen aynı dizide resimlerim diye klasör açtım. 
ama bu sefer bunu verdi hocam

Private Function DecodeBase64(ByVal strData As String) As Byte()
 
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    ' help from MSXML
    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    DecodeBase64 = objNode.nodeTypedValue
    
    ' thanks, bye
    Set objNode = Nothing
    Set objXML = Nothing
 
End Function


ielmacilar, 09-05-2010 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 199 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü Ara Toplam Alma edacan19 14 232 09/05/2019, 14:37
Son Yorum: edacan19
Çözüldü Web Sitesinden Tabloya Veri Alma aliyuzen 3 297 10/04/2019, 15:43
Son Yorum: ozanakkaya
Çözüldü Mail Gönderirken Gövdeye Yazı Aralarına Resim Eklemek Ve Satır Ara Boşlukları zetyu 6 325 22/03/2019, 23:52
Son Yorum: zetyu
Çözüldü Raporda Resim Kalitesi Bilal Demirci 4 139 11/02/2019, 17:24
Son Yorum: Bilal Demirci

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.