delphi - 使用 Indy 组件(Delphi XE6)在 Post 上添加 Cookie？-6ren

delphi - 使用 Indy 组件(Delphi XE6)在 Post 上添加 Cookie？

转载作者：可可西里更新时间：2023-11-01 17:02:16

28

4

我有一个以表单形式附加到 IdHTTP 组件的 cookiesmanager。

var
  XMLRqst     : string;
  XMLResponse : TStringStream;
  XMLRequest  : TStringStream;
...
begin
...
   IdHTTP1.CookieManager.CookieCollection.Add;
   IdHTTP1.CookieManager.CookieCollection[ IdHTTP1.CookieManager.CookieCollection.Count -1 ].CookieName := 'data';
   IdHTTP1.CookieManager.CookieCollection[ IdHTTP1.CookieManager.CookieCollection.Count -1 ].Value      := '<root user="yyy" company="xxxx">';
   IdHTTP1.CookieManager.CookieCollection[ IdHTTP1.CookieManager.CookieCollection.Count -1 ].Path       := '/';

...
XMLRequest  := TStringStream.Create( XMLRqst, TEncoding.Unicode );
...
idHTTP1.Post( 'http://mysite/api', XMLRequest, XMLResponse );
idHTTP1.Disconnect;

我从未收到“数据”cookie。

如何在 Delphi XE6 中通过 Indy 的 IdHTTP 组件使用 http post 正确发送 cookie？

最佳答案

这是一些工作代码:

procedure SendACookie;
var
  HTTP: TIdHTTP;
  URI: TIdURI;
  ASource: TStringStream;
begin
  HTTP := TIdHTTP.Create;
  try
    HTTP.CookieManager := TIdCookieManager.Create(HTTP);

    URI := TIdURI.Create('http://localhost');
    try
      HTTP.CookieManager.AddServerCookie('habari=mycookievalue', URI);
    finally
      URI.Free;
    end;

    ASource := TStringStream.Create('');
    try
      WriteLn('POST response:');
      WriteLn(HTTP.Post('http://localhost/cookies/', ASource));
    finally
      ASource.Free;
    end;
  finally
    HTTP.Free;
  end;
end;

服务器端(使用基于 Indy 的 HTTP 框架):

procedure TShowCookiesResource.OnPost(Request: TIdHTTPRequestInfo; Response: TIdHTTPResponseInfo);
var
  I: Integer;
  Cookie: TIdCookie;
  HTML: string;
