Delphi XE2 IDHTTP 获取UTF-8编码中文网页


Delphi XE2 IDHTTP 获取UTF-8编码中文网页

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
 cText:TstringStream;
 idHttp1:TIDHTTP;
begin
 cText:=TStringStream.Create('',TEncoding.UTF8);
 idHttp1:=TIDHTTP.Create(nil);
 idHttp1.Get('http://www.3464.com/Default.htm,cText);
 idHttp1.Free;
 Memo1.Text:=cText.DataString;
 cText.Free;
end;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678