Вниз
Скачать: CL | DM;

Indy: Не посылаются Cookies.   Найти похожие ветки 

 
Gnobobel   (2006-03-01 18:55) [0]

Моя прога должна обращатся к скрипту (htpp://localhost:****/someprog.php), передавать ему данные через POST запрос, получать кукисы, а затем в следующем запросе передавать их серверу.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Form: TIdMultiPartFormDataStream;
begin
 Form := TIdMultiPartFormDataStream.Create();
 Form.AddFormField("hello", "123");
 IdHTTP.AllowCookies := True;
 Memo1.Lines.Add(IdHTTP.Post ("htpp://localhost:****/someprog.php", Form));
end;

procedure TForm1.IdCookieManager1NewCookie(ASender: TObject;
 ACookie: TIdCookieRFC2109; var VAccept: Boolean);
begin
 memo1.lines.add(ACookie.CookieText);
end;


При повторном нажатии на кнопку выводится

lo=lll; domain=localhost
//Начало сраницы someprog.php
=== GET =====================
=== POST ====================
login = n0p
pass = gi8Nool
ok = ВОЙТИ

=== COOKIE ==================
//Конец сраницы someprog.php

//Второй клик

lo=lll; domain=localhost
//Начало сраницы someprog.php
=== GET =====================
=== POST ====================
login = n0p
pass = gi8Nool
ok = ВОЙТИ

=== COOKIE ==================
//Конец сраницы someprog.php


 
Gnobolel   (2006-03-01 18:57) [1]

Гы гы пассы к своему сервису выложил =) Иду менять =)


 
IUnknown   (2006-06-16 13:43) [2]

Да-а-а... сРАНИца класная :)))


 
CyberBullDog ©   (2006-09-24 12:38) [3]

У меня та же проблема. Использую IdHTTP + CookieManager. Так он Cookie принимает, а отдавать не хочет. М.б. надо вручную прописать отправку Cookie?


 
CyberBullDog ©   (2006-09-25 11:19) [4]

Проблемы уже нет


 
Nehljudov ©   (2007-01-05 12:12) [5]

как мило, может напишешь, как ты ее решил?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c
15-1184238783
Megabyte
2007-07-12 15:13
2007.08.12
Правила формирования xml-файлов


2-1184568047
Girol
2007-07-16 10:40
2007.08.12
удалить запись(и) из БД Access


2-1184604147
Ivolg
2007-07-16 20:42
2007.08.12
Про Canvas


3-1177521571
dimds
2007-04-25 21:19
2007.08.12
получить данные XML


15-1184496499
Pgremse
2007-07-15 14:48
2007.08.12
Проблемы с запуском Turbo Delphi




   Наверх