Это один из самый простых способов получения содержимого вебсайта. Для работы нам потребуется стандартный TWebBrowser, который использует для работы ядро Internet Explorer. Кидаем на форму кнопку и пишем такой обработчик нажатия (событие OnClick во вкладке событий):

procedure TForm.Button1Click(Sender:TObject);
var // тут мы объявляем переменные, где будем хранить сохраненный документ.
Doc: IHTMLDocument2; // внутренние представление HTML кода в браузере
S: string; // так как фактически сайт это набор HTML кода, то в качестве переменной разумно использовать строковой тип String
begin
WebBrowser1.Navigate('http://google.com'); // этой строкой мы сообщаем, что браузеру необходимо открыть сайт google.com

Doc := WebBrowser1.Document as IHTMLDocument2; // преобразуем тип и присвоим переменной Doc
S := Doc.body.innerHTML; // получим код в переменную S
end;

Вот и все!

Добавлено: 15 Августа 2013 01:00:31 Добавил: Андрей Ковальчук Нравится 0

Добавить