TidHttp и 302 код ответа

[jokz]

День добрый. Помогите пожалуйста начинающему делфи кодеру.


Код:

ans:= http.Post('http://twitter.com/sessions', formData);

нужно так:

Код:

if http.ResponseCode = 302 then

Но при загрузке страницы, если в ответе код 302, то вылазит ошибка и дальнейший код не выполняется.

если же указать


Код:

http.HandleRedirects:=true;

то я так и не понял, что он будет загружать, то ли Location, то ли еще что-то, но код выдаст 200, а не 302, как мне нужно. Как сделать, чтобы http.ResponseCode был равен 302 ?

Заранее спасибо.

P.S. Модератор Михалыч, у вас там когда тему открываешь, под первым постом есть выпадающий список, там есть "Переместить". На будущее просто.

[Пепел Феникса]

событие OnRedirect

http.HandleRedirects:=true

тогда это в false

[jokz]

событие OnRedirect

Цитата:
http.HandleRedirects:=true

тогда это в false

тогда ошибка HTTP/1.1 302....

и это все равно не то, что мне нужно. То есть если никто не знает то никак?

Какой тогда посоветуете компонент, который бы автоматически поддерживал работу с cookies и не глючил при 15-20 потоках? чистые сокеты - гемор.

[Пепел Феникса]

тогда ошибка HTTP/1.1 302....

а вы событие обрабатываете?
если компонент динамический то просто назначте обработчик(создайте метод у вашего потомка от TThread и его назначайте)
в нем параметр Handled ставим в true

[jokz]

а вы событие обрабатываете?

procedure TSDIAppForm.IdHTTP1Redirect(Sender: TObject; var dest: string;
  var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
ShowMessage(dest);
end;

если компонент динамический то просто назначте обработчик(создайте метод у вашего потомка от TThread и его назначайте)
в нем параметр Handled ставим в true

я к сожалению пока еще не столь силен в делфях, чтобы реализовать описанное выше. "Назначить обработчик" это как?

[Пепел Феникса]

вы в обработчике Handled в true не поставили.

[Voody]

не проще ли:

http.HandleRedirects:=false;
try
 ans:= http.Post('http://twitter.com/sessions', formData);
except
 if http.ResponseCode = 302 then ...
end;