thttpclient [THttpClient] Как работать с Cookie в HTTPClient?

[GoldenEalge]

Подскажите как сохранить ,а потом загрузить куки в THTTPClient , как понимаю нужно работать с TCookieManager

Сохранять пытаюсь так :

  cookies := aResponse.cookies.AsJSON(false);

В cookies получаю 

{\"Capacity\":4,\"Count\":3,\"List\":[{\"Name\":\"csrftoken\",\"Value\":\"Jljq2Sx5n9lXek4u4rri9L1zGBIExSzT\",\"Expires\":\"2019-01-06T18:41:36.854\",\"Domain\":\".i.instagram.com\",\"Path\":\"/\",\"Secure\":true,\"HttpOnly\":false},{\"Name\":\"rur\",\"Value\":\"PRN\",\"Expires\":\"1899-12-30T00:00:00.000\",\"Domain\":\".i.instagram.com\",\"Path\":\"/\",\"Secure\":false,\"HttpOnly\":false},{\"Name\":\"mid\",\"Value\":\"WlIjkQABAAF-JTqtAx_AdVdFxepj\",\"Expires\":\"2038-01-02T18:41:36.854\",\"Domain\":\".i.instagram.com\",\"Path\":\"/\",\"Secure\":false,\"HttpOnly\":false},{\"Name\":\"\",\"Value\":\"\",\"Expires\":\"1899-12-30T00:00:00.000\",\"Domain\":\"\",\"Path\":\"\",\"Secure\":false,\"HttpOnly\":false}],\"OnNotify\":null}

Но как потом загрузить это обратно?

 

[krapotkin]

а почему Cookies.AsJson  ??

это же просто 

key=value;key=value;

[GoldenEalge]

Только что, krapotkin сказал:

а почему Cookies.AsJson  ??

это же просто 

key=value;key=value;

что бы удобнее было хранить 

[GoldenEalge]

Ну начал сохранять 

  for i := 0 to aResponse.cookies.Count - 1 do
  begin
    cookies := cookies + aResponse.cookies[i].ToString + ';';
  end;

как загрузить то их потом?

[krapotkin]

http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Net.HttpClient.TCookieManager_Methods

тут только один метод что-то делает с куками, так что думаю, он и подойдет

[GoldenEalge]

1 минуту назад, krapotkin сказал:

http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Net.HttpClient.TCookieManager_Methods

тут только один метод что-то делает с куками, так что думаю, он и подойдет

метод то один 

procedure TCookieManager.AddServerCookie(const ACookieData, ACookieURL: string);
var
  LURI: TURI;
  Values: TArray<string>;
  I: Integer;
begin
  if ACookieURL = '' then
    LURI := Default(TURI)
  else
    LURI := TURI.Create(ACookieURL);

  Values := ACookieData.Split([Char(',')], Char('"'));
  for I := 0 to High(Values) do
    AddServerCookie(TCookie.Create(Values[I], LURI), LURI);
end;

ACookieData - уже всех форматов попробовал ,не передает 

[krapotkin]

кстати

 

[GoldenEalge]

3 часа назад, krapotkin сказал:

кстати

куки он передает, не заменяет только

проблему с загрузкой кук решил ,осталось понять почему не заменяет их