Автоматизация Событий onChange в Выпадающем Списке на Delphi с Использованием TWebBrowser

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

Вопрос пользователя касается автоматизации события onChange для выпадающего списка на Delphi, используя компонент TWebBrowser. Пользователь загружает веб-страницу в TWebBrowser, на которой находится форма с выпадающим списком, имеющим событие onChange. Пользователь может выбрать элемент списка, но ему необходимо вызвать событие onChange без использования метода execScript.

Решение проблемы

Для вызова события onChange в выпадающем списке на Delphi с использованием TWebBrowser, необходимо сначала получить элемент списка, а затем вызвать его метод FireEvent, передав в него имя события onchange. В коде ниже приведен пример, как это можно сделать:

uses
  MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
  doc: IHTMLDocument3;
  el: IHTMLElement;
  v: OleVariant;
begin
  if TWebBrowser1.Document <> nil then
  begin
    if TWebBrowser1.Document.QueryInterface(IHTMLDocument3, doc) = S_OK then
    begin
      el := doc.getElementById('carrierNameDropDown_UNSHIPPEDITEMS');
      if el <> nil then
      begin
        (el as IHTMLSelectElement).value := 'UPS';
        (el as IHTMLElement).FireEvent('onchange', v);
      end;
    end;
  end;
end;

Также пользователь предлагается пример с использованием позднего связывания:

procedure TForm1.Button1Click(Sender: TObject);
var
  doc: IHTMLDocument3;
  selectField: OleVariant;
begin
  if TWebBrowser1.Document <> nil then
  begin
    if TWebBrowser1.Document.QueryInterface(IHTMLDocument3, doc) = S_OK then
    begin
      selectField := doc.getElementById('carrierNameDropDown_UNSHIPPEDITEMS');
      if not VarIsNull(selectField) then
      begin
        selectField.Value := 'UPS';
        selectField.FireEvent('onchange', nil);
      end;
    end;
  end;
end;

Обратите внимание, что при использовании позднего связывания, необходимо убедиться, что все операции выполняются корректно, так как ошибка "Undeclared identifier: 'IHTMLElement3'" может быть вызвана неправильным объявлением типов интерфейсов или их использованием.

Подтвержденный ответ

Приведенные выше примеры кода являются рабочими решениями для вызова события onChange в выпадающем списке на Delphi. Пользователю необходимо убедиться, что интерфейс IHTMLDocument3 и элементы управления доступны для работы с документом в TWebBrowser.

Альтернативный ответ

В случае возникновения ошибки, рекомендуется проверить версию Internet Explorer, используемую в качестве компонента TWebBrowser, так как некоторые функции могут быть недоступны в более новых версиях из-за ограничений безопасности. Также, убедитесь, что скриптовая безопасность (Scripting Security) в настройках Internet Explorer не блокирует выполнение JavaScript кода.

Заключение

Автоматизация событий onChange в Delphi с использованием TWebBrowser требует понимания работы с COM интерфейсами и позднего связывания. Важно правильно обращаться к элементам веб-страницы и вызывать необходимые события, чтобы обеспечить корректное взаимодействие между компонентами.

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

Пользователь загружает веб-страницу в `TWebBrowser` на Delphi и хочет автоматизировать вызов события `onChange` для выпадающего списка без использования `execScript`.

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

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

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