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));
你好,我是有问必答小助手,非常抱歉,本次您提出的有问必答问题,技术专家团超时未为您做出解答
本次提问扣除的有问必答次数,将会以问答VIP体验卡(1次有问必答机会、商城购买实体图书享受95折优惠)的形式为您补发到账户。
因为有问必答VIP体验卡有效期仅有1天,您在需要使用的时候【私信】联系我,我会为您补发。