delphi 中使用 TIdHTTP 提交Post数据

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;

推荐分享