Idhttp Get方法

idhttp.get(AURL:string):string;//返回字符串

idhttp.get(AURL:string;AResponseContent: TStream)//返回流

基于网站的不同编码格式,第二种返回流的更加适用

 1 function httpGetByStr(Url: string): string;
 2 begin
 3     FIdhttp := TIdHTTP.Create(nil);
 4   try
 5     FIdhttp.ConnectTimeout := 3000;
 6     FIdhttp.ReadTimeout := 6000;
 7     Result := FIdhttp.Get(Url);
 8   finally
 9     FIdhttp.Disconnect;
10     FreeAndNil(FIdhttp);
11   end;
12 end;
 1 function TSearchLrcThread.httpGetByStream(Url: string; AEncoding: TEncoding)
 2   : TStringStream;
 3 begin
 4     Result := TStringStream.Create(‘‘, AEncoding);
 5     FIdhttp := TIdHTTP.Create(nil);
 6   try
 7     FIdhttp.ConnectTimeout := 3000;
 8     FIdhttp.ReadTimeout := 6000;
 9     FIdhttp.Get(FUrl, Result);
10   finally
11     FIdhttp.Disconnect;
12     FreeAndNil(FIdhttp);
13   end;
14 end;

 基于Unicode版本,根据网站的不同编码设置不同的AEncoding.类型即可,返回的Datastring编码格式即会正常,不会出现乱码的情况

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。