Форум для программистов, программируем с умом

Привет. В принципе, это не сложно.
Ты можешь попробовать это сделать используя компонент CppWebBrowser.
Приведенный код ниже.


//===========================================
#include

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

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

TComInterface pHTMLDocument;
TComInterface 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;

}