访问 WebBrowser1.OleObject.Document.getElementById('Inputname').setAttribute 时出现无效的变体操作错误

Question

我在 Delphi XE7 (win7, internet explorer 9) 中使用TWebBrowser 组件在网页中填写表格。

这是 HTML：

<input name="login" class="form-control" id="inputLogin" placeholder="Username" type="text">

我正在使用此代码：

WebBrowser1.OleObject.Document.getElementById('InputLogin').setAttribute('value','sometext');

它在我的电脑上运行良好，但在其他电脑上却给了我这个错误：

Invalid Variant Operation error.

我该如何解决这个问题？

Answer 1

setAttribute 不是为input 元素设置/获取value 的首选方式。

使用IHTMLInputElement接口访问目标输入元素的value例如：

uses MSHTML;

var
  el: IHTMLElement;
  inputElement: IHTMLInputElement;

el := (WebBrowser1.Document as IHTMLDocument3).getElementById('inputLogin');
if Assigned(el) then
  if Supports(el, IID_IHTMLInputElement, inputElement) then
    inputElement.value := 'sometext';

我无法重现您遇到的错误，所以如果您坚持使用setAttribute，您可能需要尝试显式设置文档的接口，而不是访问OleObject.Document Variant。

例如：

el := (WebBrowser1.Document as IHTMLDocument3).getElementById('inputLogin');
if Assigned(el) then
  el.setAttribute('value', 'sometext', 0);