Селектирование слов в WebBrowser

← →
ЮрийК © (2003-12-22 18:29) [0]

Следующая задача:
Поисковая программа индексирует файлы, в том числе и HTML.
Требуется при произведённом поиске и показе выбранного пользователем HTML файла, показывать искомое слово селектированным. Есть кнопки вперёд и назад, чтобы показывать все найденные слова в файле последовательно.
Вопрос следующий:
Видел ли кто примеры для WebBrowser, в которых подобное делается (селектирование нужных слов в открытом файле)?
Или кто занает, как это можно сделать?

← →
nikkie © (2003-12-22 18:38) [1]

IHTMLTxtRange.select

← →
Maxud © (2003-12-22 18:42) [2]

Вот откопал, может пригодится:
{....} private procedure SearchAndHighlightText(aText: string); {....} 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 := "#FFFF00"; WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin SearchAndHighlightText("some text..."); end;

← →
ЮрийК © (2003-12-22 18:45) [3]

Спасибо за ответы!
Если кому есть что добавить, заранее буду благодарен.

← →
ЮрийК © (2003-12-23 17:38) [4]

Maxud © (22.12.03 18:42) [2]
"Вот откопал, может пригодится:
{....}

private
procedure SearchAndHighlightText(aText: string);

{....}"

Если не секрет, где откопали этот код, интересно посмотреть, что там ещё по WebBrowser есть, а вдруг тоже пригодится?

>WebBrowser1.OleObject.Document.All.Length

Вот это всё надо бы кэшировать, навроде

Coll := WebBrowser1.OleObject.Document.All; for i := 0 to Coll.length - 1...

иначе у вас всякий раз будут дёргаться все элементы этой объектной иерархии.

Селектирование слов в WebBrowser Найти похожие ветки