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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2010, 19:47   #1
Aleksandr69
Пользователь
 
Регистрация: 11.12.2010
Сообщений: 71
По умолчанию Cookie Indy

Как отправить куки сайту

отправляю запрос

Код:

http:=TidHTTP.Create(nil);
Response := TStringStream.Create('');
CM := TidCookieManager.Create(Http);
Http.CookieManager := CM;
http.Request.CacheControl:='no-cache';
http.ReadTimeout:=60000;
http.ProtocolVersion:=pv1_1;
http.AllowCookies:= true;
http.handleRedirects:= true;
http.Request.Host := 'http://www.site.ru';
http.Request.UserAgent := 'Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.6.30 Version/10.63';
http.Request.Accept := 'text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
http.Request.AcceptLanguage := 'ru-RU,ru;q=0.9,en;q=0.8';
http.Request.AcceptCharSet := 'iso-8859-1, utf-8, utf-16, *;q=0.1';
http.Request.AcceptEncoding := 'deflate, gzip, x-gzip, identity, *;q=0';
http.Request.Referer := 'http://www.site.ru/Default.aspx';
http.Request.Connection := 'Keep-Alive, TE';
http.Request.Username := 'key';
http.Request.Password := 'key';
http.Request.BasicAuthentication := False;

coo := http.Response.RawHeaders.GetText;
AuthCoocies:=copy(coo,pos('AuthCoocies',coo)+0,length(coo)-pos('AuthCoocies',coo)+0);
ShowMessage(AuthCoocies);
AuthCoocies:=copy(AuthCoocies,1,pos(';',AuthCoocies));
AuthCoocies:=copy(AuthCoocies,1,length(AuthCoocies)-1);

//достаю куки из заголовка 
coo := http.Response.RawHeaders.GetText;
ASP_NET_SessionId:=copy(coo,pos('ASP.NET_SessionId',coo)+0,length(coo)-pos('ASP.NET_SessionId',coo)+0);
ShowMessage(ASP_NET_SessionId);
ASP_NET_SessionId:=copy(ASP_NET_SessionId,1,pos(';',ASP_NET_SessionId));
ASP_NET_SessionId:=copy(ASP_NET_SessionId,1,length(ASP_NET_SessionId)-1);

memo1.Lines.Add(AuthCoocies); //показ 
memo1.Lines.Add(ASP_NET_SessionId);//

вот пост запрос как вставить куку


Код:
zap:=TStringList.Create;

  //отправка данных на первую страницу

Application.ProcessMessages;

zap.Add('ctl00_ctl00_ToolkitScriptManager_HiddenField=');
zap.Add('__EVENTTARGET=');
zap.Add('__EVENTARGUMENT=');
zap.Add('__LASTFOCUS=');
zap.Add('__VIEWSTATE='+strok);
zap.Add('__VIEWSTATEENCRYPTED=');
zap.Add('ctl00%24ctl00%24LoginView1%24Login1%24UserName='+Edit3.Text);
zap.Add('ctl00%24ctl00%24LoginView1%24Login1%24TextBoxWatermarkExtender1_ClientState=');
zap.Add('ctl00%24ctl00%24LoginView1%24Login1%24Password='+Edit4.Text);
zap.Add('ctl00%24ctl00%24LoginView1%24Login1%24TextBoxWatermarkExtender2_ClientState=');
zap.Add('ctl00%24ctl00%24Cnt1%24pmc%24txtBoxDetailNumber=');
zap.Add('ctl00%24ctl00%24Cnt1%24pmc%24RegularExpressionValidator1_ValidatorCalloutExtender_ClientState=');
zap.Add('ctl00%24ctl00%24Cnt1%24pmc%24ValidatorCalloutExtender1_ClientState=');
zap.Add('ctl00%24ctl00%24Cnt1%24pmc%24ddlAnalog=1');
zap.Add('ctl00%24ctl00%24LoginView1%24Login1%24LoginButton.x='+FloatToStr(random(100)));
zap.Add('ctl00%24ctl00%24LoginView1%24Login1%24LoginButton.y='+FloatToStr(random(100)));



IdCookieManager1:=http.Post('http://www.site.ru/default.aspx',zap);
Aleksandr69 вне форума Ответить с цитированием
Старый 31.12.2010, 01:04   #2
Aleksandr69
Пользователь
 
Регистрация: 11.12.2010
Сообщений: 71
По умолчанию

Все спасибо всем куки вставил.
Aleksandr69 вне форума Ответить с цитированием
Старый 04.01.2011, 11:00   #3
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Цитата:
Сообщение от Aleksandr69 Посмотреть сообщение
Все спасибо всем куки вставил.
можно подробнее
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 04.01.2011, 14:46   #4
nikolas0
Пользователь
 
Аватар для nikolas0
 
Регистрация: 18.12.2010
Сообщений: 85
По умолчанию

Тоже интересно подробннее!
методом тыка не хочется
nikolas0 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Browser и cookie DHK Работа с сетью в Delphi 3 05.05.2010 07:34
как обновить indy 9 на indy 10 Пилигрим Компоненты Delphi 16 30.04.2010 10:11
Работа с Cookie Nicker Работа с сетью в Delphi 0 09.04.2010 15:58
Cookie в Mozille Olaf Безопасность, Шифрование 2 16.03.2010 22:24
HttpWebRequest и Cookie d9m0n Общие вопросы .NET 1 23.12.2009 11:38