Показать сообщение отдельно
  #1  
Старый 22.02.2017, 12:02
and.enk and.enk вне форума
Прохожий
 
Регистрация: 22.02.2017
Сообщения: 11
Версия Delphi: Delphi 2010
Репутация: 10
Восклицание Ошибка Socket Error 0 Indy 10.5.5

Всем здравия!
Пишу не большую программку для личного использования столкнул с первой проблемой на первом шаге, на шаге авторизации в вк.

Все параметры всё правильно собирается и отправляется методом POST получаю код редиректа 302

В idhttp.Response.Location находится заветная ссылка по которой если перейти авторизуешься в вк, я пробовал получил ссылку в Memo она такого вида https://m.vk.com/login?role=fast&to=&s=1&__q_hash=(тут md5_hash судя по виду) вставлял этот линк в браузер и переходил на свою страницу авторизованным это меня удивило...

Но когда я
Код:
 try
IdHTTP.HandleRedirects:= false;
IdHTTP.Post('https://login.vk.com/', post);
 except
if (idHTTP.Response.ResponseText='HTTP/1.1 302 Found') then //Если сервер ответил нам редиректом то
sleep(1000);
url:= idhttp.Response.Location ; // Достаем адрес редиректа из заголовка ответа сервера
idhttp.HandleRedirects:= true; // Включаем авторедирект
if pos('Выход',idhttp.Get(url))>0 then // Если на странице есть слово Выход то авторизация удалась
memo1.Text:= 'OK';

lmikle: пользуемся тегами

Мне прога пишет Socket Error #0

Перепробовал массу способов не могу разобраться, остаётся только переходить на Synapse если не получится с Indy, только с Synapse вообще не работал.

Версия Indy 10.5.5 искал свежее не нашёл... Библиотеки libeay32.dll и ssleay32 лежат рядом с прогой какая версия не помню, пробовал разные скачивать все выдавали ошибку точка входа не найдена что то такое, может быть в них проблема я хз, подскажите в чём может быть дело
Ответить с цитированием