Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


brestmarket ©   (2002-12-09 00:49:00) 

Как найти и выделить необходимый текст в 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 16:18:00) [1]


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

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


brestmarket   (2002-12-09 14:36:00) [2]

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


Troll   (2002-12-09 13:52:00) [3]

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


int64   (2002-12-09 13:25:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо