post | sidebar | footer

2014年6月14日 星期六

Delphi UTF-8/Big5

var
b: TStringStream; //用于接收json数据的流
s1: String;
begin
b := TStringStream.Create('',65001); //65001是UTF-8
IdHTTP1.Get('http://www.weather.com.cn/data/cityinfo/101010100.html', b); //获取中国气象局公开的json数据
s1 := b.DataString;
mmoJsonContent.Text := s1; //展示原始数据

0 意見: