delphi - TIdHTTP : Check for valid cookies before sending request?

Question

我正在使用 Indy TIdHTTP 和 TIdCookieManager。我想检查我要发送的请求的当前 cookie，并确定该请求有效的可能性(我知道我不能 100% 确定服务器会接受我的请求)。如果没有 cookie，或者它们已过期，我将首先登录并获取新的 cookie。否则，只需发送请求即可。

我该如何进行这样的检查？我相信在发送请求之前我必须检查 cookie 管理器，但不知道要检查什么。

Answer 1

尝试这样的事情:

function CheckCookies(Cookies: TIdCookieManager; const TargetURL: String): Boolean; 
var 
  URL: TIdURI;
  Headers: TIdHeaderList;  
begin 
  Result := False; 

  URL := TIdURI.Create(TargetURL);
  try
    Headers := TIdHeaderList.Create(QuoteHTTP);
    try  
      Cookies.GenerateClientCookies(URL, False, Headers);
      Result := Headers.Count > 0;
    finally
      Headers.Free;
    end;
  finally
    URL.Free;
  end;
end; 

.

if not CheckCookies(IdHTTP1.CookieManager, 'http://www.someurl.com/') then
begin
  // login and get new cookies ...
end;