[eXplorer]

кто подскажет как авторизоваться на сайте vkontakte.ru... нужно отправить пост-запрос как я понял... а в каком виде? и как? вообще не в курсе... или дайте ссылку на какую нибудь статью по post-запросам в delphi... т.к. я ни чего в гугле не нашел ..
если не сложно то приведите код составления и отправки пост запроса (vkontakte.ru) - авторизация...

[GriLab]

Вроде есть открытый исходник программы vktools, даже группа есть в ВКонтакте. Она тебе поможет в авторизации. Но есть одна проблема: эту программу написал какой-то лох так, что сложно понять исходный код.

[eXplorer]

задам вопрос в уже до этого созданной мной теме... запрос послал, проблема в том что при удачной авторизации всё проходит нормально и в 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...

[lmikle]

Ну дык отлавливай эксепшн:

Код:

try
  //Здесь пытаемся подключиться
except
  on e : exception do
    begin
      Memo1.Lines.Add('Ошибка!!!');
      Memo1.Lines.Add(e.message);
    end;
end;

[eXplorer]

Большое спасибо! завтра попробую) возникнут проблемы ещё какие-нибудь... отпишусь

[NumLock]

у IdHTTP1 свойство HandleRedirects выставь в True. из-за не правильных логине/пароле тебя 302 кодом (ResponseCode) перебрасывает на страницу с ошибкой авторизации.