Delphi XE2 DataSnap - 通过带有进度条的TStream下载文件

Question

Delphi XE2 DataSnap - 通过带有进度条的TStream下载文件

9

我已经编写了一个DataSnap服务器方法，用于返回TStream对象以传输文件。客户端应用程序调用该方法并成功读取流。问题在于，在TStream对象可读之前，方法调用需要较长时间，但在服务器端，我可以看到该方法调用仅需一秒钟即可创建要返回的对象。我希望流对象能够立即返回，以便我可以读取流并显示下载进度条。是否有其他方法可以做到这一点？

该服务器方法非常简单：

function TServerMethods.DespatchDocument(sCompanyID, sDocOurRef: string): TStream;
var
  sSourceFilePath: string;
  strFileStream: TFileStream;
begin
  sSourceFilePath := GetDocumentPDFFilePath(sCompanyID, sDocOurRef);

  strFileStream := TFileStream.Create(sSourceFilePath, fmOpenRead);
  Result := strFileStream;
end;

- Jonathan Wareham

可能是 ProgressBar for TResourceStream (Delphi) 的重复问题。 - NGLN

2个回答

0

很高兴你有一些运气！这是我不得不做的另一个修复。你可以参考这个链接https://forums.embarcadero.com/thread.jspa?threadID=66490&tstart=0 在深入了解代码后，我发现了"Data.DBXJSONReflect.pas"中的以下内容: procedure TJSONPopulationCustomizer.PrePopulate(Data: TObject; rttiContext: TRttiContext); ...

3473: rttiField.GetValue(Data).AsObject.Free;
3474: rttiField.SetValue(Data, TValue.Empty);

...

我认为应该是这样的：

3473: rttiField.SetValue(Data, TValue.Empty);
3474: rttiField.GetValue(Data).AsObject.Free;

- aknapple

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- aknapple · Accepted Answer

这是我一段时间以前的做法。我使用了XE，但还没有机会整理它。

//服务器端：

function TServerMethods1.DownloadFile(out Size: Int64): TStream;
begin
    Result := TFileStream.Create('upload.fil', fmOpenRead or fmShareDenyNone);
    Size := Result.Size;

    Result.Position := 0;
end;

//客户端：

procedure TfMain.DownloadFile(Sender: TObject);
var
    RetStream: TStream;
    Buffer: PByte;
    Mem: TMemoryStream;
    BytesRead: Integer;
    DocumentId: Int64;
    Size: Int64;
    filename: WideString;
    BufSize: Integer;
begin
    BufSize := 1024;

    try
      Mem := TMemoryStream.Create;
      GetMem( Buffer, BufSize );

      try
        RetStream := FDownloadDS.DownloadFile(Size);
        RetStream.Position := 0;

        if ( Size <> 0 ) then
        begin
          filename := 'download.fil';

          repeat
            BytesRead := RetStream.Read( Pointer( Buffer )^, BufSize );

            if ( BytesRead > 0 ) then
            begin
              Mem.WriteBuffer( Pointer( Buffer )^, BytesRead );
            end;

            lStatus.Caption := IntToStr( Mem.Size ) + '/' + IntToStr( Size );
            Application.ProcessMessages;

          until ( BytesRead < BufSize );

          if ( Size <> Mem.Size ) then
          begin
            raise Exception.Create( 'Error downloading file...' );
          end;
        end
        else
        begin
          lStatus.Caption := '';
        end;
      finally
        FreeMem( Buffer, BufSize );
        FreeAndNIl(Mem);
      end;
    except
      on E: Exception do
      begin
        lErrorMessage.Caption := PChar( E.ClassName + ': ' + E.Message );
      end;
    end;
end;

您可以根据需要调整BufSize的大小。在我尝试这种方法之前，我一直无法获取流的大小。我尝试了XE2，似乎没有同样的问题，但那时我正在上传。可能有更好的方法来检索流的大小。如果我很快得到答案，我会让您知道...

另外 - 我还没有弄清楚如何在服务器端显示进度条。我仍在努力解决这个问题。

希望这可以帮到您！如果您有任何问题，请告诉我！