Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Вниз
Селектирование слов в 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 есть, а вдруг тоже пригодится?
← →
Ломброзо (2003-12-23 21:16) [5]>WebBrowser1.OleObject.Document.All.Length
Вот это всё надо бы кэшировать, навроде
Coll := WebBrowser1.OleObject.Document.All;
for i := 0 to Coll.length - 1...
иначе у вас всякий раз будут дёргаться все элементы этой объектной иерархии.
← →
Maxud (2003-12-24 09:01) [6]
> ЮрийК © (23.12.03 17:38) [4]
Здесь: http://delphiworld.narod.ru/
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c
