TNetHTTPClient.AddServerCookie

[hexor_boo]

Delphi Sydney

//netClient - это компонент TNetHTTPClient
//==========================
procedure TfrmMain.btnAuthHexClick(Sender: TObject);
var
 strVarData : TStrings;
begin
 strVarData:=TStringList.Create;
 strVarData.Add('username=admin');
 strVarData.Add('password=god');
 netClient.CookieManager.AddServerCookie(
  'test=hehe', 'http://hex-space.ru/auth.php'
 );
 netPostAuthHex.Post(
  'http://hex-space.ru/auth.php', strVarData, Nil, TEncoding.Default
 );
end;

procedure TfrmMain.netPostAuthHexRequestCompleted(const Sender: TObject;
  const AResponse: IHTTPResponse);
var
 Cookie : TCookie;
begin

  For Cookie In AResponse.Cookies Do
   Begin
    memLog.Lines.Add('Cookie-Name: '+Cookie.Name);
    memLog.Lines.Add('Cookie-Value: '+Cookie.Value);
   End;

end;

По смыслу должен вывестись кукис "test=hehe", а на практике выводится только тот, который я задаю на стороне сервера в коде PHP методом SetCookie. Что я делаю неправильно?

[hexor_boo]

Задача решена! УРА!

На стороне сервера я добавил в код PHP:

SetCookie("test", $_COOKIE["test"]);

А на стороне клиента я переписал процедуру btnAuthHexClick:

procedure TfrmMain.btnAuthHexClick(Sender: TObject);
var
 strVarData : TStrings;
 tstCookie  : TCookie;
begin
 strVarData:=TStringList.Create;
 strVarData.Add('username=admin');
 strVarData.Add('password=god');
 tstCookie.Name:='test';
 tstCookie.Value:='hehe';
 netClient.CookieManager.AddServerCookie(
  tstCookie.ToString, 'http://hex-space.ru/auth.php'
 );
 netPostAuthHex.Post(
  'http://hex-space.ru/auth.php', strVarData, Nil, TEncoding.Default
 );
end;

Результат вывода в TMemo:

Cookie-Name: unp
Cookie-Value: d41d8cd98f00b204e9800998ecf8427e
Cookie-Name: test
Cookie-Value: hehe