1

我正在登录一个网站，试图让 cookie 运行。据我了解，将 IdCookieManager 分配给 IdHTTP 和设置AllowCookies:=true应该是我需要做的所有事情，对吧？登录后我成功收到了一个 cookie，但是当我尝试进一步导航时，没有发送 cookie。

这是我的代码：

procedure TForm1.Login;
var data: TStringList;
begin
  data:=TStringList.Create;

  try
    IdHTTP.Get('http://navratdoreality.cz/'); // Here I receive Set-Cookie

    data.Add('ACTION=check_adult');
    data.Add('check=18plus');

    Memo1.text:=IdHTTP.Post('http://navratdoreality.cz/',data); // Here the 
     // request contains the cookie and I get a succesfully-logged page in 
     // response, no more set-cookie
  except
    ShowMessage('err');
  end;

  data.Free;
end;

procedure TForm1.Navigate;
var ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    IdHTTP.Get('http://www.navratdoreality.cz/?p=view&id='+Edit1.Text, ms); 
    // the request doesn't contain any cookies, even though the cookie from 
    // logging is saved in IdCookieManager

    ms.Position:=0;
    Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8);
  except
    ShowMessage('err');
  end;

  ms.Free;
end;

我不知道可能是什么问题。我的印地是 10.5.8.0。如果您要查看该站点，请注意，其中一些是 nsfw。

谢谢

4

1 回答 1

0

好吧，这是一个非常愚蠢的问题。问题是登录部分有http://navratdoreality.cz，而下一部分有http://www.navratdoreality.cz。两个 URL 显示相同，但​​对于 IdCookieManager 显然不同，这就是未发送 cookie 的原因。

于 2012-07-16T08:41:58.753 回答