json返回取值操作
str:=‘http://127.0.0.1:8081/datasnap/rest/tprjmis/web_login/‘+AnsiToUtf8(用户名edit.Text)+‘/‘+ AnsiToUtf8(密码edit.text); str:=AnsiToUtf8(用户名edit.Text); str:=HTTPEncode(str); str:=self.IdHTTP1.Get(‘http://127.0.0.1:8081/datasnap/rest/tprjmis/web_login/‘+httpencode(AnsiToUtf8(用户名edit.Text))+‘/‘+ HTTPEncode(AnsiToUtf8(密码edit.text)));
json:=tjsonobject.Create; json := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(str), 0) as TJSONObject; ja:=json.Getvalue(‘result‘) as tjsonarray; json:=ja.Items[0] as tjsonobject;
showmessage(json.ToString); json:=json.Getvalue(‘user‘) as tjsonobject; showmessage(json.ToString); str:=json.GetValue(‘_id‘).ToString; showmessage(str);
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
