cel
17.02.2010, 16:23
Памогите пожалуйсто,я пытаюсь авторизоватся в контакте,но у мнея не палучается,выскакивает ошибка EIdHTTPProtocolException 'HTTP/1.1 302 Found’,
HandleRedirects True,я не понемаю по чему может быть проблема.
var
http : Tidhttp;
s,name,id,Page : string;
post : Tstringlist;
coo : Tidcookiemanager;
compressor : tidCompressorZLib;
begin
coo := Tidcookiemanager.Create;
http := Tidhttp.Create;
http.ReadTimeout := 60000;
http.AllowCookies := true;
http.CookieManager := coo;
http.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
http.Request.AcceptEncoding := 'gzip,deflate';
compressor := tIdCompressorZLib.Create;
http.Compressor := compressor;
post := Tstringlist.Create;
http.get ('http://vk.com');
post.add ('op=a_login_attempt');
http.post ('http://vk.com/login.php', post);
post.Clear;
post.add ('email=' + sedit1.Text);
post.add ('pass=' + sedit2.Text);
post.add ('expire=');
post.add ('vk=1');
post.add ('act=login');
s := http.post ('http://login.vk.com/', post);
post.Clear;
post.Add ('op=slogin');
post.Add ('redirect=1');
post.Add ('expire=0');
post.Add ('to=');
post.Add ('s=' + copy (s, 536, 56));
Page:=http.post ('http://vk.com/login.php', post);
post.Free;
Coo.Free;
http.Free;
HandleRedirects True,я не понемаю по чему может быть проблема.
var
http : Tidhttp;
s,name,id,Page : string;
post : Tstringlist;
coo : Tidcookiemanager;
compressor : tidCompressorZLib;
begin
coo := Tidcookiemanager.Create;
http := Tidhttp.Create;
http.ReadTimeout := 60000;
http.AllowCookies := true;
http.CookieManager := coo;
http.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
http.Request.AcceptEncoding := 'gzip,deflate';
compressor := tIdCompressorZLib.Create;
http.Compressor := compressor;
post := Tstringlist.Create;
http.get ('http://vk.com');
post.add ('op=a_login_attempt');
http.post ('http://vk.com/login.php', post);
post.Clear;
post.add ('email=' + sedit1.Text);
post.add ('pass=' + sedit2.Text);
post.add ('expire=');
post.add ('vk=1');
post.add ('act=login');
s := http.post ('http://login.vk.com/', post);
post.Clear;
post.Add ('op=slogin');
post.Add ('redirect=1');
post.Add ('expire=0');
post.Add ('to=');
post.Add ('s=' + copy (s, 536, 56));
Page:=http.post ('http://vk.com/login.php', post);
post.Free;
Coo.Free;
http.Free;