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

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

Помогите загрузить страничку и сохранить только текст!!!!!

Руль ©   (2002-08-26 02:14:00) 

Я извиняюсь за такой ламерский вопрос, но горит проект, а надо очень срочно сделать такое. Мне надо загрузить Веб страничку и выделить из неё только текст и желательно форматированый (хотя это уже бред)

---

Руль   (2002-08-26 06:52:00) [1]

попробую, большое спасибо !!!!!

---

Ihor Osov'yak   (2002-08-26 02:38:00) [2]

1. WB:TWebBrowser
2. WB.Navigate(...
3. В OnDocumentComplete

var iDoc:IHtmlDocument2
ov:OleVariant;
iDisp: IDispatch;
iColl:IHTMLElementCollection;
iElement:IHTMLElement;
...
WB.DefaultInterface.Document.QueryInterface(IHtmlDocument2,iDoc);
if not assigned(iDoc) then Exit;
ov := "BODY";

IDisp:=iDoc.all.tags(ov);
if assigned(IDisp) then begin
IDisp.QueryInterface(IHTMLElementCollection,iColl);
if assigned(iColl) then begin
if iColl.Get_length>0 then begin
iDisp:=iColl.item(0,0);
iDisp.QueryInterface(IHTMLElement,iElement);
if assigned(iElement) then begin
iElement.InnerText - то, что тебе надо ...


зы - это схема, здесь не рассмотрен случай многофреймового документа ...

---

Наверх