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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.01.2011, 12:13   #1
corsar1991
Пользователь
 
Регистрация: 14.01.2011
Сообщений: 14
Сообщение get запрос на сайте

Здраствуйте.У меня вот такая проблема нужно чтобы программа авторизовалась на одном сайте и потом выбрала сервер.Авторизация у меня получается а вот выбор сервера не получается.Вот код:
Код:
var data: TStringList;
begin
Memo1.Clear;
Memo1.Lines.Insert(0,'Авторизация.....');
data := TStringList.Create;
IdHTTP1.Get('http://'+edit5.text+'.darkorbit.bigpoint.com');
data.Add('loginForm_default_username='+edit3.text);
data.Add('loginForm_default_password='+edit4.text);
data.add('loginform_default_login_sumbit=Вход');
html := IdHTTP1.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=0&aip=', data);
if Pos('exitURL', html)<>0 then memo1.lines.Insert (1,'Авторизовались')
else memo1.lines.Insert (1,'Ошибка авторизации');
Memo1.Lines.Insert(2,'Вход на выбранный сервер.....');



if Pos('exitURL', html2)<>0 then memo1.lines.Insert (3,'Вошли')
else memo1.lines.Insert (3,'Не вошли');
end;
для более лучшего ознакомления вот логин и пароль от акка
логин:12344670
пароль:123456
сайт:http://darkorbit.bigpoint.com/

Последний раз редактировалось AlDelta; 18.01.2011 в 00:18.
corsar1991 вне форума Ответить с цитированием
Старый 18.01.2011, 00:10   #2
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

CookieManager (или как там его) подключен?
Прием куков разрешен (если память не изменяет AllowCookies = true)?
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Старый 18.01.2011, 17:26   #3
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

если куки не помогоают тогда в ручную парсить придётся
bulldog5293 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрос с CASE переделать в запрос с PIVOT (MS SQL Server 2005) Машуля SQL, базы данных 4 06.05.2010 21:09
Регистрация на сайте Terikon Работа с сетью в Delphi 3 16.03.2009 21:02
запрос ссылается на несвязанный с ним запрос kolebatel SQL, базы данных 0 11.06.2008 12:50