Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.04.2012, 16:32
sardox sardox вне форума
Прохожий
 
Регистрация: 14.04.2012
Сообщения: 2
Репутация: 10
По умолчанию Авторизация вконтакте

всем доброго времени суток, есть проблема после авторизации вконтакте - получаю ошибку iohandler value is not valid
в чем проблема?
сама авторизация проста:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
http: TIdHTTP;
begin
http := TIdHTTP.Create(nil);
http.HandleRedirects:=True;
http.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
try
s := http.Get('http://vk.com/login.php?m=1&email=!!!!!&pass=!!!!!');
except
if http.ResponseCode = 302 then Form1.Mmo1.Lines.Add('302!!');
end;
s := http.Get('http://m.vk.com/mail.php'); //тут еррор
end;
с чем связано?
Мне нужно получить код страницы меил.пхп после авторизации (без разницы, мобильной или обычной)

Последний раз редактировалось sardox, 14.04.2012 в 17:19.
Ответить с цитированием
  #2  
Старый 14.04.2012, 17:17
sardox sardox вне форума
Прохожий
 
Регистрация: 14.04.2012
Сообщения: 2
Репутация: 10
По умолчанию

что уже пробовал - добавлял IdSSLIOHandlerSocketOpenSSL1, при выполнении стал ругаться на отсутствие библиотек, добавил libeay32 и ssleay32 в корень с ехе, но все равно ругается на библотеки. Что за ошибка иохандлер еррор? В правильном ли я направлению иду?
Спасибо)
Ответить с цитированием
  #3  
Старый 14.04.2012, 17:20
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию

Версии библиотек не верные
А вообще.. через синапс лучше.. он быстрее работает .... чем ИНДИ
Вот пример идеально работающий насинапсе

Код:
HTTP:=THTTPSend.Create;
HTTP.MimeType:='application/x-www-form-urlencoded';
HTTP.Headers.Clear;
HTTP.Cookies.Clear;
HTTP.Document.Clear;
Answer:=TStringStream.Create('');
POSTDATA:=TStringStream.Create('');
POSTDATA.WriteString('act=login');
POSTDATA.WriteString('&q=1');
POSTDATA.WriteString('&al_frame=1');
POSTDATA.WriteString('&expire=');
POSTDATA.WriteString('&captcha_sid=');
POSTDATA.WriteString('&captcha_key=');
POSTDATA.WriteString('&from_host=vk.com');
POSTDATA.WriteString('&from_protocol=http');
POSTDATA.WriteString('&ip_h=');
POSTDATA.WriteString('&email='+login);
POSTDATA.WriteString('&pass='+pass);
HTTP.Document.LoadFromStream(POSTDATA);
HTTP.HTTPMethod('POST','https://login.vk.com/?act=login');
if Pos('hash=',HTTP.Headers.Text) <> 0 then
begin
ShowMEssage ('Auth True!');
end;
Ответить с цитированием
Этот пользователь сказал Спасибо ApxaHGe1 за это полезное сообщение:
OTVET (17.01.2013)
  #4  
Старый 15.04.2012, 02:48
Stif21 Stif21 вне форума
Прохожий
 
Регистрация: 15.04.2012
Сообщения: 1
Репутация: 10
По умолчанию

А можно исходник на синапсе полностью рабочий?
Ответить с цитированием
  #5  
Старый 14.12.2012, 22:24
harbor harbor вне форума
Новичок
 
Регистрация: 15.01.2010
Сообщения: 83
Репутация: 10
По умолчанию

подскажите, может кто делал
как мне получить содержимое группы вконтакте по ее адресу
ну например http://vk.com/con.amore
предполагается, что пользователь приложения состоит в группе
я не пойму какой метод использовать.
здесь есть описания методов http://vk.com/page-1_2369282
но ими я не пойму как работать, да и нет там вроде такого
верней есть метод получения записей со стены по ид пользователя
а мне надо по имени группы

авторизацию я делаю с помощью контактовского API
а дальше пока у меня ума не хватает
Ответить с цитированием
  #6  
Старый 15.12.2012, 20:47
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Покажи как авторизацию делал, помогу с API разобраться
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:03.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter