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

← →
Руль (2002-08-26 02:14) [0]

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

← →
Ihor Osov'yak (2002-08-26 02:38) [1]

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 - то, что тебе надо ...

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

← →
Руль (2002-08-26 06:52) [2]

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

Помогите загрузить страничку и сохранить только текст!!!!! Найти похожие ветки