Поможіть виправить ошибку

Гость Гость
27.05.2012
---
procedure TForm1. Button1Click(Sender: TObject);
var
 s: string;
 i: Integer;
 http: TIdHTTP;
begin
 http:= TIdHTTP. Create;
 // Москировка под оперу:)
 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
     s:= http. Get('http://vkontakte.ru' + http. Response.Location);
 end;
 // Авторизация пройдена
 // Для проверки загрузим последние Личные Сообщения
 s:= http. Get('http://vkontakte.ru/mail.php');
 i:= 1;

 http.Free;
end;
---
Project Projectl.exe raised exception dass EldHTTPProtocolException with message 'HTTP/l. 1 302 Found'.
Дополнено (1). Torbins я спробував
вибиває ошибку
---
|    Socket Error # 11001   |
|    Host not found.            |
---

Гость Гость
27.05.2012
О_о

Torbins Torbins
27.05.2012
Ви пробували запустити программу саму по собі, окремо від делфі? Під час запуску під налагоджувачем там дійсно має видавати помилку, але в програмі така ситуація передбачена, тому цю помилку треба ігнорувати.

BaluBig BaluBig
27.05.2012
Это можно считать нормальным, просто из исключения нужно получить новый URI, на который пошел редирект и снова сделать GET. Для того там обработчик исключения и делается. Только я бы его не так писал:
try
  s:=http.Get('http://vkontakte.ru/login.php?m=1&email='+Edit1.Text+'&pass='+Edit2.Text);
except on e: EIDHttpProtocolException do
  Begin
    if e. ErrorCode = 302 then
      begin
        try
           s:= http. Get('http://vkontakte.ru' + http. Response.Location);

Колега Torbins має рацію…

Гость Гость
27.05.2012
Моя рекомендація - покиньте Indy, візьміть Clever Internet Suite. Там і автоматичний HTTP Redirect, і SSL  з коробки…

Добавить комментарий | Похожие обсуждения

Вопросы и ответы по Вконтакте
Вопросы и ответы

Популярные вопросы и ответы о социальной сети www.vkontakte.ru (vk.com)