| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
поиск текста в TWebBrowser [D5, D6, D7, Win95/98, WinME, NT4]
Max2002 © (2003-01-23 12:35:00)Уважаемые мастера Delphi! Помогите пожалуйста решить проблему с поиском текста. Имеется код, осуществляющий поиск текста в документе :
http://people.alt.ru/computers/brsoft/delphi/DEL70.html
Процесс поиска - стандартный диалог "Поиск" c поиском в текущем документе, в случае ненахождения строки - стандартное соощение "Поиск в документе завершен". А можно ли переопределить стандартную реакцию - в случае если строка не найдена, переходить к поиску в следующем документе (например, в следующей главе) ???
С уважением, Макс
int64 (2003-01-23 16:08:00) [1]Зачем вообще вызывать какие-то диалоги. Делай всё руками. Вот кривой пример:
procedure TForm1.Button1Click(Sender: TObject);
var Range : IHTMLTxtRange;
i: integer;
FindText: WideString;
begin
Range := HTMLBody(HTMLDocument(WB.Document).Body).createTextRange;
i:=0;
FindText:="s";
while (Range.findText(FindText,i,0)=true) do
begin
Range.select;
Range.collapse(false);
Application.ProcessMessages;
sleep(100);
inc(i);
end;
end;
msts (2003-01-23 14:10:00) [2]скажи для чего конкретно используешь браузер?
в примере просто посылается команда показать диалог поиска
(насколько я понял), если нужен конкретный разбор хтмл поиск можно сделать самому перебирая объекты браузера
вот почитай (если конечно уже этого не сделал)
http://msdn.microsoft.com/workshop/browser/mshtml/reference/commandids.asp
http://msdn.microsoft.com/workshop/browser/editing/editingfeatures.asp
... ну и так далее
| |
