ошибка при запросе http 1.1 302 moved temporarily

[STALERUM]

добрый день,форумчане!
я новичок, просьба не пинать.
Пишу бота для olike.ru и наткнулся на проблему:
после выполнения 4-го запроса выскакивает окошко с сообщением об ошибке(http 1.1 302 moved temporarily)
Не понимаю почему это происходит, а точнее не знаю что с этим делать.
Ниже кусок кода:

begin
/////создаем и настраиваим компоненты
cookie:=Tidcookiemanager.Create(self);
http := TIdHTTP.Create(self);
http.CookieManager:=cookie;
//freeze:=TIdAntiFreeze.Create(self);
http.AllowCookies := false;
http.HandleRedirects := False;
http.Request.Connection:='keep-alive';
http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0.1';
try
////авторизовываемся но нас должно редеректить так как http.HandleRedirects := False;
link:=HTTP.get('http://vk.com/login.php?email='+l+'&pass='+p);
except
    if (http.ResponseCode=302) then begin ////проверяем если редирект тогда
      ////парсим кукусы
      uri := TIdUri.Create('http://vk.com');
      c := http.Response.RawHeaders.Text;
      i := Pos('remixlang', c) + 10;
      remixlang := Copy(c, i, length(c));
      remixlang := Copy(remixlang, 1, pos(';',remixlang)-1);
      i := Pos('remixchk', c) + 9;
      remixchk := Copy(c, i, length(c));
      remixchk := Copy(remixchk, 1, pos(';',remixchk)-1);
      i := Pos('remixsid', c) + 9;
      remixsid := Copy(c, i, length(c));
      remixsid := Copy(remixsid, 1, pos(';',remixsid)-1);
      ////добаляем их
      http.Request.CustomHeaders.Text := 'Cookie: remixlang='+remixlang+'; remixchk='+remixchk +'; remixsid='+remixsid;
      http.CookieManager.AddServerCookie('remixlang='+remixlang+'remixchk='+remixchk+'; remixsid='+remixsid,uri);
      link:=http.Get('http://vk.com/widget_auth.php?app=2924245&width=200px&url=http://olikefriends004.ru/olikelogin.php');
    hash:=copy(link,pos('window.authHash = ',link)+length('window.authHash = '),length(link));
    hash:=copy(hash,1,pos(';',hash)-1);
    Delete(hash,1,1);
    Delete(hash,length(hash),1);
    first_name:=copy(link,pos('target="_blank">',link)+length('target="_blank">'),length(link));
    first_name:=copy(first_name,1,pos(' ',first_name)-1);
    last_name:=copy(link,pos(first_name+' ',link)+length(first_name+' '),length(link));
    last_name:=copy(last_name,1,pos('</a>',last_name)-1);
    end;
    end;


     PostData:=TStringList.Create;
     PostData.Clear;
     PostData.Add('act=a_auth_user');
     PostData.Add('app=2924245');
     PostData.Add('hash='+hash);
     PostData.Add('url=http://olikefriends004.ru/vkform.php');
     link:=http.Post('http://vk.com/widget_auth.php',PostData);
     PostData.Free;

     uid:=copy(link,pos('[',link)+length('['),length(link));
     uid:=copy(uid,1,pos(',',uid)-1);
     hash:=copy(link,pos('"},"',link)+length('"},"'),length(link));
     hash:=copy(hash,1,pos('"]',hash)-1);

   // Delete(hash,1,1);
   // Delete(hash,length(hash),1);
   memo1.Lines.Add(uid);
   memo1.Lines.Add(hash);
   {////парсим кукусы
      uri := TIdUri.Create(link);
      c := http.Response.RawHeaders.Text;
      i := Pos('cDRGN', c) + 3;
      cDRGN := Copy(c, i, length(c));
      cDRGN := Copy(cDRGN, 1, pos(';',cDRGN)-1);}
      memo1.Lines.Add(cDRGN);
      ////парсим кукусы
      ////добаляем их
      http.Request.CustomHeaders.Text := 'Cookie: remixlang='+remixlang+'; remixchk='+remixchk +'; remixsid='+remixsid{+' ;remixreg_sid='+remixreg_sid};
      http.CookieManager.AddServerCookie('remixlang='+remixlang+'remixchk='+remixchk+'; remixsid='+remixsid{+' ;remixreg_sid='+remixreg_sid},uri);
  
      link:=http.get('http://olikefriends004.ru/olikelogin.php?uid='+uid+'&first_name='+first_name+'&last_name='
+last_name+'&photo=http://vk.com/images/camera_a.gif&photo_rec=http://vk.com/images/camera_c.gif&hash='+hash);
       // Здесь вылетает ошибка
      link:=http.Get('http://olike.ru/login.php?uid='+uid+'&hash='+hash+'&');

Даже если я ставлю гет запрос в условие
if (http.ResponseCode=302) then begin
блбалаба
end;
то условие опять таки не выполняется. поэтому я не понимаю что сдесь делать. подскажите пожалуйста

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

http.HandleRedirects := False;

здесь вы говорите что будете обрабатывать редиректы сами.
а это событие OnRedirect

