TIdHTTP：要求を送信する前に有効なCookieがあるかどうかを確認しますか？

Question

私はIndy TIdHTTPと一緒にTIdCookieManagerを使用しています。私は、送信しようとしているリクエストの現在のクッキーをチェックし、それが有効である可能性を確認したい（私は100％サーバーが私のリクエストを受け入れることができないことを知っている）。クッキーがない場合、または有効期限が切れている場合は、まずログインして新しいクッキーを取得します。それ以外の場合は、リクエストを送信してください。

このような小切手はどうやって行うのですか？私はリクエストを送信する前にクッキーマネージャーをチェックする必要があると思うが、何をチェックすべきか分からない。

Answer 1

はこのような何かを試してみてください。

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

Answer 2

コメントで既に述べたように、クライアントで実際に受け入れ検査を実行することはできません。サーバーだけがそれを行うことができます。あなたは除外することができますしかし

有効期限が切れたか、または無効クッキー：

function filterInvalidCookies(cookies: TIdCookies; targetURL: TIdURI): Boolean; 
var 
    c: Integer; 
begin 
    Result := False; 

    c := 0; 
    while (cookies.Count > c) do 
    if (not cookies[c].IsExpired and cookies[c].IsAllowed(targetURL, False) and 
     (cookies[c].CookieName <> '')) then 
     begin 
     Result := True; 
     Inc(c); 
     end 
    else 
     cookies.Delete(c); 
end; 

機能が無効なクッキーを削除し、左有効なものが存在しない場合はFalseを返します。

if (Assigned(con.CookieManager)) then 
    filterInvalidCookies(con.CookieManager.CookieCollection, 
    TIdURI.Create('http://www.someurl.com/')); 

conがTIdHTTPオブジェクトです。このような要求の前にそれを呼び出します。

追加の、おそらくターゲットとするページ固有のチェックを行うことができます。

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; 

：