idhttp控件Post含中文返回值的解析

TJ := TStringList.Create;
TJ.Append(jo.AsString);
FH:=utf8decode(IdHTTP1.Post(Str, TJ));
TJ.Free;

procedure TForm1.Button1Click(Sender: TObject);
var
T: TStringStream;
ts: TStringList;
SvrUrl, postUrl: string;
begin
SvrUrl := 'http://app.25hours.cc:6077/webservice/25hours.asmx/StruUp';
postUrl := '';
ts := TStringList.Create;
ts.Text := 'data={"ShopID":1,"SyncVer":200}';

T := TStringStream.Create('', tencoding.UTF8);
IdHTTP1.Post(SvrUrl + postUrl, ts, T);
Memo1.Text := T.DataString;
end;