qq_17279253 2021-03-29 22:55 采纳率: 0%
浏览 91

DELPHI Idhttp带头文件异常---没办法了,会的帮我看一下


begin
  RespData := TStringStream.Create;
  idhtp1.Request.ContentType :=vContentType;
  idhtp1.Request.Accept:=vContentType;


  LoginListPas.Add('KEY='+vapikey);
  LoginListPas.Add('SIGN='+vSIGN);
  LoginListPas.Add('PHRASE='+vPHRASE);
  LoginListPas.Add('TMP='+vTMP);


  url:=RequestPath;
  idhtp1.Request.Connection:='Keep-Alive';
  idhtp1.Request.AcceptLanguage:='zh-cn';
  idhtp1.ReadTimeout:=30000;
  //idhtp1.Request.CacheControl:='no-cache';
  idhtp1.HandleRedirects:=True;
  idhtp1.Request.CustomHeaders.Clear;
  idhtp1.Request.Method:='POST';
  idhtp1.Request.CustomHeaders.Add('KEY='+vapikey);
  idhtp1.Request.CustomHeaders.Add('SIGN='+vSIGN);
  idhtp1.Request.CustomHeaders.Add('PHRASE='+vPHRASE);
  idhtp1.Request.CustomHeaders.Add('TMP='+vTMP);

 

不加头是可以其它网页,加头就报错


  idhtp1.Post(url,RespData);   
  RespData.Position:=0;
  ShowMessage(UTF8Decode(RespData.DataString));

 

  • 写回答

2条回答 默认 最新

  • 有问必答小助手 2021-03-30 18:33
    关注

    你好,我是有问必答小助手,非常抱歉,本次您提出的有问必答问题,技术专家团超时未为您做出解答

    本次提问扣除的有问必答次数,将会以问答VIP体验卡(1次有问必答机会、商城购买实体图书享受95折优惠)的形式为您补发到账户。

    ​​​​因为有问必答VIP体验卡有效期仅有1天,您在需要使用的时候【私信】联系我,我会为您补发。

    评论

报告相同问题?

悬赏问题

  • ¥15 有关类的报错,在模块里调用另一个模块的方法下的变量时出错
  • ¥15 delphi7 HMAC_SHA256方式加密
  • ¥15 关于#qt#的问题:我想实现qcustomplot完成坐标轴
  • ¥15 下列c语言代码为何输出了多余的空格
  • ¥15 kali linux用wget archive.kali.org/archive-key.asc指令下载签名无效(失败)
  • ¥15 openHarmony 利用c++程序在dayu210开发板上实现拉取RTSP视频流并且在屏幕上显示
  • ¥15 GD32H757的can通信配置
  • ¥20 nist随机数测试的问题
  • ¥20 帮我解决这个项目,thank you各位程序员
  • ¥15 哪位能用ea软件做一下,有偿