Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.07.2012, 23:23
Zo_Omer Zo_Omer вне форума
Прохожий
 
Регистрация: 31.01.2012
Сообщения: 33
Репутация: 10
По умолчанию [Решено]Авторизация mail.ru - synapse

Есть такие, кто работал с synapse? Если есть, набросайте пожалуйста код авторизации на mail.ru. Там используется ssl, понадобятся библиотеки ssleay32.dll и libeay32.dll
Я пытался сделать это сам, но меня постоянно бросает на страницу, сообщающую о неправильном логине или пароле.

Последний раз редактировалось Zo_Omer, 07.07.2012 в 02:11.
Ответить с цитированием
  #2  
Старый 07.07.2012, 02:11
Zo_Omer Zo_Omer вне форума
Прохожий
 
Регистрация: 31.01.2012
Сообщения: 33
Репутация: 10
По умолчанию

Решено! Товарищи, сделал своими силами (да прибудет с нами гугл)

Код:
procedure TForm1.Button1Click(Sender: TObject);
var HTTP: THTTPSend;
  Res : boolean;
  d,f: TStringStream;
     s:string;
begin
HTTP := THTTPSend.Create;
   HTTP.MimeType:='application/x-www-form-urlencoded';
    d:=TStringStream.Create('Domain=mail.ru&Login=[логин]&Password=[пароль]&level=0');
    f:= TStringStream.Create('');
    HTTP.Document.LoadFromStream(d);
     try
    Res := HTTP.HTTPMethod('POST', 'https://auth.mail.ru/cgi-bin/auth');
    http.Clear;
    http.HTTPMethod('get','https://e.mail.ru/cgi-bin/editpass');
    HTTP.Document.SaveToStream(f);
              memo1.Text:=f.DataString;
              Memo1.Text:=Utf8ToAnsi(Memo1.Text);
              Memo1.Text:=trim(Memo1.Text);

    
  finally
    HTTP.Free;
  end;
  if pos('[майл]',f.DataString)>0 then
  ShowMessage('Авторизовались')
else
  ShowMessage('Не удалось');
end;

Последний раз редактировалось Zo_Omer, 07.07.2012 в 09:39.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:58.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025