![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Есть такие, кто работал с synapse? Если есть, набросайте пожалуйста код авторизации на mail.ru. Там используется ssl, понадобятся библиотеки ssleay32.dll и libeay32.dll
Я пытался сделать это сам, но меня постоянно бросает на страницу, сообщающую о неправильном логине или пароле. Последний раз редактировалось Zo_Omer, 07.07.2012 в 02:11. |
#2
|
|||
|
|||
![]() Решено! Товарищи, сделал своими силами (да прибудет с нами гугл)
Код:
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. |