Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

WebBrowser и поиск   Найти похожие ветки 

 
Артем ©   (2004-02-29 19:42) [0]

Мастера, только Вы способны помочь!Вопрос следующий. На форме есть edit и webbrowser
с загруженной страницей. Как лучше реализовать
механизм поиска на странице текста, введнного в поле edit?
Надеюсь, что кто-нибудь обязательно поможет.
Заранее ОГРОМНОЕ спасибо!


 
nikkie ©   (2004-02-29 21:11) [1]

TEmbeddedWB.Find
http://www.euromind.com/iedelphi


 
Артем ©   (2004-02-29 21:57) [2]

Спасибо, nikkie. Будем разбираться.


 
Артем ©   (2004-02-29 22:28) [3]

Да, бесспорно ценные исходники! Но... Сложновато будет, да и некогда сейчас вникать во внутреннюю структуру IE. Позже обязательно разберусь и, думаю, очень много нового для себя найду.
Но сейчас! Сейчас мне нужно более простое решение. Разве никак нельзя перехватить стандартный вызов поиска IE и вставить из edit-а текст?


 
nikkie ©   (2004-02-29 22:49) [4]

vaIn := Edit1.Text;
InvokeCmd(TRUE, HTMLID_FIND, 0, vaIn, vaOut);


 
Артем ©   (2004-02-29 23:12) [5]

Спасибо, nikkie!
А я тем временем вот что нашел:

procedure TForm1.SearchAndHighlightText(aText: string);
var
i: Integer;
begin
for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
begin
if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then
begin
WebBrowser1.OleObject.Document.All.Item(i).Style.color :=$000000CE;
WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);
end;
end;
end;


На мой взгляд - более простое решение, напролом, так сказать. Да, но зато во много раз можно сэкономить на размере.

Еще раз спасибо, nikkie!


 
nikkie ©   (2004-03-01 01:01) [6]

я, конечно, могу только догадываться, что ты хочешь сделать, но приведенный код
1. не всегда найдет нужный текст
2. выделит не найденный текст, а нечто иное
3. это даже не выделение, а изменение цвета

поиск без использования IOleCommandTarget.Exec сделать конечно можно, но не так. и выйдет сложнее...



Страницы: 1 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
3-43391
AntonSh
2004-02-13 15:09
2004.03.14
Работа с TQuery


7-43900
Sashoks
2003-12-24 03:10
2004.03.14
Модель винчестера


1-43650
ser_ega
2004-03-01 22:38
2004.03.14
Форма


11-43413
savva
2003-06-23 17:17
2004.03.14
Drag & Drop


3-43390
uu
2004-02-13 20:30
2004.03.14
CREATE GENERATOR