Webden Forma Browser İle Resim Gösterip Alma - Baskı Önizleme +- 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ığı: Webden Forma Browser İle Resim Gösterip Alma (/konu-webden-forma-browser-ile-resim-gosterip-alma.html) |
Webden Forma Browser İle Resim Gösterip Alma - ielmacilar - 27/07/2018 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. Cvp: Webden Forma Browser İle Resim Gösterip Alma - ozanakkaya - 27/07/2018 Merhaba, formu açıp "Resim Getir" butonunu tıklayınız. Cvp: Webden Forma Browser İle Resim Gösterip Alma - ielmacilar - 27/07/2018 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. Cvp: Webden Forma Browser İle Resim Gösterip Alma - ielmacilar - 28/07/2018 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 Cvp: Webden Forma Browser İle Resim Gösterip Alma - ozanakkaya - 28/07/2018 Uygulama ile aynı dizinde resimlerim adında klasör var mı? Var ise uygulamanızı düzenlediğiniz son halini ekleyiniz. Cvp: Webden Forma Browser İle Resim Gösterip Alma - ielmacilar - 28/07/2018 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 |