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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.02.2013, 14:50   #1
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию Synaps + cookie

День добрый!
Еще пару вопросов по по synapse, а именно.

1. Как сохранить cookies перед редиректом, тобишь есть страница к примеру www.ya.ru/api делаю запрос, мне показывают нужные мне cookies но если подключу код редиректа, то делается автоматический редирект например на www.ya.ru/api/Blank.html и я не могу перехватить куки c до редиректа, так как мне показывает уже куки со страницы на которую был редирект.
Вот код самого редиректа, как я понял он умеет сохранять Cookie до самого редиректа, но как мне их записать в мемо?
Код подключается в модуле полный код прикрепляю в фай.
Код:
function THTTPSend_.HTTPMethod(const Method, URL: string): Boolean;
var Heads: TStringList;
    Cooks: TStringList;
    Redirect: string;
    Doc:TMemoryStream;
begin
  try
    Heads:=TStringList.Create;
    Cooks:=TStringList.Create;
    Doc:=TMemoryStream.Create;
    Doc.LoadFromStream(Document);
    Cooks.Assign(Cookies);
    Heads.Assign(Headers);
    Result:=inherited HTTPMethod(Method,URL);
    if (ResultCode=301)or(ResultCode=302) then
      begin
        Redirect:=HeaderByName('location');
        Headers.Assign(Heads);
        Document.Clear;
        Document.LoadFromStream(Doc);
        Cookies.Assign(Cooks);
        Result:=inherited HTTPMethod(Method,Redirect);
       end;
  finally
    FreeAndNil(Heads);
    FreeAndNil(Cooks);
    FreeAndNil(Doc)
  end;
end;
2. Как передать cookie в POST.
Пробовал с помощью data: TStringList и в запросе HTTP.HTTPMethod('POST','www.ya.ru\a pi\map.php',data) но не получается.
Вложения
Тип файла: zip Redirect.zip (778 байт, 12 просмотров)
ShowMessage('Добро пожаловать!');
Alex2009 вне форума Ответить с цитированием
Старый 08.02.2013, 17:39   #2
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию

Разобрался с трудом)

Как в Synapse получит URL страницы?
ShowMessage('Добро пожаловать!');

Последний раз редактировалось Alex2009; 08.02.2013 в 18:48.
Alex2009 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Cookie sem_1989 PHP 16 10.08.2011 00:13
Работа с 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
cookie в javascript Xeon332 JavaScript, Ajax 1 24.05.2009 08:44