Cookies + Indy = Moze jakis zamiennik...

0

Mam dosc tego calego indy, cooksy pobieram, ale zeby utrzymac sesje i informacje o zalogowaniu musze wysylac cookiesy dalej, jednak indy tego nie robi majac IdCookieManager.

Probowalem rowniez z Request.ExtraHeaders / Response oraz z Request.RawHeaders / Response... i nic do tego chcialem jeszcze dodac AddCookie w idcookiemanagerze ale tez nie chula. Wiec porzucam Indy i szukam jakiegos zamiennika ktory ma bezproblemowa obsluge wysylanych cookies.

Ktos cos poleca?

ps. jak dam webbrowser i wysle informacje postem na strone to cookiesy sie automagicznie przesylaja i wszystko jest pieknie... tylko ten indy tak ssie :)

0
procedure TForm1.SET_COOKIES;
var
  ii : integer;
  strCookie: string;
  slCookie_Selected, slCookie_List: TStringList;
begin
  slCookie_Selected := TStringList.Create;
  slCookie_List := TStringList.Create;
  slCookie_Selected.Delimiter := ';';
  for ii:= 1 to ID_COOKIE_MANAGER.CookieCollection.Count do
  begin
    slCookie_Selected.DelimitedText := ID_COOKIE_MANAGER.CookieCollection.Items[ii-1].CookieText;
    strCookie := strCookie + slCookie_Selected.Names[0] + '=' + slCookie_Selected.ValueFromIndex[0] + ';';
  end;
  slCookie_List.Add('Cookie=' + strCookie);
  ID_HTTP.Request.CustomHeaders.AddStdValues(slCookie_List);
  FreeAndNil(slCookie_Selected);
  FreeAndNil(slCookie_List);
end;

U mnie działa :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1