загрузка HTML-кода

[Alex54]

Здравствуйте. Такой вопрос: работаю в шестом билдере, необходимо загрузить HTML-код из интернета текстом в объект Memo. Подозреваю, что делается это просто.

[p51x]

темы внизу

[ololo-schoolboy]

Мне тоже интересно, а то на сокетах лень, winenet не нравится, пользуюсь curl, мб кто подскажет другие библиотеки

[IGOMERL]

можно сделать через компонент CppWebBrowser

//===========================================
#include <mshtml.h>

//============================================
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TVariant x = "yandex.ru";  // сайт
    CppWebBrowser1->Navigate2(&x, NULL, NULL, NULL, NULL);

        while (CppWebBrowser1->ReadyState != 4) // ждет пока полностью не загрузится страница
       Application->HandleMessage();

       TComInterface<IHTMLDocument2> pHTMLDocument;
       TComInterface<IHTMLElement> pEl;

       if (S_OK != CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*) &pHTMLDocument)) return; // запрос интерфейс документа

 if (S_OK != pHTMLDocument->get_body(&pEl)) return; // тело документа

        WideString wHtmlCode;
       pEl->get_innerHTML(&wHtmlCode); // в этой строке сохранится хтмл код

       Memo1->Text=wHtmlCode;

}

[frantic150]

Сообщение от IGOMERL

можно сделать через компонент CppWebBrowser

//===========================================
#include <mshtml.h>

//============================================
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TVariant x = "yandex.ru";  // сайт
    CppWebBrowser1->Navigate2(&x, NULL, NULL, NULL, NULL);

        while (CppWebBrowser1->ReadyState != 4) // ждет пока полностью не загрузится страница
       Application->HandleMessage();

       TComInterface<IHTMLDocument2> pHTMLDocument;
       TComInterface<IHTMLElement> pEl;

       if (S_OK != CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*) &pHTMLDocument)) return; // запрос интерфейс документа

 if (S_OK != pHTMLDocument->get_body(&pEl)) return; // тело документа

        WideString wHtmlCode;
       pEl->get_innerHTML(&wHtmlCode); // в этой строке сохранится хтмл код

       Memo1->Text=wHtmlCode;

}

можно поподробнее?
какие библиотеки нужно подключить?