Valeu Companheiro, matou a pau, vou aproveitar e a aparti da sua dica, pegar a mais outras informações e cadastrar no meu bd.
um abraço e sucesso Gilvan Costa --- Em delphi-br@yahoogrupos.com.br, "Guionardo Furlan" <[EMAIL PROTECTED]> escreveu > > Faça uma procura por qualquer string que inicie por "mailto:"; E > termine com um ">". > Isso, se o html contiver os emails em formato de link. > > Para uma lista em modo texto, faça a procura por "@". A partir da > posição encontrada, volte até encontrar um delimitador (espaço, <, ou > outros [verifique no código html]). > Continue para o fim da string, procurando por outro delimitador. > Sabendo o início e o fim, é só adicionar nos items do combobox. > > O código, vc escreve. > > Em 28/01/08, Draweppe <[EMAIL PROTECTED]> escreveu: > > > > Olá Srs > > > > Qual a melhor forma de extrair emails em uma página da web? > > > > Eu já consigo pegar o código html de uma página que está no webbrowser e transportar para um memo. > > ---------------------------------------------------------- > > var > > iall : IHTMLElement; > > > > begin > > > > if Assigned(WebBrowser1.Document) then > > begin > > iall := (WebBrowser1.Document AS IHTMLDocument2).body; > > > > while iall.parentElement <> nil do > > > > begin > > iall := iall.parentElement; > > end; > > memo1.Text := iall.outerHTML; > > end; > > > > ---------------------------------------------------------- > > > > Falta eu poder extrair o(s) email(s) dessa página e transportar, por exemplo, para um combobox . > > > > Certo da colaboração, desde já agradeço > > > > > -- > Timeo hominem unius libri > Cogito ergo sum - Carpe diem > > []s > Guionardo Furlan > http://guionardo.blogspot.com >
