Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2018, 12:43   #1
winner13
 
Регистрация: 22.04.2011
Сообщений: 3
По умолчанию Авторизация mail.ru

Добрый день всем, давно не занимался программированием просьба сильно не пинать. Не могу авторизоваться на мыле, код такой:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  S1: TStringList;
  SS1: String;
  i: Integer;
  log1, pass1: String;
begin
  S1 := TStringList.Create;
  S1.Add('Page=https://m.games.mail.ru/mobile/');
  S1.Add('new_auth_form=1');
  S1.Add('Domain=bk.ru');
  S1.Add('Login=L****');
  S1.Add('Password=****');
  SS1 := IdHTTP1.Post('https://auth.mail.ru/cgi-bin/auth', S1);
  Memo1.Lines.Add(SS1);
  if pos('L****', SS1) <> 0 then
  begin
    Label2.Caption := 'Ура есть контакт';
  end
  else
    Label2.Caption := 'Ошибка авторизации.';
end;
На форме: IdHTTP1, IdCookieManager1,IdSSLIOHandlerSock etOpenSSL1.

Сначала была 302 ошибка, включил ХэндлРедиректс тру, начал выдавать постоянно ошибку 404 не найденно.

Помогите авторизоваться и получить кукисы, для последующей работы, я понять не могу, где и что я делаю не так.
winner13 вне форума Ответить с цитированием
Старый 16.06.2018, 22:13   #2
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Вот пример для idSMTP под рукой был - нужно IOHandler указать для SSL, а не просто на форму IdSSLIOHandlerSocketOpenSSL бросить

Код:
      if IsUsedSSL then
      begin
        // Этот кусок реализует поддержку SSL/TLS
        IdSSLIOHandlerSocketOpenSSL.Destination := idSMTP.Host+':'+IntToStr(idSMTP.Port);
        IdSSLIOHandlerSocketOpenSSL.Host := idSMTP.Host;
        IdSSLIOHandlerSocketOpenSSL.Port := idSMTP.Port;
        IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv3;

        idSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
        idSMTP.UseTLS := utUseImplicitTLS;

      end // if SMTPParams.SMTPUseSSL
      else
      begin
        idSMTP.IOHandler := nil;
        idSMTP.UseTLS := utNoTLSSupport;
      end; // else
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авторизация Mail.RU denbox Работа с сетью в Delphi 12 09.08.2014 18:10
Авторизация на wf.mail.ru KoBaL Работа с сетью в Delphi 8 04.04.2013 20:08
авторизация mail.ru DeDoK Работа с сетью в Delphi 1 18.09.2010 23:36
авторизация на mail.ru tranceman PHP 1 11.10.2009 20:21
Авторизация на mail.ru Des Работа с сетью в Delphi 4 27.04.2009 17:50