delphi使用ajax添加一个cookie

最新推荐文章于 2021-08-05 17:52:41 发布

原创最新推荐文章于 2021-08-05 17:52:41 发布 · 2.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #ajax #exception #url #string

delphi 专栏收录该内容

152 篇文章

订阅专栏

本文介绍如何使用 Delphi 的 COM 对象 XMLHTTPRequest 发送 POST 请求，并设置 Cookie 和请求参数。通过实例展示了如何获取响应文本及状态码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses Comobj;

var
  url:string;
  xmlHttp:Olevariant;
  responseText:Widestring;
begin
  url:='http://xxx.cn/xx.asp';
  try
    xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
    xmlHttp.open('POST',url,false);
    xmlHttp.setRequestHeader('Cookie', 'cookietest=testvalue');
    xmlHttp.send('xxxx');
    responseText:=xmlHttp.responseText;
    if xmlHttp.status='200' then
    begin
      //--
    end
    else
    begin
      //--
    end;
  except
    On E:Exception do
      //--
  end;
end;