Выделение фразы цветом в TWebBrowser ? Help!

← →
Semen Pleshivtsev (2002-02-19 18:06) [0]

Уважаемые мастера.

Как сделать выделение цветом в окне TWebBrowser определенной фразы по всему документу средсвами IE (MSHTML)? Как преобразовать эту фразу в ссылку? Будет очень здорово, если подскажите, как это сделать на "лету", т.е. отображать в окне уже измененный документ.

С уважением Семен Плешивцев.

← →
knyaz17 (2002-02-28 18:12) [1]

Уважаемые Мастера подскажите, ведь этот вопрос много кого интересует???
Как выделить вхождения искомой фразы в документе НТМL или MHT???
Заранее благодарен.

← →
knyaz17 (2002-03-04 14:53) [2]

ЛЮЮЮДИИИ!!!!
ПОМОГИТЕ!!!!!!!

← →
SGrigory (2002-03-07 12:23) [3]

Кстати, а где новичку научиться работать с TWebBrowser вообще с нуля? Нужно взять из базы HTML код и показать это в окошке.

← →
handra © (2002-03-07 15:19) [4]

Для создания эффекта выделенного текста нужно изменять HTML код для документа, при этом (!) нужно учесть доминирующие стиле IE.

> Как сделать выделение цветом в окне TWebBrowser определенной
> фразы по всему документу

1. Сначала надо получить текст документа.
Где-нибудь в событии OnDocumentComplete пишем:
... var Doc: IHTMLDocument2; s: string; ... begin Doc:= (WebBrowser1.Document as IHTMLDocument2); s:= Doc.body.innerHTML;

{если использовать innerText, то в стринг могут попасть значения из полей форм}

2. Пока не закончился стринг, находим в стринге текст, который требуется.

3. Если нашли, то заменяем найденное НайденныйТекст на
<font style="background=Yellow; color=Red">НайденныйТекст</font>
или на
<a href="MyLink">НайденныйТекст</a>

Перед этим надо делать проверку: не попадает ли НайденныйТекст между символами < и >. Думаю не надо объяснять: почему?

4. Все. Теперь подставляем:
Doc.body.innerHTML:= s;

Задача для студентов 1-го курса по предмету Информатика:
Имеется текст. Найти в данном тексте все стринги равные SourceString. Если этот стринг не покоится между символами < и >, заменить его на DestString. Длины стрингов SourceString и DestString могут не совпадать.

2 SGrigory
Зайди на страницу Поиск: http://delphi.mastak.ru/search.html; введи в поле TWebBrowser (искать везде); читай всё, что появится.

← →
AlexeyVr (2002-03-10 09:08) [6]

Информация о WebBrouser
http://www.euromind.com/iedelphi/getting_started.htm

Выделение фразы цветом в TWebBrowser ? Help! Найти похожие ветки