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));