Текущий архив: 2003.03.13;
Скачать: 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 вся ветка
Текущий архив: 2003.03.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
