Помогите с WebBrowser ом

← →
Igor__ © (2002-11-17 06:14) [0]

Я уже задавал єтот вопрос, но никто не ответил.
Мкстера, помогите
1)как в WebBrowser выполнить поиск(Приблизительно так, как в дисках AlexSoft)
2)как роботать с буфером обмена.

← →
int64 © (2002-11-17 13:15) [1]

1. Для начала, вышли пару дисков AlexSoft, что б хоть знать: о чём речь.
2. Что конкретно надо?

← →
Igor__ © (2002-11-20 19:37) [2]

Извиняюсь меня долго здесь небыло.
1. Есть штук сто HTML нужно выполнять в них поиск по слову.
2. Копировать в буфер включая OLE. Я вот выкопал:
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);
но пишет Exception:"Попытка отменить конечное место
переноса, которое не было зарегистрировано."

← →
int64 © (2002-11-20 21:20) [3]

1. А причём здесь браузер, если надо выполнять поиск нужного файла по содержащимся словам? Опиши подробнее.
2.
initialization
OleInitialize(nil);

finalization
OleUninitialize;

← →
Igor__ © (2002-11-21 15:04) [4]

To int64:
Есть сто страничек,а в них текст. Нужно сделать общий поиск по этим страницам. Т.е. на форме стоит Edit и Button, при нажатии на кнопку искать сначала на первой странице, если нашли то загрузить страницу, иначе искать на следуещей ...

← →
int64 © (2002-11-21 19:16) [5]

FindFirstFile
FindNextFile

Только искомое слово может содержаться в атрибутах тегов или комментариях. Поэтому надо ещё переваривать сам документ.

← →
Igor__ © (2002-11-23 18:09) [6]

В этом и проблема: как переварить документ?

← →
Igor__ © (2002-11-24 05:48) [7]

А есть какие то методы поиска в одном документе без анализа внутреностей???

Если трудно руками парсерить, загружай текст файла в браузер и оттуда бери фрматированный текст.

Т.е. делаешь следующее:

1. Находим файл по слову.
2. Получаем в виде стринга его отображаемый текст. Вот пример:
procedure TForm1.Button1Click(Sender: TObject); var IE: IWebBrowser2; v: OleVariant; begin IE := CreateOleObject("InternetExplorer.Application") as IWebBrowser2; IE.Navigate("c:\temp\1.htm", v, v, v, v); while IE.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages; Memo1.Text:= Variant(IE.Document).body.innerText; IE.Quit; end;
//С фреймами работать не будет!
3. И ищем ещё раз в стринге (pos).

Разумеется, не надо для каждого файла делать CreateOleObject, а потом Quit. Достаточно сделать один раз для всей процедуры поиска.

А вообще, если документы твои и простые, то лучше поищи готовые парсеры - для производительности. И под них подгоняй "стерильность" документа. Только я ниодного не видел парсера нормального, даже из платных.

>>1)как в WebBrowser выполнить поиск(Приблизительно так, как в дисках AlexSoft)
подробнее - о чем речь?
>>2)как роботать с буфером обмена.
юзать TClipboard

Помогите с WebBrowser ом Найти похожие ветки