Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Авторизация на яндексе, Необходимо авторизироваться на яндексе 
:(
    Опции темы
artmaestro
Дата 2.12.2013, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Здравствуйте

Задача следующая, необходимо авторизироваться на яндексе, подскажите пожалуйста, что я не так делаю

1. Для авторизации пробовал отправлять как POST так GEТ запросы. POST- отправлял, так как на сайте яндекса это указано в ХТМЛ исходнике. А GET0отправлял, потому что нашел похожую тему здесь. как бы там нибыло, нечего не получилось.

2. не могу принять данные, которые должна возвращать функция get или post

Делаю таким образом

Код


procedure TForm1.btn1Click(Sender: TObject);
var
  list:TStringList;
  CookMan: TidCookieManager;
  code,s:string;
  text:string;
begin

  list:= TStringList.Create;
  list.Add('login=mylogin');
  list.Add('passwd=mypass');
  idhtp1.CookieManager:=CookMan;
  idhtp1.AllowCookies:=True;
  idhtp1.HandleRedirects:=True;
  idhtp1.Request.UserAgent:='mozila';
  try
    text:=idhtp1.Post('http://passport.yandex.ru/passport?mode=auth',list);  //тут ошибка
  except
        ShowMessage('ошибка');
  end;
end;



Это сообщение отредактировал(а) artmaestro - 2.12.2013, 16:17
PM MAIL   Вверх
Агрох
Дата 2.12.2013, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 6.4.2013
Где: Москва

Репутация: нет
Всего: 6
Пропустил &

Код

list.Add('&login=mylogin');
list.Add('&passwd=mypass');


Насколько помню это символ, указывающий на то, что после него идёт переменная.

Это сообщение отредактировал(а) Агрох - 2.12.2013, 16:27
--------------------
Putin here, Putin there, Putin almost everywhere!
PM MAIL   Вверх
artmaestro
Дата 2.12.2013, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Не получается. все равно возникает ошибка.

Да, Вы правы, но они используются при использовании GET запросов.

Вот так пробовал делать, с помощью GET

Код

idhtp1.get('http://passport.yandex.ru/passport?mode=auth&login=mylogin&passwd=mypass);


все равно возникает ошибка.

Это сообщение отредактировал(а) artmaestro - 2.12.2013, 16:37
PM MAIL   Вверх
Агрох
Дата 2.12.2013, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 6.4.2013
Где: Москва

Репутация: нет
Всего: 6
А какую ошибку выдаёт?

Добавьте 
Код

on e:Exception do
ShowMessage('Ошибка: ' + e.Message);

после except.
--------------------
Putin here, Putin there, Putin almost everywhere!
PM MAIL   Вверх
artmaestro
Дата 2.12.2013, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Вот такую. 

user posted image
PM MAIL   Вверх
artmaestro
Дата 2.12.2013, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
На Delphi7 так и не смог решить. На ХЕ5, написал данный код, все работает без проблем
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0795 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.