[Kot137]

Уважаемые коллеги!
Есть ли простая компонента для преобразования веб-странички по заданному адресу в текстовую переменную(визуализация страницы не требуется)?
Т.е. в идеале функция web2str(url: WideString) : string;

Задача выдернуть из списка html-страниц однотипные куски текста, которые легко искать в текстовой переменной.

К сожалению, нашел, только сложные примеры парсеров, XML, DOM и т.д. Мне кажеться должно быть все проще...

[Kot137]

Перерыл несколько форумов и описание TWebBroser - вот получился рабочий код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  Doc: Variant;
  txt: string;
begin
    Doc:= WebBrowser1.Document;
    txt:=doc.documentElement.innerHTML;
    richedit1.Lines.Add(txt)
end;

Правда сырой, без проверок всяких... И визуализации не удалось избежать... Так что вопрос открытый...

[0nni]

Поищи на тему как загрузить файл из интерната. И загружай страницу. Никакие компоненты не нужны.
_http://www.delphisources.ru/pages/faq/base/get_file_from_net_with_http.html
вот перва я ссылка, просто чуть чуть измени пример.

[Kot137]

Спасибо. Хороший пример. Ближайшее время переделаю вместе с перходом на многопоточность.