Всем привет, вообщем начал изучать Synapse и не проходить любая авторизация с защищенным протоколом "HTTPS", т.е сразу выдает ошибку (Error).
Если убрать 'S', все работает. Но по такому адресу уже не авторизоваться.
Вот код.
Код:
HTTP: THttpsend;
Login,pass,s,ath,ref: string;
Post: Tstringstream;
HTTP1: TIDHTTP;
begin
HTTP:= THttpsend.Create();
HTTP1 := TIdHTTP.Create(nil);
HTTP1.HandleRedirects:=false;
Login:= Copy(sedit1.text, 0,pos(':',sedit1.text)-1);
Pass:= Copy(sedit1.Text, pos(':',sedit1.text)+1, Maxint);
// Post Запрос
post:= Tstringstream.Create;
HTTP.UserAgent:='Iphone 6';
HTTP.MimeType:='application/x-www-form-urlencoded';
post.WriteString('user='+Login+'&password='+pass+'');
HTTP.Document.LoadFromStream(post);
// Сам запрос
if HTTP.HTTPMethod('POST','https://site.ru') then
begin
smemo1.Lines.Add(HTTP.Headers.text);
end else
begin
Showmessage('Error');
end;
end;