![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте.
Недавно появилась необходимость программно авторизоваться на сайте. Если заходить на сайт с браузера, сайт требует установить сертификат, а адрес сайта начинается с https:// С авторизацией по незашифрованному протоколу на других сайтах всё норм. Код:
procedure TForm1.Button1Click(Sender: TObject); begin Data := TStringList.Create; idHttp1.AllowCookies := true; idHttp1.CookieManager := IdCookieManager1; idHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'; idHttp1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.3'; idHttp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4'; idHttp1.Request.Connection:='keep-alive'; idHttp1.Request.ContentType:='application/x-www-form-urlencoded'; idHttp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.77 Safari/535.7'; Data.Add('username=admin'); Data.Add('password=admin'); StrPage := idHttp1.post('https://.../index.php', data); memo1.Text:=utf8toansi(strpage); end; Ошибка вроде "eidhttpprotocolexception with message value is not valid". Подскажите пожалуйста, что в программе изменить/добавить. Делфи серьёзно не занимаюсь, просто появилась необходимость накатать прогу, так что будьте снисходительны. |