DATASNAP遠程方法返回TSTREAM正解

DATASNAP遠程方法返回TSTREAM正解

DATASNAP遠程方法返回TSTREAM，如果數據大小超過32K是會報錯的。許多DELPHIER栽在這個上頭，甚至開始懷疑TSTREAM返回數據的可行性。

因為DATASNAP遠程方法返回TSTREAM，數據包大小有最大32K限制。

怎么解決？客戶端要做並包處理。

function CopyStream(const AStream: TStream): TMemoryStream;
const
LBufSize = $F000;
var
LBuffer: TBytes;
LReadLen: Integer;
begin
Result := nil;
if AStream = nil then
Exit;
Result := TMemoryStream.Create;
try
if AStream.Size = -1 then
begin
SetLength(LBuffer, LBufSize);
repeat
LReadLen := AStream.Read(LBuffer[0], LBufSize);
if LReadLen > 0 then
Result.WriteBuffer(LBuffer[0], LReadLen);
if LReadLen < LBufSize then
break;
until LReadLen < LBufSize;
end
else
Result.CopyFrom(AStream, 0);
Result.Position := 0;
except
Result.Free;
end;
end;

 

procedure TForm1.btnQry3Click(Sender: TObject);
var
LStream: TStream;
LMemStream: TMemoryStream;
begin
DataSource1.DataSet := FDMemTable1;
LStream := methods.QuerySql3('0', 'select * from t1');
if LStream <> nil then
begin
LMemStream := CopyStream(LStream);
FDMemTable1.LoadFromStream(LMemStream, TFDStorageFormat.sfBinary);
LMemStream.Free;
end;
end;