delphi获得webbrowser中的html文本

最新推荐文章于 2023-12-03 12:56:50 发布

左眼看成爱

最新推荐文章于 2023-12-03 12:56:50 发布

阅读量1k

点赞数

分类专栏： Delphi 文章标签： delphi html webbrowser

本文链接：https://blog.csdn.net/wh445306/article/details/103553696

版权

Delphi 专栏收录该内容

56 篇文章 7 订阅

订阅专栏

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);

var
  doc:olevariant;
  str:string;
begin
    doc:=WebBrowser1.Document;
    //获取元素的值
    {str:=doc.all.xx.value;
    ShowMessage(str);}

    //写入htnl
    {doc.clear;
    doc.write('<html><head></head><body><p>新的html</p><input type="hidden" value="0" id="xx" /></body></html>');
    doc.close;}

    //改变元素的值
    {doc.all.xx.value:='1';
    ShowMessage(doc.all.xx.value);}

    //获得html文本
    str:=doc.documentElement.outerHtml;
    Memo1.Text:=str;
end;