Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

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

 
Руль ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
4-92788
dumb
2002-09-04 22:56
2002.10.28
Как изменить цвет имен файлов


3-92405
BJValentine
2002-10-07 14:27
2002.10.28
MS SQL


1-92544
SkyQuake
2002-10-14 15:46
2002.10.28
ntdll.DbgBreakPoint


4-92774
catcher
2002-09-13 11:20
2002.10.28
Как найти все сегменты памяти чужого процесса, для чтения из них?


1-92452
orlov
2002-10-18 06:55
2002.10.28
Функция Format