Indy10 Cookie weiterverwenden

[nat]

ich hatte mal das gleiche problem. der hat den cookie einfach nicht mitgesendet.
obwohl ich eigentlich davon ausgehen würde, dass der cookiemanager dafür
da is um das zu managen... aber naja... ich habe mir dann so geholfen:

Delphi-Quellcode:

procedure TChecker.NewCookieEvent(ASender: TObject;
  ACookie: TIdCookieRFC2109; var VAccept: Boolean);
begin
  FCookieData.Values[ACookie.CookieName] := ACookie.Value;
end;

function TChecker.GetCookieString: String;
var i: integer;
begin
  for i:=0 to FCookieData.Count-1 do
    result := result+format('%s=%s;', [FCookieData.Names[i], FCookieData.ValueFromIndex[i]]);
end;


...

  FHTTP := TIdHTTP.Create(self);
  FHTTP.CookieManager := TIdCookieManager.Create;
  FHTTP.CookieManager.OnNewCookie := NewCookieEvent;
  FHTTP.AllowCookies := true;
  FHTTP.HandleRedirects := true;
  FCookieData := TStringList.Create;

...

  FHTTP.Request.CustomHeaders.Values['Cookie'] := GetCookieString;
  response := FHTTP.Get(url);