VPF::Indy + https - Форум программистов

chiffa

Дата 16.12.2010, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 734
Регистрация: 11.11.2003

Репутация: нет
Всего: -1

Всем привет. Нужно провести авторизацию на сайте по https, после поисков в сети нашел что это можно сделать с помощью Indy., код:

Код


procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
     PageProfile:string;
     error:boolean;
begin
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;

 data:=tstringlist.create;
 data.Add('login=chiffa'); 
 data.Add('pass=12');  
 error:=false;
 try
  PageProfile:=IdHTTP1.Post('https://mysait.ru', data);
 except
  error:=true;
 end;

   Memo1.Lines.Add(PageProfile);
           
 Data.Free;
end;

на форму просил IdSSLIOHandlerSocketOpenSSL1, связал с IdHTTP1 при конекте выдает ошибку:

Error connect whith SSL. error: 14094410:SSL routines:SSL3_READ_BYTES:sslv3 alert handshake failure

Прошу Вашей помощи! На Делфи пишу совсем ничего, поэтому если решение элементарное просьба сильно не пинать smile

Ryhor

Дата 17.12.2010, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 15.12.2010

Репутация: нет
Всего: нет

SSLOptions.Method правильно выставил?

chiffa

Дата 17.12.2010, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 734
Регистрация: 11.11.2003

Репутация: нет
Всего: -1

Ryhor, а каким он должен быть? Какое значение?

Поставил - sslvSSLv2, стало выдавать: Error connection with SSL. error:00000006:lib(0):func(0):EVP lib

Igor22

Дата 18.12.2010, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 27.2.2008

Репутация: нет
Всего: нет

я так делаю

Код


var
  s_post: TStringStream;

begin
  s_post:= TStringStream.create;

  s_post.WriteString('param1=0099&param2=1122');

   IdHTTP.Request.ContentType :=        'application/x-www-form-urlencoded';

  html := Form_main.IdHTTP.post('http://vkontakte.ru/mail.php',  s_post);

end;

Sharkfire88

Дата 28.4.2011, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 31.1.2011

Репутация: нет
Всего: нет

У меня при подключении к GMAIL вылазит ошибка:

First chance exception at $7C812AEB. Exception class EIdOSSLConnectError with message
'Error connecting with SSL.
error:00000006:lib(0):func(0):EVP lib'.

Использую TIdPOP3+

ssleay32 : 0.9.8r
libeay32 : 0.9.8r

IndyVersion: Builder XE версия Инди 10.5.7

Использую метод sslvSSLv3, хотя не работает с любыми методами

Snowy

Дата 29.4.2011, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Модератор: Пожалуйста, один топик - один вопрос.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »