delphi使用ajax添加一个cookie

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

lee576

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

阅读量2.5k

点赞数

分类专栏： delphi 文章标签： delphi ajax exception url string

本文链接：https://blog.csdn.net/lee576/article/details/3280290

版权

delphi 专栏收录该内容

152 篇文章 3 订阅

订阅专栏

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;