Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2017, 02:18   #1
prodan_andry
Новичок
Джуниор
 
Регистрация: 04.06.2009
Сообщений: 1
По умолчанию Почему не отрабатывает запрос GET в Indy компонентах?

Люди. Есть вопрос. Установлена RadSudio 10.1 Berlin.
Впервые сталкиваюсь с Indy. Не могу понять, что не так.
Никак не хочет отрабатывать простецкий код.
Везде подобные примеры.

Всё на событие на одну кнопку повесил для проверки работы с компонентами.

Выдаётся ошибка в обоих вариантах: 'Project Project1.exe raised exception class EIdUnknownProtocol with message 'Unknown Protocol''.
IdTCPClient1.Connect; - проходит без ошибок.

Get выдаёт ошибку на любой сайт. Что не так? Кто знает, помогите.

Первая вариация без особых настроек:


procedure TForm1.Button1Click(Sender: TObject);
var
IdTCPClient1 : TIdTCPClient;
IdHTTP1 : TIdHTTP;
IdCookieManager1 : TIdCookieManager;
begin
IdTCPClient1 := TIdTCPClient.Create(nil);
IdHTTP1 := TIdHTTP.Create(IdTCPClient1);
IdCookieManager1 := TIdCookieManager.Create(IdTCPClient 1);
//----
//Настраиваем компонент.
IdHTTP1.HandleRedirects := True;
IdHTTP1.AllowCookies := True;
IdTCPClient1.Port := 80;
IdTCPClient1.Host := 'mail.ru';
//----
try
IdTCPClient1.Connect;

Memo1.Text := IdHTTP1.Get(IdTCPClient1.Host);

finally
IdTCPClient1.Disconnect;
IdCookieManager1.Free;
IdHTTP1.Free;
IdTCPClient1.Free;
end;

end;


Второй вариант - ошибка та же вылетает:

procedure TForm1.Button1Click(Sender: TObject);
var
IdTCPClient1 : TIdTCPClient;
IdHTTP1 : TIdHTTP;
IdCookieManager1 : TIdCookieManager;
begin
IdTCPClient1 := TIdTCPClient.Create(nil);
IdHTTP1 := TIdHTTP.Create(IdTCPClient1);
IdCookieManager1 := TIdCookieManager.Create(IdTCPClient 1);
//----
//Настраиваем компонент.
IdHTTP1.HandleRedirects := True;
IdHTTP1.AllowCookies := True;
IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.22 (KHTML, like Gecko) Chrome/25.0.1364.97 Safari/537.22';
IdHTTP1.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
IdHTTP1.Request.AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
IdHTTP1.Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.3';
IdTCPClient1.Port := 80;
IdTCPClient1.Host := 'mail.ru';
//----
try
IdTCPClient1.Connect;

Memo1.Text := IdHTTP1.Get(IdTCPClient1.Host);

finally
IdTCPClient1.Disconnect;
IdCookieManager1.Free;
IdHTTP1.Free;
IdTCPClient1.Free;
end;

end;
prodan_andry вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
почему не отрабатывает запрос maxxyz Microsoft Office Access 2 05.12.2015 11:44
почему канва не рисует на компонентах? BLACK_RAIN Общие вопросы Delphi 12 20.11.2015 13:27
Капча и многотысячный запрос Indy DenFox Работа с сетью в Delphi 0 26.09.2015 16:55
Indy, принудительно завершить запрос phphel Работа с сетью в Delphi 1 28.07.2011 14:26