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

[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

[himitsu]

Jupp, wollte quasi sagen:

* wenn vorhanden, dann kannst das auch gleich binär speichern (wenn es z.B. als TByte vorliegt)

* und wenn es ein String oder TArray<String> oder TBytes bzw. TArray<Byte> ist, dann kannst das über TFile auch direkt als Einzeiler speichern, anstatt erst eine Klasse zu erstellen (die oben, in deinem BeispielCode, auch noch vergessen wurde wieder freizugeben)