Авторизация ВКОНТАКТЕ

[dmitriegorovih]

при использование Indy 9.0.18 выдаёт вот эту ошибку (ошибка №1)
при использование Indy 10.5.8 выдаёт вот эту ошибку (ошибка №2)

P.S. Версия моего indy 10.0.52

[kangreon]

302 - Это редирект. Он должен отлавливаться в примере

try
except
end;

Попробуйте запустить программу не из IDE.

А вообще сейчас попробую на Indy 10.0.52

[dmitriegorovih]

kangreon пробовал запускал все равно не хочет ошибку выдает

[kangreon]

Вот пример авторизации и получения сообщений без использования IdHTTPEx. В uses StrUtils;

var
  s, c, remixchk, remixsid: string;
  i: Integer;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create;
  // Москировка под оперу :)
  http.AllowCookies := False;
  http.HandleRedirects := False;
  http.Request.UserAgent :=
    'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
  // Отлавливаем редирект. ВАЖНО!!! Иначе не установятся куки
  try
    // Отправляем Логин и Пароль
    s := http.Get('http://vkontakte.ru/login.php?m=1&email=' + Edit1.Text +
      '&pass=' + Edit2.Text);
  except
    // Если редирект - Редиректим
    if http.ResponseCode = 302 then
    begin
      c := http.Response.RawHeaders.Text;
      i := PosEx('remixchk', c) + 9;
      remixchk := Copy(c, i, PosEx(';', c, i)-i);
      i := PosEx('remixsid', c) + 9;
      remixsid := Copy(c, i, PosEx(';', c, i)-i);
      http.Request.CustomHeaders.Text := 'Cookie: remixchk=' + remixchk +
        '; remixsid=' + remixsid;
      s := http.Get('http://vkontakte.ru' + http.Response.Location);
    end
    else
    begin
      ShowMessage('Ошибка авторизации');
    end;
  end;
  // Авторизация пройдена

  // Для проверки загрузим последние Личные Сообщения
  s := http.Get('http://vkontakte.ru/mail.php');
  i := 1;
  while PosEx('new messageBody', s, i) <> 0 do
  begin
    i := PosEx('new messageBody', s, i) + 17;
    ListBox1.Items.Add(Copy(s, i, PosEx('"', s, i) - i));
  end;
  http.Free;

[dmitriegorovih]

kangreon чудеса только что не запускался, а теперь работает ууууурааааааааааааааааааааааааааааа аааааааа! Слава kangreon!!! Слава kangreon!!! Слава kangreon!!! Спасибо вам огромное

[fezilk25]

Вылезает ошибка 302. Понимаю, что редиректы нужно отлавливать, но как убрать ошибку?

[Delphi_ProGer]

юзай VK API!