delphi DataSnap Stream 传递大数据

delphi DataSnap Stream 传递大数据

DataSnap可以直接传递和返回TStream类型的参数,这点是很方便的。但是很多人发现好像大小稍微大点就工作不正常了。
 
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;


delphi DataSnap Stream 传递大数据

上一篇:XP退役了,如何把Win7变成XP风格?| 怎么样去掉Win7的所有华丽效果? | 怎么样让Win7达到电脑最佳性能?


下一篇:7.2.2 在窗体上显示绘图