DataSnap 用TStream 传递大数据 返回流大小为-1的情况
2015-09-11 15:58
330 查看
DataSnap可以直接传递和返回TStream类型的参数,这点是很方便的。但是很多人发现好像大小稍微大点就工作不正常了,就变相使用其它类型转换来转换去,这样便利性就失去了。
官方有篇博客很详细的介绍了stream的使用,英文好的可以去看下DataSnap Server Method Stream Parameters
DataSnap默认的缓存大小是32k 所以如果流的大小超过这个大小就会被自动分成多个包,这就是传递大量数据的基础,如果一次性发送就可能受到内存的限制。
当传递大量数据时获取到的大小是-1,所以如果还是按照一般的方法来读取流的数据就会有问题了。
下面是一个服务端代码的示例参考,稍加修改就可以传递文件到服务端,由于流的数据是原始数据包发送,所以在不对数据包压缩加密的情况下,传递速度是和其它方式没有多大区别的。
官方有篇博客很详细的介绍了stream的使用,英文好的可以去看下DataSnap Server Method Stream Parameters
DataSnap默认的缓存大小是32k 所以如果流的大小超过这个大小就会被自动分成多个包,这就是传递大量数据的基础,如果一次性发送就可能受到内存的限制。
当传递大量数据时获取到的大小是-1,所以如果还是按照一般的方法来读取流的数据就会有问题了。
下面是一个服务端代码的示例参考,稍加修改就可以传递文件到服务端,由于流的数据是原始数据包发送,所以在不对数据包压缩加密的情况下,传递速度是和其它方式没有多大区别的。
// FS是一个文件流 function TMyDSServer.PutFile(Stream: TStream): Boolean; const BufSize = $F000; var Buffer: TBytes; ReadCount: Integer; begin if Stream.Size = -1 then // 大小未知则一直读取到没有数据为止 begin SetLength(Buffer, BufSize); repeat ReadCount := Stream.Read(Buffer[0], BufSize); if ReadCount > 0 then FS.WriteBuffer(Buffer[0], ReadCount); if ReadCount < BufSize then break; until ReadCount < BufSize; end else // 大小已知则直接复制数据 FS.CopyFrom(Stream, 0); Result := True; end;
相关文章推荐
- Linux tail 命令详解 http://www.2cto.com/os/201111/110143.html
- 大数据Hadoop基础教程之搭建开发环境及编写Hello World
- hadoop新增节点
- 出错file is universal (3 slices) but does not contain a(n) armv7s slice
- 对云计算中几种基础设施(Dynamo,Bigtable,Map/Reduce等)的朴素看法
- 手机 同步失败,失败原因:failed to copy
- Unix Study之--AIX删除卷组中物理卷
- Unix Study之--AIX删除卷组中物理卷
- Leetcode: Paint House II
- HDU - 4756 Install Air Conditioning(树形DP + 最小生成树)
- LeetCode OJ Contains Duplicate
- StaticLayout 和TextPaint的学习使用
- Leetcode: Paint House
- AI,如何实现NPC的听觉
- Line spectral pairs
- 设计模式6--责任链模式(The chain of responsibility pattern)
- 5分钟搞定内存字节对齐 - hairetz的专栏 - 博客频道 - CSDN.NET
- 为什么pthread_cond_wait需要互斥锁为参数
- hadoop得知;datajoin;chain署名;combine()
- BZOJ1579 USACO 2009 Feb Gold 3.Revamping Trails Solution