Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.12;
Скачать: 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 вся ветка

Текущий архив: 2007.08.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
2-1184868774
Knob
2007-07-19 22:12
2007.08.12
Запись данных в файл


4-1172297096
Чапаев
2007-02-24 09:04
2007.08.12
Защита


3-1177595881
Sinus
2007-04-26 17:58
2007.08.12
Упаковка .DBF файла


2-1184748455
Groza
2007-07-18 12:47
2007.08.12
Как поменять метку диска с помощью Delphi?


9-1157737951
аматор
2006-09-08 21:52
2007.08.12
Низкий ФПС