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 сделать конечно можно, но не так. и выйдет сложнее...

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