RAD Server - Download einer Datei über die RAD Server komponenten

[fisipjm]

Moin Moin - oder guten Abend

Ich stehe vor folgendem Problem und komme nicht so recht weiter. Ich Arbeite aktuell an einem recht großen Projekt, dass ich mit dem RAD Server zu großen Teilen schon umgesetzt habe.
Abfrage und Schreibenauf Datenbank usw, läuft schon super. Jetzt möchte ich einen Dateiaustausch umsetzen.
Also Konkret möchte ich das ich eine URL mit ID in das Backen werfe und mir mein Client dann ein Fenster bringt wo ich aussuchen kann an welchen Platz ich die Datei speichern möchte.
Über die Indy Komponenten hätte ich das schon 10 mal gelöst, leider muss ich aber den weg über die RADServer komponenten gehen. In dem fall den TbackendEndpoint weil ich die Authentifizierung benötige die da inkludiert ist.

Meine Frage, wie komm ich von der Komponente an die Datei ran? Ich finde keine Dokumentation oder Beispiele dazu alles was mit Dateien zusammenhängt ist immer über ein eigens HTML gelöst und zeigt dann Bilder an, aber ein Download einer Datei kann ich nirgends finden.

Grüße
PJM

[fisipjm]

Kaum mach ichs Ma... zu
Hier die Antwort für alle interessierten

Delphi-Quellcode:

  EndpointRead.Execute;
  var lstrstream: TStringStream := TStringStream.Create(EndpointRead.Response.content, TEncoding.UTF8);
  if SaveDialog1.Execute then
  lstrstream.SaveToFile(SaveDialog1.FileName);

[himitsu]

Das ": TStringStream" kannst'e weglassen, wenn du magst. (Typinferenz)

Und du gibt lstrstream natürlich auch wieder frei?


Ist Response.content zufällig ein String?
oder Byte-Array (WriteAllBytes), oder String-Array (WriteAllLines), oder ...

Delphi-Quellcode:

EndpointRead.Execute;
if SaveDialog1.Execute then
  TFile.WriteAllText(SaveDialog1.FileName, EndpointRead.Response.content, TEncoding.UTF8);

[fisipjm]

Zitat von himitsu;14980
Ist Response.content zufällig ein String?
oder Byte-Array (WriteAllBytes), oder String-Array (WriteAllLines), oder ...
[DELPHI:

EndpointRead.Execute;
if SaveDialog1.Execute then
TFile.WriteAllText(SaveDialog1.FileName, EndpointRead.Response.content, TEncoding.UTF8);[/DELPHI]

Ähm ja, Response.Content ist ein String wieso?
Funktioniert das dann auch mit Dateien die keine testdateien sind? Muss ich mal testen

[TiGü]

Zitat von fisipjm:

Zitat von himitsu:

Ist Response.content zufällig ein String?
oder Byte-Array (WriteAllBytes), oder String-Array (WriteAllLines), oder ...

Delphi-Quellcode:

EndpointRead.Execute;
if SaveDialog1.Execute then
  TFile.WriteAllText(SaveDialog1.FileName, EndpointRead.Response.content, TEncoding.UTF8);

Ähm ja, Response.Content ist ein String wieso?
Funktioniert das dann auch mit Dateien die keine testdateien sind? Muss ich mal testen

Himi will darauf hinaus, dass du per EndpointRead.Response auf die Content-Property: string von der Response: TCustomRESTResponse-Klasse gehst.
Wenn du dir in der Unit REST.Client mal anschaust, wie das implementiert ist, wirst du auch sehen, dass es eine property namens RawBytes: TBytes gibt.
Je nach Inhalt deines Responses kann es vorteilhaft sein, gleich die Binärdaten zu nehmen/verarbeiten/abzuspeichern.

[fisipjm]

[QUOTE=TiGü;1498145][QUOTE=fisipjm;1498141][QUOTE=himitsu;14980
Wenn du dir in der Unit REST.Client mal anschaust, wie das implementiert ist, wirst du auch sehen, dass es eine property namens RawBytes: TBytes gibt.
Je nach Inhalt deines Responses kann es vorteilhaft sein, gleich die Binärdaten zu nehmen/verarbeiten/abzuspeichern.[/QUOTE]

Hab mir fast gedacht das es da noch was besseres als Content gibt. Habs aber irgendwie nicht gefunden

Das Heist das würde ich dann so machen?

Delphi-Quellcode:

.....
Stream := TFileStream.Create(SaveDialog1.FileName, fmCreate);
  try
    if Response.Body.rawbyte <> nil then
      Stream.WriteBuffer(Response.Body.rawbyte[0], Length(Response.Body.rawbyte));
  finally
    Stream.Free;
  end;
.....

Danke für die gute Hilfe

[TiGü]

Delphi-Quellcode:

    if Response.ContentLength > 0 then // oder Response.HasResponseContent wenn Response ein Interface vom Typ IRESTResponseJSON sein sollte/gecastet worden ist!
    begin
      try
        System.IOUtils.TFile.WriteAllBytes(SaveDialog1.FileName, Response.RawBytes);
      except
        // reagieren auf die möglichen Exceptions überbleibt dem geneigten Leser als Hausaufgabe!
        on E: ENotSupportedException do
        begin

        end;
        on E: EArgumentException do
        begin

        end;
        on E: EDirectoryNotFoundException do
        begin

        end;
        on E: EFileNotFoundException do
        begin

        end;
      end;
    end;

[fisipjm]

Zitat von TiGü:

Delphi-Quellcode:

    if Response.ContentLength > 0 then // oder Response.HasResponseContent wenn Response ein Interface vom Typ IRESTResponseJSON sein sollte/gecastet worden ist!
    begin
      try
        System.IOUtils.TFile.WriteAllBytes(SaveDialog1.FileName, Response.RawBytes);
      except
        // reagieren auf die möglichen Exceptions überbleibt dem geneigten Leser als Hausaufgabe!
        on E: ENotSupportedException do
        begin

        end;
        on E: EArgumentException do
        begin

        end;
        on E: EDirectoryNotFoundException do
        begin

        end;
        on E: EFileNotFoundException do
        begin

        end;
      end;
    end;

Ist ein Großteil der Meldungen nicht durch die Verwendung von Savedialog schon ausgeschlossen?

[TiGü]

Gewiss, aber in dreieinhalb Monaten refaktorist du das oder jemand anderes so, dass es eine eigene Methode wird.
Mit reiner Übergabe des Dateinamens als String damit keine Koppelung zwischen SaveDialog und abspeichern besteht und dann geht's wieder von vorne los.

[fisipjm]

Zitat von TiGü:

Gewiss, aber in dreieinhalb Monaten refaktorist du das oder jemand anderes so, dass es eine eigene Methode wird.
Mit reiner Übergabe des Dateinamens als String damit keine Koppelung zwischen SaveDialog und abspeichern besteht und dann geht's wieder von vorne los.

na dann zieh ich das doch einfach mal in die Zukunft und mach direkt eine eigene Methode draus, besser ist das

Danke für die Hinweise, hast ja absolut recht