![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Текст из WebBrowser
vitnt2000 © (2002-02-05 12:58:00)Подскажите пожалуйста как вытащить текст из WebBrowser. Но не исходный HTML, а как он есть на форме.
В делфи 3,4 был компонент HTML. А с дельфи 5 возникли проблемы.
Может есть какой другой компонент?
Vitek (2002-02-07 12:35:00) [1]Спасибо помогло
Фэ (2002-02-07 12:01:00) [2]uses .., MSHTML, ActiveX;
Доступ к интерфейсам.
Для IE5 есть и IHTMLDocument3
Vitek (2002-02-07 11:51:00) [3]А что за IHTMLDocument2(у меня D6)?
Фэ (2002-02-06 10:39:00) [4]И такой вопрос был
Vitek © (05.02.02 13:50)
А как вытащить исходный html код?
DMN (2002-02-06 10:37:00) [5]А вопрос был - как вытащить ТЕКСТ, а не HTML?
Тогда вместо Text1:=doc.body.innerHTML;
надо писать: Text1:=doc.body.innerText;
Gayrus-? (2002-02-06 03:34:00) [6]var Doc:Variant;
Text1:String
begin
Doc:=WebBrowser.Document;
Text1:=doc.body.innerHTML;
Фэ (2002-02-05 15:26:00) [7]var Document: IHTMLDocument2;
..
Document := WB.Document as IHtmlDocument2;
if Document <> nil then
Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;
Vitek (2002-02-05 15:09:00) [8]А поподробнее можно?
Фэ (2002-02-05 14:18:00) [9]Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML
Vitek (2002-02-05 13:50:00) [10]А как вытащить исходный html код?
drpass (2002-02-05 13:33:00) [11]Если тебя устраивают возможности THTML, то проще будет не возиться с интерфейсами IE, а просто его установить. В D5 он лежит на диске в папке Info\Extras\NetManage\HTML.ocx
Скопируй его в WINNT\SYSTEM32 (WINDOWS\SYSTEM) и зарегистрируй regsvc32 html.ocx
После этого импортируй на Палитру и работай
Фэ (2002-02-05 13:08:00) [12]С помощью обхода коллекции элементов и элементов
Collection: IHTMLElementCollection;
Element: IHTMLElement;
и Element.OuterText