Форум: "Сети";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизПомогите загрузить страничку и сохранить только текст!!!!! Найти похожие ветки
← →
Руль (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]попробую, большое спасибо !!!!!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c