Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2013, 16:02   #1
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию Авторизация

Пишу авторизацию, мне как то перед отправкой POST запроса нужно спарсить токен:

Код:
<input type="hidden" name="struts.token" value="FGAT6JT5L0DH87WW7VMC1BTKRZFT1LWI" />
99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Старый 25.12.2013, 16:08   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

если Вы про то значение, что в кавычках после value, то его простым Pos / PosEx достаточно просто вытянуть!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.12.2013, 16:15   #3
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию

Код:
Data:= TStringStream.Create;
 Scr:= TStringList.Create;
 With HTTP Do Begin
 Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
 MimeType:='application/x-www-form-urlencoded';
 UserAgent:=GetRandomUserAgent;
 Document.Clear;
 End;
 try
 Http.HTTPMethod('GET','https://сайт.ру');
         html.LoadFromStream(http.Document);
         token:=Pars('name="struts.token" value="', html.Text, '"');
     except
     end;

 Data.WriteString('struts.token.name=struts.token&struts.token='+token+'&j_username='+FAcc+'&j_password='+FPas+'&service-entity=np');
 Http.Document.LoadFromStream(Data);
 if Http.HTTPMethod('POST','https://Сайт.ру') then
Что не так?
99% ошибок компьютера сидит в полуметре от монитора.

Последний раз редактировалось Fahman; 25.12.2013 в 16:18.
Fahman вне форума Ответить с цитированием
Старый 25.12.2013, 16:34   #4
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

все так .
eval вне форума Ответить с цитированием
Старый 25.12.2013, 16:35   #5
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию

Цитата:
Сообщение от eval Посмотреть сообщение
все так .
Ну почему то все в ерроры кидает.
99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Старый 25.12.2013, 17:05   #6
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

да вроде не видно
eval вне форума Ответить с цитированием
Старый 25.12.2013, 23:36   #7
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию

ну так что, не у кого нет идей? Может быть ошибки из-за того что сайт "https" ?
99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Старый 25.12.2013, 23:39   #8
alextrof94
Форумчанин
 
Регистрация: 16.03.2013
Сообщений: 599
По умолчанию

А ты SSL обработчик подключил?
alextrof94$gmail.com
alextrof94 вне форума Ответить с цитированием
Старый 25.12.2013, 23:42   #9
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию

вот я дурак, я забыл библиотеки положить. :-D
99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Старый 25.12.2013, 23:46   #10
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию

хотя соровно почему то парсинг не работает, видимо всетаки причина в том что сайт "https"
99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
авторизация wulf_01 Помощь студентам 2 11.04.2011 19:32
Авторизация trad C++ Builder 3 13.01.2011 01:27
Обычная авторизация или авторизация на уровне браузера? calugin Безопасность, Шифрование 0 13.01.2011 00:34
авторизация. DeDoK Работа с сетью в Delphi 3 02.07.2010 17:00