|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Delphi и авторизация Post запросом
Здравствуйте друзья, подскажите пожалуйста где я ошибаюсь.Пытаюсь авторизоваться методом Post на сайте subscribe.ru вот код
Код:
procedure TForm1.Button1Click(Sender: TObject); var a:TStringList; b:string; begin a:=TstringList.Create; a.Add('email='+Edit1.Text); a.Add('pass'+Edit2.Text); b:=IdHTTP1.Post('http://stat.clickfrog.ru/pages_visited_action.php',a); //подглядел снифером if Pos('member/logout?',b)<>0 then ShowMessage('Авторизация прошла успешно') else ShowMessage('Ошибка авторизаций'); end; |
#2
|
||||
|
||||
а Post возвращает код 200 или 30* ?
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Цитата:
|
#4
|
||||
|
||||
да как всегда, через ResponseCode. и есть ли автоматический редирект? если есть, то это случаем не Post снова?
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
borockov (30.05.2013)
|
#5
|
||||
|
||||
Возвращается результат 200, а что это означает?
|
#6
|
||||
|
||||
Ааа вот я подсмотрел значение кодов, значит получается запрос отправляется нормально, но все же непонятно почему не идет авторизация
|