Buscar

Obtendo o código html que é exibido em um twebbrowser

Código

// Insira um botão, um memo e um webrowser no form
// De um load em uma página qualquer no evento OnCreate (ou ao seu critério) conforme abaixo:

webbrowser1.Navigate('http://www.planetadelphi.com.br/');

//Coloque o seguinte código no botão

procedure TForm1.Button1Click(Sender: TObject);
Var
       S:Variant;
begin
 S := WebBrowser1.Document;
 Memo1.Lines.Add(S.Body.innerHTML);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Componentes
Adicionada dia: 22/09/06
Por: Felipe Monteiro
Visualizada: 9917 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009