DelphiXE7Indy的IdHTTP写的微信公众平台,只做了部分功能,希望大家能用上temp:=JSONObject.Values['subscribe'].ToString;Memo1.Lines.Add('subscribe:'+temp);temp:=JSONObject.Values['openid'].ToString;Memo1.Lines.Add('openid:'+temp);temp:=JSONObject.Values['nickname'].T