Авторизация на сайте, делфи

@beckon · Регистрация: 16.08.2012

Author24 — интернет-сервис помощи студентам

В общем хочу сделать клиент для одного сайта. Но есть проблемы с авторизацией, сайт - battlelog.battlefield.com

Delphi

var data:tstringlist;
http:tidhttp;
CM:tidcookiemanager;
begin
Data := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;
Http.Request.UserAgent:='Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.10.229 Version/11.61';
Http.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
Http.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
data.Add('redirect=|bf3|ru|');
data.Add('email=dennismarschan@gmx.de');
data.Add('password=Diesims3');
data.Add('submit=Вход в систему');
try
memo1.lines.text:=http.post('http://battlelog.battlefield.com/bf3/ru/gate/login/',data);
 
  except
end;
data.free;
end;

Собственно в исходном коде приложен даже аккаунт. Вылазит какая-то непонятная ошибка, в общем прошу помощи.

@volvo · 13.02.2013, 00:39

Ну, ошибка вполне понятная - http нигде не создается, а сразу используется - вылет обеспечен. Где tidhttp.Create?

@beckon · 13.02.2013, 14:58 **[ТС]**

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

Ну, ошибка вполне понятная - http нигде не создается, а сразу используется - вылет обеспечен. Где tidhttp.Create?

Все равно та же ошибка.

@Xotabu4 · 14.02.2013, 20:17

какая ошибка то хоть?

@beckon · 14.02.2013, 20:44 **[ТС]**

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

какая ошибка то хоть?

вылазит какой-то страх
ошибка не при компиляции, а при нажатии на кнопку

@mss · 14.02.2013, 20:57

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

вылазит какой-то страх

И говорит "Не жми кнопку, зараза !"

@Xotabu4 · 14.02.2013, 21:52

У меня ошибок нет. Пробовал на XE2 и XE3

Delphi

var data:tstringlist;
http:tidhttp;
CM:tidcookiemanager;
begin
http := tidhttp;
CM := TidCookieManager.Create(Http);
Data := TStringList.Create;
 
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;
Http.Request.UserAgent:='Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.10.229 Version/11.61';
Http.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
Http.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
 
data.Add('redirect=|bf3|ru|');
data.Add('email=dennismarschan@gmx.de');
data.Add('password=Diesims3');
data.Add('submit=Вход в систему');
 
try
  memo1.lines.text:=http.post('http://battlelog.battlefield.com/bf3/ru/gate/login/',data);
except
end;
 
end;

@beckon · 15.02.2013, 16:16 **[ТС]**

Именно при выполнении программы? Т.е. в тмемо появляется код?

@NIKOLAYY · 15.02.2013, 17:33

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

Именно при выполнении программы? Т.е. в тмемо появляется код?

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

В при твоем коде кракозябра была голимая в моем мемо- поле. 1 строчку (кодировка) в твоем коде пришлось сменить и пашет на ура!

Delphi

1	Memo1.lines.text:=UTF8toANSI(http.post('http://battlelog.battlefield.com/bf3/ru/gate/login/',data));

Но авторизация так и не происходит по скрину видно.

@beckon · 15.02.2013, 20:42 **[ТС]**

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

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

В при твоем коде кракозябра была голимая в моем мемо- поле. 1 строчку (кодировка) в твоем коде пришлось сменить и пашет на ура!

Delphi

1	Memo1.lines.text:=UTF8toANSI(http.post('http://battlelog.battlefield.com/bf3/ru/gate/login/',data));

Но авторизация так и не происходит по скрину видно.

Аккаунт в коде валидный, запрос вроде построен верно. Странно... Пойду дальше гуглить, но надеюсь что тут кто-то мб что-то подскажет.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	13.02.2013, 00:39	2
	Ну, ошибка вполне понятная - http нигде не создается, а сразу используется - вылет обеспечен. Где tidhttp.Create? 1

@beckon 0 / 0 / 0 Регистрация: 16.08.2012 Сообщений: 27
	13.02.2013, 14:58 [ТС]	3
	Сообщение от UI Ну, ошибка вполне понятная - http нигде не создается, а сразу используется - вылет обеспечен. Где tidhttp.Create? Все равно та же ошибка. 0

@Xotabu4 98 / 98 / 14 Регистрация: 02.02.2013 Сообщений: 328
	14.02.2013, 20:17	4
	какая ошибка то хоть? 0

@beckon 0 / 0 / 0 Регистрация: 16.08.2012 Сообщений: 27
	14.02.2013, 20:44 [ТС]	5
	Сообщение от Xotabu4 какая ошибка то хоть? вылазит какой-то страх ошибка не при компиляции, а при нажатии на кнопку 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.02.2013, 20:57	6
	Сообщение от beckon вылазит какой-то страх И говорит "Не жми кнопку, зараза !" 0

@beckon 0 / 0 / 0 Регистрация: 16.08.2012 Сообщений: 27
	15.02.2013, 16:16 [ТС]	8
	Именно при выполнении программы? Т.е. в тмемо появляется код? 0

	15.02.2013, 20:42