Исправление ошибки "Invalid Variant Operation" в TWebBrowser на Delphi XE7 для Internet Explorer 9

Delphi , Интернет и Сети , Браузер

При работе с компонентом TWebBrowser в среде разработки Delphi XE7 на операционной системе Windows 7 с использованием Internet Explorer 9 может возникнуть ошибка "Invalid Variant Operation" при попытке заполнения формы на веб-странице. Эта проблема связана с использованием метода setAttribute для установки атрибута value у элемента формы.

Описание проблемы

Разработчик использует компонент TWebBrowser для автоматического заполнения формы на веб-странице. HTML-код формы выглядит следующим образом:

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

Для установки значения в поле ввода используется следующий код на Object Pascal:

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

Код работает корректно на одном компьютере, но при запуске на другом ПК возникает ошибка "Invalid Variant Operation".

Возможные причины ошибки

Ошибка может быть связана с отсутствием необходимых библиотек на другом компьютере или с различием версий браузера. Также важно отметить, что метод getElementById является регистрочувствительным, и если идентификатор элемента в коде на Object Pascal отличается по регистру от идентификатора в HTML, это может привести к ошибке.

Подтвержденное решение

Для корректной установки значения атрибута value у элемента формы рекомендуется использовать интерфейс IHTMLInputElement. Пример кода на Object Pascal:

uses MSHTML;

var
  el: IHTMLElement;
  inputElement: IHTMLInputElement;
begin
  el := (WebBrowser1.Document as IHTMLDocument3).getElementById('inputLogin');
  if Assigned(el) then
    if Supports(el, IID_IHTMLInputElement, inputElement) then
      inputElement.Value := 'sometext';
end;

Если по каким-то причинам необходимо использовать метод setAttribute, следует явно установить интерфейс для документа, вместо доступа к OleObject.Document через вариант:

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

Заключение

Использование интерфейса IHTMLInputElement является предпочтительным способом для установки и получения значений атрибутов у элементов формы. Применение этого подхода позволит избежать возникновения ошибки "Invalid Variant Operation" при работе с TWebBrowser в среде Delphi XE7 и Internet Explorer 9.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с ошибкой 'Invalid Variant Operation' при попытке автоматически заполнить форму на веб-странице с помощью компонента `TWebBrowser` в Delphi XE7 на Internet Explorer 9 и ищет решение проблемы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::