利用DataSnap进行数据流(TStream)的传递

DataSnap服务器可以通过方法调用向客户端返回数据流，当然，也可以从客户端向服务器上传数据流，都是通过方法调用的方式来实现的。下面以一个简单的例子来演示。

 

服务器端实现：

 

{$METHODINFO ON}
  TFUService = class(TPersistent)
  public
    function ReplaceFile(FileName: string; FileStream: TStream): Integer;
    function GetFile(schema, FileName: string): TStream;
  end;
{$METHODINFO OFF}

//GetFile方法向客户端返回指定名称的文件数据流。ReplaceFile接收来自客户端的文件流，并替换服务器端的文件。

 

const
  BufferSize = 102400; // 100 KB

 

implementation

 

function TFUService.ReplaceFile(FileName: string; FileStream: TStream): Integer;
var
  fStream: TFilestream;
  BytesReadCount: Integer;
  Buffer: TBytes;
begin
  Result := 0;
  try
    if SysUtils.FileExists(FileName) then
      fStream := TFilestream.Create(FileName, fmOpenWrite or fmShareDenyNone)
    else fStream := TFilestream.Create(FileName, fmCreate);
  except on E: Exception do
    Exit(-1);
  end;

  try
    SetLength(Buffer, BufferSize);
    fStream.Position := 0;
    repeat
      BytesReadCount := FileStream.Read(Buffer[0], BufferSize);
      if BytesReadCount > 0 then
        fStream.Write(Buffer[0], BytesReadCount);
    until BytesReadCount < BufferSize;
  finally
    fStream.Free;
  end;
end;

 

function TFUService.GetFile(FileName: string): TStream;
begin
  Result := nil;

  if SysUtils.FileExists(FileName) then
  begin
    Result := TFileStream.Create(FileName, fmOpenRead + fmShareDenyWrite);
    if Result <> nil then Result.Position := 0;
  end;
end;
//Result.Position := 0;这一句很关键，返回数据流之前，一定要定位到流的开始处。

 

客户端代码的实现，跟上述两个方法的实现类似，只是方向相反而已。