delphi获得webbrowser中的html文本

官方Delphi 学习QQ群： 682628230（三千人）

频道

procedure TForm1.btn1Click(Sender: TObject);

var

doc:olevariant;

str:string;

begin

doc:=wb1.Document;

//获取元素的值

{str:=doc.all.xx.value;

ShowMessage(str);}

//写入htnl

{doc.clear;

doc.write('

新的html

');

doc.close;}

//改变元素的值

{doc.all.xx.value:='1';

ShowMessage(doc.all.xx.value);}

//获得html文本

str:=doc.documentElement.outerHtml;

ShowMessage(str);

end;

推荐分享

图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！

执行时间: 0.057682991027832 seconds