Delphi XE2 DataSnap - 通过 TStream 将 JPEG 文件从服务器流式传输到客户端

Question

我编写了一个 DataSnap 服务器方法，它返回一个 TStream 对象来传输文件。客户端应用程序调用该方法并读取流来下载文件。服务器方法非常简单：

function TServerMethods.DownloadFile(sFilePath: string): TStream;
var
  strFileStream: TFileStream;
begin
  strFileStream := TFileStream.Create(sFilePath, fmOpenRead);
  Result := strFileStream;
end;

它可以很好地下载许多文件类型（PDF、GIF、BMP、ZIP、EXE），但在下载 JPG 文件时不起作用。在客户端，从方法调用返回的流对象的大小始终为 0（对于 JPG）。我可以在我的 PC 上本地成功流式传输 JPG 文件，所以这一定与 DataSnap 有关。我做了一些研究，表明 DataSnap 在幕后将流转换为 JSON，当涉及到 JPG 文件时可能会出现问题 - 有人能证实这一点吗？在客户端，我使用 TDSRESTConnection 来调用服务器方法。我意识到我可以在流式传输之前压缩 JPG 文件，但我宁愿不必这样做。

Answer 1

我想我会更新我尝试解决这个问题的帖子。我从未找到使用 TStream 通过 DataSnap 传输 JPEG 文件的方法，但通过将流转换为 TJSONArray 并将其传回来实现。所以我的服务器方法现在如下所示：

function TServerMethods.DownloadJPEGFile(sFilePath: string): TJSONArray;
var
  strFileStream: TFileStream;
begin
  strFileStream := TFileStream.Create(sFilePath, fmOpenRead);
  Result := TDBXJSONTools.StreamToJSON(strFileStream, 0, strFileStream.Size);
end;

然后在客户端，我将其转换回 TStream：

strFileStream := TDBXJSONTools.JSONToStream(JSONArray);

我将其创建为纯粹用于下载 JPEG 的新服务器方法调用，因为我发现使用 TJSONArray 而不是 TStream 传输文件速度慢了 4 倍，所以我对所有其他文件类型使用原始方法。

Answer 2

只是作为更新 - 经过进一步研究，我发现这与 PC 上使用的系统区域设置有关。我使用的是“英语（英国）”，但如果我将其更改为“日本（日语）”，那么错误就会消失，文件传输工作正常。我已将其记录为 Embarcadero 的质量控制报告。

Answer 3

Embarcadero 现在已修复此问题（也会影响 .DOC 文件）：

1.将 '...\RAD Studio\9.0\source\data\datasnap\Datasnap.DSClientRest.pas' 复制到您的 DataSnap Client 项目文件夹

2.将 .pas 文件添加到项目中

3.修改 Line#1288 如下

//  LResponseJSON := TJSONObject.ParseJSONValue(BytesOf(LResponseText.StringValue), 0);
LResponseJSON := TJSONObject.ParseJSONValue(BytesOf(UTF8String(LResponseText.StringValue)), 0);

4.重新构建 DataSnap REST Client 项目

5.使用 REST 运行它服务器

这解决了问题。

Answer 4

将此行添加到您的 DownloadFile 方法中：

GetInvocationMetadata.ResponseContentType := 'image/jpeg';