Delphi dataSnap中TreamToJson
来源:互联网 发布:caffe的安装和配置 编辑:程序博客网 时间:2024/05/16 03:26
Uses Data.dbxJsonCommon;
服务端
function UpPicture(j:TJsonArray):boolean;
var
T:TDBXJsonTools;
S:TMemoryStream;
begin
Result:=False;
T:=TDBXJsonTools.create;
S:=TMemoryStream.create;
try
s:=T.JsonTOStream(j) as TmemoryStream;
S.savetoFile('d:\abc.rar);
Result:=True;
finally
FreeAndNil(T);
FreeAndNil(S);
end;
end;
客户端
var
ServerClient:TServerMethod1Client;
J:TjsonArray;
M:TMemoryStream;
T:TDbxJSONTOOLS:
begin
try
ServerClent:=TServerMethod1Client.Crate(Con1.DbxConnection);
t:=TdbxJsonTools.create;
M:=TmemoryStream.crate;
M.loadFormFile('d:\abcd.rar');
j:=T.StreamTOJson(M,0,M.size);
if ServerClent.UpPicture(j) then
Showmessage('图片通过jsonStream上传成功!');
finally
FreeandNil(M);
FreeandNil(Y);
end;
end;
- Delphi dataSnap中TreamToJson
- delphi datasnap 心跳包
- delphi datasnap 中间件
- delphi xe datasnap rest 相關
- Delphi XE2 DataSnap 上传下载文件
- Delphi 的一个加密和压缩组件 (用于DataSnap多层程序中)
- 让Delphi的DataSnap发挥最大效率
- 让Delphi的DataSnap发挥最大效率
- delphi DataSnap巢状主从表实现
- 让Delphi的DataSnap发挥最大效率
- 让Delphi的DataSnap发挥最大效率
- 让Delphi的DataSnap发挥最大效率
- [转]Delphi 2010 DataSnap白皮书2
- Android程序连接Delphi DataSnap服务器
- 让Delphi的DataSnap发挥最大效率
- 关于Delphi XE DataSnap心跳包
- delphi XE6 datasnap REST 系列之一
- 让Delphi的DataSnap发挥最大效率
- QT使用线程以及线程同步 .
- spring 五个事务隔离级别和七个事务传播行为
- Android下Affinities和Task
- FMDB的认识和使用
- Linux 0.12 OS. math - div.c
- Delphi dataSnap中TreamToJson
- PHP中遍历stdclass object 及 json
- Struts2一个Action内包含多个请求处理方法的处理,method的使用方法,struts2中的路径问题,通配符映射 (
- mysql 一些经验
- javaScript学习随笔
- Linux 0.12 OS. math - compare.c
- [转]IO模式设置网络编程常见问题总结—IO模式设置,阻塞与非阻塞
- VS2008操作PPT
- CXF学习总结1 编写接口,实现类,Map自定义类型转换