PDA

Просмотр полной версии : [Помогите!] 302 found


revi994
08.05.2012, 22:10
Добрый день.
Пытаюсь войти на minecraft.net
Вот код
var
Data:TStringList;
Request:String;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
begin
Data:=TStringList.Create;
[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
Data.Add('username='+Edit1.Text);
Data.Add('password='+Edit2.Text);
Data.Add('authenticityToken=d');
try
Request:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
Memo1.lines.add(id[Ссылки могут видеть только зарегистрированные и активированные пользователи](Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] ion));
memo1.Lines.Add(Request);
if Pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Request)<>0 then
begin
ShowMessage('Авторизация прошла успешно');
end
else
begin
ShowMessage('Авторизация не удалась');
end;
finally
Data.Free;
Request:='';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

Он пишет 302 found и все обрывается.
Как убрать ошибку?
В гугле лазил нашёл, нужно включить параметр, но он не помог.
как то хандлредикт
что то такое.
Вопрос как решить это проблему?

Skrillex3
08.05.2012, 22:47
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := True;

revi994
09.05.2012, 18:40
procedure TForm1.Button1Click(Sender: TObject);
var
Data:TStringList;
Request:String;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
begin
Data:=TStringList.Create;
[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
Data.Add('username='+Edit1.Text);
Data.Add('password='+Edit2.Text);
Data.Add('authenticityToken=d');
try
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := True;
Request:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
memo1.Lines.Add(Request);
finally
Data.Free;
Request:='';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
end;
Вот такой код, но в мемо не чего не выводит то есть.
Request пустое почему?