Как найти и выделить необходимый текст в WebBrowser?

← →
brestmarket (2002-12-09 00:49) [0]

Как найти и выделить необходимый текст в WebBrowser?
У меня есть исходник подобного решения, но работает он неверно, т.е.
текст не находит и не перемещает к найденному контексту, выделяет абсолютно весь желтым цветом, работает
очень долго?:

procedure TfrmWebBrowser.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;

← →
int64 (2002-12-09 13:25) [1]

Ты уже задавал этот вопрос.

← →
Troll (2002-12-09 13:52) [2]

2int64
если бы ответили он бы не задавал второй раз, я прав brestmarket???

← →
brestmarket (2002-12-09 14:36) [3]

Да абсолютно верно. int64 уже любезно отвечал на мой подобный вопрос. Я вообще ему очень и очень признателен за всю помощь на протяжении уже 4 месяцев, которую он мне оказывает. СПАСИБО БОЛЬШОЕ ему за его труды, однако я столкнулся с другими проблемами при решении моей задачи и хотел найти другие варианты и советы по моему вопросу.
Кстати, извините за дилетанство в этом вопросе: что необходимо импортировать, чтобы получить MSHTML_TLB ? и для себя этот вопрос наверно решу?

← →
int64 (2002-12-09 16:18) [4]

> что необходимо импортировать, чтобы получить MSHTML_TLB
> ?

MSHTML.TLB
На все случаи.

Как найти и выделить необходимый текст в WebBrowser? Найти похожие ветки