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




Вниз

Текст из WebBrowser 


vitnt2000   (2002-02-05 12:58) [0]

Подскажите пожалуйста как вытащить текст из WebBrowser. Но не исходный HTML, а как он есть на форме.
В делфи 3,4 был компонент HTML. А с дельфи 5 возникли проблемы.
Может есть какой другой компонент?



Фэ   (2002-02-05 13:08) [1]

С помощью обхода коллекции элементов и элементов
Collection: IHTMLElementCollection;
Element: IHTMLElement;

и Element.OuterText



drpass   (2002-02-05 13:33) [2]

Если тебя устраивают возможности THTML, то проще будет не возиться с интерфейсами IE, а просто его установить. В D5 он лежит на диске в папке Info\Extras\NetManage\HTML.ocx
Скопируй его в WINNT\SYSTEM32 (WINDOWS\SYSTEM) и зарегистрируй regsvc32 html.ocx
После этого импортируй на Палитру и работай



Vitek   (2002-02-05 13:50) [3]

А как вытащить исходный html код?



Фэ   (2002-02-05 14:18) [4]

Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML



Vitek   (2002-02-05 15:09) [5]

А поподробнее можно?



Фэ   (2002-02-05 15:26) [6]

var Document: IHTMLDocument2;
..
Document := WB.Document as IHtmlDocument2;
if Document <> nil then
Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;



Gayrus-?   (2002-02-06 03:34) [7]

var Doc:Variant;
Text1:String
begin
Doc:=WebBrowser.Document;
Text1:=doc.body.innerHTML;



DMN   (2002-02-06 10:37) [8]

А вопрос был - как вытащить ТЕКСТ, а не HTML?
Тогда вместо Text1:=doc.body.innerHTML;
надо писать: Text1:=doc.body.innerText;



Фэ   (2002-02-06 10:39) [9]

И такой вопрос был

Vitek © (05.02.02 13:50)
А как вытащить исходный html код?



Vitek   (2002-02-07 11:51) [10]

А что за IHTMLDocument2(у меня D6)?



Фэ   (2002-02-07 12:01) [11]

uses .., MSHTML, ActiveX;

Доступ к интерфейсам.
Для IE5 есть и IHTMLDocument3



Vitek   (2002-02-07 12:35) [12]

Спасибо помогло




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




Наверх





Память: 0.72 MB
Время: 0.025 c
14-79474          BuG                   2002-01-05 15:34  2002.02.25  
Внимание всем постам!!!


6-79411           AKA                   2001-08-25 10:36  2002.02.25  
Как можно из дельфи включать подключение к инету и отключать через прокси???


1-79377           Song                  2002-02-08 20:10  2002.02.25  
В приведённой ниже процедуре почему-то не работает удаление ключа из реестра (из секции автозапуска). Подскажите почему?


4-79498           Woolen                2001-12-23 23:19  2002.02.25  
OpenGL API и double buffer


7-79489           Dmitry V. Averuanov   2001-11-19 12:59  2002.02.25  
Как изменить приоритет окна (не главного)