delphi获得webbrowser中的html文本

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;

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值