Delphi XE2 DataSnap - Download-Datei per TStream Mit Fortschrittsbalken

Ich geschrieben habe, ein DataSnap-server-Methode zurückgibt, die ein TStream-Objekt eine Datei zu übertragen. Die client-Anwendung ruft die Methode auf und liest den stream in Ordnung. Mein Problem ist, dass der Methodenaufruf dauert eine Weile, bis Sie abgeschlossen ist, bevor die TStream-Objekt verfügbar ist, zu Lesen, aber auf der server-Seite kann ich sehen, dass der Aufruf der Methode dauert nur eine Sekunde, erstellen Sie das Objekt wieder. Ich hatte gehofft, dass das stream-Objekt zurückgegeben werden sofort, so dass ich Lesen kann das streamen und die Anzeige eines Fortschrittsbalken für den download-Fortschritt. Gibt es einen anderen Weg kann ich das machen?

Server-Methode ist sehr einfach :

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;
InformationsquelleAutor Jonathan Wareham | 2012-01-17
  1. 2

    Dies ist, wie ich es Tat eine Weile zurück. Ich verwendet, XE und hatte noch keine Gelegenheit, es zu bereinigen.

    //Server-Seite:

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

    Result.Position := 0;
end;

    //Client-Seite:

    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;

    Können Sie einstellen, BufSize, wie du willst. Ich hatte Mühe, die Größe des Streams, bevor ich es auf diesem Weg. Ich experimentierte mit XE2 und schien nicht das gleiche problem haben, aber ich war hochladen. Es ist wahrscheinlich eine bessere Methode zum abrufen der Größe des Stroms. Wenn ich die Antwort bekommen, bald werde ich Sie wissen lassen....

    Auf einer anderen Anmerkung - ich habe noch nicht herausgefunden, wie man eine Statusanzeige auf der server-Seite. Ich bin immer noch versuchen, um dies herauszufinden, auch.

    Ich hoffe, das hilft! Lassen Sie mich wissen, wenn Sie irgendwelche Fragen haben!

    • Nein, ich habe keine Verzögerungen. Ich habe das herunterladen von Dateien aller Größen (bis zu 5 MByte). Die Statusanzeige funktioniert Prima. Ich weiß, das klingt seltsam, aber manchmal habe ich Mühe mit der Art, wie DataSnap verhält sich auf bestimmte ports. Ich wechselte auf einen anderen port und alles funktionierte gut. Leider hatte ich nie eine chance, um herauszufinden, warum oder ich, würden Sie sagen. Was ist die Größe der Dateien? Und was die hohen und niedrigen Bereichen haben Sie versucht, für BufSize?
    • Die Datei Teste ich mit knapp 5 MB. Ich habe das gleiche DataSnap-Methode, wie Sie haben, und die Methode aufrufen, die rund 40 Sekunden abgeschlossen sein, bevor der client Lesen kann der stream mit einem Fortschrittsbalken. Ich bin derzeit nur über port 8080 über HTTP mit dem TDSRESTConnection zu nennen, die DataSnap-Methode. Wie verbinden Sie sich mit der DataSnap-service?
    • Ich hatte noch keine Gelegenheit, zu schauen, DataSnap-REST-Funktionen noch. Ich bin die Verbindung über TCP unter Verwendung der Standard-211-port und client TSQLConnection. Die app, die ich hatte Schwierigkeiten, mit denen ich den port 9999 (und anderen app, um 9998) und die Probleme waren Weg. Ich glaube, es war mein ISP-filter-Mechanismus. Eine andere Sache - ich bin mit XE2 Update 3. Haben Sie diese? Sie tun alles, was mit JSON? Ich habe fix ein paar Dinge mit ihm zu haben, aber ich kann nicht Bild, das Sie auf Ihre download. Wenn du hast eine kleine Probe werde ich es bauen, und sehen, ob ich das gleiche problem.
    • BTW - ich könnte hinzufügen, mein Aktuelles Projekt ist tut es mit Sicherheit auch. Es scheint zu funktionieren groß, aber ich habe es nicht im Produkt noch nicht. Und ein anderer Gedanke - Mein LifeCycle-Eigenschaft für die TDSServerClass ist gesetzt Session.
    • Hi, OK, das muss ERHOLUNG sein Ding. Ich habe eine neue Delphi DS-client Verbindung mit TSQLConnection (DBExpress) statt TDSRESTConnection zu den DS-server und erraten, was - dem Aufruf der Methode gibt den stream innerhalb von 1 Sekunde. Die Sache ist die Ziel-client-Anwendung, die ich Schreibe, ist für Android-und Java-proxy-Klasse, ich habe nicht über eine entsprechende TSQLConnection, nur ein TDSRESTConnection. Brauchen, um zu verstehen, ob es einen Weg, REST Verhalten, das gleiche für streaming-Dateien oder wenn es nur die Art und Weise, weil es die Architektur.
    • Ich bin mit XE2 Update 3 zu höre ich, dass das Update 4 ist da jetzt jeden Tag. Ja, ich bin mit JSON-Objekten zu übergeben/zurückgeben von Daten in der Methode fordert, nichts besonderes, nur eine Funktion zum konvertieren der Daten zurückgegeben, die in einem TDataSet, um eine TJSONArray.
    • vielen Dank , es hat geklappt

    InformationsquelleAutor aknapple
  2. 0

    Froh, dass Sie etwas Glück haben! Das ist die andere fix ich zu tun hatte. Sie können unter diesem link https://forums.embarcadero.com/thread.jspa?threadID=66490&tstart=0

    Nach dem Tauchen im code fand ich in "Daten.DBXJSONReflect.pas"

    Verfahren TJSONPopulationCustomizer.Vorveröffentlichung(Daten: TObject; rttiContext: TRttiContext);
    ...

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

    ...

    Ich denke, es sollte so sein:

    3473: rttiField.SetValue(Data, TValue.Empty);
3474: rttiField.GetValue(Data).AsObject.Free;
    InformationsquelleAutor aknapple
Schreibe einen Kommentar