delphi 操作 TWebBrowser 实现自动填表(JQuery脚本与 OleVariant 方法)

版本：DELPHI XE8

操作交通银行信用卡申请表单(2016-03-23)，网址如下：

https://creditcardapp.bankcomm.com/applynew/front/apply/new/identity.html

本次操作的难点是“省份”与“城市”这两个<select>标签，当选择了“省份”时，“城市”会自动变更。

但，用普通的方法去改变“省份”的值，不能触发“城市”自动更新事件。

经过尝试，发现用JQUERY脚本可以达到效果。代码如下：

var
  BDoc: IHTMLDocument2; //需要 USES MSHTML
  sJs1: string;
  sJs2: string;
begin
  BDoc := WebBrowser1.Document as IHTMLDocument2;

  sJs1 := '$("#mrm_ddlProvince").find("option").eq(14).attr("selected","selected");';
  sJs1 := sJs1 + '$("#mrm_ddlProvince").find("option").eq(14).change();';

  sJs2 := '$("#mrm_ddlCity").find("option").eq(3).attr("selected","selected");';
  sJs2 := sJs2 + '$("#mrm_ddlCity").find("option").eq(3).change();';

  BDoc.parentWindow.execScript(sJs1, 'JavaScript');
  BDoc.parentWindow.execScript(sJs2, 'JavaScript');

end;

 

另外，再介绍一种操作网页元素的方法。

var
  BDoc: IHTMLDocument2;
  e: OleVariant;
  s: string;
begin
  BDoc := WebBrowser1.Document as IHTMLDocument2;
  e := BDoc.all.item('元素的ID', 0); // 假设此元素是一个 </A>标签
  s := e.href; //这个是强制取 href 这个属性的值,也可以是一个函数,当然你也可以胡乱写一个，编译时是不会出错的。
  // 当 IHTMLELEMENT 没有定义这些元素时，就可以用此“万能”方法。
  ShowMessage(s);
  e.href:='www.xxx.com'; //你也可以给 href 赋值
end;

 

TWebBrowser 与 IE 同为一源，如果不追求集成效果，也可以直接去操作IE，只需要事先获取到IE页面的 IHTMLDocumnet2 接口就可以了。

附：delphi 进阶基础技能说明