| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 移动应用开发 斑竹:flyers,iamdream | |||||
| 作者： |
|
2015/7/4 18:02:32 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 在xe7 中生成了Json 字符串 {"Id":"1003","Name":"你好啊","Pt":"1221.7334606212305,2411.3300114888902"} web客户端需要的格式是这样的, {"Id":"1003","Name":"\u5218\u6D77\u4E1C","Pt":"1221.7334606212305,2411.3300114888902"} 我该怎么把中文转化成需要的格式呢? 只知道是数据编码的问题,但具体如何转换望高手指点 ---------------------------------------------- - |
|||||
| 作者： |
|
2015/7/4 19:26:51 | ||||
| 1楼： | 这个能说明问题了嘛
- |
|||||
| 作者： |
|
2015/7/4 20:14:16 | ||||
| 2楼： | 太好了..关键 代码怎么写啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2015/7/4 20:57:44 | ||||
| 3楼： | superobject.pas 的 function AsJSon(indent: boolean = false; escape: boolean = true): SOString; ---------------------------------------------- - |
|||||
| 作者： |
|
2015/7/4 21:09:32 | ||||
| 4楼： | lsuper 大侠光临 不胜荣幸啊.... 上面的代码 是不是要用 superJson 库呢? 我想delphi 应该有这样的函数,一句代码的事(只是我不知道) 看来我还是要研究一下 delphi的编码到底是怎么实现的.. 不行就自己写个转换的程序了. ---------------------------------------------- - |
|||||
| 作者： |
|
2015/7/4 21:15:52 | ||||
| 3楼： | 看看这个帖子。 http://www.cnblogs.com/findumars/articles/2237040.html ---------------------------------------------- - |
|||||
| 作者： |
|
2015/7/4 21:28:29 | ||||
| 5楼： | 感谢各位 自己写了个 函数 function strToUnicode(astr: string):string; var b:TBytes; b2:array[0..1] of byte; i:integer; re:string; begin b:=TEncoding.Unicode.GetBytes(astr); i := 0; while i<Length(b) do begin b2[0] := b[i]; b2[1] := b[i+1]; i:= i+2; if b2[1]>0 then re := re +'\u'+IntToHex(b2[1],2)+ IntToHex(b2[0],2) else re := re + Char(b2[0]) end; Result := re; end; ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
