[borockov]

Здравствуйте друзья, подскажите пожалуйста где я ошибаюсь.Пытаюсь авторизоваться методом 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;

Все нормально компилируется, но блин авторизация не проходит, я только учусь работать с Post Get поэтому могу не понимать самых элементарных моментов) заранее спасибо.

[NumLock]

а Post возвращает код 200 или 30* ?

[borockov]

Сообщение от NumLock

а Post возвращает код 200 или 30* ?

А как можно узнать что он возвращает?

[NumLock]

да как всегда, через ResponseCode. и есть ли автоматический редирект? если есть, то это случаем не Post снова?

[borockov]

Возвращается результат 200, а что это означает?

[borockov]

Ааа вот я подсмотрел значение кодов, значит получается запрос отправляется нормально, но все же непонятно почему не идет авторизация

[borockov]

Отследил снифером что куда отправляет программа, оказывается программа ничего никуда не отправляет, не могу понять где ошибаюсь