Разное



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Wav файл внутри exe-файла
   Категория: Файловая система
  Компонент MainMenu
   Категория: Компоненты
  Последний день месяца
   Категория: Базы данных
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Сохранение странички в файл из TWebBrowser
   Категория: Интернет и Сети
  Создание кнопки на панели в IE
   Категория: Интернет и Сети
  Получение списка всех сетевых дисков из Delphi
   Категория: Интернет и Сети
  Группировка TopAdvGrid
   Категория: Компоненты

Delphi - База Знаний: Как получить код HTM страницы зная ее URL

  << Вернуться к Содержанию   

uses ComObj;
function TForm1.Get(url:string): string;
var
 Req: Variant;
begin
 try
   Req := CreateOleObject('Microsoft.XMLHTTP');
   Req.open('get', url, false);
   Req.send(null);
   Result := Req.responseText;
   Req := null;
 except
   on E:Exception do
     Result := '+E.Message+'>';
 end;
end;




  << Вернуться к Содержанию