delphi 中使用 TIdHTTP 提交Post数据

最新推荐文章于 2023-01-05 10:29:49 发布

李正己

最新推荐文章于 2023-01-05 10:29:49 发布

阅读量2w

点赞数

分类专栏： Delphi Indy 文章标签： delphi idhttp

本文链接：https://blog.csdn.net/webouse/article/details/69502723

版权

Delphi 同时被 2 个专栏收录

51 篇文章 3 订阅

订阅专栏

Indy

4 篇文章 0 订阅

订阅专栏

var
fhttpRequest: TIdHTTP;
PostData : TStringStream;
tmpStr : String;

begin
  fhttpRequest := TIdHTTP.Create(nil);
  with fhttpRequest do
  begin
    ProtocolVersion := pv1_1;
    AllowCookies := True;
    ProxyParams.BasicAuthentication := False;
    ProxyParams.ProxyPort := 0;
    Request.ContentLength := -1;
    Request.ContentRangeEnd := -1;
    Request.ContentRangeStart := -1;
    Request.ContentRangeInstanceLength := -1;
    Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Request.BasicAuthentication := False;
    Request.Ranges.Units := 'bytes';
    Request.ContentType := 'application/x-www-form-urlencoded';
    //HTTPOptions := [hoForceEncodeParams];  
    HTTPOptions :=[hoKeepOrigProtocol, hoNoProtocolErrorException, hoInProcessAuth];  
  end;
  PostData := TStringStream.Create;
  PostData.WriteString('这里写上要post的数据');
  tmpStr := fhttpRequest.Post('要提交的网址',PostData); //tmpStr是提交后返回的数据

  fhttpRequest.free;
  PostData.Free;
end;