Авторизация на сайте idhttp

[Fahman]

Всем привет, учусь авторизоваться на сайте через idhttp и решил авторизоваться на однок. и наткнулся на одну проблему, выдает ошибку такую

Эта ошибка выходит если я ввел не правильный логин или пароль а вот если я вывожу НЕ Правильный логин или пароль то у меня выводит сообщения что ввел не правильно что то..
В чем проблема?
вот код

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sEdit, sButton, sMemo,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type
  TForm1 = class(TForm)
    sMemo1: TsMemo;
    sButton1: TsButton;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure sButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
var
pagedata:string;
HTTP: TIdhttp;
Data: Tstringlist;

 begin
 HTTP := TIdhttp.Create(nil);
 HTTP.AllowCookies:=true;
 HTTP.HandleRedirects:=true;
 Data:=Tstringlist.Create;
 Data.Add('fr.posted=set');
 Data.Add('fr.needCaptcha=');
 Data.Add('fr.login='+sedit1.text);
 Data.Add('fr.password='+sedit2.text);
 Data.Add('button_login=Войти');
 Pagedata:=idhttp1.post('https://m.odnoklassniki.ru/dk?bk=GuestMain&st.cmd=main&_prevCmd=main&tkn=3996',Data);
 if Pos('logoff', pagedata)<>0 then Showmessage('GooD') else ShowMessage('Bad')
 end;

end.

Кстати не смотря на эту ошибку я могу спарсить исходный код

[Streletz]

Некоторые клиенты некорректно обрабатывают код 302 состояния HTTP 1.1.
Скорее всего причина в издержках idhttp.
В помощь Список кодов состояния HTTP
Попробуйте реализовать авторизацию другим способом, без использования idhttp.

[Fahman]

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

Некоторые клиенты некорректно обрабатывают код 302 состояния HTTP 1.1.
Скорее всего причина в издержках idhttp.
В помощь Список кодов состояния HTTP
Попробуйте реализовать авторизацию другим способом, без использования idhttp.

К сожалению я только начал учится авторизоваться на сайтах, и хотел бы сделать простую брадилку=) чтоб всем в гости заходила... тут то и наткнулся на эту проблему...
есть еще одна я спарсил ссылки в Listbox и там ссылки такие
href="/dk?st.cmd=friendMain&st.friendId=45 2320839302&_prevCmd=usersOnline&tkn =5085"
теперь надо как то перейти по этой ссылке...

[Streletz]

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

К сожалению я только начал учится авторизоваться на сайтах, и хотел бы сделать простую брадилку=) чтоб всем в гости заходила... тут то и наткнулся на эту проблему...
есть еще одна я спарсил ссылки в Listbox и там ссылки такие
href="/dk?st.cmd=friendMain&st.friendId=45 2320839302&_prevCmd=usersOnline&tkn =5085"
теперь надо как то перейти по этой ссылке...

Перейти можно вставив перед текстом из href правильный адрес сайта.

[Fahman]

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

Перейти можно вставив перед текстом из href правильный адрес сайта.

Да, сейчас буду разбираться вроде с авторизацией разобрался....

[doktor255]

Исключение при отключённом HandleRedirects, хотя в коде видно, что параметр включается. Как-то странно. 100% поможет try except.

[Fahman]

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

Исключение при отключённом HandleRedirects, хотя в коде видно, что параметр включается. Как-то странно. 100% поможет try except.

Спасибо работает, 1 вопрос. После авторизации не могу я зайти на страницу "Сейчас онлайн" и спарсить почему? я же авторизовался!
В моем случае надо сделать так...
Зайти на сайт (под моим логин и пасс ) потом зайти на страничку кто онлайн и всем кто онлайн зайти в гости))) Все это хотел делать через запросы, можно же сделать это через webbrowser Но это долго будет мне казалось что через запросы куда проще и быстрее но застрял на авторизации... Точнее все нормально проходит авторизация без проблем....

[eval]

во фриланс

[Fahman]

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

во фриланс

1) Сам
2) Хочу сам
3) Знаю о фрилансе, интересовался.
4) Для личного пользования программа...

[eval]

хотеть, как грицца, не вредно