Delphi XE2 DataSnap - Tải tập tin qua TStream Với thanh tiến trình

Question

Tôi đã viết phương thức máy chủ DataSnap trả về một đối tượng TStream để truyền tệp. Ứng dụng khách gọi phương thức và đọc luồng tốt. Vấn đề của tôi là cuộc gọi phương thức mất một thời gian để hoàn thành trước khi đối tượng TStream có sẵn để đọc, nhưng ở phía máy chủ tôi có thể thấy rằng cuộc gọi phương thức chỉ mất một giây để tạo đối tượng trả về. Tôi đã hy vọng đối tượng luồng sẽ được trả lại ngay lập tức để tôi có thể đọc luồng và hiển thị thanh tiến trình cho tiến trình tải xuống. Có cách nào khác tôi có thể làm điều này không?

Phương pháp máy chủ là rất đơn giản:

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; 

Answer 1

Đây là cách tôi đã làm nó một thời gian trở lại. Tôi đã sử dụng XE và không có cơ hội để làm sạch nó.

// Server side:

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

    Result.Position := 0; 
end; 

// Khách hàng bên:

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; 

Bạn có thể điều chỉnh BufSize tuy nhiên bạn muốn. Tôi đã gặp sự cố khi nhận kích thước luồng cho đến khi tôi thực hiện theo cách này. Tôi đã thử nghiệm với XE2 và dường như không có vấn đề tương tự nhưng tôi đã tải lên. Có lẽ là cách tốt hơn để truy xuất kích thước của luồng. Nếu tôi nhận được câu trả lời sớm, tôi sẽ cho bạn biết ....

Lưu ý khác - Tôi chưa tìm ra cách hiển thị thanh tiến trình ở phía máy chủ. Tôi vẫn đang cố gắng tìm ra điều này.

Tôi hy vọng điều này sẽ hữu ích! Hãy cho tôi biết nếu bạn có bất kỳ câu hỏi!

Answer 2

Rất vui khi bạn có một số may mắn! Đây là bản sửa lỗi khác mà tôi phải làm. Bạn có thể tham khảo link này https://forums.embarcadero.com/thread.jspa?threadID=66490&tstart=0

Sau khi lặn trong mã tôi tìm thấy trong "Data.DBXJSONReflect.pas"

thủ tục TJSONPopulationCustomizer.PrePopulate (dữ liệu: TObject; rttiContext: TRttiContext); ...

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

...

Tôi nghĩ rằng nó phải như thế này:

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