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;