DataSnap Stream 传递大数据

阅读更多

        DataSnap可以直接传递和返回TStream类型的参数，这点是很方便的。但是很多人发现好像大小稍微大点就工作不正常了，就变相使用其它类型转换来转换去，这样便利性就失去了。

        官方有篇博客很详细的介绍了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;