json返回取值操作

標籤：http   os   ar   sp   log   on   c   res   r   

   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);

json返回取值操作