Поиск нужного текста в компоненте CppWebBrowser

@TexHuK · Регистрация: 19.10.2011

Студворк — интернет-сервис помощи студентам

Помогите перевести. Суть следующая, организовать поиск нужного текста в компоненте CppWebBrowser1, я не знаю, подойдет ли он, или нет, делфи к сожалению не изучал..

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure WBFindText(Browser:TWebBrowser; const Direction: Boolean;
const FText: String;   const SearchScope, Flags: Integer); 
var Doc: IHTMLDocument2;   SelObj:
IHTMLSelectionObject;   SelRange:
IHtmlTxtRange;
 begin
Doc := Browser.Document as IHTMLDocument2; 
 SelObj :=Doc.Selection;  
SelRange :=SelObj.CreateRange as IHTMLTxtRange;
 
  SelRange.Collapse(Direction);
 
  if SelRange.FindText(FText, SearchScope, Flags) then   begin
    SelRange.Select;
    SelRange.ScrollIntoView(True);   end
    else MessageBox(Handle, 'По Вашему запросу ничего не найдено', 'Поиск
 текста', MB_ICONINFORMATION);
end;

@volvo · 03.01.2015, 12:47

Зачем тебе это? Вызови стандартный диалог поиска:

C++
1
2
3
4
#include <Shdocvw.hpp>
// ...
    CppWebBrowser1->ExecWB(Shdocvw_tlb::OLECMDID::OLECMDID_FIND,
        Shdocvw_tlb::OLECMDEXECOPT::OLECMDEXECOPT_PROMPTUSER);

, и пусть Browser сам занимается своей работой...

@TexHuK · 03.01.2015, 14:21 **[ТС]**

Я бы с радостью использовал бы простой способ, но что-то простотой и не пахнет..
Сдалал на форме кнопочку, подключил библиотеку, прописал кнопочке код вышеуказанный.
и вот какие ошибки посыпались:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
[C++ Error] Shdocvw.hpp(893): E2293 ) expected
[C++ Error] Shdocvw.hpp(896): E2040 Declaration terminated incorrectly
[C++ Error] Shdocvw.hpp(896): E2190 Unexpected }
[C++ Error] Shdocvw.hpp(905): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(906): E2238 Multiple declaration for 'CoInternetExplorer::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(905): E2344 Earlier declaration of 'CoInternetExplorer::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(906): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(972): E2303 Type name expected
[C++ Error] Shdocvw.hpp(972): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(973): E2303 Type name expected
[C++ Error] Shdocvw.hpp(973): E2238 Multiple declaration for 'TInternetExplorer::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(972): E2344 Earlier declaration of 'TInternetExplorer::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(973): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(1031): E2293 ) expected
[C++ Error] Shdocvw.hpp(1062): E2238 Multiple declaration for 'TInternetExplorer::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(973): E2344 Earlier declaration of 'TInternetExplorer::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(1062): E2303 Type name expected
[C++ Error] Shdocvw.hpp(1062): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(1123): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(1124): E2238 Multiple declaration for 'CoShellBrowserWindow::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(1123): E2344 Earlier declaration of 'CoShellBrowserWindow::_di_IWebBrowser2'
[C++ Error] Shdocvw.hpp(1124): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(1142): E2139 Declaration missing ;
[C++ Error] Shdocvw.hpp(1143): E2238 Multiple declaration for 'CoShellWindows::_di_IShellWindows'
[C++ Error] Shdocvw.hpp(1142): E2344 Earlier declaration of 'CoShellWindows::_di_IShellWindows'
[C++ Error] Shdocvw.hpp(1142): E2228 Too many error or warning messages

ругается на фаил Shdocvw.hpp, что не так-то? Может есть реальный рабочий пример? Или у меня что-то с билдером...

Добавлено через 59 минут
Благадарю, разобрался
Использовал такую конструкцию

C++
1
CppWebBrowser1->ExecWB(Shdocvw_tlb::OLECMDID_FIND,Shdocvw_tlb::OLECMDEXECOPT_PROMPTUSER);

Shdocvw.hpp не подключал, все работает

@TexHuK · 15.01.2015, 10:04 **[ТС]**

В общем заметил такую неприятную вещь, как то что функция

C++
1
CppWebBrowser1->ExecWB(Shdocvw_tlb::OLECMDID_FIND,Shdocvw_tlb::OLECMDEXECOPT_PROMPTUSER);

на некоторых компьютерах работает как положено, а вот на других под управлением winXP вместо стандартного поиска в компаненте CppWebBrowser1, вызывается диалоговое окно поиска виндовс как по клавише Ctrl+F

как это обойти? Мне нужно что бы поиск проходил именно в компаненте CppWebBrowser1, и не вызывались ни какие другие апи.. Это возможно?

Добавлено через 17 часов 13 минут
разобрался в чем ошибка именно на этих компах функция QueryStatusWB:

C++
1
 bool s = CppWebBrowser1->QueryStatusWB(OLECMDID_FIND);

Возвращает false... Как вручную сделать так, чтобы было тут-> OLECMDID_FIND true?

@volvo · 15.01.2015, 10:38

Сообщение от TexHuK

Как вручную сделать так

Не с тем разбираешься. Если QueryStatusWB вернул 0 - значит интерфейс в твоей версии IE еще не поддерживается, не пытайся подделать ответ QueryStatusWB, от этого ExecWB работать лучше не станет. И не надо записывать результат в bool, делай как положено:

C++
1
2
3
4
5
    Shdocvw::OLECMDF ret = CppWebBrowser1->QueryStatusWB(Shdocvw::OLECMDID_FIND);
    if(ret == Shdocvw::OLECMDF_SUPPORTED | Shdocvw::OLECMDF_ENABLED)
    {
        // все в порядке, можно вызывать
    }

Там, где условие не срабатывает, скорее всего надо просто обновить версию IE... Или пользоваться тем, что есть.

@TexHuK · 15.01.2015, 18:06 **[ТС]**

Да, действительно IE был старой версии

где-то на подсознательном уровне я это понимал

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@TexHuK 9 / 9 / 0 Регистрация: 19.10.2011 Сообщений: 113
	15.01.2015, 18:06 [ТС]
	Да, действительно IE был старой версии где-то на подсознательном уровне я это понимал Спасибо! 0

Поиск нужного текста в компоненте CppWebBrowser

Решение