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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.02.2013, 15:22
LORDofLINEAGE LORDofLINEAGE вне форума
Прохожий
 
Регистрация: 07.02.2013
Сообщения: 2
Репутация: 10
По умолчанию Авторизация, что-то не так, помогите пожалуйста

Пытаюсь авторизоваться так:
Код:
HTTPSend:=THTTPSend.Create;
HTTPSend.KeepAlive:=true;
HTTPSend.KeepAliveTimeout:=300;
HTTPSend.TargetHost:='store.steampowered.com';
//HTTPSend.TargetPort:='80';
//HTTPSend.Protocol:='1.1';
HTTPSend.MimeType:='application/x-www-form-urlencoded';
Data:=TStringStream.Create('');
//Data.WriteString('steamLogin=76561198079155980%7C%7CF64A48F1129BB3101D605E58F6D719B77012A52C;');
Data.WriteString('dp_user_userid=5114662;');
Data.WriteString('dp_user_password=gEy4FHKD;');
HTTPSend.Document.LoadFromStream(Data);
HTTPSend.HTTPMethod('get','http://store.steampowered.com/login/');
HTTPSend.Document.Clear;
HTTPSend.Headers.Clear;
HTTPSend.MimeType:='application/x-www-form-urlencoded';
HTTPSend.Document.LoadFromStream(Data);
HTTPSend.HTTPMethod('post','http://steamcommunity.com/actions/SearchFriends?K=aibulat-naruto@mail.ru&p=1&action=doSearch');
Bodys := TStringList.Create;
BodyS.LoadFromStream(httpsend.Document);
result := BodyS.Text;
memo1.lines.Add(result);

только вот при переходе по ссылке,для авторизованных людей(типа профиля),выдает исходный код такой,как будто я не авторизовался,вот хтмл код,может для авторизации поможет:

Цитата:
<form name="logon" action="" method="POST" onsubmit="DoLogin(); return false;">
<input type="hidden" name="snr" value="1_60_4__60">
<input type="hidden" name="redir" value="http://store.steampowered.com/">
<div class="login_row">
<div class="input_title">Имя аккаунта Steam</div>
<input class="text_input" type="text" name="username" id="input_username" value="">
</div>
<div class="login_row">
<div class="input_title">Пароль</div>
<input class="text_input" type="password" name="password" id="input_password" />
</div>
<div class="login_row" id="captcha_entry" style="display: none;">
<input type="hidden" id="captchagid" name="captchagid" value="" />
<div id="captcha_image_row">
<img style="float: left;" id="captchaImg" src="" border="0" />
<div id="captchaRefresh">
<a id="captchaRefreshLink" href="javascript:RefreshCaptcha()">Обновить</a>
</div>
<div style="clear: left;"></div>
</div>
<div class="input_title">Введите расположенные выше символы</div>
<input class="text_input" id="input_captcha" type="text" name="captcha_text" id="captcha_text" />
</div>
<input type="hidden" name="emailauth" id="emailauth">
<input type="hidden" name="emailsteamid" id="emailsteamid">
</form>
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter