задам вопрос в уже до этого созданной мной теме... запрос послал, проблема в том что при удачной авторизации всё проходит нормально и в memo1 выводиться текст: что "авторизация прошла успешно" а при попытке авторизоваться например с неправильным паролем или логином: вылезает ошибка
вот код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
data:tstringlist;
PageProfile:string;
error:boolean;
begin
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=false;
data:=tstringlist.create;
data.Add('email=blablabla@rambler.ru');
data.Add('pass=**************');
data.Add('expire=');
data.Add('vk=');
error:=false;
try
PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
except error:=true;
end;
if
not(error)
then
begin
data.Clear;
data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
data.Add('op=slogin'); data.Add('redirect=1');
data.Add('expire=0');
data.Add('to=');
IdHTTP1.HandleRedirects:=true;
try
PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
except
end;
Memo1.Lines.Add('Авторизация удалась');
end
else
Memo1.Lines.Add('Авторизация не удалась');
Data.Free;
end;
вот что вылазит при попытке авторизоваться при неправельном пароле или логине:
скриншот:
http://www.delphisources.ru/forum/at...d=129857369 2
..., а не выводит текст в memo1...