當訪問WebBrowser1.OleObject.Document.getElementById（'Inputname'）時出現無效的Variant操作錯誤。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變體。

例如爲：

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