Проблема Получения Информации о Полосах Прокрутки в WebBrowser и Internet Explorer

Delphi , Синтаксис , Справочник по API-функциям

Как получить информацию о полосах прокрутки WebBrowser контрола или Internet Explorer

Вопрос, связанный с получением информации о полосах прокрутки в контроле WebBrowser и Internet Explorer, является актуальным для разработчиков, работающих с веб-компонентами в своих приложениях. В частности, пользователь столкнулся с проблемой, когда попытки использовать функцию GetScrollBarInfo для получения информации о полосах прокрутки не увенчались успехом для Internet Explorer и контрола WebBrowser.

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

Пользователь ищет способ получить информацию о полосах прокрутки (позиция, размер, видимость) для контрола WebBrowser внешнего приложения. Попытки использовать функцию GetScrollBarInfo оказались безуспешными, так как функция возвращала false для Internet Explorer и контрола WebBrowser, в то время как с другими приложениями всё работало корректно.

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

Для решения данной проблемы можно использовать следующий подход:

1. Получение интерфейса IHTMLDocument2 для доступа к телу документа.
2. Использование метода get_scroll для получения информации о полосах прокрутки ("yes", "no", "auto").
3. Получение текущей позиции прокрутки с помощью метода get_scrollTop интерфейса IHTMLElement2.

Вот пример кода на Object Pascal (Delphi), который демонстрирует эти шаги:

uses
  ActiveX, MSHTML;

var
  lpDispatch: LPDISPATCH;
  doc2: IHTMLDocument2;
  lpBodyElement: IHTMLElement;
  lpBody: IHTMLBodyElement;
  bstrText: BSTR;
  scroll_pos: LongInt;

begin
  // Получаем интерфейс IHTMLDocument2
  lpDispatch := m_Browser.GetDocument;
  lpDispatch.QueryInterface(IID_IHTMLDocument2, doc2);
  try
    // Получаем тело документа
    doc2.get_body(lpBodyElement);
    if Assigned(lpBodyElement) then
    begin
      // Получаем интерфейс IHTMLBodyElement
      lpBodyElement.QueryInterface(IID_IHTMLBodyElement, lpBody);
      if Assigned(lpBody) then
      begin
        // Получаем информацию о полосах прокрутки
        lpBody.get_scroll(bstrText);
        // Освобождаем интерфейс IHTMLBodyElement
        lpBody.Release;
      end;
      // Освобождаем интерфейс IHTMLElement
      lpBodyElement.Release;
    end;
    // Освобождаем интерфейс IHTMLDocument2
    doc2.Release;
  end;

  // Получаем интерфейс IHTMLElement2 для получения позиции прокрутки
  var pElement: IHTMLElement2;
  lpBody.QueryInterface(IID_IHTMLElement2, pElement);
  try
    // Получаем текущую позицию прокрутки
    pElement.get_scrollTop(scroll_pos);
  finally
    pElement.Release;
  end;
end;

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

В случае, если необходимо получить информацию о полосах прокрутки из внешнего приложения, можно использовать отправку сообщения WM_HTML_GETOBJECT в окно класса "Internet Explorer_Server". Это позволит получить интерфейс IWebBrowser2, через который можно получить доступ к необходимой информации.

Пример кода на Delphi для получения интерфейса IWebBrowser2 и позиции прокрутки:

uses
  ActiveX, MSHTML;

type
  TObjectFromLResult = function(LRESULT: LRESULT; const IID: TIID; wParam: WParam; out pObject): HRESULT; stdcall;

function GetIEFromHWND(WHandle: HWND; var IE: IWebBrowser2): HRESULT;
var
  hInst: HINSTANCE;
  lRes: Cardinal;
  Msg: Integer;
  pDoc: IHTMLDocument2;
  ObjectFromLresult: TObjectFromLResult;
begin
  // ... (код для получения интерфейса IWebBrowser2)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd, WndChild: HWND;
  IE: IWebBrowser2;
  Document: IHtmlDocument2;
  ScrollTop, ScrollLeft: Integer;
begin
  // ... (код для поиска окна Internet Explorer и получения интерфейса IWebBrowser2)
  // Получаем текущие позиции прокрутки
  ScrollTop := ((Document as IHTMLDocument3).documentElement as IHTMLElement2).scrollTop;
  ScrollLeft := ((Document as IHTMLDocument3).documentElement as IHTMLElement2).scrollLeft;
  // ... (код для вывода информации)
end;

Комментарии

• При использовании директивы <!DOCTYPE> для переключения Internet Explorer 6 в строгий режим соответствия стандартам, следует использовать document.documentElement (интерфейс IHTMLDocument3) в предстандартном режиме, а в теле документа (document.body) - в режиме до стандарта.
• Полезные свойства, связанные с информацией о прокрутке, включают clientHeight, scrollWidth, scrollHeight.

Этот ответ предоставляет разработчикам, работающим с веб-компонентами в среде Delphi, полезные инструкции и примеры кода для решения проблемы получения информации о полосах прокрутки в контроле WebBrowser и Internet Explorer.

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

Вопрос связан с необходимостью получения информации о полосах прокрутки для контрола WebBrowser и Internet Explorer в контексте разработки веб-приложений.

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

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

:: Главная :: Справочник по API-функциям ::