用IdHttp数据
ParaList := TStringList.Create ;
Response := TStringStream.Create('');
ParaList.Add('txtTrackNbrs='+ '91471612691') ;
FIdHttp.ProtocolVersion := pv1_1;
FIdHttp.Request.ContentType := 'application/x-www-form-urlencoded' ;
FIdHttp.Request.Referer := QryURL ;
FIdHttp.Request.Host := 'www.dhl-usa.com' ;
FIdHttp.Request.ContentEncoding := 'gzip, deflat' ;
FIdHttp.Request.ContentLanguage := 'zh-cn' ;
FIdHttp.Request.Accept := 'text/html' ;
FIdHttp.Post('http://track.dhl-usa.com/TrackByNbr.asp?nav=Tracknbr',ParaList,Response) ;
FHtmlText := Response.DataString ;
读来的数据是乱码。。用了好多方法都没法子转过来。。用没有高手过来帮帮我啊。。帮我把字符转成和网页里的一样在网上查询数据方法。。打开 http://track.dhl-usa.com/TrackByNbr.asp?nav=TrackBynumber
在textarea中输入91471612691 点查询可得到数据有人和我说这个网页是经过Gzip压缩的。。叫我先解压。。可我好水做不出来。。高手帮帮我。。
做过几次没有成功
用 TIdCompressorZLibEx.DecompressGZipStream解压为空
用 TIdZLibCompressorBase.DecompressGZipStream解压报错。。高手再帮帮我啊。。有没有高手帮帮我啊。。急啊。。
ParaList := TStringList.Create ;
Response := TStringStream.Create('');
ParaList.Add('txtTrackNbrs='+ '91471612691') ;
FIdHttp.ProtocolVersion := pv1_1;
FIdHttp.Request.ContentType := 'application/x-www-form-urlencoded' ;
FIdHttp.Request.Referer := QryURL ;
FIdHttp.Request.Host := 'www.dhl-usa.com' ;
FIdHttp.Request.ContentEncoding := 'gzip, deflat' ;
FIdHttp.Request.ContentLanguage := 'zh-cn' ;
FIdHttp.Request.Accept := 'text/html' ;
FIdHttp.Post('http://track.dhl-usa.com/TrackByNbr.asp?nav=Tracknbr',ParaList,Response) ;
FHtmlText := Response.DataString ;
读来的数据是乱码。。用了好多方法都没法子转过来。。用没有高手过来帮帮我啊。。帮我把字符转成和网页里的一样在网上查询数据方法。。打开 http://track.dhl-usa.com/TrackByNbr.asp?nav=TrackBynumber
在textarea中输入91471612691 点查询可得到数据有人和我说这个网页是经过Gzip压缩的。。叫我先解压。。可我好水做不出来。。高手帮帮我。。
做过几次没有成功
用 TIdCompressorZLibEx.DecompressGZipStream解压为空
用 TIdZLibCompressorBase.DecompressGZipStream解压报错。。高手再帮帮我啊。。有没有高手帮帮我啊。。急啊。。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货