Как Получить текст из HTML

[Apollo11]

Имеется веб страница с текстом и таблицами, данные в ней меняются. Как получить данные (каким методом) на TWEBBrowser сильно тормозит, на IdHTTP при GET выдает в строке плайн текст с тегами, которые нужно фильтровать. Может быть есть более простой способ?

[Dmitry_Ukr]

Если это ваша страница, то перепишите ее на Web-сервисы. Если нет, то лучше попробовать поискать другие компоненты. Или даже воспользоваться библиотекой wininet.pas.

[Apollo11]

Стрница не моя. Где можео взять wininet.pas?

[Dmitry_Ukr]

Program Files\Borland\Delphi\Source\Rtl\Win\wininet.pas

http://www.rsdn.ru/article/inet/wininet_delphi.xml

С html можно работать так же как с xml. Так что можете загрузить его в xml и оттуда выдергивать интересующую информацию. Или поищите компоненты уже решающие задачу отображения html.

[maker2k]

XMLDocument в помощь!

[DarkLordZ]

var
  HTMLDoc: IHtmlDocument2;
begin
  HTMLDoc := WebBrowser1.Document as IHtmlDocument2;
  Memo1.Text:=HTMLDoc.body.innerText;
  while HTMLDoc.readyState <> 'complete' do Application.ProcessMessages;
end;

[Apollo11]

DarkLordZ этот метод мне известен, я писал выше что TWebBrowser медленно грузится и искал ему альтернативу.

[DarkLordZ]

Цитата: Сообщение от Apollo11 DarkLordZ этот метод мне известен, я писал выше что TWebBrowser медленно грузится и искал ему альтернативу.

Альтернатива тут не поможет. Фактически, страница - это определённое кол-во информации, которое нужно принять прежде, чем извлекать оттуда текст.
Посему, необходимо просто настроить бровсер таким образом, чтобы лишняя информация не передавалась изначально, либо скипалась при показе.
Если нужнен только текст, то можно смело отключить в бровсере видео, аудио, скрипты (в большинстве случаев) и т.п.

Сам так делаю. Пользуюсь немного модифицированным бровсером. Скорость загрузки и отображения настолько высока, что успеваю на лету парсить вытянутый текст, писать его в буфер и подчитывать БД, при необходимости.
Обрабатываю в секунду по 3-5 страниц, забитых текстом и баннерами по самое не могу и размером по 2-3 экрана.

[Apollo11]

DarkLordZ, не могли бы привести пример?

[DarkLordZ]

Вкратце суть такова:
1. Создаем наследника от TWebBrowser с расширенным функционалом, в котором доступны DownloadOptions.
2. Настраиваем опции по собственному усмотрению.
3. Радуемся жизни

Примерчик:
http://www.delphikingdom.com/asp/ans...IDAnswer=43912

70% кода можно прибить, без вреда для здоровья, убрав такие вещи, как операции с меню, рамкой и прочую фигню, которая не нужна в данной задаче.
Главное - DownloadOptions.

[_Link_]

Еще есть независимые парсеры HTML

[Wizard2007]

Заравствуйте, может быть воапрос не совсем в тему, но как из делфи узнать IP - Адрес с которым компьютер выходит в интернет? Как например на многих сайтах пишут IP - адрес, с которго в последний ра посещался сайт.

[tomor]

Wizard2007, Посмотри на DelphiWorld

[Wizard2007]

А можно ли получить ссылки, которые генерируются при помощи JavaScript, на лету . Т.е. в момент загрузки странички. и в коде не прописываются.

[wellrus]

Конечно можно. Кто мешает вызвать функцию яваскрипт ссамостоятельно?