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

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

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


Semen Pleshivtsev ©   (2002-02-19 18:06:00) 

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

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

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


AlexeyVr   (2002-03-10 09:08:00) [1]

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


Лёша   (2002-03-07 17:08:00) [2]


> Как сделать выделение цветом в окне 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 (искать везде); читай всё, что появится.


handra   (2002-03-07 15:19:00) [3]

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


SGrigory   (2002-03-07 12:23:00) [4]

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


knyaz17   (2002-03-04 14:53:00) [5]

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


knyaz17   (2002-02-28 18:12:00) [6]

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


Наверх

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