Получить выделенный текст из окна IE

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   SHDocVw_TLB; // http://www.euromind.com/iedelphi if don't have that unit 

function GetSelectedIEtext: string;
 var
   x: Integer;
   Sw: IShellWindows;
   IE: HWND;
 begin
   IE := FindWindow('IEFrame', nil);
   sw := CoShellWindows.Create;
   for x := SW.Count - 1 downto 0 do
     if (Sw.Item(x) as IWebbrowser2).hwnd = IE then begin
       Result := variant(Sw.Item(x)).Document.Selection.createRange.Text;
       break;
     end;
 end;

Here's the translation of the provided Delphi code snippet into Russian:

Код-сниппет на языке Delphi, который извлекает текст, выбранный в окне Internet Explorer (IE). Вот подробное описание того, что код делает:

1. Включается модуль SHDocVw_ TLB, который предоставляет необходимые интерфейсы для взаимодействия с IE.
2. Функция GetSelectedIEtext объявляется, которая возвращает строку, представляющую выбранный текст в окне IE.
3. Функция инициализирует три переменные:
   • x: целочисленная переменная, используемая как счетчик цикла.
   • Sw: экземпляр интерфейса IShellWindows, представляющий коллекцию окон.
   • IE: handle окна IE (HWND).
4. Код использует функцию FindWindow для поиска окна IE с заголовком 'IEFrame'.
5. Затем создается экземпляр класса CoShellWindows, который обеспечивает доступ к функциональности управления окнами оболочки.
6. Код проходит через коллекцию окон с помощью цикла for, начиная от последнего элемента и движется назад. Для каждой итерации:
   • Он проверяет, является ли текущее окно экземпляром интерфейса IWebbrowser2 (который представляет браузер IE).
   • Если это так, он выходит из цикла.
7. Когда найдено правильное окно IE, код извлекает выбранный текст, вызывая свойство createRange.Text объекта Selection документа, связанного с этим окном IE.
8. Полученная строка присваивается переменной Result и возвращается из функции.

Альтернативное решение могло быть использованием более современного подхода,such as COM-interop in .NET или специализированной библиотеки,like IEDriver. Однако, этот код должен работать для своих целей, то есть извлечь текст, выбранный в окне IE, с помощью Delphi.

Пособие по получению выделенного текста из окна Internet Explorer, представленное в виде функции на языке Delphi.

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

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

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