[eXplorer]

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

[GriLab]

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

[eXplorer]

задам вопрос в уже до этого созданной мной теме... запрос послал, проблема в том что при удачной авторизации всё проходит нормально и в memo1 выводиться текст: что "авторизация прошла успешно" а при попытке авторизоваться например с неправильным паролем или логином: вылезает ошибка

вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

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]

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

Код:

1 2 3 4 5 6 7 8 9

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

[eXplorer]

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

[NumLock]

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

[eXplorer]

Сообщение от NumLock

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

при HandleRedirects:=true всё равно ошибка лезит....

а насчёт того, что отловить эксепшн ((( это я плохо понял... никогда не пользовался и незнаю что такое и куда это писать

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

плохо понял код... можно полный код вместе с тем что я писал(( а то пробовал и ни как не могу разобраться... что и куда...

[NumLock]

у IdHTTP1 свойство HandleRedirects выставь в True перед вызовом Post()!!! а лучше в Object Inspector.

[eXplorer]

ставил в true перед post'ом и в инспекторе щас стоит тоже; только теперь почему то в memo1 при попытки авторизоваться с неправильным паролем или логином, выводиться все равно 'Авторизация удалась'

[Кодер]

Вот почитай тут, здесь подробно написано
http://koderzone.3dn.ru/news/api_vko.../2011-02-20-87

[eXplorer]

Извеняюсь конечно может я просто не понимаю, но выше указанная ссылка мне ни чего не дала... ибо в той статье немного о другом реч идёт ИМХО

решил проблему сам... сделал проще как мне кажется:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Button1Click(Sender: TObject); var data:tstringlist; PageProfile:string; error:boolean; begin idHTTP1.HandleRedirects:=true; IdHTTP1.AllowCookies:=true; 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); finally end; if Pos('onload="try', PageProfile)<>0 then Memo1.Lines.Add('Авторизация удалась') else Memo1.Lines.Add('Авторизация не удалась'); Data.Free; end;

[Кодер]

я особо просто не вчитывался, привел тебе примерчик авторизации, но сейчас понимаю проблема в другом. Мой тебе совет try except

[eXplorer]

спасибо!) всем спасибо!

[daslex]

Здравствуйте. Мне нужно было научиться программно авторизовываться на сайтах. Авторизовываться я указанным тут методом научился, но возник вопрос. После авторизации на большинстве сайтов Не получается осуществить переход на страницу из сайта

Пытаюсь сохранить и передать Cookies указываю параметры, (беру из Сниффера)
===============================================
Response.Text:='';


Idhttp1.Request.UserAgent
Idhttp1.Request.Host
Idhttp1.Request.Accept
Idhttp1.Request.AcceptLanguage
Idhttp1.Request.AcceptEncoding
Idhttp1.Request.Referer
Idhttp1.Request.Connection

Пытаюсь загрузить Код сайта в переменную
Response.Text:=IdHttp1.Get('Сайт.php/любая страница');

Смотрю
Memo1.Text:=Response1.Text;

И Мемо показывает мне значок (Похожий на 'Фиг тебе,!!! а не код страницы')
=================================================

Вопрос в том, как правильно авторизоваться, чтобы можно было гулять по сайту.

(если вопросы поставил нубские или глупо сформулировал (мало ли кого раздражают такие постановки задач) - заранее извиняюсь)

Спасибо за внимание, Заранее спасибо за помощь