поиск текста в TWebBrowser

← →
Max2002 (2003-01-23 12:35) [0]

Уважаемые мастера Delphi! Помогите пожалуйста решить проблему с поиском текста. Имеется код, осуществляющий поиск текста в документе :
http://people.alt.ru/computers/brsoft/delphi/DEL70.html
Процесс поиска - стандартный диалог "Поиск" c поиском в текущем документе, в случае ненахождения строки - стандартное соощение "Поиск в документе завершен". А можно ли переопределить стандартную реакцию - в случае если строка не найдена, переходить к поиску в следующем документе (например, в следующей главе) ???
С уважением, Макс

← →
msts (2003-01-23 14:10) [1]

скажи для чего конкретно используешь браузер?
в примере просто посылается команда показать диалог поиска
(насколько я понял), если нужен конкретный разбор хтмл поиск можно сделать самому перебирая объекты браузера
вот почитай (если конечно уже этого не сделал)
http://msdn.microsoft.com/workshop/browser/mshtml/reference/commandids.asp
http://msdn.microsoft.com/workshop/browser/editing/editingfeatures.asp
... ну и так далее

Зачем вообще вызывать какие-то диалоги. Делай всё руками. Вот кривой пример:

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;

поиск текста в TWebBrowser Найти похожие ветки