Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];

Вниз

Помогите с 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]

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


 
Igor__   (2002-11-26 16:18) [8]

?


 
int64   (2002-11-26 18:37) [9]

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

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

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. Достаточно сделать один раз для всей процедуры поиска.

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


 
mrcat   (2002-11-26 18:39) [10]

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



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

Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.006 c
1-14675
margol
2002-11-25 15:45
2002.12.05
Общее программирование


14-14820
hedgehoge
2002-11-16 12:30
2002.12.05
BooksOnLine


1-14629
REP
2002-11-25 07:47
2002.12.05
Композитный отчет QReport


1-14625
Dimedrol
2002-11-24 20:15
2002.12.05
Кто-нибудь с Free Pascal работал ?


1-14619
PaRL
2002-11-23 14:38
2002.12.05
Ярлык





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский