Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
19th
Май
Как загрузить HTML-код из интернета текстом в объект Memo?
Posted by Chas under Пост-обзор
Здравствуйте. Такой вопрос: работаю в шестом билдере, необходимо загрузить HTML-код из интернета текстом в объект Memo. Подозреваю, что делается это просто.
IGOMERL:
можно сделать через компонент 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;
}