begin
  HTML := '<html>' + #13#10;

  HTML := HTML + Format('<p>%d cookies found:</p>' + #13#10, [Request.Cookies.Count]);

  for I := 0 to Request.Cookies.Count - 1 do
  begin
    Cookie := Request.Cookies[I];
    HTML := HTML + Format('<p>%s</p>' + #13#10,
      [Cookie.CookieName + ': ' + Cookie.Value]);
  end;

  HTML := HTML + '</html>';

  Response.ContentText := HTML;
  Response.ContentType := 'text/html';
  Response.CharSet := 'utf-8';
end;

输出:

    Hit any key to send a cookie.    POST response:    1 cookies found:    habari: mycookievalue

长话短说

使用 TIdHTTP.CookieManager.AddServerCookie 方法将 cookie 添加到应随请求一起发送的 IdHTTP 实例。

关于delphi - 使用 Indy 组件(Delphi XE6)在 Post 上添加 Cookie？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/24530599/

28

4

0

文章推荐： Delphi如何避免嗅探器

文章推荐： java - 在 Java 中为 SOLR curl 等效的 POST

文章推荐： ios - iAds : Displaying own ads when didFailToReceiveAdWithError

oracle-xe - Oracle 快捷版 (XE) 可以处理多少个连接？
我正在构建一个使用 Oracle 数据库 10g 作为数据库后端的 Web 应用程序。我意识到 Express 版本有限制，但我只是想确保连接数不是其中之一。 Oracle 快捷版 (XE) 是否限制
database - Oracle XE 11g 找不到 XE 数据库
我是一名开始使用 Oracle 数据库的新手，在将 Oracle XE 11g x64 的最新版本安装到 Microsoft Windows 7 x64 Enterprise 时遇到了问题。安装过程
python - 从串行连接获取 b'\x0 8'b'\x9e'b'\x1d' 或 b'\xe 0'b'\xe 0'b' 错误
我有一个 USB 连接到 device发出串行信息。当我运行下面的 Python 脚本(在 Jupyter Notebook 中)时，我从中得到了奇怪的信息。 import serial ser =
Delphi XE 键盘错误
我们有一台运行 Delphi XE Professional 的机器，它会在 IDE 中键入时更改某些键的值。它将字母和数字键更改为数字。按下下一个键将按顺序输入下一个数字，直到 9，然后从 0 重新
Delphi XE - 所有蓝点移动一行
从昨天开始，我的源代码中的所有蓝点(编译行)都移动了一行。因此，第一个点从“var”而不是“begin”开始，最后一个点是函数最后一个“end”之前的一行。我删除了除 DPR、PAS、DFM 和 D
Delphi XE 中的正则表达式命名捕获组
我在 RegexBuddy 中构建了一个匹配模式，其行为完全符合我的预期。但我无法将其转移到 Delphi XE，至少在使用最新内置的 TRegEx 或 TPerlRegEx 时是这样。我的现实世界
Delphi XE TBytes正确用法
TBytes 变量的正确使用模式是什么？根据我的理解，TBytes不是一个类，而是一个“动态字节数组”。我不确定内存在哪里分配，何时释放，以及将其从生产者传递到消费者的最佳方式是什么。我希望我的生产者
Delphi XE 自定义构建目标始终处于禁用状态
我创建了一个自定义 MSBuild .targets我通过 IDE 将其包含在 Delphi XE 项目中，并从项目管理器的上下文菜单中启用它。尽管文件有效，但在我重新保存项目文件后它总是被禁用。这
德尔福 XE 报告员
有谁知道 http://reportman.sourceforge.net/可用于 Delphi XE 吗？最佳答案我已经成功获得Reportmanager 2.9b通过将以下行添加到文件 rpc
运行在容器中的Oracle XE-11g
Oracle XE Oracle是这样介绍XE的：11g XE（Express Edition）简化版是在Oracle11gR2基础之上一个入门级的小体量数据库，免费用于开发/部署与发布，下载很快
docker中的Oracle xe 11g，在ubuntu上重新启动docker后创建的用户丢失
我已经安装了 docker 在 Ubuntu 21.10 并跟随官方 instructions 我拉甲骨文 11g xe 图片:docker pull oracleinanutshell/oracle
Oracle XE 11g 主页不显示
一段时间以来，我一直在寻找解决问题的方法，但似乎没有任何效果，这是我重新安装之前的最后一次尝试。我今天通过其安装向导安装了 Oracle XE 11g 第 2 版，并且一切顺利。我似乎遇到的麻烦是我
class - Delphi XE 类使用并行 : how to?
我需要模拟汽车在平方区域上移动(比方说)。任何人都可以轻松想象计算(x/y 坐标、轨迹、速度、加速度、暂停......) 之前的版本(跨千年错误开发...... 21 年前)运行到 Applicat
Oracle XE 安装中止，没有错误说明
我已经下载了适用于 Windows 64 位的 Oracle XE 18c，并尝试将其安装在 Windows 10 机器上。我检查了 SHA-256 校验和，它是正确的。安装开始正常，但是当它复制新
delphi - Delphi XE-文件删除通知事件:
我需要通过客户端操作删除服务器上的物理文件，然后将文件删除事件通知远程数据库-希望这完全在serverSide上发生。更高版本的Delphi公开了许多以前在WinAPI调用中被锁定的目录服务。目前，
delphi - Delphi XE:如何禁用声明包装？
这几年来我一直没有使用Delphi（我使用的最新版本是D2005），现在我需要在DelphiXE中做一些工作。我的问题是，如何在Delphi IDE中禁用声明包装？目前，我使用Modelmaker的代
delphi - delphi XE 5程序单元
如何打开应用程序初始化所在的程序单元？我需要进行一些更改。另外，除了显示的当前单位以外，还可以在程序中搜索所有单位吗？ Delphi 5有一个弹出窗口，您可以选择它。最佳答案每个项目均由sing
delphi - 如何为HTTPS配置Delphi XE datasnap服务器
如何配置Datasnap REST服务器（在Windows上作为服务运行）以处理Delphi XE中的https调用？周围有什么好的例子吗？向上的Delphi XE2似乎具有其他组件-这是否意味着X
delphi - Delphi XE 中的类型转换问题
我尝试以这种方式列出程序: type TProc = procedure of object; TMyClass=class private fList:Tlist; function getItem
Delphi XE LiveBindings - 位到字节
我刚刚发现了 Delphi 的实时绑定(bind)。并创建了我的第一个组件来处理变频器的控制字。该组件本身似乎在表单设计器中测试它效果很好。但是，编译和运行应用程序不起作用。来自 livbinding

首页

博学

6Ren·AI

商城

delphi - 使用 Indy 组件(Delphi XE6)在 Post 上添加 Cookie？