datasnap rest Windows客户端编写首先吐槽一下XE关于datasnap的资料真的是太少了。。。
另外如果参数里有中文的话需要对参数编码一下,用TIdURI.ParamsEncode方法即可,不过最好重写一下这个方法,因为rest协议参数是以"/"来分割的,所以接口有参数的话请把每个参数内容重新编码再加上“/”字符拼接发送过去。 客户端调用接口后,datasnap中间件返回的json数据对中文进行了编码,在客户端继续用json编码一下即可,xe自带json解析方法,D7的话可以用superobject单元(第三方)。 客户端调用例子如下: procedure TForm2.Button1Click(Sender: TObject); var lrlt: TStringStream; s,lurl: string; jo: TJSONObject; i: Integer; begin lrlt := TStringStream.Create(''); try lurl := edtUrl.Text; lurl := lurl + TIdURI.ParamsEncode('/name/啊啊啊'); IdHTTP1.Get(lurl,lrlt); jo := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(lrlt.DataString),0) as TJSONObject; //返回表格字段个数 i := TJSONArray(TJSONObject(TJSONArray(jo.GetValue('result')).Items[0]).GetValue('table')).Count; mmLog.Lines.Add(IntToStr(i)); finally lrlt.Free; end; end;
|
|