本文整理自网络,侵删。
varfhttpRequest: 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;
相关阅读 >>
Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词
Delphi webbrowser1 网页提交按钮执行点击事件
更多相关阅读请进入《Delphi》频道 >>