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 и все обрывается.
Как убрать ошибку?
В гугле лазил нашёл, нужно включить параметр, но он не помог.
как то хандлредикт
что то такое.
Вопрос как решить это проблему?
Пытаюсь войти на 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 и все обрывается.
Как убрать ошибку?
В гугле лазил нашёл, нужно включить параметр, но он не помог.
как то хандлредикт
что то такое.
Вопрос как решить это проблему?