Скачать: CL | DM;

поиск текста в 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
... ну и так далее

---

← →
int64 ©   (2003-01-23 16:08) [2]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c