WebBrowser操作元素值填表

最新推荐文章于 2020-12-22 09:10:22 发布

caidaqin001

最新推荐文章于 2020-12-22 09:10:22 发布

阅读量296

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/caidaqin001/article/details/106949734

版权

delphi 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

1. 自动填写表单并发布
       两种方法
var
  i:integer;
  Doc:IHTMLDocument2;
  input:OleVariant;
  userinputelement,pwdinputelement,ValidateElement:ihtmlinputelement;
  ValidateImage: IHTMLImgElement;
  imagecount:integer;
  form:ihtmlformelement;
  myitem:Olevariant;
begin
  Doc:=WebBrowser1.document as ihtmldocument2;
  if doc=nil then exit;
// 第一种方式
  userinputelement:=(doc.all.item('nicknameId',0) as ihtmlinputelement);
  userinputelement.value:=edit7.text;
  pwdinputelement:=(doc.all.item('pwd',0) as ihtmlinputelement);
  pwdinputelement.value:=edit8.text;
  pwdinputelement:=(doc.all.item('name',0) as ihtmlinputelement);
  pwdinputelement.value:=edit9.text;
  myitem:=WebBrowser1.document;
// 第二种方式并可操作 combo radio select 元素表
  for i:=0 to myitem.all.length-1 do
  begin
    ///
    if myitem.all.item(i).tagName = 'SELECT' then // 下拉框选择
    begin
      if myitem.all.item(i).Name='birth_year' then
       myitem.all.item(i).value:='1980'; //
    end;
    if myitem.all.item(i).tagName = 'INPUT' then
    begin
      if Uppercase(myitem.all.item(i).type)='RADIO' then
      begin
        if myitem.all.item(i).value='男生' then myitem.all.item(i).checked:=true; // 选中值是 '求'的选项
      end;
     if Uppercase(myitem.all.item(i).type)=Text then
      begin
          myitem.all.item(i).value='';
       end;
    end;
  end;

2.操作超链接
  var
i:integer;
myitem:Olevariant;
begin    //xid_reg_handle
  myitem:=WebBrowser1.document;
  // 第一种方式
aVal:=myitem.getElementById('xid_reg_handle').href;
   myitem.getElementById('xid_reg_handle').click;  // 模拟点击超链接
  showmessage(InttosTr(myitem.Links.length));
  for i:=0 to myitem.Links.length-1 do
  begin
     // myitem.Links.item(i).href // hrefUrl 可获取
    if myitem.Links.item(i).innertext='名称' then // <a href=''> 名称' </a>
      myitem.Links.item(i).click;// 模拟点击超链接
  end;
end;