[Кольша]

begin
/////создаем и настраиваим компоненты
cookie:=Tidcookiemanager.Create(self);
http := TIdHTTP.Create(self);
http.CookieManager:=cookie;
//freeze:=TIdAntiFreeze.Create(self);
http.AllowCookies := false;
http.HandleRedirects := False;
http.Request.Connection:='keep-alive';
http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0.1';
try
////авторизовываемся но нас должно редеректить так как http.HandleRedirects := False;
link:=HTTP.get('http://vk.com/login.php?email='+l+'&pass='+p);
except
    if (http.ResponseCode=302) then begin ////проверяем если редирект тогда
      ////парсим кукусы
      uri := TIdUri.Create('http://vk.com');
      c := http.Response.RawHeaders.Text;
      i := Pos('remixlang', c) + 10;
      remixlang := Copy(c, i, length(c));
      remixlang := Copy(remixlang, 1, pos(';',remixlang)-1);
      i := Pos('remixchk', c) + 9;
      remixchk := Copy(c, i, length(c));
      remixchk := Copy(remixchk, 1, pos(';',remixchk)-1);
      i := Pos('remixsid', c) + 9;
      remixsid := Copy(c, i, length(c));
      remixsid := Copy(remixsid, 1, pos(';',remixsid)-1);
      ////добаляем их
      http.Request.CustomHeaders.Text := 'Cookie: remixlang='+remixlang+'; remixchk='+remixchk +'; remixsid='+remixsid;
      http.CookieManager.AddServerCookie('remixlang='+remixlang+'remixchk='+remixchk+'; remixsid='+remixsid,uri);
      link:=http.Get('http://vk.com/widget_auth.php?app=2924245&width=200px&url=http://olikefriends004.ru/olikelogin.php');
    hash:=copy(link,pos('window.authHash = ',link)+length('window.authHash = '),length(link));
    hash:=copy(hash,1,pos(';',hash)-1);
    Delete(hash,1,1);
    Delete(hash,length(hash),1);
    first_name:=copy(link,pos('target="_blank">',link)+length('target="_blank">'),length(link));
    first_name:=copy(first_name,1,pos(' ',first_name)-1);
    last_name:=copy(link,pos(first_name+' ',link)+length(first_name+' '),length(link));
    last_name:=copy(last_name,1,pos('</a>',last_name)-1);
    end;
    end;


     PostData:=TStringList.Create;
     PostData.Clear;
     PostData.Add('act=a_auth_user');
     PostData.Add('app=2924245');
     PostData.Add('hash='+hash);
     PostData.Add('url=http://olikefriends004.ru/vkform.php');
     link:=http.Post('http://vk.com/widget_auth.php',PostData);
     PostData.Free;

     uid:=copy(link,pos('[',link)+length('['),length(link));
     uid:=copy(uid,1,pos(',',uid)-1);
     hash:=copy(link,pos('"},"',link)+length('"},"'),length(link));
     hash:=copy(hash,1,pos('"]',hash)-1);

   // Delete(hash,1,1);
   // Delete(hash,length(hash),1);
   memo1.Lines.Add(uid);
   memo1.Lines.Add(hash);
   {////парсим кукусы
      uri := TIdUri.Create(link);
      c := http.Response.RawHeaders.Text;
      i := Pos('cDRGN', c) + 3;
      cDRGN := Copy(c, i, length(c));
      cDRGN := Copy(cDRGN, 1, pos(';',cDRGN)-1);}
      memo1.Lines.Add(cDRGN);
      ////парсим кукусы
      ////добаляем их
      http.Request.CustomHeaders.Text := 'Cookie: remixlang='+remixlang+'; remixchk='+remixchk +'; remixsid='+remixsid{+' ;remixreg_sid='+remixreg_sid};
      http.CookieManager.AddServerCookie('remixlang='+remixlang+'remixchk='+remixchk+'; remixsid='+remixsid{+' ;remixreg_sid='+remixreg_sid},uri);
  
      link:=http.get('http://olikefriends004.ru/olikelogin.php?uid='+uid+'&first_name='+first_name+'&last_name='
+last_name+'&photo=http://vk.com/images/camera_a.gif&photo_rec=http://vk.com/images/camera_c.gif&hash='+hash);
       // Здесь вылетает ошибка
http.HandleRedirects := true;
      link:=http.Get('http://olike.ru/login.php?uid='+uid+'&hash='+hash+'&');

так вроде не?

[STALERUM]

Сообщение от Пепел Феникса

здесь вы говорите что будете обрабатывать редиректы сами.
а это событие OnRedirect

не совсем понял что с этим делать

[STALERUM]

Сообщение от Кольша

так вроде не?

так пробовал -не работает

[Человек_Борща]

STALERUM, HandleREdirections = TRUE и все.

[N0iD]

Я бегло пробежался по коду, не понял что такое "link", ну да ладно, пробуй.

try
link:=http.Get('http://olike.ru/login.php?uid='+uid+'&hash='+hash+' &');
except
HTTP.GET(HTTP.Response.Location);
end;

Попробуй и отпишись)