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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.08.2008, 05:02   #1
Черничный
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 293
По умолчанию IDHTTP не авторизируется

Ниже приведен код, все есть, и куки менеджер то же. Но не работатет.

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
  IdHTTP1.AllowCookies := True;
  IdHTTP1.CookieManager := IdCookieManager1;
  IdHTTP1.HandleRedirects := True;

LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Clear;
LoginInfo.Add('email='+Edit1.Text);
LoginInfo.Add('pass='+Edit2.Text);
memo1.Lines.Clear;
IdHTTP1.Post('http://vkontakte.ru/login.php',LoginInfo,Response);
Memo1.Lines.Add(Response.DataString);

edit3.Text:=IdHTTP1.get('http://vkontakte.ru/feed2.php') ;

Response.Free;
LoginInfo.Free;
end;
Брал тут на форуме исходничек, но там вместо куки менеджера юнит присоединенный. С ним в 2007 работает. Но мне нужно в D7. В ней дебуг пишет ошибку мол не возможно компилировать из-за разности версий експектион.idecpection. Что то такое. В моем же коде кукименеджер компонент, на форме... но нет отдачи от сервера. не проходит авторизацию. Как быть?

Что самое главное, все мои другие проекты с компонентами indy 10, которые мне советовали, не хотят работать! Так что мне бы лучше решение на стандартных indy.

Последний раз редактировалось Черничный; 28.08.2008 в 17:29.
Черничный вне форума Ответить с цитированием
Старый 03.09.2008, 17:22   #2
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Анологично,

Код:
procedure TForm2.Button1Click(Sender: TObject);
var  data: TStringList;
     reply: string;
begin
  data:=TStringList.Create;
  data.Clear;
  data.Add('email=***');
  data.add('pass=***');
  reply:=Client.Post('http://vkontakte.ru/login.php', data);
  TextToWebBrowser(reply,WebBrowser1);
  data.free;
end;
Куки-менеджер вкючён, HandleRedirects тоже. Что ему не нравится?
--
а, вот "где корейцы собаку закопали"
http://forum.vingrad.ru/forum/topic-...1172160/0.html
--
правка indy-шных сорцев не помогла.
Мне отвечают HTTP/1.1 200 ОК и кидают страницу с повторным логином, а браузеру 302 FOUND и редирект. Что за...???
пыщь

Последний раз редактировалось JTG; 03.09.2008 в 17:46.
JTG вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
idHTTP и кодировка FAiver Работа с сетью в Delphi 2 09.09.2012 16:47
idHTTP DeDoK Общие вопросы Delphi 5 05.06.2008 22:45
idHTTP и HTTPS CoDeR Работа с сетью в Delphi 2 12.11.2007 15:55
Все тот же IdHTTP (Post) AVer Работа с сетью в Delphi 5 28.09.2007 10:40
Проблемы с IdHTTP satana Работа с сетью в Delphi 2 31.08.2007 09:12