Search the Community

Boa tarde Pessoal, Estou com a seguinte dúvida, como faço para colocar componentes sobre o webbrowser, pois quero colocar um panel flutuante, mas usando o bringtofront e o sendtoback não está funcionando, apenas o webbrowser fica em 1º plano. Aguardo a ajuda de voces!! Obrigado!

Boa Noite a todos, programei por vários anos no Delphi, a ultima versão que estava acostumado era o 7. apos ter abandonado a area por mais de 15 anos. hoje estou voltando a mexer em algumas coisas estou criando um webbrowser mobile android com o berlim, e com uma finalidade especifica. Ate ai tudo certo, pois estar tudo funcionando da maneira que desejava, porem; quando acesso uma area de download da pagina que criei e clico no botao para descarregar o PDF simplismente o download não inicia e simplesmente nao faz nada. alguem poderia min dar uma dica de como proceder pois estou min reindetificando novamente com o Delphi apos todos esses anos e sem contar que estar tudo diferente no berlim

Boa Noite a todos, programei por vários anos no Delphi, a ultima versão que estava acostumado era o 7. apos ter abandonado a area por mais de 15 anos. hoje estou voltando a mexer em algumas coisas estou criando um webbrowser mobile android com o berlim, e com uma finalidade especifica. Ate ai tudo certo, pois estar tudo funcionando da maneira que desejava, porem; quando acesso uma area de download da pagina que criei e clico no botao para descarregar o PDF simplismente o download não inicia e simplesmente nao faz nada. alguem poderia min dar uma dica de como proceder pois estou min reindetificando novamente com o Delphi apos todos esses anos e sem contar que estar tudo diferente no berlim

Eu fiz utilizando o método de captar do webbrowser e passa para a listbox os dados que eu quero. Funcionou certo em algum sites de imobiliárias, onde realmente tava trazendo apenas aqueles dados. Porem quando tento usar para pegar do OLX os imoveis ele vem com muitos dados. Aqui segue o codigo html que estou tentando pegar: <div class="OLXad-details mb30px"> <div class="atributes"> <h4 class="title">Detalhes do imóvel</h4> <ul class="list square-gray"> <li class="item"> <p class="text"> <span class="term">Tipo:</span> <strong class="description">Aluguel - apartamento kitchenette</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Área útil:</span> <strong class="description">50 m²</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Quartos:</span> <strong class="description">1</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Vagas na garagem:</span> <strong class="description">1</strong> </p> </li> </ul> <div class="OLXad-features mt20px"> <p class="text"> <span>Características:</span> <ul class="OLXad-features-list"> <li>Armários embutidos</li> <li>Varanda</li> <li>Área de serviço</li> </ul> </p> </div> </div> </div> <script type="text/javascript"> self.adParams = { 'real_estate_type': 'Aluguel - apartamento kitchenette', 'condominio': '', 'iptu': '', 'size': '50', 'rooms': '1', 'beds': '', 'garage_spaces': '1', 'features': '' } </script> <div class="OLXad-location mb20px"> <div class="atributes"> <h4 class="title">Localização</h4> <ul class="list square-gray"> <li class="item"> <p class="text"> <span class="term">Município:</span> <strong class="description"> Vila Velha </strong> </p> </li> <li class="item"> <p class="text"> <span class="term">CEP do imóvel:</span> <strong class="description"> 29118-060 </strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Bairro:</span> <strong class="description"> Alecrim </strong> </p> </li> </ul> </div> </div> <div class="OLXad-id"> <p class="text"> <span class="term">Código do anúncio:</span> <strong class="description">417138772</strong> </p> </div> o Codigo que estou usando: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try ListBox1.Items.Clear() Dim Tags(1) As String Tags(0) = "span" Tags(1) = "div" If Not IsNothing(WebBrowser1.Document) Then For Each _Tag As String In Tags Dim elementos As IList(Of HtmlElement) = WebBrowser1.Document.GetElementsByTagName(_Tag).OfType(Of HtmlElement).ToList() If Not IsNothing(elementos) Then Dim elementosPesquisa As IList(Of HtmlElement) = _ elementos.Where(Function(w) w.OuterHtml.Contains("description")).ToList() If Not IsNothing(elementosPesquisa) AndAlso elementosPesquisa.Count > 0 Then For Each el As HtmlElement In elementosPesquisa ListBox1.Items.Add(el.OuterText) Next End If End If Next End If Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub Alguém pode me ajudar? Agradeço desde ja.