Как загрузить данные с инета без TWebBrowser ?
Автор Сообщение
jkeks Не на форуме
Постоялец
***

Сообщений: 155
Зарегистрирован: 02.2010
Сообщение: #1
Как загрузить данные с инета без TWebBrowser ?
сабж с примером можно ?
Не для проектов а так вообщем.
10.02.2010 7:07
Вебсайт Найти все сообщения Цитировать это сообщение
all__ Не на форуме
Админ
*******

Сообщений: 874
Зарегистрирован: 01.2010
Сообщение: #2
RE: Как загрузить данные с инета без TWebBrowser ?
Набросал консольный пример.
Код:
program idget;

{$APPTYPE CONSOLE}

uses
  SysUtils,IdHTTP,IdAntiFreeze;

var
  idAF:TIdAntiFreeze;
  http:TIdHTTP;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  idAF:=TIdAntiFreeze.Create(nil);
  http:=TIdHTTP.Create(nil);
  writeln(http.Get('http://ugoo.ru'));
end.

TIdAntiFreeze используется, чтобы окно не зависало на время выполнения запроса, если источник долго отвечает.

TIdHTTP выполняет Get запрос.

В прикреплении рабочий пример выполняющий Get запрос и выводящий его в консоль.


Прикрепления
.zip  get.zip (Размер: 1.75 Кб / Загрузок: 129)





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
10.02.2010 15:33
Вебсайт Найти все сообщения Цитировать это сообщение
Создать ответ