delphi DataSnap Stream 传递大数据

最新推荐文章于 2024-05-09 18:15:02 发布

weixin_34292287

最新推荐文章于 2024-05-09 18:15:02 发布

阅读量486

点赞数

文章标签：大数据 python

原文链接：https://my.oschina.net/u/582827/blog/348412

版权

2019独角兽企业重金招聘Python工程师标准>>>

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;