TWebBrowser

[Anderson Nunes 0]

Olá pessoal, preciso do seguinte:

Tenho uma aplicação, na verdade é um componente, que cria um webbrowser na memoria.

 

TWebB := TwebBrowser.create(self);//criado na memoria.

TWebB.navigate('C:/teste.html');

 

dpois no outro botão é o seguinte..

 

edit1.text := TWebB.OleObject.Document.documentElement.innerText;

// recebe o texto do WebBrowser que foi criado.

 

o que acontece é que desta forma parece não haver texto nenhum. o edit fica em branco. Quando uso este codigo com um componente twebbrowser ele funciona certinho. Somente quando crio o componente desta forma é que não funciona. Falta alguma coisa? O que pode ser? valeu!

[FADSystem 0]

Olá Anderson Nunes,

 

Faltou você adicionar: TWinControl(TWebB).Parent := Self;

 

Como o código abaixo:

 

TWebB := TwebBrowser.create(self);//criado na memoria.

TWinControl(TWebB).Parent := Self;

TWebB.navigate('C:/teste.html');

 

 

Atenciosamente,

 

Fabio Araujo Damascena