delphi改变webbrowser中元素的值

来源:互联网 发布:厦门大学吴春明知乎 编辑:程序博客网 时间:2024/06/03 15:38

webbrowser中有一个隐藏域,id为xx,值为0


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><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);end;


0 0
原创粉丝点击