Delphi 10.3 SOAP - Cookies werden nicht gespeichert

[Sergej_Molotov]

Delphi-Quellcode:

  TForm1 = class(TForm)
    HTTPRIOLogin: THTTPRIO;
    HTTPRIOPicture: THTTPRIO;
    procedure HTTPRIOLoginHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient);
    procedure HTTPRIOPictureHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FLogin:         SoapLoginService;
    FPicture:       SoapPictureService;
    FCookieManager: TCookieManager; // im Create oder Show auf nil setzen
  public
    { Public-Deklarationen }
  end;

procedure TForm1.HTTPRIOLoginHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient);
begin
  if FCookieManager = nil then
    FCookieManager := Client.CookieManager;
end;

procedure TForm1.HTTPRIOPictureHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient);
var
  aCookie: TCookie;
begin

  for aCookie in FCookieManager.Cookies do
  begin
    if aCookie.Name = 'JSESSIONID' then
      Client.CookieManager.AddServerCookie(aCookie, TUri.Create(HTTPRIOPicture.URL));
  end;
end;