Работа с объектом "Chrome_WidgetWin_1" в Edge Browser для отправки текста в окно поиска из Delphi

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

В этой статье мы рассмотрим, как программно отправлять текст в окно поиска (Find window) в браузере Edge с использованием Delphi. Окно поиска в Edge Browser появляется как объект с именем "Chrome_WidgetWin_1". Мы обсудим, как получить дескриптор окна (handle) для этого объекта и как использовать его для отправки текста в окно поиска с помощью функции PostMessage().

Введение

Когда вы работаете с окном поиска в браузере Edge, важно понимать структуру окон и их иерархию. Окно поиска является дочерним окном основного окна браузера. Чтобы получить дескриптор окна для этого дочернего окна, мы можем использовать функции Windows API, такие как GetWindow() и FindWindowEx().

Получение дескриптора окна для основного окна Edge Browser

Для начала давайте рассмотрим, как получить дескриптор окна для основного окна Edge Browser. Это можно сделать с помощью функции GetWindow():

uses Windows;

var
  hChild: HWND;
begin
  hChild := GetWindow(MyBrowserGd.EdgeBrowser.Handle, GW_CHILD);
  ManulifeGd.Edit3.Text := IntToHex(hChild);
end;

Этот код получает дескриптор первого дочернего окна (Handle) основного окна Edge Browser. Однако, это не обязательно будет дескриптор окна поиска. Мы должны продолжить поиск, чтобы найти конкретное окно поиска.

Поиск дочернего окна "Chrome_WidgetWin_1"

Для поиска дочернего окна с именем "Chrome_WidgetWin_1" можно использовать функцию FindWindowEx():

uses Windows;

var
  hFind: HWND;
begin
  hFind := FindWindowEx(MyBrowserGd.EdgeBrowser.Handle, 0, 'Chrome_WidgetWin_1', nil);
  if hFind <> 0 then
  begin
    ManulifeGd.Edit3.Text := IntToHex(hFind);
  end
  else
  begin
    ShowMessage('Окно поиска не найдено.');
  end;
end;

Этот код ищет первое дочернее окно с именем "Chrome_WidgetWin_1" в основном окне Edge Browser. Если окно найдено, его дескриптор будет сохранен в переменной hFind.

Отправка текста в окно поиска

Теперь, когда у нас есть дескриптор окна поиска, мы можем использовать функцию PostMessage() для отправки текста в это окно:

uses Windows, Messages;

var
  hFind: HWND;
  TextToFind: string;
begin
  hFind := FindWindowEx(MyBrowserGd.EdgeBrowser.Handle, 0, 'Chrome_WidgetWin_1', nil);
  if hFind <> 0 then
  begin
    TextToFind := 'Пример текста для поиска';
    PostMessage(hFind, WM_SETTEXT, 0, Longint(PChar(TextToFind)));
  end
  else
  begin
    ShowMessage('Окно поиска не найдено.');
  end;
end;

Этот код отправляет текст для поиска в окно поиска. Однако, отправка текста с помощью WM_SETTEXT может быть не всегда надежной, так как окно поиска может быть скрытым или неактивным.

Альтернативный подход: Использование JavaScript

Альтернативным подходом для отправки текста в окно поиска может быть использование JavaScript. Более современный и надежный способ заключается в использовании встроенных функций браузера для поиска текста. Например, можно использовать функцию executeScript() для выполнения JavaScript-кода, который ищет текст на странице:

uses EdgeHtml;

var
  Script: string;
begin
  Script := 'document.execCommand("find", false, "Пример текста для поиска");';
  EdgeBrowser.ExecuteScript(Script);
end;

Этот код выполняет JavaScript-код, который использует команду find для поиска текста на странице. Этот подход более надежен, так как он использует встроенные функции браузера и не требует получения дескриптора окна поиска.

Заключение

В этой статье мы рассмотрели несколько способов отправки текста в окно поиска в браузере Edge с использованием Delphi. Мы обсудили, как получить дескриптор окна для окна поиска с помощью функций Windows API, а также альтернативный подход, использующий JavaScript для выполнения поиска. Выбор подхода зависит от ваших конкретных потребностей и предпочтений.

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

В этой статье описывается, как программно отправлять текст в окно поиска браузера Edge с использованием Delphi, включая получение дескриптора окна и использование функций Windows API или JavaScript для отправки текста.

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

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

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