|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.01.2017, 02:18 | #1 |
Новичок
Джуниор
Регистрация: 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; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
почему не отрабатывает запрос | 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 |