Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текст из  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


Наверх

Титульная страница Поиск, карта сайта Написать письмо