Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

302 found

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 08.05.2012, 22:10   #1
 Пехотинец
Аватар для revi994
 
revi994 никому не известный тип
Регистрация: 23.05.2010
Сообщений: 55
Популярность: 1
Сказал(а) спасибо: 67
Поблагодарили 112 раз(а) в 34 сообщениях
Отправить сообщение для revi994 с помощью ICQ Отправить сообщение для revi994 с помощью Skype™
 
По умолчанию 302 found

Добрый день.
Пытаюсь войти на minecraft.net
Вот код
Код:
var
Data:TStringList;
Request:String;
HTTP:TidHTTP;
begin
Data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
Data.Add('username='+Edit1.Text);
Data.Add('password='+Edit2.Text);
Data.Add('authenticityToken=d');
 try
Request:=HTTP.Post('http://www.minecraft.net/login',Data);
  Memo1.lines.add(idhttp1.Get(IdHTTP1.Response.Location));
memo1.Lines.Add(Request);
if Pos('http://www.minecraft.net/',Request)<>0 then
    begin
    ShowMessage('Авторизация прошла успешно');
    end
   else
    begin
    ShowMessage('Авторизация не удалась');
    end;
     finally
Data.Free;
Request:='';
HTTP.Free;
Он пишет 302 found и все обрывается.
Как убрать ошибку?
В гугле лазил нашёл, нужно включить параметр, но он не помог.
как то хандлредикт
что то такое.
Вопрос как решить это проблему?
________________
Я та-а-к быстро вспомнил о чем забыл, что забыл о чём вспомнил
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
Старый 08.05.2012, 22:47   #2
Заблокирован
 Пехотинец
Аватар для Skrillex3
 
Skrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компанииSkrillex3 душа компании
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
Отправить сообщение для Skrillex3 с помощью Skype™
 
По умолчанию Re: 302 found

HTTP.Handleredirect := True;
  Ответить с цитированием
Старый 09.05.2012, 18:40   #3
 Пехотинец
Аватар для revi994
 
revi994 никому не известный тип
Регистрация: 23.05.2010
Сообщений: 55
Популярность: 1
Сказал(а) спасибо: 67
Поблагодарили 112 раз(а) в 34 сообщениях
Отправить сообщение для revi994 с помощью ICQ Отправить сообщение для revi994 с помощью Skype™
 
По умолчанию Re: 302 found

Код:
procedure TForm1.Button1Click(Sender: TObject);
   var
Data:TStringList;
Request:String;
HTTP:TidHTTP;
begin
Data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
Data.Add('username='+Edit1.Text);
Data.Add('password='+Edit2.Text);
Data.Add('authenticityToken=d');
 try
 HTTP.Handleredirects := True;
Request:=HTTP.Post('http://www.minecraft.net/login',Data);
memo1.Lines.Add(Request);
     finally
Data.Free;
Request:='';
HTTP.Free;
end;
Вот такой код, но в мемо не чего не выводит то есть.
Request пустое почему?
________________
Я та-а-к быстро вспомнил о чем забыл, что забыл о чём вспомнил
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
Ответ


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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
302 found pavel! Вопросы и ответы, обсуждения 2 12.04.2012 21:10
[Помогите!] 404 Not Found Регистрация Agito00 Вопросы и ответы, обсуждения 7 12.03.2012 14:50
Class not found Perios Вопросы и ответы, обсуждения 1 20.09.2010 19:49

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 07:51.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net