Здравствуйте.
Недавно появилась необходимость программно авторизоваться на сайте. Если заходить на сайт с браузера, сайт требует установить сертификат, а адрес сайта начинается с
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".
Подскажите пожалуйста, что в программе изменить/добавить. Делфи серьёзно не занимаюсь, просто появилась необходимость накатать прогу, так что будьте снисходительны.