Delphi检查GetElementByID返回值的有效性

本文整理自网络，侵删。

 
Delphi 可以像JavaScript 脚本语言一样使用GetElementByID方法访问网页中指定ID的元素，一般要配合TWebBrowser组件使用。首先使用TWebBrowser浏览网页，然后访问网页的元素，例如：

procedure TForm1.Button1Click(Sender: TObject);
var
  aElement: OleVariant;
begin
  aElement := WebBrowser1.OleObject.Document.GetElementByID('btnLogin');
  aElement.value := '登录按钮';
  aElement.click;
end;

如果网页中存在ID为“btnLogin”的按钮，则以上代码没有任何问题，如果不存在，则对aElement进行的设置值和点击操作都将引发异常，所以应该对GetElementByID的返回值进行检查。但是对OleVariant类型变量的有效性进行检查却非常困难，通过使用VarType函数对aElement进行类型检查可以知道该变量是varDispatch类型的，所以可以转换成接口进行检查返回值是否有效，完整代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  aElement: OleVariant;
begin
  aElement := WebBrowser1.OleObject.Document.GetElementByID('btnLogin');
  if IDispatch(aElement) <> nil then //对返回值进行有效性检查
  begin
    aElement.value := '登录按钮';
    aElement.click;
  end;
end;
 

相关阅读 >>

Delphi unigui中如何监听session的开始与结束

Delphi timage 加上滚动条方法

indy 中idhttp元件出现http status 302错误

Delphi webbrowser多次执行documentcomplete

Delphi try except与try finally不同之处

Delphi 的内存操作函数(4): 清空与填充内存

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi从内存流加载图片

Delphi完美的线程注入和卸载

Delphi中实现hextostr函数和strtohex函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi检查GetElementByID返回值的有效性