Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  17:53[Войти] | [Зарегистрироваться]
Ответ на вопрос № 39054

10-01-2006 01:37
Здравствуйте Уважаемые Жители Королевства!

Как, используя компонент TWebBrowser как просмотрщик html-документов, сделать контекстный поиск (примерно как обычный поиск в Internet Explorer). Мне посоветовали использовать тот, который уже есть в IE. Согласен: это неплохой выход, но мне не хотелось бы нарушать оформление моей программы стандартным видом поиска от Internet Explorer.

Надеюсь, Вы подскажете другой способ! Меня больше интересует:
1.В чем производить поиск, т.е. в html ведь текст разбит по тегам, а где брать текст целиком, т.е. в том виде, в котором его уже выводит WebBrowser;
2.Как потом выделить текст (ведь никакого свойства .SelStart и .SelCount и в помине нет!) и делать "Найти далее"

А если нет то, хотя бы подскажите как реализовать использование стандартного поиска IE (наверно надо послать какое-то сообщение WebBrowser-у ??? - я в API не силен).

PS: Пробовал через WebBrowser1.ExecWB (OLECMDID_FIND, OLECMDEXECOPT_PROMPTUSER) - как ни странно, не помогло...

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

12-01-2006 10:40 | Сообщение от автора вопроса
Оказывается, надо Mshtml в uses записать (спасибо S6T6N6)

11-01-2006 08:13 | Сообщение от автора вопроса
А у меня Делфи 2005.По идее должно всё работать без проблем.

11-01-2006 00:05 | Сообщение от автора вопроса
Не работает - ругается что не знает такого типа -

IHTMLTxtRange

не знает, что такое

IHTMLDocument2

и т.д. Уточню у меня Delphi7

10-01-2006 12:26 | Комментарий к предыдущим ответам
Не работает :(( жалуется на эту строку             

tr := (wb.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;

              текст ошибки :[Error] Unit1.pas(1034): E2010 Incompatible types: 'IHTMLTxtRange' and 'IHTMLBodyElement'

10-01-2006 07:07
private
  procedure SearchAndHighlightText(aText: string);

procedure TForm1.SearchAndHighlightText(aText: string);
var
  tr: IHTMLTxtRange; //TextRange Object
begin
  if not wb.Busy then
  begin
    tr := ((wb.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
    //Get a body with IHTMLDocument2 Interface and then a TextRang obj. with IHTMLBodyElement Intf.

    while tr.findText(aText, 1, 0) do //while we have result
    begin
      tr.pasteHTML('<span style="background-color: Lime; font-weight: bolder;">' +
        tr.htmlText + '</span>');
      //Set the highlight, now background color will be Lime
      tr.scrollIntoView(True);
      //When IE find a match, we ask to scroll the window... you dont need this...
    end;
  end;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
SearchAndHighlightText(edit2.Text);

end;

end.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Два кольца, два конца, посередине гвоздик.
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования